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/hppa/emit/hppaMC.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/hppa/emit/hppaMC.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 b16;              eByteW b16;
71              eByteW b8 )              eByteW b8 )
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_CR r = itow (C.physicalRegisterNum r)     and emit_CR r = itow (CellsBasis.physicalRegisterNum r)
76     and emit_CC r = itow (C.physicalRegisterNum r)     and emit_CC r = itow (CellsBasis.physicalRegisterNum r)
77     and emit_MEM r = itow (C.physicalRegisterNum r)     and emit_MEM r = itow (CellsBasis.physicalRegisterNum r)
78     and emit_CTRL r = itow (C.physicalRegisterNum r)     and emit_CTRL r = itow (CellsBasis.physicalRegisterNum r)
79     and emit_CELLSET r = itow (C.physicalRegisterNum r)     and emit_CELLSET r = itow (CellsBasis.physicalRegisterNum r)
80     fun emit_fmt (I.SGL) = (0wx0 : Word32.word)     fun emit_fmt (I.SGL) = (0wx0 : Word32.word)
81       | emit_fmt (I.DBL) = (0wx1 : Word32.word)       | emit_fmt (I.DBL) = (0wx1 : Word32.word)
82       | emit_fmt (I.QUAD) = (0wx3 : Word32.word)       | emit_fmt (I.QUAD) = (0wx3 : Word32.word)
# Line 395  Line 395 
395     and FTest {} = eWord32 0wx30002420     and FTest {} = eWord32 0wx30002420
396    
397  (*#line 646.7 "hppa/hppa.mdl"*)  (*#line 646.7 "hppa/hppa.mdl"*)
398     val zeroR = Option.valOf (C.zeroReg C.GP)     val zeroR = Option.valOf (C.zeroReg CellsBasis.GP)
399    
400  (*#line 647.7 "hppa/hppa.mdl"*)  (*#line 647.7 "hppa/hppa.mdl"*)
401     fun opn opnd =     fun opn opnd =
# Line 605  Line 605 
605       | emitInstr (I.BL{lab, t, defs, uses, cutsTo, mem, n}) = branchLink (0wx3a,       | emitInstr (I.BL{lab, t, defs, uses, cutsTo, mem, n}) = branchLink (0wx3a,
606            t, lab, 0wx0, n)            t, lab, 0wx0, n)
607       | emitInstr (I.BLE{d, b, sr, t, defs, uses, cutsTo, mem}) =       | emitInstr (I.BLE{d, b, sr, t, defs, uses, cutsTo, mem}) =
608         (case (d, C.registerId t) of         (case (d, CellsBasis.registerId t) of
609           (I.IMMED 0, 31) => BranchExternal {Op=0wx39, b=b, w1=0wx0, s=assemble_3 (itow sr),           (I.IMMED 0, 31) => BranchExternal {Op=0wx39, b=b, w1=0wx0, s=assemble_3 (itow sr),
610              w2=0wx0, n=true, w=0wx0}              w2=0wx0, n=true, w=0wx0}
611         | _ => error "BLE: not implemented"         | _ => error "BLE: not implemented"

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