SCM Repository
Diff of /sml/trunk/src/MLRISC/hppa/emit/hppaAsm.sml
Parent Directory
| 
Revision Log
| 
Patch
| revision 1016, Tue Jan 15 23:10:06 2002 UTC | revision 1017, Wed Jan 16 14:48:16 2002 UTC | |
|---|---|---|
| # | Line 49 | Line 49 |
| 49 | fun emit_const c = emit(Constant.toString c) | fun emit_const c = emit(Constant.toString c) |
| 50 | fun emit_int i = emit(ms i) | fun emit_int i = emit(ms i) |
| 51 | fun paren f = (emit "("; f(); emit ")") | fun paren f = (emit "("; f(); emit ")") |
| 52 | fun defineLabel lab = emit(P.Client.AsmPseudoOps.defineLabel lab^":\n") | fun defineLabel lab = emit(P.Client.AsmPseudoOps.defineLabel lab^"\n") |
| 53 | fun entryLabel lab = defineLabel lab | fun entryLabel lab = defineLabel lab |
| 54 | fun comment msg = (tab(); emit("/* " ^ msg ^ " */\n")) | fun comment msg = (tab(); emit("/* " ^ msg ^ " */\n")) |
| 55 | fun annotation a = (comment(Annotations.toString a); nl()) | fun annotation a = (comment(Annotations.toString a); nl()) |
|
||||||||
| root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
| Powered by ViewVC 1.0.0 |
