paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 06:47:53 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Avoid range error in comparisons

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-05-30 15:56:32 +02:00 committed by Sven/Sarah Barth
parent 30bf8047aa
commit c39e51485c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/objpas.inc
View File

@ -548,7 +548,7 @@ end;
var
methodtable : pmethodnametable;
i : dword;
i : longint; // in case count=0
ovmt : PVmt;
begin
@ -574,7 +574,7 @@ end;
class function TObject.MethodName(address : codepointer) : shortstring;
var
methodtable : pmethodnametable;
i : dword;
i : longint; // in case count=0
ovmt : PVmt;
begin
ovmt:=PVmt(self);