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

Parent Directory | Revision Log | 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 ())

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

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