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

palmos: an include which will contain the subset of the API the RTL needs

Browse Source 
git-svn-id: trunk@37215 -
This commit is contained in:
Károly Balogh 2017-09-15 16:05:13 +00:00
parent 5ee0e728df
commit b56a4bc800
2 changed files with 69 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -10013,6 +10013,7 @@ rtl/palmos/m68k/crt0.o -text
rtl/palmos/m68k/gdbstub.o -text
rtl/palmos/m68k/libcrt.a -text
rtl/palmos/m68k/prt0.as svneol=native#text/plain
rtl/palmos/palmos.inc svneol=native#text/plain
rtl/palmos/pilot.pp svneol=native#text/plain
rtl/palmos/readme -text
rtl/palmos/rtldefs.inc svneol=native#text/plain

68
rtl/palmos/palmos.inc Normal file
View File

@ -0,0 +1,68 @@
{
This file is part of the Free Pascal run time library.
Copyright (c) 2017 by Free Pascal development team
PalmOS specific structures and definitions to be used by the RTL
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.
**********************************************************************}
{$PACKRECORDS 2}
type
MemPtr = Pointer;
MemHandle = Pointer;
Err = Word;
DmOpenRef = Pointer;
type
SysAppInfoTag = record
cmd: Int16; // command code for app
cmdPBP: MemPtr; // cmd ParamBlock
launchFlags: UInt16; // launch flags
taskID: UInt32; // AMX task ID of task that app runs in
codeH: MemHandle; // code MemHandle of the main code segment
dbP: DmOpenRef; // Application database access MemPtr of App
stackP: ^UInt8; // stack chunk for the App
globalsChunkP: ^UInt8; // globals chunk for the App
memOwnerID: UInt16; // owner ID for Memory Manager chunks
dmAccessP: MemPtr; // pointer to linked list of opened DB's
dmLastErr: Err; // Last error from Data Manager
errExceptionP: MemPtr; // ErrTry,Catch exception list
// PalmOS v3.0 fields begin here
a5Ptr: ^UInt8; // A5 MemPtr for this app
stackEndP: ^UInt8; // stack chunk end for the App (last byte)
globalEndP: ^UInt8; // global chunk end for the App (last byte)
rootP: ^SysAppInfoType;// Points to the SysAppInfoType first
// allocated for this thread.
extraP: MemPtr; // unused MemPtr for the App.
end;
SysAppInfoType = SysAppInfoTag;
SysAppInfoPtr = ^SysAppInfoType;
const
sysAppLaunchCmdNormalLaunch = 0;
const
sysTrapSysAppStartup = $A08F;
sysTrapSysAppExit = $A090;
function SysAppStartup(var appInfoPP: SysAppInfoPtr; var prevGlobalsP, globalsPtrP: MemPtr): UInt16; syscall sysTrapSysAppStartup;
function SysAppExit(appInfoP: SysAppInfoPtr; prevGlobalsP, globalsP: MemPtr): UInt16; syscall sysTrapSysAppExit;
const
sysTrapSndPlaySystemSound = $A234;
sndError = 3;
procedure SndPlaySystemSound(beepID: Word); syscall sysTrapSndPlaySystemSound;
{$PACKRECORDS DEFAULT}