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/src/MLRISC/gc-safety/gc-cells.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/gc-safety/gc-cells.sml

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

revision 585, Wed Mar 29 23:55:35 2000 UTC revision 586, Thu Mar 30 05:08:07 2000 UTC
# Line 9  Line 9 
9     structure GC = GCMap.GC     structure GC = GCMap.GC
10     structure GCMap = GCMap     structure GCMap = GCMap
11    
12       fun error msg = MLRiscErrorMsg.error("GCCells",msg)
13    
14     val gcmap = ref NONE : GCMap.gcmap option ref     val gcmap = ref NONE : GCMap.gcmap option ref
15    
16     fun setGCMap map = gcmap := SOME map     fun setGCMap map = gcmap := SOME map
17     fun getGCMap() = Option.valOf(!gcmap)  
18       fun getGCMap() =
19            case !gcmap of
20              NONE => error "no gc map"
21            | SOME gcmap => gcmap
22    
23       fun clearGCMap() = gcmap := NONE
24    
25     (*     (*
26      * Generate a new virtual register and update the gc map at the same time.      * Generate a new virtual register and update the gc map at the same time.

Legend:
Removed from v.585  
changed lines
  Added in v.586

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