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

* always add library prefix and suffix to generate uniform dll name

Browse Source 
git-svn-id: trunk@3285 -
This commit is contained in:
peter 2006-04-19 16:23:42 +00:00
parent e1eec18b6f
commit 76534b1888
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/pdecsub.pas
View File

@ -1444,6 +1444,8 @@ procedure pd_external(pd:tabstractprocdef);
that case either import_nr<>0 or import_name<>nil is true, so
the procedure is either imported by number or by name. (DM)
}
var
hs : string;
begin
if pd.deftype<>procdef then
internalerror(2003042615);
@ -1459,7 +1461,11 @@ begin
follow (FK) }
if not(token=_SEMICOLON) and not(idtoken=_NAME) then
begin
import_dll:=stringdup(get_stringconst);
{ Always add library prefix and suffix to create an uniform name }
hs:=AddExtension(get_stringconst,target_info.sharedlibext);
if Copy(hs,1,length(target_info.sharedlibprefix))<>target_info.sharedlibprefix then
hs:=target_info.sharedlibprefix+hs;
import_dll:=stringdup(hs);
include(procoptions,po_has_importdll);
if (idtoken=_NAME) then
begin

1
compiler/utils/ppudump.pp
View File

@ -1703,6 +1703,7 @@ begin
writeln(space,' Import DLL : ',getstring);
if (po_has_importname in procoptions) then
writeln(space,' Import Name : ',getstring);
writeln(space,' Import Nr : ',getword);
if (po_inline in procoptions) then
begin
write (space,' FuncretSym : ');