summaryrefslogtreecommitdiff
path: root/toke.c
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1999-12-09 01:14:46 +0000
committerGurusamy Sarathy <gsar@cpan.org>1999-12-09 01:14:46 +0000
commita0be28da97d0d38b5ef9181812da403f4e9ce11f (patch)
tree363e657363e23c4ea5b8cbf5917925d3a1c1a111 /toke.c
parent81793b9077171abb50d56e2bdf5d4208e13a783d (diff)
downloadperl-a0be28da97d0d38b5ef9181812da403f4e9ce11f.tar.gz
avoid mismatched expectation <-> int types for C++ builds
p4raw-id: //depot/perl@4672
Diffstat (limited to 'toke.c')
-rw-r--r--toke.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/toke.c b/toke.c
index 2acfec9aca..57e263ff00 100644
--- a/toke.c
+++ b/toke.c
@@ -672,7 +672,7 @@ S_uni(pTHX_ I32 f, char *s)
*/
STATIC I32
-S_lop(pTHX_ I32 f, expectation x, char *s)
+S_lop(pTHX_ I32 f, int x, char *s)
{
dTHR;
yylval.ival = f;
@@ -5707,7 +5707,7 @@ S_scan_ident(pTHX_ register char *s, register char *send, char *dest, STRLEN des
funny, dest, brack, funny, dest, brack);
}
bracket++;
- PL_lex_brackstack[PL_lex_brackets++] = XOPERATOR | XFAKEBRACK;
+ PL_lex_brackstack[PL_lex_brackets++] = (char)(XOPERATOR | XFAKEBRACK);
return s;
}
}