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

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

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

revision 796, Tue Mar 6 00:04:33 2001 UTC revision 889, Thu Jul 19 20:35:20 2001 UTC
# Line 555  Line 555 
555          | LOLabExp of T.labexp * field_selector ``<labexp>''          | LOLabExp of T.labexp * field_selector ``<labexp>''
556    
557        datatype addressing_mode =        datatype addressing_mode =
558          DISPea of C.cell * operand    (* displacement *)          DISPea of CellsBasis.cell * operand               (* displacement *)
559        | INDXea of C.cell * C.cell       (* indexed *)        | INDXea of CellsBasis.cell * CellsBasis.cell       (* indexed *)
560        | INDXSCALEDea of C.cell * C.cell (* indexed with scaling (b,x) *)        | INDXSCALEDea of CellsBasis.cell * CellsBasis.cell (* indexed with scaling (b,x) *)
561    
562     end  (* Instruction *)     end  (* Instruction *)
563    
# Line 643  Line 643 
643      *========================================================================*)      *========================================================================*)
644     structure MC =     structure MC =
645     struct     struct
646        val zeroR = Option.valOf(C.zeroReg C.GP)        val zeroR = Option.valOf(C.zeroReg CellsBasis.GP)
647        fun opn opnd =        fun opn opnd =
648        let fun hi21 n  = (itow n) >> 0w11        let fun hi21 n  = (itow n) >> 0w11
649            fun hi21X n = (itow n) ~>> 0w11            fun hi21X n = (itow n) ~>> 0w11
# Line 1015  Line 1015 
1015                mem:Region.region}                mem:Region.region}
1016          asm: ``ble\t<d>(<emit_int sr>,<b>)<mem><          asm: ``ble\t<d>(<emit_int sr>,<b>)<mem><
1017                 emit_defs(defs)><emit_uses(uses)><emit_cutsTo cutsTo>''                 emit_defs(defs)><emit_uses(uses)><emit_cutsTo cutsTo>''
1018          mc:  (case (d,C.registerId t) of          mc:  (case (d,CellsBasis.registerId t) of
1019                 (I.IMMED 0,31) =>                 (I.IMMED 0,31) =>
1020                   BranchExternal{Op=0wx39,b=b,w1=0w0,s=assemble_3(itow sr),                   BranchExternal{Op=0wx39,b=b,w1=0w0,s=assemble_3(itow sr),
1021                                  w2=0w0,n=true,w=0w0}                                  w2=0w0,n=true,w=0w0}

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

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