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

Fixed 0-N bug in Complex numbers

Browse source
This commit is contained in:
claudiol 2021-08-23 18:25:27 -04:00
parent 3f4281e5b8
commit 2a7a969c6d
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/lib-30-complex.c
View file

@ -637,13 +637,13 @@ void LIB_HANDLER()
switch (cclass1) { switch (cclass1) {
case CPLX_ZERO: case CPLX_ZERO:
{ {
if(OPCODE(CurOpcode) == OVR_SUB) { /*if(OPCODE(CurOpcode) == OVR_SUB) {
if(!iszeroReal(&Rarg2)) if(!iszeroReal(&Rarg2))
Rarg2.flags ^= F_NEGATIVE; Rarg2.flags ^= F_NEGATIVE;
if(amode2 == ANGLENONE) if(amode2 == ANGLENONE)
if(!iszeroReal(&Iarg2)) if(!iszeroReal(&Iarg2))
Iarg2.flags ^= F_NEGATIVE; Iarg2.flags ^= F_NEGATIVE;
} }*/
rplNewComplexPush(&Rarg2, &Iarg2, amode2); rplNewComplexPush(&Rarg2, &Iarg2, amode2);
if(Exceptions) if(Exceptions)
return; return;