drygdryg/calc
1
0
Fork 0
mirror of https://github.com/lcn2/calc.git synced 2025-08-16 01:03:29 +03:00
Code Issues Packages Projects Releases Wiki Activity

changed C source to use C booleans with backward compatibility

Browse Source 
Fix "Under source code control" date for new version.h file.

Sorted the order of symbols printed by "make env".

Test if <stdbool.h> exists and set HAVE_STDBOOL_H accordingly
in have_stdbool.h.  Added HAVE_STDBOOL_H to allow one to force
this value.

Added "bool.h" include file to support use of boolean symbols,
true and false for pre-c99 C compilers.  The "bool.h" include
file defines TRUE as true, FALSE as false, and BOOL as bool:
for backward compatibility.

The sign in a ZVALUE is now of type SIGN, whcih is either
SB32 when CALC2_COMPAT is defined, or a bool.

Replaced in C source, TRUE with true, FALSE with false, and
BOOL with bool.
This commit is contained in:
Landon Curt Noll
2023-08-19 19:20:32 -07:00
parent e18b715f3f
commit 3c18e6e25b
71 changed files with 1267 additions and 1043 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
addop.c
View File

@@ -1,7 +1,7 @@
/*
* addop - add opcodes to a function being compiled
*
* Copyright (C) 1999-2007,2021,2022 David I. Bell and Ernest Bowen
* Copyright (C) 1999-2007,2021-2023 David I. Bell and Ernest Bowen
*
* Primary author: David I. Bell
*
@@ -136,16 +136,16 @@ showfunctions(void)
/*
* Initialize a function for definition.
* Newflag is TRUE if we should allocate a new function structure,
* Newflag is true if we should allocate a new function structure,
* instead of the usual overwriting of the template function structure.
* The new structure is returned in the global curfunc variable.
*
* given:
* name name of function
* newflag TRUE if need new structure
* newflag true if need new structure
*/
void
beginfunc(char *name, BOOL newflag)
beginfunc(char *name, bool newflag)
{
register FUNC *fp; /* current function */
@@ -210,7 +210,7 @@ endfunc(void)
if (curfunc != functemplate)
free(curfunc);
if (newname[0] != '*' && (conf->traceflags & TRACE_FNCODES)) {
dumpnames = TRUE;
dumpnames = true;
for (size = 0; size < fp->f_opcodecount; ) {
printf("%ld: ", (unsigned long)size);
size += dumpop(&fp->f_opcodes[size]);
@@ -322,7 +322,7 @@ freefunc(FUNC *fp)
}
if (newname[0] != '*' && (conf->traceflags & TRACE_FNCODES)) {
printf("Freeing function \"%s\"\n",namestr(&funcnames,index));
dumpnames = FALSE;
dumpnames = false;
for (i = 0; i < fp->f_opcodecount; ) {
printf("%ld: ", i);
i += dumpop(&fp->f_opcodes[i]);
@@ -411,7 +411,7 @@ void
writeindexop(void)
{
if (oldop == OP_INDEXADDR)
curfunc->f_opcodes[curfunc->f_opcodecount - 1] = TRUE;
curfunc->f_opcodes[curfunc->f_opcodecount - 1] = true;
}
@@ -426,12 +426,12 @@ addop(long op)
register FUNC *fp; /* current function */
NUMBER *q, *q1, *q2;
unsigned long count;
BOOL cut;
bool cut;
int diff;
fp = curfunc;
count = fp->f_opcodecount;
cut = TRUE;
cut = true;
diff = 2;
q = NULL;
if ((count + 5) >= maxopcodes) {
@@ -488,7 +488,7 @@ addop(long op)
oldop = OP_ELEMVALUE;
break;
default:
cut = FALSE;
cut = false;
}
if (cut) {
@@ -522,7 +522,7 @@ addop(long op)
oldoldop = OP_NOP;
return;
default:
cut = FALSE;
cut = false;
}
if (cut) {
fp->f_opcodecount -= diff;
@@ -547,7 +547,7 @@ addop(long op)
switch (op) {
case OP_DIV:
if (qiszero(q2)) {
cut = FALSE;
cut = false;
break;
}
q = qqdiv(q1,q2);
@@ -563,12 +563,12 @@ addop(long op)
break;
case OP_POWER:
if (qisfrac(q2) || qisneg(q2))
cut = FALSE;
cut = false;
else
q = qpowi(q1,q2);
break;
default:
cut = FALSE;
cut = false;
}
if (cut) {
qfree(q1);