Change 31429 by [EMAIL PROTECTED] on 2007/06/20 16:07:06
Stop the VC++ warning "'HUF_func_2mode' undefined; assuming extern
returning int" by shuffling the functions around so that that
function is defined before it is called (since there are no forward
declarations of functions in this file)
Affected files ...
... //depot/perl/ext/Hash/Util/FieldHash/FieldHash.xs#14 edit
Differences ...
==== //depot/perl/ext/Hash/Util/FieldHash/FieldHash.xs#14 (text) ====
Index: perl/ext/Hash/Util/FieldHash/FieldHash.xs
--- perl/ext/Hash/Util/FieldHash/FieldHash.xs#13~31406~ 2007-06-17
09:58:55.000000000 -0700
+++ perl/ext/Hash/Util/FieldHash/FieldHash.xs 2007-06-20 09:07:06.000000000
-0700
@@ -236,22 +236,6 @@
return 0;
}
-/* see if something is a field hash */
-int HUF_get_status(HV* hash) {
- int ans = 0;
- if (hash && (SvTYPE(hash) == SVt_PVHV)) {
- MAGIC* mg;
- struct ufuncs* uf;
- if ((mg = mg_find((SV*)hash, PERL_MAGIC_uvar)) &&
- (uf = (struct ufuncs *)mg->mg_ptr) &&
- (uf->uf_set == NULL)
- ) {
- ans = HUF_func_2mode(uf->uf_val);
- }
- }
- return ans;
-}
-
int HUF_func_2mode( I32(* val)(pTHX_ IV, SV*)) {
int ans = 0;
if (val == &HUF_watch_key_id)
@@ -274,6 +258,22 @@
return(ans);
}
+/* see if something is a field hash */
+int HUF_get_status(HV* hash) {
+ int ans = 0;
+ if (hash && (SvTYPE(hash) == SVt_PVHV)) {
+ MAGIC* mg;
+ struct ufuncs* uf;
+ if ((mg = mg_find((SV*)hash, PERL_MAGIC_uvar)) &&
+ (uf = (struct ufuncs *)mg->mg_ptr) &&
+ (uf->uf_set == NULL)
+ ) {
+ ans = HUF_func_2mode(uf->uf_val);
+ }
+ }
+ return ans;
+}
+
/* Thread support. These routines are called by CLONE (and nothing else) */
/* Fix entries for one object in all field hashes */
End of Patch.
