summaryrefslogtreecommitdiff
path: root/toke.c
diff options
context:
space:
mode:
authorGisle Aas <gisle@aas.no>1998-02-24 00:36:09 +0100
committerMalcolm Beattie <mbeattie@sable.ox.ac.uk>1998-02-25 15:27:06 +0000
commit0fa190096f28eaa3c2a08a9aa7c333cd24617fd7 (patch)
tree740bac305fea94d9edfa4b4745e5fbf9c54ad3eb /toke.c
parent3238f5fe6293a28fd91d4f803f3a2df14d3a9498 (diff)
downloadperl-0fa190096f28eaa3c2a08a9aa7c333cd24617fd7.tar.gz
#ifdef CAN_PROTOTYPE cleanup
p4raw-id: //depot/perl@581
Diffstat (limited to 'toke.c')
-rw-r--r--toke.c10
1 files changed, 1 insertions, 9 deletions
diff --git a/toke.c b/toke.c
index 640ab67c13..e6a740b3e2 100644
--- a/toke.c
+++ b/toke.c
@@ -478,15 +478,7 @@ uni(I32 f, char *s)
#define LOP(f,x) return lop(f,x,s)
static I32
-lop
-#ifdef CAN_PROTOTYPE
- (I32 f, expectation x, char *s)
-#else
- (f,x,s)
-I32 f;
-expectation x;
-char *s;
-#endif /* CAN_PROTOTYPE */
+lop(I32 f, expectation x, char *s)
{
dTHR;
yylval.ival = f;