# New Ticket Created by Simon Glover
# Please include the string: [netlabs #789]
# in the subject line of all future correspondence about this issue.
# http://bugs6.perl.org/rt2/Ticket/Display.html?id=789 >
stack_chunk is now Stack_Chunk...
Simon
--- sub.c.old Wed Jul 10 14:53:24 2002
+++ sub.c Wed Jul 10 15:00:50 2002
@@ -34,8 +34,8 @@ new_sub(struct Parrot_Interp * interp, o
/* Using system memory until I figure out GC issues */
struct Parrot_Sub * newsub = mem_sys_allocate(sizeof(struct Parrot_Sub));
newsub->init = address;
-newsub->user_stack = (struct stack_chunk *)new_stack(interp);
-newsub->control_stack = (struct stack_chunk *)new_stack(interp);
+newsub->user_stack = (Stack_Chunk_t *)new_stack(interp);
+newsub->control_stack = (Stack_Chunk_t *)new_stack(interp);
newsub->lex_pad = NULL;
return newsub;
}
@@ -49,8 +49,8 @@ new_coroutine(struct Parrot_Interp * int
mem_sys_allocate(sizeof(struct Parrot_Coroutine));
newco->init = address;
newco->resume = NULL;
-newco->ctx.user_stack = (struct stack_chunk *)new_stack(interp);
-newco->ctx.control_stack = (struct stack_chunk *)new_stack(interp);
+newco->ctx.user_stack = (Stack_Chunk_t *)new_stack(interp);
+newco->ctx.control_stack = (Stack_Chunk_t *)new_stack(interp);
newco->lex_pad = NULL;
return newco;
}
--- include/parrot/sub.h.oldWed Jul 10 14:53:33 2002
+++ include/parrot/sub.hWed Jul 10 14:54:06 2002
@@ -20,8 +20,8 @@
typedef struct Parrot_Sub {
INTVAL flags;
-struct stack_chunk *user_stack;
-struct stack_chunk *control_stack;
+struct Stack_Chunk *user_stack;
+struct Stack_Chunk *control_stack;
struct Scratchpad *lex_pad;
opcode_t*init;
} * parrot_sub_t;