paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 18:47:56 +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
parent d44c60b58d
commit 44c859ae0a
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

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