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 889, Thu Jul 19 20:35:20 2001 UTC revision 984, Wed Nov 21 19:00:08 2001 UTC
# Line 61  Line 61 
61            RegOp of $GP                  ``<GP>'' (emit_GP GP) rtl: $r[GP]            RegOp of $GP                  ``<GP>'' (emit_GP GP) rtl: $r[GP]
62          | ImmedOp of int                ``<int>'' (itow int)  rtl: immed int          | ImmedOp of int                ``<int>'' (itow int)  rtl: immed int
63          | LabelOp of T.labexp   ``<emit_labexp labexp>''          | LabelOp of T.labexp   ``<emit_labexp labexp>''
64                                          (itow(LabelExp.valueOf labexp))                                          (itow(MLTreeEval.valueOf labexp))
65    
66        type addressing_mode = CellsBasis.cell * operand        type addressing_mode = CellsBasis.cell * operand
67    
# Line 537  Line 537 
537      *)      *)
538     structure MC =     structure MC =
539     struct     struct
540        fun relative(I.LabelOp lexp) = itow(LabelExp.valueOf lexp - !loc) ~>> 0w2        fun relative(I.LabelOp lexp) = itow(MLTreeEval.valueOf lexp - !loc) ~>> 0w2
541          | relative _ = error "relative"          | relative _ = error "relative"
542     end     end
543    

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

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