From 27ff21f00efaa97620243f78e7e7d66ea8491265 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Tue, 12 Aug 2008 20:58:55 +0000
Subject: [PATCH] * fixed compilation of embedded system unit

git-svn-id: trunk@11559 -
---
 rtl/embedded/system.pp | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/rtl/embedded/system.pp b/rtl/embedded/system.pp
index 1ef83f3cb5..ac9905d7a3 100644
--- a/rtl/embedded/system.pp
+++ b/rtl/embedded/system.pp
@@ -28,9 +28,9 @@ Unit System;
 
 {$I systemh.inc}
 
+const
 {
   fix me
-const
  LineEnding = #10;
  LFNSupport = true;
  DirectorySeparator = '/';
@@ -40,7 +40,11 @@ const
   AllowDirectorySeparators : set of char = ['\','/'];
   AllowDriveSeparators : set of char = [':'];
 { FileNameCaseSensitive is defined below! }
+}
+{$ifdef FPC_HAS_FEATURE_EXITCODE}
  maxExitCode = 255;
+{$endif FPC_HAS_FEATURE_EXITCODE}
+{
  MaxPathLen = 1024; // BSDs since 1993, Solaris 10, Darwin
  AllFilesMask = '*';