Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Tracker SCM

SCM Repository

[smlnj] Diff of /sml/trunk/src/compiler/FLINT/kernel/primop.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/FLINT/kernel/primop.sml

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

revision 201, Sat Nov 28 23:32:48 1998 UTC revision 202, Sun Dec 13 02:29:45 1998 UTC
# Line 234  Line 234 
234  val purePrimop =  val purePrimop =
235    fn DEREF => false    fn DEREF => false
236     | ASSIGN => false     | ASSIGN => false
                     (* this should probably should never be called on ASSIGN *)  
237     | SUBSCRIPT => false     | SUBSCRIPT => false
238     | BOXEDUPDATE => false     | BOXEDUPDATE => false
239     | UNBOXEDUPDATE => false     | UNBOXEDUPDATE => false
# Line 244  Line 243 
243     | ISOLATE => false     | ISOLATE => false
244     | ARITH{overflow,...} => not overflow     | ARITH{overflow,...} => not overflow
245     | NUMSUBSCRIPT{immutable,...} => immutable     | NUMSUBSCRIPT{immutable,...} => immutable
246       | NUMUPDATE _ => false
247     | GETSPECIAL => false     | GETSPECIAL => false
248     | SETSPECIAL => false     | (SETSPECIAL | SETHDLR | SETVAR | SETPSEUDO | SETMARK) => false
249       | THROW => false
250       | (DISPOSE | MKSPECIAL | DEFLVAR | MARKEXN) => false
251     | _ => true     | _ => true
252    
253  val mayRaise =  val mayRaise =

Legend:
Removed from v.201  
changed lines
  Added in v.202

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