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-fp.sml
ViewVC logotype

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

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

revision 894, Fri Jul 20 13:52:33 2001 UTC revision 895, Tue Jul 31 14:09:21 2001 UTC
# Line 1726  Line 1726 
1726                     DONE code                     DONE code
1727                 end                 end
1728    
1729                 fun call return =                 fun call(instr, return) = let
1730                 let val returnSet = SL.return(SL.uniq(getCell return))                   val code = mark(instr, an)::code
1731                 in  case returnSet of                   val returnSet = SL.return(SL.uniq(getCell return))
1732                   in
1733                     case returnSet of
1734                       [] => ()                       [] => ()
1735                     | [r] => ST.push(stack, CB.registerNum r)                     | [r] => ST.push(stack, CB.registerNum r)
1736                     | _   =>                     | _   =>
# Line 1751  Line 1753 
1753                 | I.FCOPY x   => (log(); fcopy x)                 | I.FCOPY x   => (log(); fcopy x)
1754    
1755                   (* handle calling convention *)                   (* handle calling convention *)
1756                 | I.CALL{return, ...}    => (log(); call return)                 | I.CALL{return, ...}    => (log(); call(instr,return))
1757    
1758                    (*                    (*
1759                     * Catch instructions that absolutely                     * Catch instructions that absolutely

Legend:
Removed from v.894  
changed lines
  Added in v.895

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