Fix variable i range of values in procedure InitInterfacePointers(objclass: tclass;instance : pointer); · 8facd4839e - Gogs

Fix variable i range of values in procedure InitInterfacePointers(objclass: tclass;instance : pointer);

lag programming 4 months ago

parent

4b6d841cc0

commit

8facd4839e

1 changed files with 1 additions and 1 deletions

Split View Show Diff Stats

						
							+ 1
							
							- 1
						
rtl/inc/objpas.inc
							 
								View File
							
				@@ -458,7 +458,7 @@ end;
			
				         var
			
				           ovmt: PVmt;
			
				-          i: longint;
			
				+          i: sizeuint;
			
				           intftable: pinterfacetable;
			
				           Res: pinterfaceentry;
			
				         begin