This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
e0f47ab
)
mark cannot be const because MEXTEND() modifies it, and tkGlue.c uses MEXTEND()
author
Jan Dubois
<jand@activestate.com>
Mon, 26 Sep 2005 21:19:51 +0000
(14:19 -0700)
committer
Rafael Garcia-Suarez
<rgarciasuarez@gmail.com>
Tue, 27 Sep 2005 08:36:24 +0000
(08:36 +0000)
From: "Jan Dubois" <jand@ActiveState.com>
Message-Id: <
200509270419
.j8R4JtVw026876@smtp3.ActiveState.com>
p4raw-id: //depot/perl@25613
XSUB.h
patch
|
blob
|
blame
|
history
diff --git
a/XSUB.h
b/XSUB.h
index
7f0954c
..
65c41bd
100644
(file)
--- a/
XSUB.h
+++ b/
XSUB.h
@@
-115,7
+115,7
@@
is a lexical $_ in scope.
#define dAXMARK \
I32 ax = POPMARK; \
- register SV **
const
mark = PL_stack_base + ax++
+ register SV **mark = PL_stack_base + ax++
#define dITEMS I32 items = SP - MARK