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/branches/SMLNJ/src/compiler/CodeGen/hppa/hppaMillicode.sml
ViewVC logotype

Diff of /sml/branches/SMLNJ/src/compiler/CodeGen/hppa/hppaMillicode.sml

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

revision 105, Thu May 28 21:30:17 1998 UTC revision 106, Thu May 28 21:30:17 1998 UTC
# Line 22  Line 22 
22    val cvti2dOffset = ~4    val cvti2dOffset = ~4
23    fun copyTmp() = SOME(I.Direct(C.newReg()))    fun copyTmp() = SOME(I.Direct(C.newReg()))
24    
25    
26    fun doMilliCall offset {rs, rt, rd} = let    fun doMilliCall offset {rs, rt, rd} = let
27      fun addList([], cs) = cs      fun addList([], cs) = cs
28        | addList(r::rs, cs) = addList(rs, C.addReg(r,cs))        | addList(r::rs, cs) = addList(rs, C.addReg(r,cs))
# Line 49  Line 50 
50    
51  (*  (*
52   * $Log: hppaMillicode.sml,v $   * $Log: hppaMillicode.sml,v $
53     * Revision 1.2  1998/05/19 15:33:18  george
54     *   minor cleanup
55     *
56   * Revision 1.1.1.1  1998/04/08 18:39:55  george   * Revision 1.1.1.1  1998/04/08 18:39:55  george
57   * Version 110.5   * Version 110.5
58   *   *

Legend:
Removed from v.105  
changed lines
  Added in v.106

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