Browse Source

* modified so that it compiles again

pierre 22 years ago
parent
commit
40179afc2d
1 changed files with 6 additions and 4 deletions
  1. 6 4
      demo/palmos/pilrctst.pp

+ 6 - 4
demo/palmos/pilrctst.pp

@@ -37,7 +37,9 @@ program pilrctst;
   var
   var
      kidForm : longint;
      kidForm : longint;
 
 
-function PilotMain(_cmd : Word;_cmdPBP : Ptr;_launchFlags : Word) : DWord;cdecl;public;[alias: 'PilotMain'];
+{function PilotMain(_cmd : Word;_cmdPBP : Ptr;_launchFlags : Word) : DWord;cdecl;public;[alias: 'PilotMain'];}
+
+
 
 
   var
   var
      b : boolean;
      b : boolean;
@@ -47,7 +49,7 @@ function PilotMain(_cmd : Word;_cmdPBP : Ptr;_launchFlags : Word) : DWord;cdecl;
      ptbl : PTableType;
      ptbl : PTableType;
 
 
   begin
   begin
-     if _cmd=0 then
+     {if _cmd=0 then }
        begin
        begin
           kidForm:=kidForm1;
           kidForm:=kidForm1;
           FrmGotoForm(kidForm);
           FrmGotoForm(kidForm);
@@ -106,8 +108,8 @@ function PilotMain(_cmd : Word;_cmdPBP : Ptr;_launchFlags : Word) : DWord;cdecl;
                end;
                end;
             end;
             end;
        end;
        end;
-     PilotMain:=0;
+     {PilotMain:=0;
   end;
   end;
 
 
-begin
+begin}
 end.
 end.