paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-17 05:20:48 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE Debugger: don't sign extend enum ordinal values

Browse Source
This commit is contained in:
Martin 2025-04-19 22:57:10 +02:00
parent d1bf325003
commit 3f5473a15b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/packages/idedebugger/idedebuggerwatchresult.pas
View File

@ -1295,7 +1295,7 @@ type
{ TWatchResultDataEnum } { TWatchResultDataEnum }
TWatchResultDataEnum = class(specialize TGenericWatchResultDataSizedNum<TWatchResultValueEnum>) TWatchResultDataEnum = class(specialize TGenericWatchResultDataWithType<TWatchResultValueEnum, TWatchResultTypeOrdNum>)
private private
function GetClassID: TWatchResultDataClassID; override; function GetClassID: TWatchResultDataClassID; override;
public public
@ -1304,7 +1304,7 @@ type
{ TWatchResultDataEnumVal } { TWatchResultDataEnumVal }
TWatchResultDataEnumVal = class(specialize TGenericWatchResultDataSizedNum<TWatchResultValueEnumVal>) TWatchResultDataEnumVal = class(specialize TGenericWatchResultDataWithType<TWatchResultValueEnumVal, TWatchResultTypeOrdNum>)
private private
function GetClassID: TWatchResultDataClassID; override; function GetClassID: TWatchResultDataClassID; override;
public public