Author: pmichaud
Date: Sun May 8 22:06:11 2005
New Revision: 8017
Modified:
trunk/compilers/pge/PGE/Exp.pir
Log:
Fixed bug in firstchars optimization.
Modified: trunk/compilers/pge/PGE/Exp.pir
==============================================================================
--- trunk/compilers/pge/PGE/Exp.pir (original)
+++ trunk/compilers/pge/PGE/Exp.pir Sun May 8 22:06:11 2005
@@ -170,9 +170,9 @@
.sub "firstchars" method
.param pmc exp1
.param pmc exp2
- $S0 = ""
- if argcP < 1 goto end
+ if argcP < 1 goto exp_1
$S0 = exp1["firstchars"]
+ unless $S0 > "" goto exp_1
if argcP < 2 goto end
$S1 = exp2["firstchars"]
unless $S1 > "" goto exp_1
