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/test-staged-allocation-main.sml
ViewVC logotype

Diff of /MLRISC/trunk/staged-allocation/test-staged-allocation-main.sml

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

revision 3037, Tue May 27 06:30:07 2008 UTC revision 3038, Tue May 27 23:48:15 2008 UTC
# Line 341  Line 341 
341      val pty10 = [CTy.C_signed CTy.I_int, CTy.C_signed CTy.I_int]      val pty10 = [CTy.C_signed CTy.I_int, CTy.C_signed CTy.I_int]
342      val pty11 = [CTy.C_signed CTy.I_int, CTy.C_signed CTy.I_char, CTy.C_float]      val pty11 = [CTy.C_signed CTy.I_int, CTy.C_signed CTy.I_char, CTy.C_float]
343    
344      fun main _ = let      fun main _ = BackTrace.monitor (fn () => let
345          val retTy = CTy.C_signed CTy.I_int          val retTy = CTy.C_signed CTy.I_int
346          val paramTys = pty3          val paramTys = pty6
347    
348          val cArgs = List.map genRandArg paramTys          val cArgs = List.map genRandArg paramTys
349          val retVal = if retTy <> CTy.C_void then [genRandArg retTy] else []          val retVal = if retTy <> CTy.C_void then [genRandArg retTy] else []
# Line 380  Line 380 
380          val _ = TextIO.closeOut asmOutStrm          val _ = TextIO.closeOut asmOutStrm
381          in          in
382            0            0
383          end          end)
384    
385    
386    end    end

Legend:
Removed from v.3037  
changed lines
  Added in v.3038

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