Mercurial > repos > rhope
comparison 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 |
comparison
equal
deleted
inserted
replaced
| 49:3e20ed8959c4 | 50:689fb73e7612 |
|---|---|
| 1073 { Print["_Set Consts got output yes"] } | 1073 { Print["_Set Consts got output yes"] } |
| 1074 }{ | 1074 }{ |
| 1075 out <- [text]Append[[["\t_const_"]Append[Escape Rhope Name[name]]]Append[" = (object *)val_no;\n"]] | 1075 out <- [text]Append[[["\t_const_"]Append[Escape Rhope Name[name]]]Append[" = (object *)val_no;\n"]] |
| 1076 { Print["_Set Consts got output no"] } | 1076 { Print["_Set Consts got output no"] } |
| 1077 } | 1077 } |
| 1078 }{ | |
| 1079 If[[valtype] = ["Machine Integer"]] | |
| 1080 { | |
| 1081 If[[value]Signed? >>] | |
| 1082 { s <- "I" } | |
| 1083 { s <- "UI" } | |
| 1084 | |
| 1085 make <- [[[" = make_"]Append[s]]Append["nt"]]Append[[value]Size >>] | |
| 1086 out <- [text]Append[ [[[[["\t_const_"]Append[Escape Rhope Name[name]]]Append[make]]Append["("]]Append[[value]Value >>]]Append[");\n"] ] | |
| 1087 } | |
| 1078 } | 1088 } |
| 1079 } | 1089 } |
| 1080 } | 1090 } |
| 1081 } | 1091 } |
| 1082 | 1092 |