Mercurial > repos > rhope

diff cbackend.rhope @ 50:689fb73e7612

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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"] ]
+				}
 			}
 		}
 	}