paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 15:00:27 +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;
begin
inherited create;
if not(inlining_procedure and
(cs_gdb_valgrind in current_settings.globalswitches)) then
if not(cs_gdb_valgrind in current_settings.globalswitches) then
fileinfo:=current_filepos;
end;

2
compiler/globals.pas
View File

@ -248,7 +248,6 @@ interface
proc calls to proc loads in firstcalln }
compile_level : word;
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 }
aktexceptblock : integer; { the exceptblock number of the current block (0 if none) }
LinkLibraryAliases : TLinkStrMap;
@ -1086,7 +1085,6 @@ implementation
do_make:=true;
compile_level:=0;
DLLsource:=false;
inlining_procedure:=false;
resolving_forward:=false;
paratarget:=system_none;
paratargetasm:=as_none;

2
compiler/pass_2.pas
View File

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