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

* write also the .dll extension (needed for NT)

Browse Source
This commit is contained in:
peter 1998-06-10 10:43:18 +00:00
parent d449884787
commit 7d36b5d9ec
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/win_targ.pas
View File

@ -38,7 +38,7 @@ unit win_targ;
implementation implementation
uses uses
aasm,files,strings,globals,cobjects aasm,files,strings,globals,cobjects,systems
{$ifdef GDB} {$ifdef GDB}
,gdb ,gdb
{$endif} {$endif}
@ -170,7 +170,7 @@ unit win_targ;
{ create import dll name } { create import dll name }
importssection^.concat(new(pai_section,init_idata(7))); importssection^.concat(new(pai_section,init_idata(7)));
importssection^.concat(new(pai_label,init(l1))); importssection^.concat(new(pai_label,init(l1)));
importssection^.concat(new(pai_string,init(hp1^.dllname^+#0))); importssection^.concat(new(pai_string,init(hp1^.dllname^+target_os.sharedlibext+#0)));
hp1:=pimportlist(hp1^.next); hp1:=pimportlist(hp1^.next);
end; end;
@ -179,7 +179,10 @@ unit win_targ;
end. end.
{ {
$Log$ $Log$
Revision 1.4 1998-06-08 22:59:56 peter Revision 1.5 1998-06-10 10:43:18 peter
* write also the .dll extension (needed for NT)
Revision 1.4 1998/06/08 22:59:56 peter
* smartlinking works for win32 * smartlinking works for win32
* some defines to exclude some compiler parts * some defines to exclude some compiler parts