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/gatien-branch/compiler/Semant/pickle/unpickmod.sml
ViewVC logotype

Diff of /sml/branches/gatien-branch/compiler/Semant/pickle/unpickmod.sml

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

revision 3121, Fri Jul 18 21:40:38 2008 UTC revision 3122, Mon Jul 21 15:16:13 2008 UTC
# Line 216  Line 216 
216    
217          fun access () = let          fun access () = let
218              fun a #"A" = let val entier = int ()              fun a #"A" = let val entier = int ()
219                               val access = A.LVAR entier                               val access = lvar entier
                              val access'= lvar entier  
                              (*val () = print (A.prAcc access  ^ "->" ^  
                                              A.prAcc access' ^ "\n")*)  
                              (*val _ = Ens_var.add_lvar_ext access access'*)  
220                               val () =                               val () =
221                                   if !Control.Elab.infodebugging then                                   if !Control.Elab.infodebugging then
222                                       Ens_var2.add_lvar_ext access access'                                       Ens_var2.add_ext_acc access
223                                   else                                   else
224                                       ()                                       ()
225                           in                           in
226                               access'                               access
227                           end                           end
228                | a #"B" = A.EXTERN (pid ())                | a #"B" = A.EXTERN (pid ())
229                | a #"C" = A.PATH (access (), int ())                | a #"C" = A.PATH (access (), int ())

Legend:
Removed from v.3121  
changed lines
  Added in v.3122

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