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/hppa/hppaMillicode.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/CodeGen/hppa/hppaMillicode.sml

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

revision 1002, Fri Nov 30 17:11:33 2001 UTC revision 1003, Fri Dec 7 02:45:32 2001 UTC
# Line 28  Line 28 
28      val defs = addList([rv,ra], C.empty)      val defs = addList([rv,ra], C.empty)
29      val uses = C.addReg(arg1, C.addReg(arg2, C.empty))      val uses = C.addReg(arg1, C.addReg(arg2, C.empty))
30    in    in
31      [I.COPY{dst=[arg1, arg2], src=[rs, rt], impl=ref NONE, tmp=copyTmp()},      [I.copy{dst=[arg1, arg2], src=[rs, rt], impl=ref NONE, tmp=copyTmp()},
32       I.LOADI{li=I.LDW, r=C.stackptrR, i=I.IMMED offset, t=tmpR, mem=stack},       I.loadi{li=I.LDW, r=C.stackptrR, i=I.IMMED offset, t=tmpR, mem=stack},
33       I.BLE{t=C.GPReg 31, cutsTo=[],       I.ble{t=C.GPReg 31, cutsTo=[],
34             b=tmpR, sr=5, d=I.IMMED 0, defs=defs, uses=uses, mem=stack},             b=tmpR, sr=5, d=I.IMMED 0, defs=defs, uses=uses, mem=stack},
35       I.COPY{dst=[rd], src=[rv], impl=ref NONE, tmp=copyTmp()}]       I.copy{dst=[rd], src=[rv], impl=ref NONE, tmp=copyTmp()}]
36    end    end
37    
38    val divu = doMilliCall udivOffset    val divu = doMilliCall udivOffset
# Line 42  Line 42 
42    
43    fun cvti2real fcnv {rs,fd} =    fun cvti2real fcnv {rs,fd} =
44    let val tmpF = C.newFreg()    let val tmpF = C.newFreg()
45    in  [I.STORE{st=I.STW, b=C.stackptrR, d=I.IMMED cvti2dOffset,r=rs, mem=stack},    in  [I.store{st=I.STW, b=C.stackptrR, d=I.IMMED cvti2dOffset,r=rs, mem=stack},
46         I.FLOAD{fl=I.FLDWS, b=C.stackptrR, d=cvti2dOffset, t=tmpF, mem=stack},         I.fload{fl=I.FLDWS, b=C.stackptrR, d=cvti2dOffset, t=tmpF, mem=stack},
47         I.FCNV{fcnv=fcnv, f=tmpF, t=fd}         I.fcnv{fcnv=fcnv, f=tmpF, t=fd}
48        ]        ]
49    end    end
50    

Legend:
Removed from v.1002  
changed lines
  Added in v.1003

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