+ changes to make the IDE compile on MorphOS (probably doesn't work yet)

git-svn-id: trunk@11966 -
This commit is contained in:
Károly Balogh 2008-10-24 01:34:07 +00:00
parent b683ddf406
commit 8e9b7fd157
3 changed files with 22 additions and 0 deletions

View File

@ -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;

View File

@ -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);

View File

@ -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);