Ver Fonte

* create/destroy codegen before/after generating exports, because it's
required when generating non-PIC code, and also for all Darwin platforms
(required after r13801)

git-svn-id: trunk@14181 -

Jonas Maebe há 15 anos atrás
pai
commit
122e5714d8
1 ficheiros alterados com 3 adições e 0 exclusões
  1. 3 0
      compiler/expunix.pas

+ 3 - 0
compiler/expunix.pas

@@ -59,6 +59,7 @@ uses
   aasmdata,aasmtai,aasmcpu,
   aasmdata,aasmtai,aasmcpu,
   fmodule,
   fmodule,
   cgbase,cgutils,cpubase,cgobj,
   cgbase,cgutils,cpubase,cgobj,
+  cgcpu,
   ncgutil,
   ncgutil,
   verbose;
   verbose;
 
 
@@ -135,6 +136,7 @@ var
   r : treference;
   r : treference;
 {$endif x86}
 {$endif x86}
 begin
 begin
+  create_codegen;
   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);
   while assigned(hp2) do
   while assigned(hp2) do
@@ -180,6 +182,7 @@ begin
        end;
        end;
      hp2:=texported_item(hp2.next);
      hp2:=texported_item(hp2.next);
    end;
    end;
+   destroy_codegen;
 end;
 end;