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 245, Sat Apr 17 18:47:12 1999 UTC revision 418, Fri Sep 3 23:51:27 1999 UTC
# Line 32  Line 32 
32    in    in
33      [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()},
34       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},
35       I.BLE{t=31, b=tmpR, sr=5, d=I.IMMED 0, defs=defs, uses=uses},       I.BLE{t=31, b=tmpR, sr=5, d=I.IMMED 0, defs=defs, uses=uses, mem=stack},
36       I.COPY{dst=[rd], src=[rv], impl=ref NONE, tmp=copyTmp()}]       I.COPY{dst=[rd], src=[rv], impl=ref NONE, tmp=copyTmp()}]
37    end    end
38    
# Line 41  Line 41 
41    val mulo = doMilliCall mulOffset    val mulo = doMilliCall mulOffset
42    val mulu = doMilliCall muluOffset    val mulu = doMilliCall muluOffset
43    
44    fun cvti2d{rs, fd} =    fun cvti2real fcnv {rs,fd} =
45      [I.STORE{st=I.STW, b=sp, d=I.IMMED cvti2dOffset, r=rs, mem=stack},    let val tmpF = C.newFreg()
46       I.FLOAD{fl=I.FLDWS, b=sp, d=cvti2dOffset, t=fd, mem=Region.stack},    in  [I.STORE{st=I.STW, b=C.stackptrR, d=I.IMMED cvti2dOffset,r=rs, mem=stack},
47       I.FUNARY{fu=I.FCNVXF, f=fd, t=fd}]         I.FLOAD{fl=I.FLDWS, b=C.stackptrR, d=cvti2dOffset, t=tmpF, mem=stack},
48           I.FCNV{fcnv=fcnv, f=tmpF, t=fd}
49          ]
50      end
51    
52      val cvti2s = cvti2real I.FCNVXF_S
53      val cvti2d = cvti2real I.FCNVXF_D
54      val cvti2q = cvti2real I.FCNVXF_Q
55    
56  end  end
57    
 (*  
  * $Log$  
  *)  

Legend:
Removed from v.245  
changed lines
  Added in v.418

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