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 1045, Mon Jan 28 22:13:13 2002 UTC revision 1049, Thu Jan 31 21:03:49 2002 UTC
# Line 163  Line 163 
163          val regargwords = Int.min (nargwords, maxRegArgs)          val regargwords = Int.min (nargwords, maxRegArgs)
164          val stackargwords = Int.max (nargwords, maxRegArgs) - maxRegArgs          val stackargwords = Int.max (nargwords, maxRegArgs) - maxRegArgs
165    
166          val scratchstart = paramAreaOffset + 4 * (maxRegArgs + stackargwords)          val stackargsstart = paramAreaOffset + 4 * maxRegArgs
167    
168            val scratchstart = stackargsstart + 4 * stackargwords
169    
170          (* Copy struct or part thereof to designated area on the stack.          (* Copy struct or part thereof to designated area on the stack.
171           * An already properly aligned address (relative to %sp) is           * An already properly aligned address (relative to %sp) is
# Line 246  Line 248 
248              end              end
249    
250          val (stackdelta, argsetupcode, copycode) = let          val (stackdelta, argsetupcode, copycode) = let
251              fun loop ([], [], _, ss, asc, cpc) = (roundup (ss, 8), asc, cpc)              fun loop ([], [], _, ss, asc, cpc) =
252                    (roundup (Int.max (0, ss - stackargsstart), 8), asc, cpc)
253                | loop (t :: tl, a :: al, n, ss, asc, cpc) = let                | loop (t :: tl, a :: al, n, ss, asc, cpc) = let
254                      fun wordassign a =                      fun wordassign a =
255                          if n < 6 then T.MV (32, oreg n, a)                          if n < 6 then T.MV (32, oreg n, a)

Legend:
Removed from v.1045  
changed lines
  Added in v.1049

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