paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 21:09:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

* removed/conditionalised several unused variables

Browse Source 
git-svn-id: trunk@4197 -
This commit is contained in:
Jonas Maebe 2006-07-14 20:05:46 +00:00
parent 9b48d424ff
commit 2429cdce1b
2 changed files with 4 additions and 1 deletions
compiler/systems
t_bsd.past_linux.pas

3
compiler/systems/t_bsd.pas
View File

@ -203,8 +203,10 @@ end;
procedure texportlibbsd.generatelib; // straight t_linux copy for now.
var
hp2 : texported_item;
{$ifdef x86}
sym : tasmsymbol;
r : treference;
{$endif x86}
begin
new_section(current_asmdata.asmlists[al_procedures],sec_code,'',0);
hp2:=texported_item(current_module._exports.first);
@ -332,7 +334,6 @@ Var
prtobj : string[80];
HPath : TStringListItem;
s,s1,s2 : string;
linkpthread,
linkdynamic,
linklibc : boolean;
Fl1,Fl2 : Boolean;

2
compiler/systems/t_linux.pas
View File

@ -158,8 +158,10 @@ end;
procedure texportliblinux.generatelib;
var
hp2 : texported_item;
{$ifdef x86}
sym : tasmsymbol;
r : treference;
{$endif x86}
begin
new_section(current_asmdata.asmlists[al_procedures],sec_code,'',0);
hp2:=texported_item(current_module._exports.first);