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

Release calc version 2.11.0t6.1

Browse Source
This commit is contained in:
Landon Curt Noll
1999-10-09 02:37:41 -07:00
parent b54d8fc510
commit 2dc364ee9f
9 changed files with 25 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
CHANGES
View File

@@ -174,6 +174,18 @@ Following is the change from calc version 2.11.0t1 to date:
to correctly hash a V_STR value-type that has an \0 byte
inside it.
A patch from Ernest Bowen <ernie@turing.une.edu.au> now defines
special meaning to the first 2 bits of config("lib_debug"):
bit 0 set => messages printed when inputisterminal
bit 1 set => messages printed when reading from a file
The lib/regress.cal regression suite does:
config("lib_debug", -4);
to eliminate lib messages (both bit 0 and bit 1 are not set).
Fixed misc compile warnings and notices.

6
addop.c
View File

@@ -164,7 +164,8 @@ endfunc(void)
size += dumpop(&fp->f_opcodes[size]);
}
}
if (inputisterminal() || conf->lib_debug >= 0) {
if ((inputisterminal() && conf->lib_debug & 1) ||
(!inputisterminal() && conf->lib_debug & 2)) {
printf("%s(", fp->f_name);
for (index = 0; index < fp->f_paramcount; index++) {
if (index)
@@ -237,7 +238,8 @@ rmuserfunc(char *name)
return;
freenumbers(functions[index]);
free(functions[index]);
if (inputisterminal() && conf->lib_debug >= 0)
if ((inputisterminal() && conf->lib_debug & 1) ||
(!inputisterminal() && conf->lib_debug & 2))
printf("%s() undefined\n", name);
functions[index] = NULL;
}

4
config.c
View File

@@ -93,7 +93,7 @@ CONFIG oldstd = { /* backward compatible standard configuration */
FALSE, /* skip duplicate block output lines */
BLK_BASE_HEX, /* block octet print base */
BLK_FMT_HD_STYLE, /* block output format */
0, /* calc library debug level */
3, /* calc library debug level */
0, /* internal calc debug level */
0 /* user defined debug level */
};
@@ -128,7 +128,7 @@ CONFIG newstd = { /* new non-backward compatible configuration */
FALSE, /* skip duplicate block output lines */
BLK_BASE_HEX, /* block octet print base */
BLK_FMT_HD_STYLE, /* block output format */
0, /* calc library debug level */
3, /* calc library debug level */
0, /* internal calc debug level */
0 /* user defined debug level */
};

2
custom/c_pzasusb8.c
View File

@@ -58,7 +58,7 @@ c_pzasusb8(char *name, int count, VALUE **vals)
*/
h = (USB8 *) z.v;
for (i=0; i < half_cnt; ++i) {
printf("%d:\t", i);
printf("%ld:\t", i);
for (j=0; j < half_len; ++j) {
printf("%02x", (int)(*h++));
}

2
lib/regress.cal
View File

@@ -28,7 +28,7 @@ global ecnt; /* expected value of errcount() */
ecnt = 0; /* clear expected errcount() value */
initcfg = config("all", "oldstd"); /* set config to startup default */
initcfg = config("lib_debug", -1); /* disable lib startup messages */
initcfg = config("lib_debug", -4); /* disable lib startup messages */
initcfg = config("calc_debug", 1); /* enable more internal debugging */
initcfg = config("all"); /* save state for later use */

2
version.c
View File

@@ -12,7 +12,7 @@
#define MAJOR_VER 2 /* major version */
#define MINOR_VER 11 /* minor version */
#define MAJOR_PATCH 0 /* patch level or 0 if no patch */
#define MINOR_PATCH "6" /* test number or empty string if no patch */
#define MINOR_PATCH "6.1" /* test number or empty string if no patch */
/*
* calc version constants