paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-12 10:49:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

* modified so that it compiles again

Browse Source
This commit is contained in:
pierre 2002-12-18 17:25:17 +00:00
parent 0e5a3d8b13
commit 40179afc2d
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
demo/palmos/pilrctst.pp
View File

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