[svn:parrot] r48547 - trunk/compilers/pct/src/PCT

[pmichaud at svn.parrot.org]

Author: pmichaud
Date: Tue Aug 17 05:37:29 2010
New Revision: 48547
URL: https://trac.parrot.org/parrot/changeset/48547

Log:
[pct]:  Update PCT::HLLCompiler to not need config.pbc.  Patch courtesy plobsing++ .

Modified:
   trunk/compilers/pct/src/PCT/HLLCompiler.pir

Modified: trunk/compilers/pct/src/PCT/HLLCompiler.pir
==============================================================================
--- trunk/compilers/pct/src/PCT/HLLCompiler.pir	Tue Aug 17 04:41:28 2010	(r48546)
+++ trunk/compilers/pct/src/PCT/HLLCompiler.pir	Tue Aug 17 05:37:29 2010	(r48547)
@@ -26,10 +26,9 @@
 
 .include 'cclass.pasm'
 .include 'stdio.pasm'
+.include 'iglobals.pasm'
 
 .sub 'init' :vtable :method
-    load_bytecode 'config.pir'
-
     $P0 = split ' ', 'parse past post pir evalpmc'
     setattribute self, '@stages', $P0
 
@@ -56,7 +55,8 @@
 
     $S0  = '???'
     push_eh _handler
-    $P0  = _config()
+    $P0 = getinterp
+    $P0 = $P0[.IGLOBALS_CONFIG_HASH]
     $S0  = $P0['revision']   # also $I0 = P0['installed'] could be used
   _handler:
     pop_eh