Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] Diff of /branches/staging/src/compiler/c-target/c-target.sml
ViewVC logotype

Diff of /branches/staging/src/compiler/c-target/c-target.sml

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

revision 2005, Fri Oct 5 11:57:00 2012 UTC revision 2006, Fri Oct 5 11:57:14 2012 UTC
# Line 121  Line 121 
121          fun global (Prog{globals, ...}, name, ty) = let          fun global (Prog{globals, ...}, name, ty) = let
122                val ty' = ToC.trType ty                val ty' = ToC.trType ty
123                in                in
124                  globals := (ty', name) :: !globals;                  globals := CL.D_Var([], ty', name, NONE) :: !globals;
125                  CL.V(ty', name)                  CL.V(ty', name)
126                end                end
127          fun param x = CL.V(ToC.trType(V.ty x), V.name x)          fun param (_, x) = CL.V(ToC.trType(V.ty x), V.name x)
128        end        end
129    
130    (* environments *)    (* environments *)

Legend:
Removed from v.2005  
changed lines
  Added in v.2006

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