Browse Source

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

git-svn-id: trunk@11966 -
Károly Balogh 17 years ago
parent
commit
8e9b7fd157
3 changed files with 22 additions and 0 deletions
  1. 6 0
      ide/fpredir.pas
  2. 6 0
      ide/wconsole.pas
  3. 10 0
      ide/whelp.pas

+ 6 - 0
ide/fpredir.pas

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

+ 6 - 0
ide/wconsole.pas

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

+ 10 - 0
ide/whelp.pas

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