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

* --base-file instead of -b as dlltool 2.9.1 doesn't understand it

Browse Source 
* clear timestamp in pe header
This commit is contained in:
peter 2000-01-07 00:10:26 +00:00
parent 75109b4fc1
commit f1abae31d6
1 changed files with 16 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
compiler/t_win32.pas
View File

@ -749,9 +749,10 @@ begin
StripStr:='';
AsBinStr:=FindExe('asw',found);
if RelocSection then
{ RelocStr:='--base-file base.$$$';
Using short form to avoid problems with 128 char limitation under Dos }
RelocStr:='-b base.$$$';
RelocStr:='--base-file base.$$$';
{ Using short form to avoid problems with 128 char limitation under Dos.
But not all dlltool.exe support this short form
RelocStr:='-b base.$$$'; }
if apptype=at_gui then
AppTypeStr:='--subsystem windows';
if assigned(DLLImageBase) then
@ -830,9 +831,10 @@ begin
StripStr:='';
AsBinStr:=FindExe('asw',found);
if RelocSection then
{ RelocStr:='--base-file base.$$$';
Using short form to avoid problems with 128 char limitation under Dos }
RelocStr:='-b base.$$$';
RelocStr:='--base-file base.$$$';
{ Using short form to avoid problems with 128 char limitation under Dos.
But not all dlltool.exe support this short form
RelocStr:='-b base.$$$'; }
if apptype=at_gui then
AppTypeStr:='--subsystem windows';
if assigned(DLLImageBase) then
@ -1017,6 +1019,9 @@ begin
peheader.MajorImageVersion:=dllmajor;
peheader.MinorImageVersion:=dllminor;
end;
{ reset timestamp }
peheader.TimeDateStamp:=0;
{ write header back }
seek(f,peheaderpos);
blockwrite(f,peheader,sizeof(tpeheader));
if ioresult<>0 then
@ -1078,7 +1083,11 @@ end;
end.
{
$Log$
Revision 1.13 1999-12-20 23:23:30 pierre
Revision 1.14 2000-01-07 00:10:26 peter
* --base-file instead of -b as dlltool 2.9.1 doesn't understand it
* clear timestamp in pe header
Revision 1.13 1999/12/20 23:23:30 pierre
+ $description $version
Revision 1.12 1999/12/08 10:40:01 pierre