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/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 212, Fri Jan 15 16:19:21 1999 UTC revision 213, Fri Jan 15 21:18:35 1999 UTC
# Line 252  Line 252 
252    
253  (* should return more than just a boolean *)  (* should return more than just a boolean *)
254  val effect =  val effect =
255   fn (* ARITH{overflow,...} => overflow   fn ARITH{overflow,...} => overflow
256    | (INLRSHIFT _ | INLRSHIFTL _) => false    | (INLRSHIFT _ | INLRSHIFTL _) => false
257    | CMP _ => false    | CMP _ => false
258    | (EXTEND _ | TRUNC _ | COPY _) => false    | (EXTEND _ | TRUNC _ | COPY _) => false
# Line 264  Line 264 
264    | (INLMIN | INLMAX | INLNOT | INLCOMPOSE) => false    | (INLMIN | INLMAX | INLNOT | INLCOMPOSE) => false
265    | (INL_ARRAY | INL_VECTOR | INL_MONOARRAY _ | INL_MONOVECTOR _) => false    | (INL_ARRAY | INL_VECTOR | INL_MONOARRAY _ | INL_MONOVECTOR _) => false
266    | (WRAP | UNWRAP) => false    | (WRAP | UNWRAP) => false
267    | *) _ => true    | _ => true
268    
269  val mayRaise =  val mayRaise =
270    fn ARITH{overflow,...} => overflow    fn ARITH{overflow,...} => overflow

Legend:
Removed from v.212  
changed lines
  Added in v.213

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