[svn:parrot] r26651 - trunk/languages/WMLScript/pmc

[chromatic]

Author: chromatic
Date: Sun Mar 30 19:04:00 2008
New Revision: 26651

Modified:
   trunk/languages/WMLScript/pmc/wmlsboolean.pmc
   trunk/languages/WMLScript/pmc/wmlsbytecode.pmc
   trunk/languages/WMLScript/pmc/wmlsfloat.pmc
   trunk/languages/WMLScript/pmc/wmlsinteger.pmc
   trunk/languages/WMLScript/pmc/wmlsinvalid.pmc
   trunk/languages/WMLScript/pmc/wmlsstring.pmc

Log:
[WMLScript] Made PMCs use parrot/embed.h instead of parrot/parrot.h (RT #39043).

Fixed some compilation warnings.

Modified: trunk/languages/WMLScript/pmc/wmlsboolean.pmc
==============================================================================
--- trunk/languages/WMLScript/pmc/wmlsboolean.pmc       (original)
+++ trunk/languages/WMLScript/pmc/wmlsboolean.pmc       Sun Mar 30 19:04:00 2008
@@ -19,7 +19,7 @@
 
 */
 
-#include "parrot/parrot.h"
+#include "parrot/embed.h"
 #include "pmc_wmlsstring.h"
 
 static INTVAL dynpmc_WmlsBoolean;

Modified: trunk/languages/WMLScript/pmc/wmlsbytecode.pmc
==============================================================================
--- trunk/languages/WMLScript/pmc/wmlsbytecode.pmc      (original)
+++ trunk/languages/WMLScript/pmc/wmlsbytecode.pmc      Sun Mar 30 19:04:00 2008
@@ -18,22 +18,22 @@
 
 */
 
-#include "parrot/parrot.h"
+#include "parrot/embed.h"
 
 static PMC * WmlsBytecode_PMC;
 static PMC * script;
 static const char * bytecode;
 static UINTVAL maxi;
-static const unsigned char *fp;
+static const char *fp;
 
 static void _init(Interp *interp, STRING *str)
 {
     bytecode = Parrot_string_cstring(interp, str);
-    maxi = string_length(interp, str);
-    fp = (const unsigned char *)bytecode;
+    maxi     = string_length(interp, str);
+    fp       = (const char *)bytecode;
 }
 
-#define _info_get()     (UINTVAL)(&bytecode[maxi] - (const char *)fp)
+#define _info_get()     (UINTVAL)(&bytecode[maxi] - fp)
 #define _get_pos()      (fp)
 #define _get_c()        (*(fp++))
 

Modified: trunk/languages/WMLScript/pmc/wmlsfloat.pmc
==============================================================================
--- trunk/languages/WMLScript/pmc/wmlsfloat.pmc (original)
+++ trunk/languages/WMLScript/pmc/wmlsfloat.pmc Sun Mar 30 19:04:00 2008
@@ -19,7 +19,7 @@
 
 */
 
-#include "parrot/parrot.h"
+#include "parrot/embed.h"
 #include "pmc_wmlsstring.h"
 
 static INTVAL dynpmc_WmlsBoolean;

Modified: trunk/languages/WMLScript/pmc/wmlsinteger.pmc
==============================================================================
--- trunk/languages/WMLScript/pmc/wmlsinteger.pmc       (original)
+++ trunk/languages/WMLScript/pmc/wmlsinteger.pmc       Sun Mar 30 19:04:00 2008
@@ -19,7 +19,7 @@
 
 */
 
-#include "parrot/parrot.h"
+#include "parrot/embed.h"
 #include "pmc_wmlsstring.h"
 
 static INTVAL dynpmc_WmlsBoolean;

Modified: trunk/languages/WMLScript/pmc/wmlsinvalid.pmc
==============================================================================
--- trunk/languages/WMLScript/pmc/wmlsinvalid.pmc       (original)
+++ trunk/languages/WMLScript/pmc/wmlsinvalid.pmc       Sun Mar 30 19:04:00 2008
@@ -19,7 +19,7 @@
 
 */
 
-#include "parrot/parrot.h"
+#include "parrot/embed.h"
 
 static INTVAL dynpmc_WmlsBoolean;
 static INTVAL dynpmc_WmlsInteger;

Modified: trunk/languages/WMLScript/pmc/wmlsstring.pmc
==============================================================================
--- trunk/languages/WMLScript/pmc/wmlsstring.pmc        (original)
+++ trunk/languages/WMLScript/pmc/wmlsstring.pmc        Sun Mar 30 19:04:00 2008
@@ -19,7 +19,7 @@
 
 */
 
-#include "parrot/parrot.h"
+#include "parrot/embed.h"
 
 static INTVAL dynpmc_WmlsBoolean;
 static INTVAL dynpmc_WmlsFloat;