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/SMLNJ/src/compiler/FLINT/kernel/primtyc.sml
ViewVC logotype

Diff of /sml/branches/SMLNJ/src/compiler/FLINT/kernel/primtyc.sml

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

revision 68, Fri Apr 3 00:06:42 1998 UTC revision 69, Fri Apr 3 00:06:55 1998 UTC
# Line 161  Line 161 
161  fun ubxupd (PT_INT31, _, _) = true  fun ubxupd (PT_INT31, _, _) = true
162    | ubxupd _ = false    | ubxupd _ = false
163    
164  fun isvoid ((PT_INT31 | PT_INT32 | PT_REAL), _, _) = false  fun isvoid ((PT_INT31 | PT_INT32 | PT_REAL | PT_STRING), _, _) = false
165    | isvoid _ = true    | isvoid _ = true
166    
167  end (* toplevel local *)  end (* toplevel local *)

Legend:
Removed from v.68  
changed lines
  Added in v.69

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