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 1136, Tue Mar 12 19:44:02 2002 UTC revision 1142, Wed Mar 13 22:25:37 2002 UTC
# Line 1519  Line 1519 
1519        and fbinop(targetFty,        and fbinop(targetFty,
1520                   binOp, binOpR, ibinOp, ibinOpR, lsrc, rsrc, fd, an) =                   binOp, binOpR, ibinOp, ibinOpR, lsrc, rsrc, fd, an) =
1521                (* Put the mem operand in rsrc *)                (* Put the mem operand in rsrc *)
1522            let val _ = floatingPointUsed := true;            let
1523                fun isMemOpnd(T.FREG(_, f)) = isFMemReg f                fun isMemOpnd(T.FREG(_, f)) = isFMemReg f
1524                  | isMemOpnd(T.FLOAD _) = true                  | isMemOpnd(T.FLOAD _) = true
1525                  | isMemOpnd(T.CVTI2F(_, (16 | 32), _)) = true                  | isMemOpnd(T.CVTI2F(_, (16 | 32), _)) = true
# Line 1560  Line 1560 
1560            end            end
1561    
1562        and doFexpr''(fty, e, fd, an) =        and doFexpr''(fty, e, fd, an) =
1563             (floatingPointUsed := true;
1564            case e of            case e of
1565              T.FREG(_,fs) => if CB.sameColor(fs,fd) then ()              T.FREG(_,fs) => if CB.sameColor(fs,fd) then ()
1566                              else fcopy''(fty, [fd], [fs], an)                              else fcopy''(fty, [fd], [fs], an)
# Line 1601  Line 1602 
1602            | T.FEXT fexp =>            | T.FEXT fexp =>
1603               ExtensionComp.compileFext (reducer()) {e=fexp, fd=fd, an=an}               ExtensionComp.compileFext (reducer()) {e=fexp, fd=fd, an=an}
1604            | _ => error("doFexpr''")            | _ => error("doFexpr''")
1605             )
1606    
1607         (*========================================================         (*========================================================
1608          * Tie the two styles of fp code generation together          * Tie the two styles of fp code generation together

Legend:
Removed from v.1136  
changed lines
  Added in v.1142

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