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

- removed inlining_procedure global var (artefact from pass_2 inlining)

Browse Source 
git-svn-id: trunk@6266 -
This commit is contained in:
Jonas Maebe 2007-01-29 15:33:56 +00:00
parent d6a4fbea47
commit 246f75c43a
3 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/aasmtai.pas
View File

@ -780,8 +780,7 @@ implementation
constructor tailineinfo.create; constructor tailineinfo.create;
begin begin
inherited create; inherited create;
if not(inlining_procedure and if not(cs_gdb_valgrind in current_settings.globalswitches) then
(cs_gdb_valgrind in current_settings.globalswitches)) then
fileinfo:=current_filepos; fileinfo:=current_filepos;
end; end;

2
compiler/globals.pas
View File

@ -248,7 +248,6 @@ interface
proc calls to proc loads in firstcalln } proc calls to proc loads in firstcalln }
compile_level : word; compile_level : word;
resolving_forward : boolean; { used to add forward reference as second ref } resolving_forward : boolean; { used to add forward reference as second ref }
inlining_procedure : boolean; { are we inlining a procedure }
exceptblockcounter : integer; { each except block gets a unique number check gotos } exceptblockcounter : integer; { each except block gets a unique number check gotos }
aktexceptblock : integer; { the exceptblock number of the current block (0 if none) } aktexceptblock : integer; { the exceptblock number of the current block (0 if none) }
LinkLibraryAliases : TLinkStrMap; LinkLibraryAliases : TLinkStrMap;
@ -1086,7 +1085,6 @@ implementation
do_make:=true; do_make:=true;
compile_level:=0; compile_level:=0;
DLLsource:=false; DLLsource:=false;
inlining_procedure:=false;
resolving_forward:=false; resolving_forward:=false;
paratarget:=system_none; paratarget:=system_none;
paratargetasm:=as_none; paratargetasm:=as_none;

2
compiler/pass_2.pas
View File

@ -161,8 +161,6 @@ implementation
oldcodegenerror:=codegenerror; oldcodegenerror:=codegenerror;
oldlocalswitches:=current_settings.localswitches; oldlocalswitches:=current_settings.localswitches;
oldpos:=current_filepos; oldpos:=current_filepos;
if not inlining_procedure then
current_filepos:=p.fileinfo;
current_settings.localswitches:=p.localswitches; current_settings.localswitches:=p.localswitches;
codegenerror:=false; codegenerror:=false;
{$ifdef EXTDEBUG} {$ifdef EXTDEBUG}