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/primop-branch/src/compiler/Semant/statenv/prim.sml
ViewVC logotype

Diff of /sml/branches/primop-branch/src/compiler/Semant/statenv/prim.sml

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

revision 1470, Mon Mar 29 22:45:55 2004 UTC revision 1471, Mon Mar 29 22:45:55 2004 UTC
# Line 233  Line 233 
233    
234  val f64_i = p0(ar(f64,i))  val f64_i = p0(ar(f64,i))
235  val i_f64 = p0(ar(i,f64))  val i_f64 = p0(ar(i,f64))
236    val i32_f64 = p0(ar(i32,f64))
237    
238  val w32_i = p0(ar(w32,i))  val w32_i = p0(ar(w32,i))
239  val i32_i = p0(ar(i32,i))  val i32_i = p0(ar(i32,i))
# Line 386  Line 387 
387                                 tokind=P.INT 31},        f64_i) :-:                                 tokind=P.INT 31},        f64_i) :-:
388         ("real",          P.REAL{fromkind=P.INT 31,         ("real",          P.REAL{fromkind=P.INT 31,
389                                tokind=P.FLOAT 64},       i_f64) :-:                                tokind=P.FLOAT 64},       i_f64) :-:
390           ("real32",        P.REAL{fromkind=P.INT 32,
391                                    tokind=P.FLOAT 64},     i32_f64) :-:
392    
393         ("ordof",         P.NUMSUBSCRIPT{kind=P.INT 8,         ("ordof",         P.NUMSUBSCRIPT{kind=P.INT 8,
394                                        checked=false,                                        checked=false,

Legend:
Removed from v.1470  
changed lines
  Added in v.1471

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