[svn:parrot] r38018 - in branches/packfile_revamp: config/gen include/parrot

[bacek at svn.parrot.org]

Author: bacek
Date: Fri Apr 10 05:33:15 2009
New Revision: 38018
URL: https://trac.parrot.org/parrot/changeset/38018

Log:
Generate PASM constants for PackFile_Constant types.

Because of limitations of gen::parrot_include switch to use
integers for PFC_* constant types.

Modified:
   branches/packfile_revamp/config/gen/parrot_include.pm
   branches/packfile_revamp/include/parrot/packfile.h

Modified: branches/packfile_revamp/config/gen/parrot_include.pm
==============================================================================
--- branches/packfile_revamp/config/gen/parrot_include.pm	Fri Apr 10 05:32:50 2009	(r38017)
+++ branches/packfile_revamp/config/gen/parrot_include.pm	Fri Apr 10 05:33:15 2009	(r38018)
@@ -37,6 +37,7 @@
         include/parrot/io.h
         include/parrot/longopt.h
         include/parrot/multidispatch.h
+        include/parrot/packfile.h
         include/parrot/resources.h
         include/parrot/stat.h
         include/parrot/string.h

Modified: branches/packfile_revamp/include/parrot/packfile.h
==============================================================================
--- branches/packfile_revamp/include/parrot/packfile.h	Fri Apr 10 05:32:50 2009	(r38017)
+++ branches/packfile_revamp/include/parrot/packfile.h	Fri Apr 10 05:33:15 2009	(r38018)
@@ -229,12 +229,18 @@
     PackFile_ByteCode           *code;   /* where this segment belongs to */
 } PackFile_FixupTable;
 
-#define PFC_NONE    '\0'
+
+
+/* &gen_from_def(packfile_constants.pasm) */
+
 /* no ascii chars use numbers: for n, s, k, p */
-#define PFC_NUMBER  '\156'
-#define PFC_STRING  '\163'
-#define PFC_KEY     '\153'
-#define PFC_PMC     '\160'
+#define PFC_NONE    0x0
+#define PFC_NUMBER  0x6E
+#define PFC_STRING  0x73
+#define PFC_PMC     0x70
+#define PFC_KEY     0x6B
+
+/* &end_gen */
 
 enum PF_VARTYPE {                  /* s. also imcc/symreg.h */
     PF_VT_START_SLICE = 1 << 10,   /* x .. y slice range */