Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/src/MLRISC/hppa/emit/hppaAsm.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/hppa/emit/hppaAsm.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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())

Legend:
Removed from v.1016  
changed lines
  Added in v.1017

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0