diff options
| author | Jan Dubois <jand@activestate.com> | 2007-04-09 11:11:32 -0700 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2007-04-10 02:37:04 +0000 |
| commit | 514696afc3bc1e4034aaa7740aac33b09330fec7 (patch) | |
| tree | 974f9676c8995f7334322522f18e66b11d6093b9 /XSUB.h | |
| parent | 58d049f00f60aef7f74b8009451ce6d3c97fbf6b (diff) | |
| download | perl-514696afc3bc1e4034aaa7740aac33b09330fec7.tar.gz | |
Cast markstack values to I32
Message-ID: <prol131i8b27re246alnhmem4mj13fcl2b@4ax.com>
p4raw-id: //depot/perl@30879
Diffstat (limited to 'XSUB.h')
| -rw-r--r-- | XSUB.h | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -115,13 +115,13 @@ is a lexical $_ in scope. # endif #endif -#define dAX const I32 ax = MARK - PL_stack_base + 1 +#define dAX const I32 ax = (I32)(MARK - PL_stack_base + 1) #define dAXMARK \ I32 ax = POPMARK; \ register SV **mark = PL_stack_base + ax++ -#define dITEMS I32 items = SP - MARK +#define dITEMS I32 items = (I32)(SP - MARK) #if defined(lint) && defined(S_SPLINT_S) /* www.splint.org */ # define dXSARGS \ |