paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-07 06:38:13 +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; end;
procedure TGDBMIBreakPoint.UpdateEnable; procedure TGDBMIBreakPoint.UpdateEnable;
const const
CMD: array[Boolean] of String = ('disable', 'enable'); // Use shortstring as fix for fpc 1.9.5 [2004/07/15]
CMD: array[Boolean] of ShortString = ('disable', 'enable');
begin begin
if (FBreakID = 0) if (FBreakID = 0)
or (Debugger = nil) or (Debugger = nil)
@ -2261,6 +2262,9 @@ initialization
end. end.
{ ============================================================================= { =============================================================================
$Log$ $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 Revision 1.46 2004/04/14 23:07:20 marc
* Merged Getpart for target PID form Colin Western * Merged Getpart for target PID form Colin Western