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/Elaborator/types/basictypes.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/Elaborator/types/basictypes.sml

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

revision 1680, Sat Oct 30 16:02:13 2004 UTC revision 1681, Mon Nov 8 23:03:24 2004 UTC
# Line 72  Line 72 
72  val realTycon = (* mkpt("real", 0, NO, PTN.ptn_real) *) CBT.realTycon  val realTycon = (* mkpt("real", 0, NO, PTN.ptn_real) *) CBT.realTycon
73  val realTy = (* CONty(realTycon, nil) *) CBT.realTy  val realTy = (* CONty(realTycon, nil) *) CBT.realTy
74    
75  val wordTycon = (* mkpt("word", 0, YES, PTN.ptn_int31) *) CBT.wordTycon  val wordTycon = mkpt("word", 0, YES, PTN.ptn_int31)
76  val wordTy = (* CONty(wordTycon, nil) *) CBT.wordTy  val wordTy = CONty(wordTycon, nil)
77    
78  val word8Tycon = mkpt("word8", 0, YES, PTN.ptn_int31)  val word8Tycon = mkpt("word8", 0, YES, PTN.ptn_int31)
79  val word8Ty = CONty(word8Tycon, nil)  val word8Ty = CONty(word8Tycon, nil)

Legend:
Removed from v.1680  
changed lines
  Added in v.1681

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