From ae0c180e0b7d40bd87dbc4f623fc2c983c163c51 Mon Sep 17 00:00:00 2001 From: pierre Date: Wed, 31 Oct 2018 15:49:14 +0000 Subject: [PATCH] Avoid overflow in code git-svn-id: trunk@40113 - --- compiler/symdef.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/symdef.pas b/compiler/symdef.pas index 1f1239053f..115bdbb0a7 100644 --- a/compiler/symdef.pas +++ b/compiler/symdef.pas @@ -4426,7 +4426,7 @@ implementation foffset:=tfieldvarsym(symtable.symlist[i]).fieldoffset*8; fsize:=tfieldvarsym(symtable.symlist[i]).vardef.size*8; end; - if (foffset div (sizeof(aword)*8)) <> ((foffset+fsize-1) div (sizeof(aword)*8)) then + if (fsize>0) and ((foffset div (sizeof(aword)*8)) <> ((foffset+fsize-1) div (sizeof(aword)*8))) then exit; { search recursively } if (tstoreddef(tfieldvarsym(symtable.symlist[i]).vardef).typ=recorddef) and