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/alpha/emit/alphaMC.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/alpha/emit/alphaMC.sml

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 70  Line 70 
70              eByteW b24;              eByteW b24;
71              eByteW b32 )              eByteW b32 )
72         end         end
73     fun emit_GP r = itow (C.physicalRegisterNum r)     fun emit_GP r = itow (CellsBasis.physicalRegisterNum r)
74     and emit_FP r = itow (C.physicalRegisterNum r)     and emit_FP r = itow (CellsBasis.physicalRegisterNum r)
75     and emit_CC r = itow (C.physicalRegisterNum r)     and emit_CC r = itow (CellsBasis.physicalRegisterNum r)
76     and emit_MEM r = itow (C.physicalRegisterNum r)     and emit_MEM r = itow (CellsBasis.physicalRegisterNum r)
77     and emit_CTRL r = itow (C.physicalRegisterNum r)     and emit_CTRL r = itow (CellsBasis.physicalRegisterNum r)
78     and emit_CELLSET r = itow (C.physicalRegisterNum r)     and emit_CELLSET r = itow (CellsBasis.physicalRegisterNum r)
79     fun emit_branch (I.BR) = (0wx30 : Word32.word)     fun emit_branch (I.BR) = (0wx30 : Word32.word)
80       | emit_branch (I.BLBC) = (0wx38 : Word32.word)       | emit_branch (I.BLBC) = (0wx38 : Word32.word)
81       | emit_branch (I.BEQ) = (0wx39 : Word32.word)       | emit_branch (I.BEQ) = (0wx39 : Word32.word)
# Line 362  Line 362 
362     fun disp lab = (itow (((Label.addrOf lab) - ( ! loc)) - 4)) ~>> 0wx2     fun disp lab = (itow (((Label.addrOf lab) - ( ! loc)) - 4)) ~>> 0wx2
363    
364  (*#line 478.7 "alpha/alpha.mdl"*)  (*#line 478.7 "alpha/alpha.mdl"*)
365     val zeroR = Option.valOf (C.zeroReg C.GP)     val zeroR = Option.valOf (C.zeroReg CellsBasis.GP)
366         fun emitter instr =         fun emitter instr =
367         let         let
368     fun emitInstr (I.DEFFREG FP) = ()     fun emitInstr (I.DEFFREG FP) = ()

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