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/pickle/unpickmod.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/Semant/pickle/unpickmod.sml

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

revision 196, Fri Nov 20 18:16:19 1998 UTC revision 197, Sun Nov 22 01:25:23 1998 UTC
# Line 431  Line 431 
431        | tyc #"B" = R.int (fn v =>        | tyc #"B" = R.int (fn v =>
432                       R.int (fn d =>                       R.int (fn d =>
433                         R.int (fn i =>                         R.int (fn i =>
434                           %Utyc (LT.tcc_nvar(v, DI.di_fromint d, i)))))                           %Utyc (LT.tcc_nvar v))))
435        | tyc #"C" = R.int (fn k => %Utyc (LT.tcc_prim (PT.pt_fromint k)))        | tyc #"C" = R.int (fn k => %Utyc (LT.tcc_prim (PT.pt_fromint k)))
436        | tyc #"D" = ?tkindList (fn UtkindList ks =>        | tyc #"D" = ?tkindList (fn UtkindList ks =>
437                        ?tyc (fn Utyc tc => %Utyc(LT.tcc_fn(ks, tc))))                        ?tyc (fn Utyc tc => %Utyc(LT.tcc_fn(ks, tc))))

Legend:
Removed from v.196  
changed lines
  Added in v.197

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