[svn:parrot] r48367 - in branches/unshared_buffers: include/parrot src/ops

[darbelo at svn.parrot.org]

Author: darbelo
Date: Mon Aug  9 21:07:48 2010
New Revision: 48367
URL: https://trac.parrot.org/parrot/changeset/48367

Log:
Boostrap ops.

Modified:
   branches/unshared_buffers/include/parrot/string.h
   branches/unshared_buffers/src/ops/core_ops.c

Modified: branches/unshared_buffers/include/parrot/string.h
==============================================================================
--- branches/unshared_buffers/include/parrot/string.h	Mon Aug  9 21:07:30 2010	(r48366)
+++ branches/unshared_buffers/include/parrot/string.h	Mon Aug  9 21:07:48 2010	(r48367)
@@ -46,7 +46,7 @@
 /* &gen_from_def(stringinfo.pasm) */
 
 #define STRINGINFO_HEADER   1
-#define STRINGINFO_STRSTART 2
+#define STRINGINFO_BUFSTART 2
 #define STRINGINFO_BUFLEN   3
 #define STRINGINFO_FLAGS    4
 #define STRINGINFO_BUFUSED  5

Modified: branches/unshared_buffers/src/ops/core_ops.c
==============================================================================
--- branches/unshared_buffers/src/ops/core_ops.c	Mon Aug  9 21:07:30 2010	(r48366)
+++ branches/unshared_buffers/src/ops/core_ops.c	Mon Aug  9 21:07:48 2010	(r48367)
@@ -21814,8 +21814,8 @@
           case STRINGINFO_HEADER:
             IREG(1) = PTR2UINTVAL(SREG(2));
             break;
-          case STRINGINFO_STRSTART:
-            IREG(1) = PTR2UINTVAL(SREG(2)->strstart);
+          case STRINGINFO_BUFSTART:
+            IREG(1) = PTR2UINTVAL(Buffer_bufstart(SREG(2)));
             break;
           case STRINGINFO_BUFLEN:
             IREG(1) = Buffer_buflen(SREG(2));
@@ -21850,8 +21850,8 @@
           case STRINGINFO_HEADER:
             IREG(1) = PTR2UINTVAL(CONST(2).u.string);
             break;
-          case STRINGINFO_STRSTART:
-            IREG(1) = PTR2UINTVAL(CONST(2).u.string->strstart);
+          case STRINGINFO_BUFSTART:
+            IREG(1) = PTR2UINTVAL(Buffer_bufstart(CONST(2).u.string));
             break;
           case STRINGINFO_BUFLEN:
             IREG(1) = Buffer_buflen(CONST(2).u.string);
@@ -21886,8 +21886,8 @@
           case STRINGINFO_HEADER:
             IREG(1) = PTR2UINTVAL(SREG(2));
             break;
-          case STRINGINFO_STRSTART:
-            IREG(1) = PTR2UINTVAL(SREG(2)->strstart);
+          case STRINGINFO_BUFSTART:
+            IREG(1) = PTR2UINTVAL(Buffer_bufstart(SREG(2)));
             break;
           case STRINGINFO_BUFLEN:
             IREG(1) = Buffer_buflen(SREG(2));
@@ -21922,8 +21922,8 @@
           case STRINGINFO_HEADER:
             IREG(1) = PTR2UINTVAL(CONST(2).u.string);
             break;
-          case STRINGINFO_STRSTART:
-            IREG(1) = PTR2UINTVAL(CONST(2).u.string->strstart);
+          case STRINGINFO_BUFSTART:
+            IREG(1) = PTR2UINTVAL(Buffer_bufstart(CONST(2).u.string));
             break;
           case STRINGINFO_BUFLEN:
             IREG(1) = Buffer_buflen(CONST(2).u.string);