paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-24 12:01:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

m68k: do not internalerror on localsize < 0. this condition is handled elsewhere in the compiler properly, so we just let it through

Browse Source 
git-svn-id: trunk@36612 -
This commit is contained in:
Károly Balogh 2017-06-29 00:11:19 +00:00
parent ad89a972e5
commit 358f8eb85d
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/m68k/cgcpu.pas
View File

@ -1833,10 +1833,7 @@ unit cgcpu;
to '060, so the two move branch here was dropped. (KB) }
if not nostackframe then
begin
{ size can't be negative }
localsize:=align(localsize,4);
if (localsize < 0) then
internalerror(2006122601);
if (localsize > high(smallint)) then
begin