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

* dlltool is also needed if we use DefFile

Browse Source
This commit is contained in:
pierre 2000-03-10 09:14:40 +00:00
parent c653648412
commit 38ec9c22bb
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/t_win32.pas
View File

@ -628,7 +628,7 @@ begin
begin begin
ExeCmd[1]:='ldw $OPT $STRIP $APPTYPE $IMAGEBASE $RELOC -o $EXE $RES'; ExeCmd[1]:='ldw $OPT $STRIP $APPTYPE $IMAGEBASE $RELOC -o $EXE $RES';
DllCmd[1]:='ldw $OPT $STRIP --dll $APPTYPE $IMAGEBASE $RELOC -o $EXE $RES'; DllCmd[1]:='ldw $OPT $STRIP --dll $APPTYPE $IMAGEBASE $RELOC -o $EXE $RES';
if RelocSection then if RelocSection or UseDeffileForExport then
begin begin
{ ExeCmd[2]:='dlltool --as $ASBIN --dllname $EXE --output-exp exp.$$$ $RELOC $DEF'; { ExeCmd[2]:='dlltool --as $ASBIN --dllname $EXE --output-exp exp.$$$ $RELOC $DEF';
use short forms to avoid 128 char limitation problem } use short forms to avoid 128 char limitation problem }
@ -851,7 +851,7 @@ begin
{ Call linker } { Call linker }
success:=false; success:=false;
for i:=1to 3 do for i:=1 to 3 do
begin begin
SplitBinCmd(Info.DllCmd[i],binstr,cmdstr); SplitBinCmd(Info.DllCmd[i],binstr,cmdstr);
if binstr<>'' then if binstr<>'' then
@ -1087,7 +1087,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.20 2000-02-28 17:23:57 daniel Revision 1.21 2000-03-10 09:14:40 pierre
* dlltool is also needed if we use DefFile
Revision 1.20 2000/02/28 17:23:57 daniel
* Current work of symtable integration committed. The symtable can be * Current work of symtable integration committed. The symtable can be
activated by defining 'newst', but doesn't compile yet. Changes in type activated by defining 'newst', but doesn't compile yet. Changes in type
checking and oop are completed. What is left is to write a new checking and oop are completed. What is left is to write a new
@ -1166,4 +1169,4 @@ end.
* redesigned linker object * redesigned linker object
+ library support for linux (only procedures can be exported) + library support for linux (only procedures can be exported)
} }