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 746, Fri Dec 8 04:16:09 2000 UTC revision 775, Fri Jan 12 01:17:51 2001 UTC
# Line 550  Line 550 
550            (* this is used only during instruction selection *)            (* this is used only during instruction selection *)
551            REG of $GP              rtl: $r[GP]            REG of $GP              rtl: $r[GP]
552          | IMMED of int ``<int>''  rtl: int          | IMMED of int ``<int>''  rtl: int
553          | LabExp of LabelExp.labexp * field_selector ``<labexp>'' rtl: labexp          | LabExp of T.labexp * field_selector ``<labexp>'' rtl: labexp
554          | HILabExp of LabelExp.labexp * field_selector ``<labexp>''          | HILabExp of T.labexp * field_selector ``<labexp>''
555          | LOLabExp of LabelExp.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 C.cell * operand    (* displacement *)
# Line 963  Line 963 
963                ``bv<n>\t%r0(<tmp>)''                ``bv<n>\t%r0(<tmp>)''
964               )               )
965          mc:  let val offset =          mc:  let val offset =
966                      LabelExp.MINUS(LabelExp.LABEL lab,                      T.SUB(32,T.LABEL lab,
967                          LabelExp.PLUS(LabelExp.LABEL tmpLab, LabelExp.INT 4))                          T.ADD(32,T.LABEL tmpLab, T.LI(IntInf.fromInt 4)))
968               in (* set the location of tmpLab *)               in (* set the location of tmpLab *)
969                   Label.setAddr(tmpLab, !loc+4);                   Label.setAddr(tmpLab, !loc+4);
970                   branchLink(0wx3a,tmp,tmpLab,0w0,n);                   branchLink(0wx3a,tmp,tmpLab,0w0,n);
# Line 1192  Line 1192 
1192     struct     struct
1193    
1194        fun operand(ty,I.REG r) = T.REG(ty, r)        fun operand(ty,I.REG r) = T.REG(ty, r)
1195          | operand(ty,I.IMMED i) = T.LI i          | operand(ty,I.IMMED i) = T.LI(IntInf.fromInt i)
1196          (*| operand(ty,I.LabExp(le,_)) = T.LABEL le*)          (*| operand(ty,I.LabExp(le,_)) = T.LABEL le*)
1197          | operand _ = error "operand"          | operand _ = error "operand"
1198    

Legend:
Removed from v.746  
changed lines
  Added in v.775

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