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/Semant/types/cproto.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/Semant/types/cproto.sml

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

revision 776, Fri Jan 12 04:14:06 2001 UTC revision 777, Fri Jan 12 12:17:38 2001 UTC
# Line 124  Line 124 
124              case getDomainRange (unlist t) of              case getDomainRange (unlist t) of
125                  NONE => bad ()                  NONE => bad ()
126                | SOME (d, r) =>                | SOME (d, r) =>
127                  { conv = "",                  { conv = "SMLNJ", (* select special treatment for vregs etc. *)
128                    retTy = dt r,                    retTy = dt r,
129                    paramTys = if TU.equalType (d, BT.unitTy) then []                    paramTys = if TU.equalType (d, BT.unitTy) then []
130                               else case BT.getFields d of                               else case BT.getFields d of

Legend:
Removed from v.776  
changed lines
  Added in v.777

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