paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 15:30:43 +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 var
methodtable : pmethodnametable; methodtable : pmethodnametable;
i : dword; i : longint; // in case count=0
ovmt : PVmt; ovmt : PVmt;
begin begin
@ -574,7 +574,7 @@ end;
class function TObject.MethodName(address : codepointer) : shortstring; class function TObject.MethodName(address : codepointer) : shortstring;
var var
methodtable : pmethodnametable; methodtable : pmethodnametable;
i : dword; i : longint; // in case count=0
ovmt : PVmt; ovmt : PVmt;
begin begin
ovmt:=PVmt(self); ovmt:=PVmt(self);