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

ide: fix FPC 3.0 compilation after r51375 #16c4777cbe

Browse Source 
git-svn-id: trunk@51377 -
This commit is contained in:
ondrej 2016-01-22 13:17:18 +00:00
parent cb844b833c
commit a6c38d0bdb
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
debugger/localsdlg.pp
View File

@ -36,7 +36,7 @@ unit LocalsDlg;
interface interface
uses uses
SysUtils, Classes, Forms, ClipBrd, LCLProc, LazLoggerBase, SysUtils, Classes, Forms, ClipBrd, LCLProc, LazLoggerBase, strutils,
IDEWindowIntf, DebuggerStrConst, IDEWindowIntf, DebuggerStrConst,
ComCtrls, ActnList, Menus, BaseDebugManager, Debugger, DebuggerDlg; ComCtrls, ActnList, Menus, BaseDebugManager, Debugger, DebuggerDlg;
@ -192,7 +192,7 @@ var
if I > 0 then if I > 0 then
begin begin
// Invalid enum value: "true (85)" => "85" // Invalid enum value: "true (85)" => "85"
L := Pos(')', AValue, I+1); L := PosEx(')', AValue, I+1);
Result := Copy(AValue, I+1, L-I-1); Result := Copy(AValue, I+1, L-I-1);
end else end else
begin begin