Browse Source

* changed paratarget from a global variable into a field of toption

git-svn-id: trunk@31441 -
Jonas Maebe 10 years ago
parent
commit
13638d958d
2 changed files with 2 additions and 2 deletions
  1. 0 2
      compiler/globals.pas
  2. 2 0
      compiler/options.pas

+ 0 - 2
compiler/globals.pas

@@ -230,7 +230,6 @@ interface
        asmextraopt       : string;
 
        { things specified with parameters }
-       paratarget        : tsystem;
        paratargetdbg     : tdbg;
        paratargetasm     : tasm;
        paralinkoptions   : TCmdStr;
@@ -1372,7 +1371,6 @@ implementation
         compile_level:=0;
         codegenerror:=false;
         DLLsource:=false;
-        paratarget:=system_none;
         paratargetasm:=as_none;
         paratargetdbg:=dbg_none;
 

+ 2 - 0
compiler/options.pas

@@ -50,6 +50,7 @@ Type
     ParaLibraryPath,
     ParaFrameworkPath : TSearchPathList;
     ParaAlignment   : TAlignmentInfo;
+    paratarget        : tsystem;
     Constructor Create;
     Destructor Destroy;override;
     procedure WriteLogo;
@@ -3092,6 +3093,7 @@ begin
   ParaFrameworkPath:=TSearchPathList.Create;
   FillChar(ParaAlignment,sizeof(ParaAlignment),0);
   MacVersionSet:=false;
+  paratarget:=system_none;
 end;