Mercurial > repos > rhope
diff cbackend.rhope @ 50:689fb73e7612
Add support for various integer literals and add support for raw pointers to objects and raw pointers to arrays in the FFI
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Fri, 16 Apr 2010 01:57:04 -0400 |
parents | 3e20ed8959c4 |
children | 079200bc3e75 |
line wrap: on
line diff
--- a/cbackend.rhope Thu Apr 08 01:02:18 2010 -0400 +++ b/cbackend.rhope Fri Apr 16 01:57:04 2010 -0400 @@ -1075,6 +1075,16 @@ out <- [text]Append[[["\t_const_"]Append[Escape Rhope Name[name]]]Append[" = (object *)val_no;\n"]] { Print["_Set Consts got output no"] } } + }{ + If[[valtype] = ["Machine Integer"]] + { + If[[value]Signed? >>] + { s <- "I" } + { s <- "UI" } + + make <- [[[" = make_"]Append[s]]Append["nt"]]Append[[value]Size >>] + out <- [text]Append[ [[[[["\t_const_"]Append[Escape Rhope Name[name]]]Append[make]]Append["("]]Append[[value]Value >>]]Append[");\n"] ] + } } } }