Permalink
Browse files

Use the actual symbolic constants

  • Loading branch information...
1 parent 3f144cd commit b6cfbb4c7c58eb36aacbff48c88394731c6eb8fb @sorear sorear committed Apr 2, 2010
Showing with 2 additions and 2 deletions.
  1. +2 −2 perl5.pir
View
@@ -17,11 +17,11 @@ Creates the compiler using a C<PCT::HLLCompiler> object.
=cut
+.include "dlopenflags.pasm"
.namespace [ 'Perl5' ; 'Compiler' ]
.sub 'onload' :anon :load :init
- # XXX can I access the symbolic constants?
- $P0 = box 1
+ $P0 = box .Parrot_dlopen_global_FLAG
$P1 = loadlib 'blizkost_group', $P0
load_bytecode 'PCT.pbc'

0 comments on commit b6cfbb4

Please sign in to comment.