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/x86/c-calls/ia32-svid.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/x86/c-calls/ia32-svid.sml

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

revision 1544, Wed Jul 14 16:08:37 2004 UTC revision 1545, Wed Jul 14 18:33:15 2004 UTC
# Line 134  Line 134 
134        | resultsAndDefs (Ty.C_PTR) = (oneRes, callerSaves)        | resultsAndDefs (Ty.C_PTR) = (oneRes, callerSaves)
135        | resultsAndDefs (Ty.C_ARRAY _) = (oneRes, callerSaves)        | resultsAndDefs (Ty.C_ARRAY _) = (oneRes, callerSaves)
136        | resultsAndDefs (Ty.C_STRUCT _) = (oneRes, callerSaves)        | resultsAndDefs (Ty.C_STRUCT _) = (oneRes, callerSaves)
137        end (* local *)
138    
139  (**** START NEW CODE ****)  (**** START NEW CODE ****)
140    
# Line 151  Line 152 
152    
153      fun layout {conv, retTy, paramTys} = let      fun layout {conv, retTy, paramTys} = let
154            in            in
155    (*          { argLocs, argMem, resLoc, structRetLoc }*)
156              raise Fail "layout not implemented yet"              raise Fail "layout not implemented yet"
157            end            end
158    
# Line 185  Line 187 
187              copyOut(rest, gpr(sz, t)::results, T.COPY(sz,[t],[r])::stmts)              copyOut(rest, gpr(sz, t)::results, T.COPY(sz,[t],[r])::stmts)
188            end            end
189        | copyOut _ = error "copyOut"        | copyOut _ = error "copyOut"
     end (* local *)  
190    
191      fun genCall ar = let      fun genCall ar = let
192            val {            val {

Legend:
Removed from v.1544  
changed lines
  Added in v.1545

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