[Patch] Mismatch warnings

Assuming these mismatches weren't intentional, here is a patch that fixes
the mismatches between the pointer prototypes in the _vtable definition and
the function definition in the perlint, perlnum and perlstring pmc files.

David

RCS file: /cvs/public/parrot/classes/perlint.pmc,v
retrieving revision 1.9
diff -c -r1.9 perlint.pmc
*** perlint.pmc 18 Dec 2001 07:05:00 -0000 1.9
--- perlint.pmc 22 Dec 2001 05:39:34 -0000
***************
*** 107,113 ****
          SELF->cache.int_val = value->cache.int_val;
      }

!     void set_integer_index (INTVAL index) {
      }

      void set_number (PMC * value) {
--- 107,113 ----
          SELF->cache.int_val = value->cache.int_val;
      }

!     void set_integer_index (INTVAL value, INTVAL index) {
      }

      void set_number (PMC * value) {
***************
*** 129,135 ****
   SELF->cache.num_val = (FLOATVAL)value->cache.int_val;
      }

!     void set_number_index (INTVAL index) {
      }

      void set_string (PMC * value) {
--- 129,135 ----
   SELF->cache.num_val = (FLOATVAL)value->cache.int_val;
      }

!     void set_number_index (FLOATVAL value, INTVAL index) {
      }

      void set_string (PMC * value) {
***************
*** 157,163 ****
   SELF->cache.struct_val = value->cache.struct_val;
      }

!     void set_string_index (INTVAL index) {
      }

      void set_value (void* value) {
--- 157,163 ----
   SELF->cache.struct_val = value->cache.struct_val;
      }

!     void set_string_index (STRING * value, INTVAL index) {
      }

      void set_value (void* value) {
Index: perlnum.pmc
===================================================================
RCS file: /cvs/public/parrot/classes/perlnum.pmc,v
retrieving revision 1.10
diff -c -r1.10 perlnum.pmc
*** perlnum.pmc 18 Dec 2001 07:05:00 -0000 1.10
--- perlnum.pmc 22 Dec 2001 05:39:34 -0000
***************
*** 56,62 ****
          return SELF->cache.num_val;
      }

!     FLOATVAL get_number_index () {
      }

      STRING* get_string () {
--- 56,62 ----
          return SELF->cache.num_val;
      }

!     FLOATVAL get_number_index (INTVAL index) {
      }

      STRING* get_string () {
***************
*** 72,78 ****
   return s;
      }

!     STRING* get_string_index () {
      }

      BOOLVAL get_bool () {
--- 72,78 ----
   return s;
      }

!     STRING* get_string_index (INTVAL index) {
      }

      BOOLVAL get_bool () {
Index: perlstring.pmc
===================================================================
RCS file: /cvs/public/parrot/classes/perlstring.pmc,v
retrieving revision 1.7
diff -c -r1.7 perlstring.pmc
*** perlstring.pmc 18 Dec 2001 07:05:00 -0000 1.7
--- perlstring.pmc 22 Dec 2001 05:39:35 -0000
***************
*** 50,56 ****
   return string_to_int(interpreter, s);
      }

!     INTVAL get_integer_index () {
      }

      FLOATVAL get_number () {
--- 50,56 ----
   return string_to_int(interpreter, s);
      }

!     INTVAL get_integer_index (INTVAL index) {
      }

      FLOATVAL get_number () {
***************
*** 58,71 ****
   return string_to_num(interpreter, s);
      }

!     FLOATVAL get_number_index () {
      }

      STRING* get_string () {
   return (STRING*)SELF->cache.struct_val;
      }

!     STRING* get_string_index () {
      }

      BOOLVAL get_bool () {
--- 58,71 ----
   return string_to_num(interpreter, s);
      }

!     FLOATVAL get_number_index (INTVAL index) {
      }

      STRING* get_string () {
   return (STRING*)SELF->cache.struct_val;
      }

!     STRING* get_string_index (INTVAL index) {
      }

      BOOLVAL get_bool () {

• [Patch] Mismatch warnings by David & Lisa Jacobs
• Re: [Patch] Mismatch warnings by Dan Sugalski