Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] View of /sml/trunk/src/runtime/objs/blast-bug.sml
ViewVC logotype

View of /sml/trunk/src/runtime/objs/blast-bug.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2 - (download) (annotate)
Sat Oct 4 23:33:09 1997 UTC (22 years, 6 months ago) by monnier
File size: 194 byte(s)
Initial revision
fun iter 0 = []
  | iter n = n :: (iter (n-1)); 

val blastWrite : 'a -> Word8Vector.vector =
      (fn x => Unsafe.CInterface.c_function "SMLNJ-RunT" "blastOut" x);

blastWrite (iter 100000);


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