This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Compilation fixes for VMS by John E. Malmberg
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Sun, 25 Jun 2006 21:57:30 +0000 (21:57 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Sun, 25 Jun 2006 21:57:30 +0000 (21:57 +0000)
p4raw-id: //depot/perl@28426

ext/Hash/Util/FieldHash/FieldHash.xs

index 32c9361..5009e3c 100644 (file)
@@ -157,7 +157,7 @@ void HUF_mark_field(SV* trigger, SV* field) {
 
 /* The key exchange function.  It communicates with S_hv_magic_uvar_xkey
  * in hv.c */
-IV HUF_watch_key(pTHX_ IV action, SV* field) {
+I32 HUF_watch_key(pTHX_ IV action, SV* field) {
     MAGIC* mg = mg_find(field, PERL_MAGIC_uvar);
     SV* keysv = mg->mg_obj;
     if (keysv && SvROK(keysv)) {
@@ -234,7 +234,7 @@ void HUF_fix_objects() {
 /* test support (not needed for functionality) */
 
 static SV* counter;
-IV HUF_inc_var(pTHX_ IV index, SV* which) {
+I32 HUF_inc_var(pTHX_ IV index, SV* which) {
     sv_setiv(counter, 1 + SvIV(counter));
     return 0;
 }