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

* renamefest

Browse Source
This commit is contained in:
marco 2002-06-02 08:41:22 +00:00
parent 15ba7e9918
commit 77df4660ff
2 changed files with 16 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/new/pp.pas
View File

@ -136,7 +136,7 @@ uses
{$ifdef heaptrc} {$ifdef heaptrc}
ppheap, ppheap,
{$endif heaptrc} {$endif heaptrc}
{$ifdef linux} {$ifdef Unix}
catch, catch,
{$endif} {$endif}
{$endif FPC} {$endif FPC}
@ -276,7 +276,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.1 2000-07-13 06:30:08 michael Revision 1.2 2002-06-02 08:41:22 marco
* renamefest
Revision 1.1 2000/07/13 06:30:08 michael
+ Initial import + Initial import
Revision 1.8 2000/01/07 01:14:54 peter Revision 1.8 2000/01/07 01:14:54 peter

15
compiler/new/symtable/cobjects.pas
View File

@ -36,10 +36,14 @@ uses strings,objects
{$IFDEF TP} {$IFDEF TP}
,xobjects ,xobjects
{$ENDIF} {$ENDIF}
{$ifndef linux} {$ifndef Unix}
,dos ,dos
{$else} {$else}
{$ifdef VER1_0}
,linux ,linux
{$else}
,Unix
{$endif}
{$endif}; {$endif};
const const
@ -1729,11 +1733,11 @@ end;
var var
l : longint; l : longint;
{$ifdef linux} {$ifdef Unix}
Info : Stat; Info : Stat;
{$endif} {$endif}
begin begin
{$ifndef linux} {$ifndef Unix}
{ this only works if the file is open !! } { this only works if the file is open !! }
dos.getftime(f,l); dos.getftime(f,l);
{$else} {$else}
@ -1971,7 +1975,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.1 2000-07-13 06:30:13 michael Revision 1.2 2002-06-02 08:41:22 marco
* renamefest
Revision 1.1 2000/07/13 06:30:13 michael
+ Initial import + Initial import
Revision 1.3 2000/03/11 21:11:24 daniel Revision 1.3 2000/03/11 21:11:24 daniel