artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

mescc: Fix truncation of short.

Browse source 
* module/mescc/compile.scm (convert-r0): Typo.  Fixes truncation of
short.  Thanks, pdewacht!
* scaffold/tests/a0-call-trunc-char.c: New file.
* scaffold/tests/a0-call-trunc-short.c: New file.
* build-aux/check-mescc.sh: Add them.
This commit is contained in:
Jan Nieuwenhuizen 2018-10-06 11:57:04 +02:00
parent 6078fa5083
commit be4f23fae6
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273
4 changed files with 79 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
build-aux/check-mescc.sh
View file

@ -216,6 +216,8 @@ t
97-fopen 97-fopen
98-fopen 98-fopen
99-readdir 99-readdir
a0-call-trunc-char
a0-call-trunc-short
" "
broken="$broken broken="$broken

2
module/mescc/compile.scm
View file

@ -1400,7 +1400,7 @@
(wrap-as (as info 'byte-r))) (wrap-as (as info 'byte-r)))
((and (= size 2) sign) ((and (= size 2) sign)
(wrap-as (as info 'word-signed-r))) (wrap-as (as info 'word-signed-r)))
((= size 1) ((= size 2)
(wrap-as (as info 'word-r))) (wrap-as (as info 'word-r)))
((and (> reg-size 4) (= size 4) sign) ((and (> reg-size 4) (= size 4) sign)
(wrap-as (as info 'long-signed-r))) (wrap-as (as info 'long-signed-r)))

38
scaffold/tests/a0-call-trunc-char.c Normal file
View file

@ -0,0 +1,38 @@
/* -*-comment-start: "//";comment-end:""-*-
* GNU Mes --- Maxwell Equations of Software
* Copyright © 2018 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
*
* This file is part of GNU Mes.
*
* GNU Mes is free software; you can redistribute it and/or modify it
* under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 3 of the License, or (at
* your option) any later version.
*
* GNU Mes is distributed in the hope that it will be useful, but
* WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with GNU Mes. If not, see <http://www.gnu.org/licenses/>.
*/
#include <libmes.h>
int
f (unsigned char x)
{
eputs ("x="); eputs (itoa (x)); eputs ("\n");
return x;
}
int
main ()
{
unsigned int x = -1;
x = f(x);
if (x != 255)
return 1;
return 0;
}

38
scaffold/tests/a0-call-trunc-short.c Normal file
View file

@ -0,0 +1,38 @@
/* -*-comment-start: "//";comment-end:""-*-
* GNU Mes --- Maxwell Equations of Software
* Copyright © 2018 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
*
* This file is part of GNU Mes.
*
* GNU Mes is free software; you can redistribute it and/or modify it
* under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 3 of the License, or (at
* your option) any later version.
*
* GNU Mes is distributed in the hope that it will be useful, but
* WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with GNU Mes. If not, see <http://www.gnu.org/licenses/>.
*/
#include <libmes.h>
int
f (unsigned short x)
{
eputs ("x="); eputs (itoa (x)); eputs ("\n");
return x;
}
int
main ()
{
unsigned int x = -1;
x = f(x);
if (x != 65535)
return 1;
return 0;
}