[PATCH] Fix warning, fix wrong int type on Solaris

[David M. Lloyd]

Try #2, my first was lost in the mail or something.

Index: rx.ops
===================================================================
RCS file: /home/perlcvs/parrot/rx.ops,v
retrieving revision 1.4
diff -a -u -r1.4 rx.ops
--- rx.ops      11 Jan 2002 05:34:00 -0000      1.4
+++ rx.ops      11 Jan 2002 23:21:27 -0000
@@ -376,8 +376,8 @@
 op rx_pushmark(in pmc) {
        RX_dUNPACK($1);

-       /* Don't worry about the const warning from the next line */
-       stack_push(interpreter, rx->stack, &RX_MARK, STACK_ENTRY_INT, NULL);
+       /* Don't worry about the const * to void * cast on the next line */
+       stack_push(interpreter, rx->stack, (void *)&RX_MARK, STACK_ENTRY_INT, NULL);

        goto NEXT();
 }
@@ -393,7 +393,7 @@

 op rx_popindex(in pmc, in int) {
        RX_dUNPACK($1);
-       int i;
+       INTVAL i;

        stack_pop(interpreter, rx->stack, &i, STACK_ENTRY_INT);



- D

<[EMAIL PROTECTED]>