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/branches/idlbasis-devel/src/MLRISC/hppa/emit/hppaAsm.sml
ViewVC logotype

Diff of /sml/branches/idlbasis-devel/src/MLRISC/hppa/emit/hppaAsm.sml

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

revision 858, Wed Jun 27 21:20:27 2001 UTC revision 859, Wed Jun 27 21:43:12 2001 UTC
# Line 20  Line 20 
20    
21     val show_cellset = MLRiscControl.getFlag "asm-show-cellset"     val show_cellset = MLRiscControl.getFlag "asm-show-cellset"
22     val show_region  = MLRiscControl.getFlag "asm-show-region"     val show_region  = MLRiscControl.getFlag "asm-show-region"
23       val show_cutsTo = MLRiscControl.getFlag "asm-show-cutsto"
24     val indent_copies = MLRiscControl.getFlag "asm-indent-copies"     val indent_copies = MLRiscControl.getFlag "asm-indent-copies"
25    
26     fun error msg = MLRiscErrorMsg.error("HppaAsmEmitter",msg)     fun error msg = MLRiscErrorMsg.error("HppaAsmEmitter",msg)
# Line 49  Line 50 
50         fun entryLabel lab = defineLabel lab         fun entryLabel lab = defineLabel lab
51         fun comment msg = (tab(); emit("/* " ^ msg ^ " */"))         fun comment msg = (tab(); emit("/* " ^ msg ^ " */"))
52         fun annotation a = (comment(Annotations.toString a); nl())         fun annotation a = (comment(Annotations.toString a); nl())
53           fun getAnnotations() = error "getAnnotations"
54         fun doNothing _ = ()         fun doNothing _ = ()
55         fun emit_region mem = comment(I.Region.toString mem)         fun emit_region mem = comment(I.Region.toString mem)
56         val emit_region =         val emit_region =
# Line 64  Line 66 
66           if !show_cellset then emit_cellset else doNothing           if !show_cellset then emit_cellset else doNothing
67         fun emit_defs cellset = emit_cellset("defs: ",cellset)         fun emit_defs cellset = emit_cellset("defs: ",cellset)
68         fun emit_uses cellset = emit_cellset("uses: ",cellset)         fun emit_uses cellset = emit_cellset("uses: ",cellset)
69           val emit_cutsTo =
70             if !show_cutsTo then AsmFormatUtil.emit_cutsTo emit
71             else doNothing
72         fun emitter instr =         fun emitter instr =
73         let         let
74     fun asm_fmt (I.SGL) = "sgl"     fun asm_fmt (I.SGL) = "sgl"
# Line 445  Line 450 
450             emit "(";             emit "(";
451             emitCell t;             emitCell t;
452             emit ")" )             emit ")" )
453         | I.BL{lab, t, defs, uses, mem, n} =>         | I.BL{lab, t, defs, uses, cutsTo, mem, n} =>
454           ( emit "bl";           ( emit "bl";
455             emit_n n;             emit_n n;
456             emit "\t";             emit "\t";
# Line 454  Line 459 
459             emitCell t;             emitCell t;
460             emit_region mem;             emit_region mem;
461             emit_defs defs;             emit_defs defs;
462             emit_uses uses )             emit_uses uses;
463         | I.BLE{d, b, sr, t, defs, uses, mem} =>             emit_cutsTo cutsTo )
464           | I.BLE{d, b, sr, t, defs, uses, cutsTo, mem} =>
465           ( emit "ble\t";           ( emit "ble\t";
466             emit_operand d;             emit_operand d;
467             emit "(";             emit "(";
# Line 465  Line 471 
471             emit ")";             emit ")";
472             emit_region mem;             emit_region mem;
473             emit_defs defs;             emit_defs defs;
474             emit_uses uses )             emit_uses uses;
475               emit_cutsTo cutsTo )
476         | I.LDIL{i, t} =>         | I.LDIL{i, t} =>
477           ( emit "ldil\t";           ( emit "ldil\t";
478             emit_operand i;             emit_operand i;
# Line 591  Line 598 
598                  entryLabel=entryLabel,                  entryLabel=entryLabel,
599                  comment=comment,                  comment=comment,
600                  exitBlock=doNothing,                  exitBlock=doNothing,
601                  annotation=annotation                  annotation=annotation,
602                    getAnnotations=getAnnotations
603                 }                 }
604     end     end
605  end  end

Legend:
Removed from v.858  
changed lines
  Added in v.859

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