paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 01:18:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Temp (?) fix for FPC 1.9.5 [2004/07/15]

Browse Source 
git-svn-id: trunk@5695 -
This commit is contained in:
marc 2004-07-19 22:29:46 +00:00
parent b411535774
commit 0b3c4f7832
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
debugger/gdbmidebugger.pp
View File

@ -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