paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-02-19 19:36:26 +01:00
Code Issues Packages Projects Releases Wiki Activity

Avoid range check error inside ppudump.

Browse Source 
Change the type of all fields set by a call
  to getasizeint or getaint to int64 to avoid range check errors
This commit is contained in:
Pierre Muller 2026-01-23 10:47:55 +01:00
parent f83b04bd8c
commit ec8e9de181
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/utils/ppuutils/ppuout.pp
View File

@ -281,7 +281,7 @@ type
Options: TPpuObjOptions;
IID: string;
HelperParent: TPpuRef;
Size: integer;
Size: int64;
constructor Create(AParent: TPpuContainerDef); override;
destructor Destroy; override;
function CanWrite: boolean; override;
@ -348,8 +348,8 @@ type
protected
procedure BeforeWriteItems(Output: TPpuOutput); override;
public
ElLow, ElHigh: integer;
Size: byte;
ElLow, ElHigh: int64;
Size: int64;
CopyFrom: TPpuRef;
constructor Create(AParent: TPpuContainerDef); override;
destructor Destroy; override;
@ -361,8 +361,8 @@ type
procedure WriteDef(Output: TPpuOutput); override;
public
ElType: TPpuRef;
SetBase, SetLow, SetMax: integer;
Size: byte;
SetBase, SetLow, SetMax: int64;
Size: int64;
constructor Create(AParent: TPpuContainerDef); override;
destructor Destroy; override;
end;
@ -409,7 +409,7 @@ type
procedure WriteDef(Output: TPpuOutput); override;
public
StrType: TPpuStrType;
Len: integer;
Len: int64;
constructor Create(AParent: TPpuContainerDef); override;
end;