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

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

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

revision 815, Fri May 4 05:09:10 2001 UTC revision 823, Tue May 8 21:25:15 2001 UTC
# Line 506  Line 506 
506     *------------------------------------------------------------------------*)     *------------------------------------------------------------------------*)
507    
508    functor Assembly    functor Assembly
509       (structure MemRegs : MEMORY_REGISTERS where I = Instr) =       (structure MemRegs : MEMORY_REGISTERS where I = Instr
510          val memRegBase : MemRegs.I.C.cell option) =
511    struct    struct
512       val memReg = MemRegs.memReg       fun memReg r = MemRegs.memReg {reg=r, base=Option.valOf memRegBase}
513       fun emitInt32 i =       fun emitInt32 i =
514       let val s = Int32.toString i       let val s = Int32.toString i
515           val s = if i >= 0 then s else "-"^String.substring(s,1,size s-1)           val s = if i >= 0 then s else "-"^String.substring(s,1,size s-1)

Legend:
Removed from v.815  
changed lines
  Added in v.823

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