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

Merge of commit 43029

Browse Source 
------------------------------------------------------------------------
r43029 | pierre | 2019-09-18 07:45:47 +0000 (Wed, 18 Sep 2019) | 1 line

 Fix bug report #36081: fix cycling starting with i386-linux 3.0.4 release compiler
------------------------------------------------------------------------
--- Merging r43029 into '.':
U    rtl/inc/system.inc
--- Recording mergeinfo for merge of r43029 into '.':
 U   .

git-svn-id: branches/fixes_3_2@44109 -
This commit is contained in:
pierre 2020-02-03 23:16:03 +00:00
parent 08e9298df4
commit 09a2fabb43
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/system.inc
View File

@ -890,6 +890,7 @@ begin
exit; exit;
{ check stack alignment } { check stack alignment }
{$ifdef CPUI386} {$ifdef CPUI386}
{$ifdef FPC_STACKALIGNMENT}
{$if FPC_STACKALIGNMENT=16} {$if FPC_STACKALIGNMENT=16}
if ((PtrUInt(Sptr)+4) mod 16)<>0 then if ((PtrUInt(Sptr)+4) mod 16)<>0 then
begin begin
@ -897,6 +898,7 @@ begin
HandleError(202); HandleError(202);
end; end;
{$endif FPC_STACKALIGNMENT=16} {$endif FPC_STACKALIGNMENT=16}
{$endif FPC_STACKALIGNMENT}
{$endif CPUI386} {$endif CPUI386}
{ don't use stack_size, since the stack pointer has already been { don't use stack_size, since the stack pointer has already been
decreased when this routine is called decreased when this routine is called