From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Sun, 25 Jun 2006 21:57:30 +0000 (+0000)
Subject: Compilation fixes for VMS by John E. Malmberg
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1748121c1e487acacb4f3363d911f2e5eea2731a;p=p5sagit%2Fp5-mst-13.2.git

Compilation fixes for VMS by John E. Malmberg

p4raw-id: //depot/perl@28426
---

diff --git a/ext/Hash/Util/FieldHash/FieldHash.xs b/ext/Hash/Util/FieldHash/FieldHash.xs
index 32c9361..5009e3c 100644
--- a/ext/Hash/Util/FieldHash/FieldHash.xs
+++ b/ext/Hash/Util/FieldHash/FieldHash.xs
@@ -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;
 }