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

* Dirstr, namestr, extstr.

Browse Source 
* $V+ to prevent Peter from forgetting this.
* OS/2 compiler uses 8.3 filenames to support running the compiler on an old
  DOS FAT partition.
This commit is contained in:
daniel 1998-10-14 10:57:25 +00:00
parent 693353ab66
commit f01b55955f
1 changed files with 21 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
compiler/files.pas
View File

@ -23,6 +23,10 @@
} }
unit files; unit files;
{$ifdef TP}
{$V+}
{$endif}
interface interface
uses uses
@ -204,7 +208,9 @@ unit files;
constructor tinputfile.init(const fn:string); constructor tinputfile.init(const fn:string);
var var
p,n,e : string; p:sirstr;
n:namestr;
e:extstr;
begin begin
FSplit(fn,p,n,e); FSplit(fn,p,n,e);
name:=stringdup(n+e); name:=stringdup(n+e);
@ -891,7 +897,14 @@ unit files;
{$ifdef go32v2} {$ifdef go32v2}
asmprefix:=stringdup(FixFileName('as')); asmprefix:=stringdup(FixFileName('as'));
{$else} {$else}
{$ifdef OS2}
{Allthough OS/2 supports long filenames I play it safe and
use 8.3 filenames, because this allows the compiler to run
on a FAT partition. (DM)}
asmprefix:=stringdup(FixFileName('as'));
{$else}
asmprefix:=stringdup(FixFileName(n)); asmprefix:=stringdup(FixFileName(n));
{$endif}
{$endif} {$endif}
{$endif tp} {$endif tp}
path:=nil; path:=nil;
@ -1008,7 +1021,13 @@ unit files;
end. end.
{ {
$Log$ $Log$
Revision 1.60 1998-10-14 10:45:07 pierre Revision 1.61 1998-10-14 10:57:25 daniel
* Dirstr, namestr, extstr.
* $V+ to prevent Peter from forgetting this.
* OS/2 compiler uses 8.3 filenames to support running the compiler on an old
DOS FAT partition.
Revision 1.60 1998/10/14 10:45:07 pierre
* ppu problems for m68k fixed (at least in cross compiling) * ppu problems for m68k fixed (at least in cross compiling)
* one last memory leak for sysamiga fixed * one last memory leak for sysamiga fixed
* the amiga RTL compiles now completely !! * the amiga RTL compiles now completely !!