paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-11 16:31:04 +02:00
Code Issues Packages Projects Releases Wiki Activity

* create/destroy codegen before/after generating exports, because it's

Browse Source 
required when generating non-PIC code, and also for all Darwin platforms
    (required after r13801)

git-svn-id: trunk@14181 -
This commit is contained in:
Jonas Maebe 2009-11-15 11:19:09 +00:00
parent ef66a2aec5
commit 122e5714d8
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/expunix.pas
View File

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