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

* Fixed r44145. To test if a constant is declared it is needed to use {$if declared()} instead of {$if defined()}.

Browse Source 
git-svn-id: trunk@48389 -
This commit is contained in:
yury 2021-01-24 13:32:11 +00:00
parent 402876bc1f
commit 31cd3df783
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/rgobj.pas
View File

@ -1720,11 +1720,9 @@ unit rgobj;
{ while compiling the compiler. } { while compiling the compiler. }
tmpr:=NR_STACK_POINTER_REG; tmpr:=NR_STACK_POINTER_REG;
{ e.g. AVR does not have a stack pointer register } { e.g. AVR does not have a stack pointer register }
{$if defined(RS_STACK_POINTER_REG)} {$if declared(RS_STACK_POINTER_REG) and (RS_STACK_POINTER_REG<>RS_INVALID)}
{$if (RS_STACK_POINTER_REG<>RS_INVALID)}
if (regtype=getregtype(tmpr)) then if (regtype=getregtype(tmpr)) then
include(adj_colours,RS_STACK_POINTER_REG); include(adj_colours,RS_STACK_POINTER_REG);
{$ifend}
{$ifend} {$ifend}
{Assume a spill by default...} {Assume a spill by default...}
found:=false; found:=false;