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 497, Tue Dec 7 15:44:50 1999 UTC revision 498, Tue Dec 7 15:44:50 1999 UTC
# Line 20  Line 20 
20     structure LE = LabelExp     structure LE = LabelExp
21     structure Constant = I.Constant     structure Constant = I.Constant
22    
23       val show_cellset = MLRiscControl.getFlag "asm-show-cellset"
24    
25     fun error msg = MLRiscErrorMsg.error("SparcAsm",msg)     fun error msg = MLRiscErrorMsg.error("SparcAsm",msg)
26    
27     fun makeStream formatAnnotations =     fun makeStream formatAnnotations =
# Line 73  Line 75 
75         ((emit (C.showFSR (regmap r)));         ((emit (C.showFSR (regmap r)));
76         (emitRegInfo r))         (emitRegInfo r))
77    
78           fun emit_cellset(title,cellset) =
79           if !show_cellset then
80             (nl(); comment(title^C.cellsetToString' regmap cellset))
81           else ()
82           fun emit_defs cellset = emit_cellset("defs: ",cellset)
83           fun emit_uses cellset = emit_cellset("uses: ",cellset)
84    
85     fun asm_farith1 (I.FiTOs) = "fitos"     fun asm_farith1 (I.FiTOs) = "fitos"
86       | asm_farith1 (I.FiTOd) = "fitod"       | asm_farith1 (I.FiTOd) = "fitod"
87       | asm_farith1 (I.FiTOq) = "fitoq"       | asm_farith1 (I.FiTOq) = "fitoq"
# Line 412  Line 421 
421          (emit "], ");          (emit "], ");
422          (emit_GP d);          (emit_GP d);
423          (emit_region mem);          (emit_region mem);
424            (emit_defs defs);
425            (emit_uses uses);
426          (emit_nop nop))          (emit_nop nop))
427        | I.CALL{defs, uses, label, nop, mem} =>        | I.CALL{defs, uses, label, nop, mem} =>
428          ((emit "call\t");          ((emit "call\t");
429          (emit_label label);          (emit_label label);
430          (emit_region mem);          (emit_region mem);
431            (emit_defs defs);
432            (emit_uses uses);
433          (emit_nop nop))          (emit_nop nop))
434        | I.Ticc{t, cc, r, i} =>        | I.Ticc{t, cc, r, i} =>
435          ((emit "t");          ((emit "t");

Legend:
Removed from v.497  
changed lines
  Added in v.498

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