From 864dbfa3ca8032ef66f7aa86961933b19b962357 Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Mon, 7 Jun 1999 05:18:34 +0000 Subject: initial stub implementation of implicit thread/this pointer argument; builds/tests on Solaris, win32 hasn't been fixed up yet; proto.h, global.sym and static function decls are now generated from a common database in proto.pl; some inconsistently named perl_foo() things are now Perl_foo(), compatibility #defines provided; perl_foo() (lowercase 'p') reserved for functions that take an explicit context argument; next step: generate #define foo(a,b) Perl_foo(aTHX_ a,b) p4raw-id: //depot/perl@3522 --- perly.c | 20 ++++---------------- 1 file changed, 4 insertions(+), 16 deletions(-) (limited to 'perly.c') diff --git a/perly.c b/perly.c index 938a5745c5..8b77303f1e 100644 --- a/perly.c +++ b/perly.c @@ -4,6 +4,7 @@ static char yysccsid[] = "@(#)yaccpar 1.8 (Berkeley) 01/20/91"; #define YYBYACC 1 #line 16 "perly.y" #include "EXTERN.h" +#define PERL_IN_PERLY_C #include "perl.h" #define yydebug PL_yydebug @@ -13,20 +14,7 @@ static char yysccsid[] = "@(#)yaccpar 1.8 (Berkeley) 01/20/91"; #define yyval PL_yyval #define yylval PL_yylval -#ifdef PERL_OBJECT -static void -Dep(CPerlObj *pPerl) -{ - pPerl->deprecate("\"do\" to call subroutines"); -} -#define dep() Dep(this) -#else -static void -dep(void) -{ - deprecate("\"do\" to call subroutines"); -} -#endif +#define dep() deprecate("\"do\" to call subroutines") #line 30 "perly.y" #define YYERRCODE 256 @@ -1329,7 +1317,7 @@ struct ysv { }; void -yydestruct(void *ptr) +Perl_yydestruct(pTHX_ void *ptr) { struct ysv* ysave = (struct ysv*)ptr; if (ysave->yyss) Safefree(ysave->yyss); @@ -1344,7 +1332,7 @@ yydestruct(void *ptr) } int -yyparse(void) +Perl_yyparse(pTHX) { register int yym, yyn, yystate; register short *yyssp; -- cgit v1.2.1