Explorar o código

* removed/conditionalised several unused variables

git-svn-id: trunk@4197 -
Jonas Maebe %!s(int64=19) %!d(string=hai) anos
pai
achega
2429cdce1b
Modificáronse 2 ficheiros con 4 adicións e 1 borrados
  1. 2 1
      compiler/systems/t_bsd.pas
  2. 2 0
      compiler/systems/t_linux.pas

+ 2 - 1
compiler/systems/t_bsd.pas

@@ -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 - 0
compiler/systems/t_linux.pas

@@ -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);