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

* use findutil

Browse Source
This commit is contained in:
peter 2003-01-06 20:19:52 +00:00
parent 501b72a28e
commit e670479146
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/systems/t_win32.pas
View File

@ -1006,7 +1006,7 @@ begin
AppTypeStr:=''; AppTypeStr:='';
ImageBaseStr:=''; ImageBaseStr:='';
StripStr:=''; StripStr:='';
FindExe('asw',AsBinStr); AsBinStr:=FindUtil('asw');
if RelocSection then if RelocSection then
{ Using short form to avoid problems with 128 char limitation under Dos. } { Using short form to avoid problems with 128 char limitation under Dos. }
RelocStr:='-b base.$$$'; RelocStr:='-b base.$$$';
@ -1086,7 +1086,7 @@ begin
AppTypeStr:=''; AppTypeStr:='';
ImageBaseStr:=''; ImageBaseStr:='';
StripStr:=''; StripStr:='';
FindExe('asw',AsBinStr); AsBinStr:=FindUtil('asw');
if RelocSection then if RelocSection then
{ Using short form to avoid problems with 128 char limitation under Dos. } { Using short form to avoid problems with 128 char limitation under Dos. }
RelocStr:='-b base.$$$'; RelocStr:='-b base.$$$';
@ -1249,7 +1249,7 @@ begin
end; end;
if dllversion<>'' then if dllversion<>'' then
cmdstr:=cmdstr+' --version '+dllversion; cmdstr:=cmdstr+' --version '+dllversion;
cmdstr:=cmdstr+' --input '+fn; cmdstr:=cmdstr+' --input '+maybequoted(fn);
cmdstr:=cmdstr+' --stack '+tostr(stacksize); cmdstr:=cmdstr+' --stack '+tostr(stacksize);
DoExec(FindUtil('postw32'),cmdstr,false,false); DoExec(FindUtil('postw32'),cmdstr,false,false);
postprocessexecutable:=true; postprocessexecutable:=true;
@ -1626,7 +1626,10 @@ initialization
end. end.
{ {
$Log$ $Log$
Revision 1.10 2003-01-05 13:36:53 florian Revision 1.11 2003-01-06 20:19:52 peter
* use findutil
Revision 1.10 2003/01/05 13:36:53 florian
* x86-64 compiles * x86-64 compiles
+ very basic support for float128 type (x86-64 only) + very basic support for float128 type (x86-64 only)