Miroirs/newrpl
1
0
Fork 0
mirror of https://git.code.sf.net/p/newrpl/sources synced 2024-11-16 19:51:25 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Changed default variable attribute so variables are finite.

Browse source
This commit is contained in:
Claudio L 2019-03-02 14:26:43 -05:00
parent 03ec5a87e8
commit 42aba71cdd
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
newrpl/symbolic.c
View file

@ -5470,8 +5470,8 @@ BINT rplSymbGetAttr(WORDPTR object)
// SET DEFAULT ATTRIBUTES FOR VARIABLES THAT DON'T HAVE THEM (REAL IN REAL MODE, COMPLEX IN COMPLEX MODE)
if(!attr) {
if(rplTestSystemFlag(FL_COMPLEXMODE)) attr=IDATTR_ISINFCPLX;
else attr=IDATTR_ISINFREAL;
if(rplTestSystemFlag(FL_COMPLEXMODE)) attr=IDATTR_ISCPLX;
else attr=IDATTR_ISREAL;
}
return attr;