Author: pmichaud
Date: Sat May 7 06:38:45 2005
New Revision: 8001
Modified:
trunk/compilers/pge/PGE/Exp.pir
Log:
Fixed bug in creps in PGE::Exp::Anchor analyze method.
Modified: trunk/compilers/pge/PGE/Exp.pir
==============================================================================
--- trunk/compilers/pge/PGE/Exp.pir (original)
+++ trunk/compilers/pge/PGE/Exp.pir Sat May 7 06:38:45 2005
@@ -748,6 +748,11 @@
.local pmc exp1, exp2
.local pmc creps
+ $I0 = exists pad["creps"] # create creps hash array
+ if $I0 goto creps_1 # if not exists
+ $P0 = new Hash
+ pad["creps"] = $P0
+ creps_1:
creps = pad["creps"]
creps = clone creps
exp1 = self["exp1"]
