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 /sml/trunk/compiler/CodeGen/main/code-string.sml
ViewVC logotype

Diff of /sml/trunk/compiler/CodeGen/main/code-string.sml

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

revision 985, Wed Nov 21 19:09:12 2001 UTC revision 986, Wed Nov 21 21:03:17 2001 UTC
# Line 12  Line 12 
12      val arr = ref (Word8Array.array(0, 0w0))      val arr = ref (Word8Array.array(0, 0w0))
13    
14      fun init sz = let      fun init sz = let
15            val co = CodeObj.alloc (sz, NONE)            val co = CodeObj.alloc sz
16            in            in
17              obj := SOME co;              obj := SOME co;
18              arr := CodeObj.bytes co              arr := CodeObj.bytes co

Legend:
Removed from v.985  
changed lines
  Added in v.986

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