From 09490c6f5af9dbba16d07ac5e5c47c1a4330dbf4 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Mon, 30 Aug 2004 13:07:03 +0000
Subject: [PATCH] + Added MACOS linebreakstyle (tlbsCR)

---
 rtl/objpas/sysutils/sysstrh.inc | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/rtl/objpas/sysutils/sysstrh.inc b/rtl/objpas/sysutils/sysstrh.inc
index a091b96b3a..54ef83223b 100644
--- a/rtl/objpas/sysutils/sysstrh.inc
+++ b/rtl/objpas/sysutils/sysstrh.inc
@@ -55,10 +55,11 @@ const
 {$endif VER1_0}
 
 Type
-  TTextLineBreakStyle = (tlbsLF, tlbsCRLF);   // Must move to system unit, and add Mac tlbsCR too ?
+  TTextLineBreakStyle = (tlbsLF, tlbsCRLF,tlbsCR);   // Must move to system unit, and add Mac tlbsCR too ?
 
 Const
-  DefaultTextLineBreakStyle: TTextLineBreakStyle = {$ifdef unix} tlbsLF {$else} tlbsCRLF {$endif};
+  DefaultTextLineBreakStyle: TTextLineBreakStyle = 
+    {$ifdef unix} tlbsLF {$else} {$ifdef macos} tlbsCR {$else} tlbsCRLF {$endif} {$endif} ;
 
 
 Const
@@ -192,7 +193,10 @@ function BCDToInt(Value: integer): integer;
 
 {
   $Log$
-  Revision 1.8  2004-08-07 16:56:28  florian
+  Revision 1.9  2004-08-30 13:07:03  michael
+  + Added MACOS linebreakstyle (tlbsCR)
+
+  Revision 1.8  2004/08/07 16:56:28  florian
     + TryStrToInt* added
 
   Revision 1.7  2004/06/20 20:42:37  florian