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 3165, Wed Jul 30 00:02:25 2008 UTC revision 3166, Wed Jul 30 00:03:25 2008 UTC
# Line 336  Line 336 
336    
337      fun output (strm, s) = TextIO.output(strm, s^"\n")      fun output (strm, s) = TextIO.output(strm, s^"\n")
338    
339      (* test parameter types *)
340      val pty1 = [CTy.C_double, CTy.C_unsigned CTy.I_int, CTy.C_PTR, CTy.C_double,      val pty1 = [CTy.C_double, CTy.C_unsigned CTy.I_int, CTy.C_PTR, CTy.C_double,
341                  CTy.C_float, CTy.C_PTR, CTy.C_float, CTy.C_PTR, CTy.C_PTR, CTy.C_PTR,                  CTy.C_float, CTy.C_PTR, CTy.C_float, CTy.C_PTR, CTy.C_PTR, CTy.C_PTR,
342                  CTy.C_signed CTy.I_int,                  CTy.C_signed CTy.I_int,
# Line 356  Line 357 
357      val pty13 = [CTy.C_float, CTy.C_double]      val pty13 = [CTy.C_float, CTy.C_double]
358    
359      fun main _ = BackTrace.monitor (fn () => let      fun main _ = BackTrace.monitor (fn () => let
360          (* choose the prototype to test *)
361          val retTy = CTy.C_signed CTy.I_int          val retTy = CTy.C_signed CTy.I_int
362          val paramTys = pty13          val paramTys = pty6
363    
364          val cArgs = List.map genRandArg paramTys          val cArgs = List.map genRandArg paramTys
365          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.3165  
changed lines
  Added in v.3166

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