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 1127, Fri Mar 8 01:35:33 2002 UTC revision 1128, Fri Mar 8 21:05:27 2002 UTC
# Line 20  Line 20 
20    
21      fun update (i, b) = Word8Array.update (!arr, i, b)      fun update (i, b) = Word8Array.update (!arr, i, b)
22    
23      fun getCodeString () = let      fun getCodeString ep = let
24            val co = valOf(!obj)            val co = valOf(!obj)
25            in            in
26                CodeObj.set_entrypoint (co, ep);
27              arr := Word8Array.array(0, 0w0);              arr := Word8Array.array(0, 0w0);
28              obj := NONE;              obj := NONE;
29              co              co

Legend:
Removed from v.1127  
changed lines
  Added in v.1128

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