[perl #40380] [PATCH] errors on 'make install' - src/pdb.c

[Herbert Poul]

# New Ticket Created by "Herbert Poul"
# Please include the string: [perl #40380]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=40380 >

hi,

'make install' failed due to a change in compilers/imcc/parser.h (rev.
14633) which added a second parameter to do_yylex_init:
src/pdb.c
src/pdb.c: In function `main':
src/pdb.c:139: warning: passing arg 1 of `do_yylex_init' from
incompatible pointer type
src/pdb.c:139: error: too few arguments to function `do_yylex_init'
make: *** [src/pdb.o] Error 1

here is a very simple patch which got it working for me:

Index: src/pdb.c
===================================================================
--- src/pdb.c (revision 14634)
+++ src/pdb.c (working copy)
@@ -136,7 +136,7 @@
PDB_t *pdb;
void *yyscanner;

- do_yylex_init ( &yyscanner );
+ do_yylex_init ( NULL, &yyscanner );

/*Parrot_set_config_hash(); TODO link with cfg */
debugger = Parrot_new(NULL);

cu,
herbert poul

[Kevin Tew via RT]

=== src/pdb.c
==================================================================
--- src/pdb.c (revision 133)
+++ src/pdb.c (local)
@@ -136,7 +136,6 @@

PDB_t *pdb;
void *yyscanner;

- do_yylex_init ( &yyscanner );

/*Parrot_set_config_hash(); TODO link with cfg */
debugger = Parrot_new(NULL);

@@ -153,6 +152,8 @@
imcc_init(interpreter);
IMCC_ast_init(interpreter);

+ do_yylex_init ( interpreter, &yyscanner );
+
if (argc < 2) {
fprintf(stderr, "Usage: pdb programfile [program-options]\n");
Parrot_exit(interpreter, 1);

Merge back committed as revision 14822