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/c-call/test/c-test-gen.sml
ViewVC logotype

Diff of /MLRISC/trunk/c-call/test/c-test-gen.sml

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

revision 3226, Thu Sep 18 03:28:24 2008 UTC revision 3227, Thu Sep 18 06:06:40 2008 UTC
# Line 350  Line 350 
350      val pty6 = [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 pty6 = [CTy.C_PTR, CTy.C_PTR, CTy.C_PTR, CTy.C_PTR, CTy.C_PTR, CTy.C_PTR, CTy.C_PTR, CTy.C_PTR]
351      val pty7 = [CTy.C_float]      val pty7 = [CTy.C_float]
352      val pty7 = [CTy.C_float,CTy.C_float,CTy.C_float,CTy.C_float,CTy.C_float,CTy.C_float,CTy.C_float,CTy.C_float,CTy.C_float,CTy.C_float,CTy.C_float,CTy.C_float,CTy.C_float,CTy.C_float,CTy.C_float,CTy.C_float]      val pty7 = [CTy.C_float,CTy.C_float,CTy.C_float,CTy.C_float,CTy.C_float,CTy.C_float,CTy.C_float,CTy.C_float,CTy.C_float,CTy.C_float,CTy.C_float,CTy.C_float,CTy.C_float,CTy.C_float,CTy.C_float,CTy.C_float]
   
353      val pty8 = [CTy.C_PTR]      val pty8 = [CTy.C_PTR]
354      val pty9 = [CTy.C_signed CTy.I_int]      val pty9 = [CTy.C_signed CTy.I_int]
355      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]
# Line 361  Line 360 
360      fun main _ = (*BackTrace.monitor (fn () => *) (let      fun main _ = (*BackTrace.monitor (fn () => *) (let
361        (* choose the prototype to test *)        (* choose the prototype to test *)
362          val retTy = CTy.C_void          val retTy = CTy.C_void
363          val paramTys = pty7          val paramTys = pty5
364    
365          val cArgs = List.map genRandArg paramTys          val cArgs = List.map genRandArg paramTys
366          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.3226  
changed lines
  Added in v.3227

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