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 3067, Thu Jun 5 22:18:34 2008 UTC revision 3068, Fri Jun 6 00:25:53 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      val pty12 = [CTy.C_STRUCT [CTy.C_PTR, CTy.C_PTR, CTy.C_PTR, CTy.C_PTR, CTy.C_PTR, CTy.C_PTR, CTy.C_PTR, CTy.C_PTR]]      val pty12 = [CTy.C_STRUCT [CTy.C_PTR, CTy.C_PTR, CTy.C_PTR, CTy.C_PTR, CTy.C_PTR, CTy.C_PTR, CTy.C_PTR, CTy.C_PTR]]
344        val pty13 = [CTy.C_float, CTy.C_double]
345    
346      fun main _ = BackTrace.monitor (fn () => let      fun main _ = BackTrace.monitor (fn () => let
347          val retTy = CTy.C_signed CTy.I_int          val retTy = CTy.C_signed CTy.I_int
348          val paramTys = pty12          val paramTys = pty13
349    
350          val cArgs = List.map genRandArg paramTys          val cArgs = List.map genRandArg paramTys
351          val retVal = if retTy <> CTy.C_void then [genRandArg retTy] else []          val retVal = if retTy <> CTy.C_void then [genRandArg retTy] else []

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