Update of /var/lib/cvs/src/d2c/compiler/base
In directory cantor:/tmp/cvs-serv2439/d2c/compiler/base
Modified Files:
Tag: GD_2_5
variables.dylan
Log Message:
cleanly construct basic name for variable name dumping
Index: variables.dylan
===================================================================
RCS file: /var/lib/cvs/src/d2c/compiler/base/variables.dylan,v
retrieving revision 1.6.4.11
retrieving revision 1.6.4.12
diff -u -d -r1.6.4.11 -r1.6.4.12
--- variables.dylan 6 Feb 2004 12:37:07 -0000 1.6.4.11
+++ variables.dylan 6 Feb 2004 13:18:27 -0000 1.6.4.12
@@ -1265,15 +1265,15 @@
add-make-dumper(#"module-variable", *compiler-dispatcher*, <variable>,
- list(variable-home, #f, #f,
- variable-name, #f, #f,
+ list(method(v) make(<basic-name>, symbol: v.variable-name,
module: v.variable-home) end, #f, #f,
variable-tlf, #f, #f),
dumper-only: #t);
add-od-loader(*compiler-dispatcher*, #"module-variable",
method (state :: <load-state>) => res :: <variable>;
- let name = load-basic-name(state);
+ let name = load-object-dispatch(state);
let tlf = load-object-dispatch(state);
+ assert-end-object(state);
find-variable(name, create: #t, tlf: tlf);
end method
);
_______________________________________________
Gd-chatter mailing list
Gd-chatter@xxxxxxxxxxxxxxxx
http://www.gwydiondylan.org/mailman/listinfo/gd-chatter
|
