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/branches/FLINT/src/compiler/PervEnv/Boot/core.sml
ViewVC logotype

Diff of /sml/branches/FLINT/src/compiler/PervEnv/Boot/core.sml

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

revision 105, Thu May 28 21:30:17 1998 UTC revision 106, Thu May 28 21:30:17 1998 UTC
# Line 176  Line 176 
176         val dupstring = dupstring         val dupstring = dupstring
177    
178    
179          (* ZIDO:  The following definitions are essentially stolen from        (* LAZY: The following definitions are essentially stolen from
180                    SMLofNJ.Susp.  Unfortunately, they had to be copied         *  SMLofNJ.Susp.  Unfortunately, they had to be copied here in
181                    here in order to implement lazyness. *)         *  order to implement lazyness (in particular, in order to be
182           *  able to compute pids for them.) *)
183    
184          (* (In particular, in order to be able to compute pids for them.) *)        (* LAZY:  The following is hard-wired and needs to track the object
   
       (* ZIDO:  The following is hard-wiredand needs to track the object  
185         * descriptor definitions.         * descriptor definitions.
186         *)         *)
187          val TSUS = 0;  (* == ObjectDesc.special_unevaled_susp *)          val TSUS = 0;  (* == ObjectDesc.special_unevaled_susp *)
# Line 202  Line 201 
201                    end                    end
202                  else InLine.arrSub (InLine.cast x, 0)                  else InLine.arrSub (InLine.cast x, 0)
203    
204    
205           (* equality primitives *)
206    
207         fun stringequal(a : string,b : string) =         fun stringequal(a : string,b : string) =
208            if peql(a,b) then true            if peql(a,b) then true
209            else let            else let
# Line 269  Line 271 
271    
272  (*  (*
273   * $Log: core.sml,v $   * $Log: core.sml,v $
274     * Revision 1.2  1998/05/15 03:28:53  dbm
275     *   Revised comments relating to lazysml.
276     *
277   * Revision 1.1.1.1  1998/04/08 18:40:05  george   * Revision 1.1.1.1  1998/04/08 18:40:05  george
278   * Version 110.5   * Version 110.5
279   *   *

Legend:
Removed from v.105  
changed lines
  Added in v.106

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