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

mescc: Bugfix for neg.

Browse source 
* module/language/c99/compiler.mes (expr->accu): Fix neg.
* scaffold/t.c (math_test): Test it.
* scaffold/mini-mes.c (ash): Remove workaround.
This commit is contained in:
Jan Nieuwenhuizen 2017-03-25 19:03:03 +01:00
parent c39c04cb56
commit f015150cd8
3 changed files with 3 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
module/language/c99/compiler.mes
View file

@ -860,7 +860,7 @@
(list (lambda (f g ta t d)
(i386:value->accu 0)))
(list (lambda (f g ta t d)
(i386:base-sub))))))
(i386:sub-base))))))
;;((cast (type-name (decl-spec-list (type-spec (typename "SCM"))) (abs-declr (declr-fctn (declr-scope (abs-declr (pointer))) (param-list (param-decl (decl-spec-list (type-spec (typename "SCM")))))))) (d-sel (ident "function") (array-ref (d-sel (ident "cdr") (array-ref (p-expr (ident "fn")) (p-expr (ident "g_cells")))) (p-expr (ident "functions"))))))
((cast ,cast ,o)

7
scaffold/mini-mes.c
View file

@ -1275,14 +1275,7 @@ ash (SCM n, SCM count)
assert (TYPE (count) == TNUMBER);
int cn = VALUE (n);
int ccount = VALUE (count);
#if __GNUC__
return MAKE_NUMBER ((ccount < 0) ? cn >> -ccount : cn << ccount);
#else
int x;
if (ccount < 0) x = cn >> INT_MIN - ccount;
else x = cn << ccount;
return MAKE_NUMBER (x);
#endif
}
// Lib [rest of]

4
scaffold/t.c
View file

@ -230,10 +230,10 @@ math_test ()
i = -3;
puts ("t: -i\n");
if (-i != 3) return -i;
if (-i != 3) return 1;
puts ("t: -1 + 2\n");
if (-1 + 2 != 1) return -1 + 2;
if (-1 + 2 != 1) return 1;
return read_test ();
}