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/compiler/CodeGen/main/mlriscGen.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/CodeGen/main/mlriscGen.sml

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

revision 803, Thu Mar 22 19:30:19 2001 UTC revision 804, Thu Mar 22 19:37:34 2001 UTC
# Line 1297  Line 1297 
1297                defI32 (x, ZX32 (sz, M.LOAD (sz, regbind i, R.memory)), e, hp)                defI32 (x, ZX32 (sz, M.LOAD (sz, regbind i, R.memory)), e, hp)
1298              | rawload ((P.UINT sz | P.INT sz), _, _, _, _) =              | rawload ((P.UINT sz | P.INT sz), _, _, _, _) =
1299                error ("rawload: unsupported size: " ^ Int.toString sz)                error ("rawload: unsupported size: " ^ Int.toString sz)
1300              | rawload (P.FLOAT (sz as (32 | 64)), i, x, e, hp) =              | rawload (P.FLOAT 64, i, x, e, hp) =
1301                treeifyDefF64 (x, M.FLOAD (sz, regbind i, R.memory), e, hp)                treeifyDefF64 (x, M.FLOAD (64, regbind i, R.memory), e, hp)
1302                | rawload (P.FLOAT 32, i, x, e, hp) =
1303                  treeifyDefF64 (x, M.CVTF2F (64, 32,
1304                                              M.FLOAD (32, regbind i, R.memory)),
1305                                 e, hp)
1306              | rawload (P.FLOAT sz, _, _, _, _) =              | rawload (P.FLOAT sz, _, _, _, _) =
1307                error ("rawload: unsupported float size: " ^ Int.toString sz)                error ("rawload: unsupported float size: " ^ Int.toString sz)
1308    

Legend:
Removed from v.803  
changed lines
  Added in v.804

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