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

Fix oversized type size constant

Browse Source
This commit is contained in:
Pierre Muller 2022-06-08 00:07:05 +02:00
parent 9e8d779f31
commit a730bf2b00
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/llvm/dbgllvm.pas
View File

@ -1018,7 +1018,7 @@ implementation
{ LLVM internally "only" supports sizes up to 1 shl 61, because they
store all sizes in bits in a qword; the rationale is that there
is no hardware supporting a full 64 bit address space either }
dinode.addqword('size',qword(1) shl 61)
dinode.addqword('size',((qword(1) shl 61) - 1)*8)
else
{$endif def cpu64bitalu}
dinode.addqword('size',def.size*8)
@ -1068,7 +1068,7 @@ implementation
{ LLVM internally "only" supports sizes up to 1 shl 61, because they
store all sizes in bits in a qword; the rationale is that there
is no hardware supporting a full 64 bit address space either }
cappedsize:=qword(1) shl 61
cappedsize:=((qword(1) shl 61) - 1)*8
{$endif def cpu64bitalu}
else
cappedsize:=tabstractrecordsymtable(def.symtable).datasize*8;