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/sparc/emit/sparcAsm.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/sparc/emit/sparcAsm.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 900, Tue Aug 14 15:10:12 2001 UTC revision 909, Fri Aug 24 17:48:53 2001 UTC
# Line 44  Line 44 
44                    in  if n<0 then "-"^String.substring(s,1,size s-1)                    in  if n<0 then "-"^String.substring(s,1,size s-1)
45                        else s                        else s
46                    end                    end
47         fun emit_label lab = emit(Label.nameOf lab)         fun emit_label lab = emit(Label.toString lab)
48         fun emit_labexp le = emit(LabelExp.toString le)         fun emit_labexp le = emit(LabelExp.toString le)
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(Label.nameOf lab^":\n")         fun defineLabel lab = emit(Label.toString lab^":\n")
53         fun entryLabel lab = defineLabel lab         fun entryLabel lab = defineLabel lab
54         fun comment msg = (tab(); emit("/* " ^ msg ^ " */"))         fun comment msg = (tab(); emit("/* " ^ msg ^ " */\n"))
55         fun annotation a = (comment(Annotations.toString a); nl())         fun annotation a = (comment(Annotations.toString a); nl())
56         fun getAnnotations() = error "getAnnotations"         fun getAnnotations() = error "getAnnotations"
57         fun doNothing _ = ()         fun doNothing _ = ()
58           fun fail _ = raise Fail "AsmEmitter"
59         fun emit_region mem = comment(I.Region.toString mem)         fun emit_region mem = comment(I.Region.toString mem)
60         val emit_region =         val emit_region =
61            if !show_region then emit_region else doNothing            if !show_region then emit_region else doNothing
# Line 577  Line 578 
578     in  S.STREAM{beginCluster=init,     in  S.STREAM{beginCluster=init,
579                  pseudoOp=pseudoOp,                  pseudoOp=pseudoOp,
580                  emit=emitter,                  emit=emitter,
581                  endCluster=doNothing,                  endCluster=fail,
582                  defineLabel=defineLabel,                  defineLabel=defineLabel,
583                  entryLabel=entryLabel,                  entryLabel=entryLabel,
584                  comment=comment,                  comment=comment,

Legend:
Removed from v.900  
changed lines
  Added in v.909

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