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

* fix for bug #1025

Browse Source
This commit is contained in:
pierre 2000-07-03 21:08:54 +00:00
parent 48c66cf7f8
commit 9290e7b641
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/files.pas
View File

@ -869,7 +869,7 @@ end;
asmfilename:=stringdup(p+n+target_info.asmext);
ppufilename:=stringdup(p+n+target_info.unitext);
{ lib and exe could be loaded with a file specified with -o }
if AllowOutput and (OutputFile<>'') then
if AllowOutput and (OutputFile<>'') and (compile_level=1) then
n:=OutputFile;
staticlibfilename:=stringdup(p+target_os.libprefix+n+target_os.staticlibext);
if target_info.target=target_i386_WIN32 then
@ -1408,7 +1408,10 @@ end;
end.
{
$Log$
Revision 1.118 2000-06-15 18:10:11 peter
Revision 1.119 2000-07-03 21:08:54 pierre
* fix for bug 1025
Revision 1.118 2000/06/15 18:10:11 peter
* first look for ppu in cwd and outputpath and after that for source
in cwd
* fixpath() for not linux makes path now lowercase so comparing paths
@ -1478,4 +1481,4 @@ end.
Revision 1.100 1999/08/24 13:14:01 peter
* MEMDEBUG to see the sizes of asmlist,asmsymbols,symtables
}
}