[svn:parrot] r39335 - in trunk: config/gen/config_pm docs t/pmc tools/dev

NotFound at svn.parrot.org NotFound at svn.parrot.org
Tue Jun 2 15:22:24 UTC 2009


Author: NotFound
Date: Tue Jun  2 15:22:24 2009
New Revision: 39335
URL: https://trac.parrot.org/parrot/changeset/39335

Log:
[cage] kill include config.pir usages and example

Modified:
   trunk/config/gen/config_pm/config_pir.in
   trunk/docs/tests.pod
   trunk/t/pmc/sys.t
   trunk/tools/dev/pbc_to_exe.pir

Modified: trunk/config/gen/config_pm/config_pir.in
==============================================================================
--- trunk/config/gen/config_pm/config_pir.in	Tue Jun  2 14:51:55 2009	(r39334)
+++ trunk/config/gen/config_pm/config_pir.in	Tue Jun  2 15:22:24 2009	(r39335)
@@ -8,6 +8,7 @@
 
   .sub _some
   ...
+  load_bytecode 'config.pbc'
   # store the config data into $P0
   $P0 = _config()
   # Retrieve and print a key
@@ -18,7 +19,6 @@
   ...
 
  .end
- .include "library/config.pir"
 
 =head1 DESCRIPTION
 

Modified: trunk/docs/tests.pod
==============================================================================
--- trunk/docs/tests.pod	Tue Jun  2 14:51:55 2009	(r39334)
+++ trunk/docs/tests.pod	Tue Jun  2 15:22:24 2009	(r39335)
@@ -81,8 +81,6 @@
 C<pir_output_is> and friends.
 
     pir_output_is(<<'CODE',<<'OUT','nothing useful');
-        .include 'library/config.pir'
-
         .sub main :main
             print "hi\n"
         .end

Modified: trunk/t/pmc/sys.t
==============================================================================
--- trunk/t/pmc/sys.t	Tue Jun  2 14:51:55 2009	(r39334)
+++ trunk/t/pmc/sys.t	Tue Jun  2 15:22:24 2009	(r39335)
@@ -36,6 +36,7 @@
      print O, "\tsay \\"Hello, World!\\"\\n"
      print O, ".end\\n"
      close O
+     load_bytecode 'config.pbc'
     .local pmc conf_hash
     conf_hash = _config()
     .local string slash
@@ -51,7 +52,6 @@
     say \$I0
 .end
 
-.include "library/config.pir"
 CODE
 Hello, World!
 0
@@ -59,6 +59,7 @@
 
 pir_output_is( <<'CODE', <<'OUT', "conf_hash is read-only")
 .sub _test :main
+     load_bytecode 'config.pbc'
     .local pmc conf_hash
     conf_hash = _config()
     push_eh is_ro
@@ -70,7 +71,6 @@
 end:
 .end
 
-.include 'library/config.pir'
 CODE
 hash is read-only
 OUT

Modified: trunk/tools/dev/pbc_to_exe.pir
==============================================================================
--- trunk/tools/dev/pbc_to_exe.pir	Tue Jun  2 14:51:55 2009	(r39334)
+++ trunk/tools/dev/pbc_to_exe.pir	Tue Jun  2 15:22:24 2009	(r39335)
@@ -18,8 +18,6 @@
 
 =cut
 
-.include 'library/config.pir'
-
 .sub 'main' :main
     .param pmc    argv
     .local string infile
@@ -31,6 +29,7 @@
 
     .local string gcc
     .local int    is_gcc
+    load_bytecode 'config.pbc'
     $P0 = '_config'()
     gcc    = $P0['gccversion']
     $I0    = length gcc


More information about the parrot-commits mailing list