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/compiler/CodeGen/main/mlriscGen.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/CodeGen/main/mlriscGen.sml

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

revision 779, Sun Jan 14 06:40:32 2001 UTC revision 780, Tue Jan 30 22:45:26 2001 UTC
# Line 783  Line 783 
783              | scale8(a, i) = M.ADD(ity, a, M.SLL(ity, stripTag(regbind i),              | scale8(a, i) = M.ADD(ity, a, M.SLL(ity, stripTag(regbind i),
784                                                    LI(2)))                                                    LI(2)))
785    
786            (* zero-extend and sign-extend; these should just be synonyms            (* zero-extend and sign-extend *)
787             * for M.ZX and M.SX, but the machine-code emitter does not            fun ZX32 (sz, e) = M.ZX (32, sz, e)
788             * know how to handle those at the moment... *)                (* M.SRL (32, M.SLL (32, e, LI (32 - sz)), LI (32 - sz)) *)
789            fun ZX32 (sz, e) = (* M.ZX (32, sz, e) *)            fun SX32 (sz, e) = M.SX (32, sz, e)
790                M.SRL (32, M.SLL (32, e, LI (32 - sz)), LI (32 - sz))                (* M.SRA (32, M.SLL (32, e, LI (32 - sz)), LI (32 - sz)) *)
           fun SX32 (sz, e) = (* M.SX (32, sz, e) *)  
               M.SRA (32, M.SLL (32, e, LI (32 - sz)), LI (32 - sz))  
791    
792            (* add to storelist, the address where a boxed update has occured *)            (* add to storelist, the address where a boxed update has occured *)
793            fun recordStore(tmp, hp) =            fun recordStore(tmp, hp) =

Legend:
Removed from v.779  
changed lines
  Added in v.780

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