paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-07-25 00:26:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* generate also external stubs for win32 without import section

Browse Source 
git-svn-id: trunk@2303 -
This commit is contained in:
peter 2006-01-15 22:05:52 +00:00
parent 58f59b9134
commit c297cb1569
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/psub.pas
View File

@ -1469,8 +1469,16 @@ implementation
(pd.hasforward) and (pd.hasforward) and
not( not(
assigned(pd.import_dll) and assigned(pd.import_dll) and
(target_info.system in [system_i386_win32,system_i386_wdosx, (
system_i386_emx,system_i386_os2,system_arm_wince,system_i386_wince]) (
GenerateImportSection and
(target_info.system in [system_i386_win32])
) or
(
target_info.system in [system_i386_wdosx,system_i386_emx,system_i386_os2,
system_arm_wince,system_i386_wince]
)
)
) then ) then
begin begin
s:=proc_get_importname(pd); s:=proc_get_importname(pd);