From 122e5714d87cb2508e5af6dbec5fac8385f52067 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sun, 15 Nov 2009 11:19:09 +0000
Subject: [PATCH]   * 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 -
---
 compiler/expunix.pas | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/compiler/expunix.pas b/compiler/expunix.pas
index 9561d37191..897e567e9e 100644
--- a/compiler/expunix.pas
+++ b/compiler/expunix.pas
@@ -59,6 +59,7 @@ uses
   aasmdata,aasmtai,aasmcpu,
   fmodule,
   cgbase,cgutils,cpubase,cgobj,
+  cgcpu,
   ncgutil,
   verbose;
 
@@ -135,6 +136,7 @@ var
   r : treference;
 {$endif x86}
 begin
+  create_codegen;
   new_section(current_asmdata.asmlists[al_procedures],sec_code,'',0);
   hp2:=texported_item(current_module._exports.first);
   while assigned(hp2) do
@@ -180,6 +182,7 @@ begin
        end;
      hp2:=texported_item(hp2.next);
    end;
+   destroy_codegen;
 end;