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/sparc/c-calls/sparc-c-calls.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/sparc/c-calls/sparc-c-calls.sml

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

revision 841, Fri Jun 15 21:38:20 2001 UTC revision 1043, Mon Jan 28 21:26:03 2002 UTC
# Line 68  Line 68 
68      val mem = T.Region.memory      val mem = T.Region.memory
69      val stack = T.Region.memory      val stack = T.Region.memory
70    
71        val paramAreaOffset = 68
72    
73      fun LI i = T.LI (T.I.fromInt (32, i))      fun LI i = T.LI (T.I.fromInt (32, i))
74    
75      val GP = C.GPReg      val GP = C.GPReg
# Line 93  Line 95 
95                | _ => T.ADD (32, x, T.LI d')                | _ => T.ADD (32, x, T.LI d')
96          end          end
97    
98      fun argaddr n = addli (spreg, 68+4*n)      fun argaddr n = addli (spreg, paramAreaOffset + 4*n)
99    
100      (* temp location for transfers through memory *)      (* temp location for transfers through memory *)
101      val tmpaddr = argaddr 1      val tmpaddr = argaddr 1
# Line 134  Line 136 
136              pack (0, 1, l)              pack (0, 1, l)
137          end          end
138    
139      fun genCall { name, proto, structRet, saveRestoreDedicated,      fun genCall { name, proto, paramAlloc, structRet, saveRestoreDedicated,
140                    callComment, args } = let                    callComment, args } = let
141          val { conv, retTy, paramTys } = proto          val { conv, retTy, paramTys } = proto
142          val _ = case conv of          val _ = case conv of

Legend:
Removed from v.841  
changed lines
  Added in v.1043

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