[perl #27961] [PATCH] removes two compiler warnings in src/register.c

[via RT]

# New Ticket Created by  Matt Fowles 
# Please include the string:  [perl #27961]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org:80/rt3/Ticket/Display.html?id=27961 >


All~

The subject says it all.

Matt

Index: src/register.c
===================================================================
RCS file: /cvs/public/parrot/src/register.c,v
retrieving revision 1.45
diff -u -r1.45 register.c
--- src/register.c	25 Mar 2004 09:23:01 -0000	1.45
+++ src/register.c	26 Mar 2004 03:42:04 -0000
@@ -117,7 +117,7 @@
 {
     UINTVAL j;
     for ( ; ; chunk = chunk->prev) {
-        struct PRegFrame *pf = STACK_DATAP(chunk);
+        struct PRegFrame *pf = (struct PRegFrame *)STACK_DATAP(chunk);
 
         pobject_lives(interpreter, (PObj*)chunk);
         if (chunk == chunk->prev || chunk->free_p)
@@ -147,7 +147,7 @@
 {
     UINTVAL j;
     for ( ; ; chunk = chunk->prev) {
-        struct SRegFrame *sf = STACK_DATAP(chunk);
+        struct SRegFrame *sf = (struct SRegFrame *)STACK_DATAP(chunk);
 
         pobject_lives(interpreter, (PObj*)chunk);
         if (chunk == chunk->prev || chunk->free_p)