mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-02 06:29:25 +01:00
+ changes to make the IDE compile on MorphOS (probably doesn't work yet)
git-svn-id: trunk@11966 -
This commit is contained in:
parent
b683ddf406
commit
8e9b7fd157
@ -697,6 +697,12 @@ function ExecuteRedir (Const ProgName, ComLine, RedirStdIn, RedirStdOut, RedirSt
|
||||
begin
|
||||
ExecuteRedir:=false;
|
||||
end;
|
||||
|
||||
function LocateExeFile(var FileName:string): boolean;
|
||||
begin
|
||||
LocateExeFile:=false;
|
||||
end;
|
||||
|
||||
{$ENDIF SHELL_IMPLEMENTED}
|
||||
|
||||
function ChangeRedirOut(Const Redir : String; AppendToFile : Boolean) : Boolean;
|
||||
|
||||
@ -37,6 +37,12 @@ interface
|
||||
{$ifdef netware}
|
||||
longint
|
||||
{$endif netware}
|
||||
{$ifdef amiga}
|
||||
longint
|
||||
{$endif amiga}
|
||||
{$ifdef morphos}
|
||||
longint
|
||||
{$endif morphos}
|
||||
;
|
||||
Procedure SaveConsoleMode(var ConsoleMode : TConsoleMode);
|
||||
Procedure RestoreConsoleMode(const ConsoleMode : TConsoleMode);
|
||||
|
||||
@ -338,6 +338,16 @@ begin
|
||||
GetDosTicks := Nwserv.GetCurrentTicks;
|
||||
end;
|
||||
{$endif}
|
||||
{$ifdef amiga}
|
||||
begin
|
||||
GetDosTicks := -1;
|
||||
end;
|
||||
{$endif}
|
||||
{$ifdef morphos}
|
||||
begin
|
||||
GetDosTicks := -1;
|
||||
end;
|
||||
{$endif}
|
||||
|
||||
|
||||
procedure DisposeRecord(var R: TRecord);
|
||||
|
||||
Loading…
Reference in New Issue
Block a user