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

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

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

revision 983, Wed Nov 21 18:44:55 2001 UTC revision 984, Wed Nov 21 19:00:08 2001 UTC
# Line 429  Line 429 
429     instruction formats 32 bits     instruction formats 32 bits
430       Memory{opc:6, ra:5, rb:GP 5, disp: signed 16} (* p3-9 *)       Memory{opc:6, ra:5, rb:GP 5, disp: signed 16} (* p3-9 *)
431        (* derived from Memory *)        (* derived from Memory *)
432     | Split{le} = let val i = LabelExp.valueOf le     | Split{le} = let val i = MLTreeEval.valueOf le
433                       val w = itow i                       val w = itow i
434                       val hi = w ~>> 0w16                       val hi = w ~>> 0w16
435                       val lo = w && 0w65535                       val lo = w && 0w65535
# Line 444  Line 444 
444             | I.IMMop i  => itow i             | I.IMMop i  => itow i
445             | I.HILABop le => High{le=le}             | I.HILABop le => High{le=le}
446             | I.LOLABop le => Low{le=le}             | I.LOLABop le => Low{le=le}
447             | I.LABop le => itow(LabelExp.valueOf le)             | I.LABop le => itow(MLTreeEval.valueOf le)
448         in  Memory{opc,ra,rb,disp}         in  Memory{opc,ra,rb,disp}
449         end         end
450     | ILoadStore{opc,r:GP,b,d} = LoadStore{opc,ra=r,rb=b,disp=d}     | ILoadStore{opc,r:GP,b,d} = LoadStore{opc,ra=r,rb=b,disp=d}
# Line 465  Line 465 
465          | I.IMMop i  => Operate1{opc,ra,lit=itow i,func,rc}          | I.IMMop i  => Operate1{opc,ra,lit=itow i,func,rc}
466          | I.HILABop le => Operate1{opc,ra,lit=High{le=le},func,rc}          | I.HILABop le => Operate1{opc,ra,lit=High{le=le},func,rc}
467          | I.LOLABop le => Operate1{opc,ra,lit=Low{le=le},func,rc}          | I.LOLABop le => Operate1{opc,ra,lit=Low{le=le},func,rc}
468          | I.LABop le => Operate1{opc,ra,lit=itow(LabelExp.valueOf le),func,rc}          | I.LABop le => Operate1{opc,ra,lit=itow(MLTreeEval.valueOf le),func,rc}
469          )          )
470     | Foperate{opc:6,fa:FP 5,fb:FP 5,func:5..15,fc:FP 5}     | Foperate{opc:6,fa:FP 5,fb:FP 5,func:5..15,fc:FP 5}
471     | Funary{opc:6,fa:5=31,fb:FP 5,func:5..15,fc:FP 5}     | Funary{opc:6,fa:5=31,fb:FP 5,func:5..15,fc:FP 5}
# Line 480  Line 480 
480    
481     structure Assembly =     structure Assembly =
482     struct     struct
483        fun isZero(I.LABop le) = LabelExp.valueOf le = 0        fun isZero(I.LABop le) = MLTreeEval.valueOf le = 0
484          | isZero _ = false          | isZero _ = false
485     end     end
486    

Legend:
Removed from v.983  
changed lines
  Added in v.984

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