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

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

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

revision 606, Sun Apr 9 23:10:59 2000 UTC revision 624, Fri Apr 21 03:06:21 2000 UTC
# Line 1014  Line 1014 
1014          | doFexpr(fty, T.FLOAD(fty', ea, mem), fd, an) =          | doFexpr(fty, T.FLOAD(fty', ea, mem), fd, an) =
1015              let val ea = address(ea, mem)              let val ea = address(ea, mem)
1016              in  mark(fld(fty', ea), an);              in  mark(fld(fty', ea), an);
1017                  emit(fstp(fty, I.FDirect fd))                  if fd = ST0 then () else emit(fstp(fty, I.FDirect fd))
1018              end              end
1019          | doFexpr(fty, e, fd, an) =          | doFexpr(fty, e, fd, an) =
1020              (reduceFexp(fty, e, []);              (reduceFexp(fty, e, []);
1021               mark(fstp(fty, I.FDirect fd), an)               if fd = ST0 then () else mark(fstp(fty, I.FDirect fd), an)
1022              )              )
1023    
1024            (*            (*

Legend:
Removed from v.606  
changed lines
  Added in v.624

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