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/arith64/compiler/CodeGen/cpscompile/spill-new.sml
ViewVC logotype

Diff of /sml/branches/arith64/compiler/CodeGen/cpscompile/spill-new.sml

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

revision 4873, Thu Oct 4 21:39:53 2018 UTC revision 4874, Fri Oct 5 14:33:11 2018 UTC
# Line 247  Line 247 
247                  | _ => ()                  | _ => ()
248                )                )
249    
250        fun markPure(p,w) =        fun markPure (p, w) = (case p
           case p of  
251              (* these pure operators actually allocate storage! *)              (* these pure operators actually allocate storage! *)
252              (P.fwrap | P.iwrap | P.i32wrap | P.newarray0 |              (* 64BIT: FIXME *)               of P.wrap(P.INT sz) => if (sz <= Target.defaultIntSz) then () else markrec(w, 0)
253               P.makeref | P.mkspecial | P.rawrecord _                | (P.wrap(P.FLOAT _) | P.newarray0 | P.makeref | P.mkspecial | P.rawrecord _) =>
254              ) => markrec(w, 0)                    markrec(w, 0)
255            | _ => ()            | _ => ()
256                (* end case *))
257    
258        fun markfp e =        fun markfp e =
259           case e of           case e of

Legend:
Removed from v.4873  
changed lines
  Added in v.4874

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