Author: pmichaud
Date: Wed Mar 8 12:21:20 2006
New Revision: 11830
Modified:
trunk/runtime/parrot/library/PGE/Util.pir
Log:
* PGE: Fixed Util.pir to use find_type instead of getclass
Modified: trunk/runtime/parrot/library/PGE/Util.pir
==============================================================================
--- trunk/runtime/parrot/library/PGE/Util.pir (original)
+++ trunk/runtime/parrot/library/PGE/Util.pir Wed Mar 8 12:21:20 2006
@@ -105,8 +105,9 @@
if $I0 > 0 goto loop
namehash[namespace] = 1
inc namecount
- emit(onload, " $P0 = getclass \"%s\"", namespace)
- emit(onload, " unless_null $P0, onload_%s", namecount)
+ emit(onload, " $I0 = find_type \"%s\"", namespace)
+ emit(onload, " if $I0 != 0 goto onload_%s", namecount)
+ emit(onload, " load_bytecode \"PGE.pbc\"")
emit(onload, " $P0 = subclass \"PGE::Rule\", \"%s\"", namespace)
emit(onload, " onload_%s:", namecount)
goto loop
