mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-20 03:52:50 +02:00
122 lines
2.9 KiB
ObjectPascal
122 lines
2.9 KiB
ObjectPascal
{
|
|
$Id$
|
|
|
|
This file is part of the Free Pascal run time library.
|
|
Copyright (c) 1999-2000 by Florian Klaempfl
|
|
member of the Free Pascal development team
|
|
|
|
See the file COPYING.FPC, included in this distribution,
|
|
for details about the copyright.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
|
|
**********************************************************************}
|
|
|
|
{$define PALMOS}
|
|
{$ASMMODE DIRECT}
|
|
Unit SysPalm;
|
|
|
|
{$I os.inc}
|
|
|
|
Interface
|
|
|
|
Type
|
|
{ type and constant declartions doesn't hurt }
|
|
LongInt = $80000000..$7fffffff;
|
|
Integer = -32768..32767;
|
|
ShortInt = -128..127;
|
|
Byte = 0..255;
|
|
Word = 0..65535;
|
|
|
|
{ !!!!
|
|
DWord = Cardinal;
|
|
LongWord = Cardinal;
|
|
}
|
|
|
|
{ The Cardinal data type isn't currently implemented for the m68k }
|
|
DWord = LongInt;
|
|
LongWord = LongInt;
|
|
|
|
{ Zero - terminated strings }
|
|
PChar = ^Char;
|
|
PPChar = ^PChar;
|
|
|
|
{ procedure type }
|
|
TProcedure = Procedure;
|
|
|
|
const
|
|
{ max. values for longint and int }
|
|
MaxLongint = High(LongInt);
|
|
MaxInt = High(Integer);
|
|
|
|
{ Must be determined at startup for both }
|
|
Test68000 : byte = 0;
|
|
Test68881 : byte = 0;
|
|
|
|
{ Palm specific data types }
|
|
type
|
|
Ptr = ^Char;
|
|
|
|
var
|
|
ExitCode : DWord;
|
|
{ this variables are passed to PilotMain by the PalmOS }
|
|
cmd : Word;
|
|
cmdPBP : Ptr;
|
|
launchFlags : Word;
|
|
|
|
implementation
|
|
|
|
{ mimic the C start code }
|
|
function PilotMain(_cmd : Word;_cmdPBP : Ptr;_launchFlags : Word) : DWord;cdecl;public;
|
|
|
|
begin
|
|
cmd:=_cmd;
|
|
cmdPBP:=_cmdPBP;
|
|
launchFlags:=_launchFlags;
|
|
asm
|
|
bsr PASCALMAIN
|
|
end;
|
|
PilotMain:=ExitCode;
|
|
end;
|
|
|
|
{*****************************************************************************
|
|
System Dependent Exit code
|
|
*****************************************************************************}
|
|
Procedure system_exit;
|
|
begin
|
|
end;
|
|
|
|
begin
|
|
ExitCode:=0;
|
|
end.
|
|
|
|
{
|
|
$Log$
|
|
Revision 1.8 2000-01-07 16:41:51 daniel
|
|
* copyright 2000
|
|
|
|
Revision 1.7 2000/01/07 16:32:34 daniel
|
|
* copyright 2000 added
|
|
|
|
Revision 1.6 1999/09/17 10:00:40 florian
|
|
* now using direct assembler mode
|
|
|
|
Revision 1.5 1999/05/17 21:52:46 florian
|
|
* most of the Object Pascal stuff moved to the system unit
|
|
|
|
Revision 1.4 1999/01/18 10:05:56 pierre
|
|
+ system_exit procedure added
|
|
|
|
Revision 1.3 1998/08/31 12:18:37 peter
|
|
* export changed to public which is allowed in implementation
|
|
|
|
Revision 1.2 1998/08/22 10:23:59 florian
|
|
+ PilotMain implemented
|
|
|
|
Revision 1.1 1998/08/05 17:19:07 florian
|
|
+ first few things for PalmOS support
|
|
|
|
}
|