Permalink
Browse files

Unbreak the build.

These internal parrot methods changed out from underneath us.

NotFound++ for the basic fix, though his nopaste is lost to the ages.
  • Loading branch information...
1 parent 22bda21 commit 9bd6a5cd5d1ebb03470c4955805c9bbc02040ae7 @coke coke committed Oct 3, 2010
Showing with 5 additions and 4 deletions.
  1. +3 −2 src/binary.c
  2. +2 −2 src/ops/tcl.ops
View
@@ -265,7 +265,8 @@ binary_scan_string(PARROT_INTERP, char field,
char *format, int *formatpos, int formatlen,
char *binstr, int *binstrpos, int binstrlen)
{
- STRING *value = Parrot_str_new_noinit(interp, enum_stringrep_one, 128);
+
+ STRING *value = Parrot_str_new_noinit(interp, 64);
PMC *pmcval = pmc_new(interp, class_TclString);
if ((*formatpos) < formatlen && format[*formatpos] == '*')
@@ -523,7 +524,7 @@ STRING *ParTcl_binary_format(PARROT_INTERP, STRING *FORMAT, PMC *values)
int formatlen = Parrot_str_length(interp, FORMAT);
int formatpos = 0;
int valueidx = 0;
- STRING *binstr = Parrot_str_new_noinit(interp, enum_stringrep_one, 128);
+ STRING *binstr = Parrot_str_new_noinit(interp, 64);
while (formatpos < formatlen)
{
View
@@ -190,7 +190,7 @@ Generate a TCL_BREAK
=cut
inline op tcl_break() :flow {
- STRING *empty = Parrot_str_new_noinit(interp, enum_stringrep_one, 0);
+ STRING *empty = Parrot_str_new_noinit(interp, 0);
PMC *exception = Parrot_ex_build_exception(interp, EXCEPT_error,
CONTROL_BREAK, empty);
opcode_t * const ret = expr NEXT();
@@ -205,7 +205,7 @@ Generate a TCL_CONTINUE
=cut
inline op tcl_continue() :flow {
- STRING *empty = Parrot_str_new_noinit(interp, enum_stringrep_one, 0);
+ STRING *empty = Parrot_str_new_noinit(interp, 0);
PMC *exception = Parrot_ex_build_exception(interp, EXCEPT_error,
CONTROL_CONTINUE, empty);
opcode_t * const ret = expr NEXT();

0 comments on commit 9bd6a5c

Please sign in to comment.