diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-06-25 21:57:30 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-06-25 21:57:30 +0000 |
| commit | 1748121c1e487acacb4f3363d911f2e5eea2731a (patch) | |
| tree | 3553de4d2e786e26c67a6ee00c8886db92ad618b /ext/Hash | |
| parent | 4ccfbf6061307d91135312f945a81488f8437689 (diff) | |
| download | perl-1748121c1e487acacb4f3363d911f2e5eea2731a.tar.gz | |
Compilation fixes for VMS by John E. Malmberg
p4raw-id: //depot/perl@28426
Diffstat (limited to 'ext/Hash')
| -rw-r--r-- | ext/Hash/Util/FieldHash/FieldHash.xs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/Hash/Util/FieldHash/FieldHash.xs b/ext/Hash/Util/FieldHash/FieldHash.xs index 32c936180b..5009e3c81e 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; } |