src/d2c/compiler/optimize fer-edit.dylan,1.5.2.1,1.5.2.2

Update of /var/lib/cvs/src/d2c/compiler/optimize
In directory cantor:/tmp/cvs-serv31700

Modified Files:
      Tag: GD_2_5
        fer-edit.dylan 
Log Message:
Assume the assignment is the location of the
return value.

This is actually the case for the single use of this function.


Index: fer-edit.dylan
===================================================================
RCS file: /var/lib/cvs/src/d2c/compiler/optimize/fer-edit.dylan,v
retrieving revision 1.5.2.1
retrieving revision 1.5.2.2
diff -u -d -r1.5.2.1 -r1.5.2.2
--- fer-edit.dylan      5 Jul 2003 03:56:12 -0000       1.5.2.1
+++ fer-edit.dylan      18 Sep 2003 21:09:56 -0000      1.5.2.2
@@ -169,7 +169,7 @@
     (component :: <component>, assignment :: <abstract-assignment>,
      target :: <block-region-mixin>, cluster :: <abstract-variable>)
     => ();
-  let exit = make(<return>, block: target, next: target.exits);
+  let exit = make(<return>, block: target, next: target.exits, 
source-location: assignment.source-location);
   target.exits := exit;
   let dep = make(<dependency>, dependent: exit, source-exp: cluster,
                 source-next: cluster.dependents);

_______________________________________________
Gd-chatter mailing list
Gd-chatter@xxxxxxxxxxxxxxxx
http://www.gwydiondylan.org/mailman/listinfo/gd-chatter