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/sparc/mltree/sparc.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/sparc/mltree/sparc.sml

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

revision 840, Fri Jun 15 19:05:19 2001 UTC revision 841, Fri Jun 15 21:38:20 2001 UTC
# Line 355  Line 355 
355            mark(I.FPop2{a=a,r1=fexpr e1,r2=fexpr e2,d=d},an)            mark(I.FPop2{a=a,r1=fexpr e1,r2=fexpr e2,d=d},an)
356    
357        (* convert an expression into an addressing mode *)        (* convert an expression into an addressing mode *)
358        and addr(T.ADD(_,e,T.LI n)) =        and addr(T.ADD(ty, (T.ADD (_, e, T.LI n)|
359                              T.ADD (_, T.LI n, e)), T.LI n')) =
360              addr(T.ADD (ty, e, T.LI (T.I.ADD (ty, n, n'))))
361            | addr(T.ADD(ty, T.SUB (_, e, T.LI n), T.LI n')) =
362              addr(T.ADD (ty, e, T.LI (T.I.SUB (ty, n', n))))
363            | addr(T.ADD(_,e,T.LI n)) =
364            if immed13 n then (expr e,I.IMMED(toInt n))            if immed13 n then (expr e,I.IMMED(toInt n))
365            else let val d = newReg()            else let val d = newReg()
366                 in  loadImmed(n,d,REG,[]); (d,opn e) end                 in  loadImmed(n,d,REG,[]); (d,opn e) end

Legend:
Removed from v.840  
changed lines
  Added in v.841

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