paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 03:19:47 +01:00
Code Issues Packages Projects Releases Wiki Activity

- removed {$ifdef havelinuxrtl10} code

Browse Source 
git-svn-id: trunk@4345 -
This commit is contained in:
Jonas Maebe 2006-08-04 12:29:34 +00:00
parent d1bc93c67a
commit 848b7b8914
2 changed files with 6 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/globals.pas
View File

@ -30,11 +30,7 @@ interface
windows,
{$endif}
{$ifdef hasunix}
{$ifdef havelinuxrtl10}
linux,
{$else}
Baseunix,unix,
{$endif}
{$endif}
{ comphook pulls in sysutils anyways }
SysUtils,
@ -1346,13 +1342,8 @@ implementation
L : longint;
begin
{$ifdef hasunix}
{$IFDEF havelinuxrtl10}
FStat (F,Info);
L:=Info.Mtime;
{$ELSE}
FPFStat (F,Info);
L:=Info.st_Mtime;
{$ENDIF}
FPFStat (F,Info);
L:=Info.st_Mtime;
{$else}
GetFTime(f,l);
{$endif}
@ -1509,7 +1500,7 @@ end;
{$endif}
begin
{$ifdef hasunix}
GetEnvPchar:={$ifdef havelinuxrtl10}Linux.getenv{$else}BaseUnix.fpGetEnv{$endif}(envname);
GetEnvPchar:=BaseUnix.fpGetEnv(envname);
{$define GETENVOK}
{$endif}
{$ifdef win32}
@ -1567,7 +1558,7 @@ end;
expansion under linux }
{$ifdef hasunix}
begin
result := {$ifdef havelinuxrtl10}Linux{$else}Unix{$endif}.Shell(command);
result := Unix.Shell(command);
end;
{$else}
{$ifdef amigashell}

8
compiler/script.pas
View File

@ -102,11 +102,7 @@ implementation
uses
{$ifdef hasUnix}
{$ifdef havelinuxrtl10}
Linux,
{$else}
BaseUnix,
{$endif}
BaseUnix,
{$endif}
cutils,
globtype,globals,systems,verbose;
@ -200,7 +196,7 @@ begin
i:=ioresult;
{$ifdef hasUnix}
if executable then
{$ifdef havelinuxrtl10}ChMod{$else}fpchmod{$endif}(fn,493);
fpchmod(fn,493);
{$endif}
end;