From 40179afc2d873cbfb11e84a7e28bfd16904742f3 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Wed, 18 Dec 2002 17:25:17 +0000
Subject: [PATCH]  * modified so that it compiles again

---
 demo/palmos/pilrctst.pp | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/demo/palmos/pilrctst.pp b/demo/palmos/pilrctst.pp
index 862261bf5d..599b61f7e7 100644
--- a/demo/palmos/pilrctst.pp
+++ b/demo/palmos/pilrctst.pp
@@ -37,7 +37,9 @@ program pilrctst;
   var
      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
      b : boolean;
@@ -47,7 +49,7 @@ function PilotMain(_cmd : Word;_cmdPBP : Ptr;_launchFlags : Word) : DWord;cdecl;
      ptbl : PTableType;
 
   begin
-     if _cmd=0 then
+     {if _cmd=0 then }
        begin
           kidForm:=kidForm1;
           FrmGotoForm(kidForm);
@@ -106,8 +108,8 @@ function PilotMain(_cmd : Word;_cmdPBP : Ptr;_launchFlags : Word) : DWord;cdecl;
                end;
             end;
        end;
-     PilotMain:=0;
+     {PilotMain:=0;
   end;
 
-begin
+begin}
 end.