From d111ee7e692a73c28bb362c01afa0ee033464f04 Mon Sep 17 00:00:00 2001
From: Tomas Hajny <hajny@freepascal.org>
Date: Sun, 25 Mar 2001 11:05:48 +0000
Subject: [PATCH]   * system unit name change corrections

---
 rtl/palmos/syspalm.pp | 101 +-----------------------------------------
 1 file changed, 1 insertion(+), 100 deletions(-)

diff --git a/rtl/palmos/syspalm.pp b/rtl/palmos/syspalm.pp
index 135995b105..4d342eaddd 100644
--- a/rtl/palmos/syspalm.pp
+++ b/rtl/palmos/syspalm.pp
@@ -1,100 +1 @@
-{
-    $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.2  2000-07-13 11:33:54  michael
-  + removed logs
- 
-}
+{$i system.pp}