paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 23:49:22 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/systems/t_bsd.pas
View File

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

2
compiler/systems/t_linux.pas
View File

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