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

* tp compiler also uses 'as' as asmprefix

Browse Source
This commit is contained in:
peter 1998-09-10 13:51:32 +00:00
parent f84768a3b2
commit f152ac4804
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/files.pas
View File

@ -755,12 +755,16 @@ unit files;
staticlibfilename:=nil; staticlibfilename:=nil;
sharedlibfilename:=nil; sharedlibfilename:=nil;
exefilename:=nil; exefilename:=nil;
{ go32v2 has the famous 8.3 limit ;) } { Dos has the famous 8.3 limit :( }
{$ifdef tp}
asmprefix:=stringdup(FixFileName('as'));
{$else}
{$ifdef go32v2} {$ifdef go32v2}
asmprefix:=stringdup(FixFileName('as')); asmprefix:=stringdup(FixFileName('as'));
{$else} {$else}
asmprefix:=stringdup(FixFileName(n)); asmprefix:=stringdup(FixFileName(n));
{$endif} {$endif}
{$endif tp}
path:=nil; path:=nil;
setfilename(p+n); setfilename(p+n);
used_units.init; used_units.init;
@ -864,7 +868,10 @@ unit files;
end. end.
{ {
$Log$ $Log$
Revision 1.43 1998-09-03 17:08:45 pierre Revision 1.44 1998-09-10 13:51:32 peter
* tp compiler also uses 'as' as asmprefix
Revision 1.43 1998/09/03 17:08:45 pierre
* better lines for stabs * better lines for stabs
(no scroll back to if before else part (no scroll back to if before else part
no return to case line at jump outside case) no return to case line at jump outside case)