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

Modify code to avoid error when compiling with -CriotR option

Browse Source 
git-svn-id: trunk@44145 -
This commit is contained in:
pierre 2020-02-10 09:37:53 +00:00
parent 991ce83a2b
commit 40a6059143
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/rgobj.pas
View File

@ -1598,11 +1598,12 @@ unit rgobj;
{ while compiling the compiler. }
tmpr:=NR_STACK_POINTER_REG;
{ e.g. AVR does not have a stack pointer register }
{$push}{$warnings off}
if (RS_STACK_POINTER_REG<>RS_INVALID) and
{$pop}
(regtype=getregtype(tmpr)) then
{$if defined(RS_STACK_POINTER_REG)}
{$if (RS_STACK_POINTER_REG<>RS_INVALID)}
if (regtype=getregtype(tmpr)) then
include(adj_colours,RS_STACK_POINTER_REG);
{$ifend}
{$ifend}
{Assume a spill by default...}
found:=false;
{Search for a colour not in this list.}