From 538a94d316913cef0c27b1911aaf1df1d3d88388 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Wed, 2 Oct 2002 21:34:31 +0000
Subject: [PATCH]   * first dummy implementation

---
 rtl/macos/system.pp | 54 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 54 insertions(+)
 create mode 100644 rtl/macos/system.pp

diff --git a/rtl/macos/system.pp b/rtl/macos/system.pp
new file mode 100644
index 0000000000..b568867b6b
--- /dev/null
+++ b/rtl/macos/system.pp
@@ -0,0 +1,54 @@
+{
+    $Id$
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 2002 by Olle Raab
+
+    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.
+
+ **********************************************************************}
+unit System;
+
+interface
+
+{$Y-}
+type
+   integer = -32768 .. 32767;
+   byte =0..255;
+   shortint=-128..127;
+   word=0..65535;
+   longint=+(-$7FFFFFFF-1)..$7FFFFFFF;
+   pchar=^char;
+
+implementation
+
+procedure do_exit;[public,alias:'FPC_DO_EXIT'];
+
+begin
+end;
+
+procedure fpc_initializeunits;[public,alias:'FPC_INITIALIZEUNITS'];
+
+begin
+end;
+
+procedure _restf14;[public,alias:'_restf14'];
+
+begin
+end;
+
+procedure _savef14;[public,alias:'_savef14'];
+
+begin
+end;
+
+end.
+{
+  $Log$
+  Revision 1.1  2002-10-02 21:34:31  florian
+    * first dummy implementation
+}
\ No newline at end of file