qepcad-B/qepcad-B-return.patch

57 lines
1.9 KiB
Diff

--- extensions/sfext/formula/FTYPEINFO.c.orig 2018-01-25 14:25:22.000000000 -0700
+++ extensions/sfext/formula/FTYPEINFO.c 2018-08-29 20:06:48.870298902 -0600
@@ -23,6 +23,6 @@ Word FTYPEINFO(Word A)
return TRUE;
if (FIRST(A) == FALSE)
return FALSE;
-
+ FAIL("FTYPEINFO","Unknown formula type!");
}
--- source/db/AFUPSFNDB.c.orig 2018-01-25 14:25:22.000000000 -0700
+++ source/db/AFUPSFNDB.c 2018-08-29 20:06:48.871298901 -0600
@@ -5,7 +5,7 @@ AFUPSFN with Database.
======================================================================*/
#include "qepcad.h"
-Word AFUPSFNDB(Word M, Word B, Word *t_, Word *Bt_, Word *F_)
+void AFUPSFNDB(Word M, Word B, Word *t_, Word *Bt_, Word *F_)
{
Word t,Bt,F;
--- source/db/SingSacPolicy.h.orig 2018-01-25 14:25:22.000000000 -0700
+++ source/db/SingSacPolicy.h 2018-08-29 20:06:48.872298900 -0600
@@ -28,17 +28,17 @@ public:
Word IPRES(Word r, Word A, Word B)
{
if (r > 2)
- sing->IPRES(r,A,B);
+ return sing->IPRES(r,A,B);
else
- sac ->IPRES(r,A,B);
+ return sac ->IPRES(r,A,B);
}
Word IPDSCR(Word r, Word A)
{
if (r > 2)
- sing->IPDSCR(r,A);
+ return sing->IPDSCR(r,A);
else
- sac ->IPDSCR(r,A);
+ return sac ->IPDSCR(r,A);
}
Word IPFACTGB(Word r, Word I, Word N)
--- source/qepcad.h.orig 2018-08-29 20:04:27.596451754 -0600
+++ source/qepcad.h 2018-08-29 20:06:48.871298901 -0600
@@ -34,7 +34,7 @@ Word AFPNIPDB(Word Mb, Word B);
void AFUPGCDB(Word M, Word A, Word B, Word *C_, Word *Ab_, Word *Bb_);
void AFUPLM(Word M, Word A, Word *L_, Word *P_);
void AFUPRWR(Word a, Word v, Word A, Word I);
-Word AFUPSFNDB(Word M, Word B, Word *t_, Word *Bt_, Word *F_);
+void AFUPSFNDB(Word M, Word B, Word *t_, Word *Bt_, Word *F_);
Word APPEND(Word P, Word k, Word R);
void APPENDEC(Word P, Word k, Word R, Word *Ps_, Word *F_);
void ATOMFLWR(Word N, Word V, Word A);