diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-03 23:37:17 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-03 23:37:17 +0000 |
| commit | 425d70b4c4324ccafae8099527a1f9ab13640b5c (patch) | |
| tree | f41a6c5d0e15d27cc9a028184b6d98d42e2cf3d0 /ext | |
| parent | 5e931b6b27bc1bb6cc2bcce917cc8f887bf37d90 (diff) | |
| download | perl-425d70b4c4324ccafae8099527a1f9ab13640b5c.tar.gz | |
Various "cast to pointer from integer of different size"
picked up by gcc -Wall (in Tru64 where pointers are 64 bits
wide but I32 (int) only 32 bits wide).
WARNING: the classnum and tagnum changes in Storable.xs
may not be wise, they may be breaking binary compatibility
(in 64-bit platforms), asked Raphael Manfredi about the changes.
p4raw-id: //depot/perl@10417
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/Devel/DProf/DProf.xs | 4 | ||||
| -rw-r--r-- | ext/Storable/Storable.xs | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/ext/Devel/DProf/DProf.xs b/ext/Devel/DProf/DProf.xs index 0cd7daaac7..0cee6c2f07 100644 --- a/ext/Devel/DProf/DProf.xs +++ b/ext/Devel/DProf/DProf.xs @@ -87,7 +87,7 @@ typedef struct { U32 total; U32 lastid; U32 default_perldb; - U32 depth; + UV depth; #ifdef OS2 ULONG frequ; long long start_cnt; @@ -497,7 +497,7 @@ check_depth(pTHX_ void *foo) warn("garbled call depth when profiling"); } else { - I32 marks = g_depth - need_depth; + IV marks = g_depth - need_depth; /* warn("Check_depth: got %d, expected %d\n", g_depth, need_depth); */ while (marks--) { diff --git a/ext/Storable/Storable.xs b/ext/Storable/Storable.xs index 542c2a54cd..4e2db1963b 100644 --- a/ext/Storable/Storable.xs +++ b/ext/Storable/Storable.xs @@ -278,8 +278,8 @@ typedef struct stcxt { HV *hclass; /* which classnames have been seen, store time */ AV *aclass; /* which classnames have been seen, retrieve time */ HV *hook; /* cache for hook methods per class name */ - I32 tagnum; /* incremented at store time for each seen object */ - I32 classnum; /* incremented at store time for each seen classname */ + IV tagnum; /* incremented at store time for each seen object */ + IV classnum; /* incremented at store time for each seen classname */ int netorder; /* true if network order used */ int s_tainted; /* true if input source is tainted, at retrieve time */ int forgive_me; /* whether to be forgiving... */ |