paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 17:29:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix win32 linking

Browse Source 
git-svn-id: trunk@1957 -
This commit is contained in:
peter 2005-12-15 12:04:39 +00:00
parent 1e1ea0c3b6
commit 39c553707e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/pmodules.pas
View File

@ -1418,7 +1418,7 @@ implementation
DLL will include the edata section } DLL will include the edata section }
if assigned(exportlib) and if assigned(exportlib) and
(target_info.system in [system_i386_win32,system_i386_wdosx]) and (target_info.system in [system_i386_win32,system_i386_wdosx]) and
((current_module.flags or uf_has_exports)<>0) then ((current_module.flags and uf_has_exports)<>0) then
asmlist[al_procedures].concat(tai_const.create_sym(exportlib.edatalabel)); asmlist[al_procedures].concat(tai_const.create_sym(exportlib.edatalabel));
If resourcestrings.ResStrCount>0 then If resourcestrings.ResStrCount>0 then