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/ppc/ppc.mdl
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/ppc/ppc.mdl

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

revision 888, Thu Jul 19 20:24:21 2001 UTC revision 889, Thu Jul 19 20:35:20 2001 UTC
# Line 63  Line 63 
63          | LabelOp of T.labexp   ``<emit_labexp labexp>''          | LabelOp of T.labexp   ``<emit_labexp labexp>''
64                                          (itow(LabelExp.valueOf labexp))                                          (itow(LabelExp.valueOf labexp))
65    
66        type addressing_mode = C.cell * operand        type addressing_mode = CellsBasis.cell * operand
67    
68        datatype ea =        datatype ea =
69            Direct of $GP            Direct of $GP
# Line 579  Line 579 
579          | eOERc{OE=true,Rc=true}   = emit "o."          | eOERc{OE=true,Rc=true}   = emit "o."
580        fun eRc false = "" | eRc true  = "."        fun eRc false = "" | eRc true  = "."
581        fun cr_bit(cr,bit) =        fun cr_bit(cr,bit) =
582           4 * (C.physicalRegisterNum cr) +           4 * (CellsBasis.physicalRegisterNum cr) +
583           (case bit of           (case bit of
584              I.LT => 0 | I.GT => 1 | I.EQ => 2 | I.SO => 3              I.LT => 0 | I.GT => 1 | I.EQ => 2 | I.SO => 3
585            | I.FL => 0 | I.FG => 1 | I.FE => 2 | I.FU => 3            | I.FL => 0 | I.FG => 1 | I.FE => 2 | I.FU => 3
# Line 589  Line 589 
589        fun eLK true = emit "l" | eLK false = ()        fun eLK true = emit "l" | eLK false = ()
590        fun eI (I.RegOp _) = () | eI _ = emit "i"        fun eI (I.RegOp _) = () | eI _ = emit "i"
591        fun eBI(bo, bf, bit) =        fun eBI(bo, bf, bit) =
592            case (bo, C.physicalRegisterNum bf) of            case (bo, CellsBasis.physicalRegisterNum bf) of
593              (I.ALWAYS, _) => ()              (I.ALWAYS, _) => ()
594            | (I.COUNTER{cond=NONE, ...}, _) => ()            | (I.COUNTER{cond=NONE, ...}, _) => ()
595            | (_,0) => emit(asm_bit bit)            | (_,0) => emit(asm_bit bit)

Legend:
Removed from v.888  
changed lines
  Added in v.889

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