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

* strip the '.dll' extension from the library name when creating import

Browse Source 
libraries as well. This ensures that NewExe binaries, created by the external
  linker don't have the '.dll' extension in them.

git-svn-id: trunk@42618 -
This commit is contained in:
nickysn 2019-08-09 15:03:22 +00:00
parent 7038d18d50
commit 7e78fc1d7f
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/systems/t_win16.pas
View File

@ -123,7 +123,7 @@ begin
for j:=0 to ImportLibrary.ImportSymbolList.Count-1 do
begin
ImportSymbol:=TImportSymbol(ImportLibrary.ImportSymbolList[j]);
AddImport(ImportLibrary.Name,ImportSymbol.Name,ImportSymbol.MangledName,ImportSymbol.OrdNr,ImportSymbol.IsVar);
AddImport(StripDllExt(ImportLibrary.Name),ImportSymbol.Name,ImportSymbol.MangledName,ImportSymbol.OrdNr,ImportSymbol.IsVar);
end;
end;
ObjOutput.Free;