paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 14:29:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

Removing "current_syssym" again

Browse Source 
git-svn-id: branches/svenbarth/classhelpers@17309 -
This commit is contained in:
svenbarth 2011-04-12 07:15:32 +00:00
parent 24243f87e8
commit 3c477c67ec
2 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/pexpr.pas
View File

@ -261,11 +261,8 @@ implementation
p1,p2,paras : tnode; p1,p2,paras : tnode;
err, err,
prev_in_args : boolean; prev_in_args : boolean;
prev_current_syssym : byte;
begin begin
prev_in_args:=in_args; prev_in_args:=in_args;
prev_current_syssym:=current_syssym;
current_syssym:=l;
case l of case l of
in_new_x : in_new_x :
@ -833,7 +830,6 @@ implementation
end; end;
in_args:=prev_in_args; in_args:=prev_in_args;
current_syssym:=prev_current_syssym;
end; end;

2
compiler/symsym.pas
View File

@ -323,8 +323,6 @@ interface
var var
generrorsym : tsym; generrorsym : tsym;
current_syssym : byte = 0; { used for parsing expressions that need
special handling in the system functions }
implementation implementation