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 /MLRISC/trunk/staged-allocation/vararg-c-call-fn.sml
ViewVC logotype

Diff of /MLRISC/trunk/staged-allocation/vararg-c-call-fn.sml

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

revision 3067, Thu Jun 5 22:18:34 2008 UTC revision 3068, Fri Jun 6 00:25:53 2008 UTC
# Line 80  Line 80 
80              end              end
81      end      end
82    
83        val interpLab0 = newLabel "interp0"
84      val interpLab = newLabel "interp"      val interpLab = newLabel "interp"
85      val resolveKindsLab = newLabel "resolveKinds"      val resolveKindsLab = newLabel "resolveKinds"
86      val gotoCLab = newLabel "gotoC"      val gotoCLab = newLabel "gotoC"
# Line 188  Line 189 
189              T.DEFINE interpLab,              T.DEFINE interpLab,
190            (* loop through the args *)            (* loop through the args *)
191              T.MV (wordTy, argsReg, T.ADD (wordTy, args, lit Consts.zippedArgSzB)),              T.MV (wordTy, argsReg, T.ADD (wordTy, args, lit Consts.zippedArgSzB)),
192                T.DEFINE interpLab0,
193              T.BCC (T.CMP(wordTy, T.GE, args, endOfArgs), gotoCLab)              T.BCC (T.CMP(wordTy, T.GE, args, endOfArgs), gotoCLab)
194            ]            ]
195    
# Line 210  Line 212 
212              val arg = T.REG (wordTy, argsReg)              val arg = T.REG (wordTy, argsReg)
213              in              in
214                List.concat [                List.concat [
215                     [T.JMP (T.LABEL interpLab0, [])],
216                   genInterp(arg, argsReg, endOfArgs),                   genInterp(arg, argsReg, endOfArgs),
217                   genResolveKinds arg,                   genResolveKinds arg,
218                   resolveArgLocs arg,                   resolveArgLocs arg,

Legend:
Removed from v.3067  
changed lines
  Added in v.3068

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