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

mescc: Support binary constants.

Browse source 
* module/language/c99/compiler.mes (cstring->number): Support binary 0bxxx values.
* scaffold/t.c (math_test): Test it.
This commit is contained in:
Jan Nieuwenhuizen 2017-05-06 18:16:24 +02:00
parent 2eae07de72
commit 390059a42d
2 changed files with 10 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -1073,6 +1073,7 @@
(define (cstring->number s)
(cond ((string-prefix? "0x" s) (string->number (string-drop s 2) 16))
((string-prefix? "0b" s) (string->number (string-drop s 2) 2))
((string-prefix? "0" s) (string->number s 8))
(else (string->number s))))

9
scaffold/t.c
View file

@ -347,6 +347,15 @@ math_test ()
puts ("t: 3 != 3\n");
if ((3 != 3) != 0) return 1;
puts ("t: 011 == 15\n");
if (011 != 9) return 1;
puts ("t: 0b11 == 3\n");
if (0b11 != 3) return 1;
puts ("t: 0x11 == 3\n");
if (0x11 != 17) return 1;
return array_test (env);
}