[svn:parrot] r21705 - branches/pdd15oo/compilers/pge/PGE

Author: allison
Date: Sun Sep 30 21:38:22 2007
New Revision: 21705

Modified:
   branches/pdd15oo/compilers/pge/PGE/OPTable.pir

Log:
[pdd15oo] Undefined attributes return Undef instead of PMCNULL in the new
metamodel, because the attribute store is just an array.


Modified: branches/pdd15oo/compilers/pge/PGE/OPTable.pir
==============================================================================
--- branches/pdd15oo/compilers/pge/PGE/OPTable.pir      (original)
+++ branches/pdd15oo/compilers/pge/PGE/OPTable.pir      Sun Sep 30 21:38:22 2007
@@ -296,7 +296,8 @@
     wspos = pos
     if pos >= lastpos goto oper_not_found
     ##   check for leading whitespace -- it may limit token candidates
-    if null ws goto token_next_ws
+    $I0 = defined ws
+    unless $I0 goto token_next_ws
     mpos = pos
     $P0 = ws(mob)
     unless $P0 goto token_next_1