From 0b3c4f7832ddac7bf181f0970386b73dc2ee4b14 Mon Sep 17 00:00:00 2001
From: marc <marc@lazarus-ide.org>
Date: Mon, 19 Jul 2004 22:29:46 +0000
Subject: [PATCH] * Temp (?) fix for FPC 1.9.5 [2004/07/15]

git-svn-id: trunk@5695 -
---
 debugger/gdbmidebugger.pp | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/debugger/gdbmidebugger.pp b/debugger/gdbmidebugger.pp
index 9c4a17b6a8..89e5e74728 100644
--- a/debugger/gdbmidebugger.pp
+++ b/debugger/gdbmidebugger.pp
@@ -1698,8 +1698,9 @@ begin
 end;
 
 procedure TGDBMIBreakPoint.UpdateEnable;
-const
-  CMD: array[Boolean] of String = ('disable', 'enable');
+const                         
+  // Use shortstring as fix for fpc 1.9.5 [2004/07/15]
+  CMD: array[Boolean] of ShortString = ('disable', 'enable');
 begin
   if (FBreakID = 0)
   or (Debugger = nil)
@@ -2261,6 +2262,9 @@ initialization
 end.
 { =============================================================================
   $Log$
+  Revision 1.47  2004/07/19 22:29:46  marc
+  * Temp (?) fix for FPC 1.9.5 [2004/07/15]
+
   Revision 1.46  2004/04/14 23:07:20  marc
   * Merged Getpart for target PID form Colin Western