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

SCM Repository

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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2 - (view) (download)

1 : monnier 2 fun iter 0 = []
2 :     | iter n = n :: (iter (n-1));
3 :    
4 :     val blastWrite : 'a -> Word8Vector.vector =
5 :     (fn x => Unsafe.CInterface.c_function "SMLNJ-RunT" "blastOut" x);
6 :    
7 :     blastWrite (iter 100000);
8 :    

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