mirrors/cosmopolitan
1
0
Fork 0
mirror of https://github.com/jart/cosmopolitan.git synced 2025-08-09 19:30:29 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Rename mcount variable, produces crashes when profiling is enabled

Browse source
This commit is contained in:
Jorge Acereda 2021-11-27 18:46:01 +01:00
parent d6a039821f
commit e7a9ea7fc2
1 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

14
libc/rand/randtest.c
View file

@ -35,7 +35,7 @@ static double rt_log2(double x)
static int mp, sccfirst; static int mp, sccfirst;
static unsigned int monte[MONTEN]; static unsigned int monte[MONTEN];
static long inmont, mcount; static long inmont, mcnt;
static double cexp_, incirc, montex, montey, montepi, static double cexp_, incirc, montex, montey, montepi,
scc, sccun, sccu0, scclast, scct1, scct2, scct3, scc, sccun, sccu0, scclast, scct1, scct2, scct3,
ent, chisq, datasum; ent, chisq, datasum;
@ -55,7 +55,7 @@ void rt_init(int binmode)
datasum = 0.0; /* Clear sum of bytes for arithmetic mean */ datasum = 0.0; /* Clear sum of bytes for arithmetic mean */
mp = 0; /* Reset Monte Carlo accumulator pointer */ mp = 0; /* Reset Monte Carlo accumulator pointer */
mcount = 0; /* Clear Monte Carlo tries */ mcnt = 0; /* Clear Monte Carlo tries */
inmont = 0; /* Clear Monte Carlo inside count */ inmont = 0; /* Clear Monte Carlo inside count */
incirc = 65535.0 * 65535.0;/* In-circle distance for Monte Carlo */ incirc = 65535.0 * 65535.0;/* In-circle distance for Monte Carlo */
@ -98,7 +98,7 @@ void rt_add(void *buf, int bufl)
int mj; int mj;
mp = 0; mp = 0;
mcount++; mcnt++;
montex = montey = 0; montex = montey = 0;
for (mj = 0; mj < MONTEN / 2; mj++) { for (mj = 0; mj < MONTEN / 2; mj++) {
montex = (montex * 256.0) + monte[mj]; montex = (montex * 256.0) + monte[mj];
@ -151,12 +151,12 @@ void rt_end(double *r_ent, double *r_chisq, double *r_mean,
in the entropy calculation below. While we're at it, in the entropy calculation below. While we're at it,
we sum of all the data which will be used to compute the we sum of all the data which will be used to compute the
mean. */ mean. */
cexp_ = totalc / (binary ? 2.0 : 256.0); /* Expected count per bin */ cexp_ = totalc / (binary ? 2.0 : 256.0); /* Expected count per bin */
for (i = 0; i < (binary ? 2 : 256); i++) { for (i = 0; i < (binary ? 2 : 256); i++) {
double a = ccount[i] - cexp_; double a = ccount[i] - cexp_;
prob[i] = ((double) ccount[i]) / totalc; prob[i] = ((double) ccount[i]) / totalc;
chisq += (a * a) / cexp_; chisq += (a * a) / cexp_;
datasum += ((double) i) * ccount[i]; datasum += ((double) i) * ccount[i];
} }
@ -172,7 +172,7 @@ void rt_end(double *r_ent, double *r_chisq, double *r_mean,
/* Calculate Monte Carlo value for PI from percentage of hits /* Calculate Monte Carlo value for PI from percentage of hits
within the circle */ within the circle */
montepi = 4.0 * (((double) inmont) / mcount); montepi = 4.0 * (((double) inmont) / mcnt);
/* Return results through arguments */ /* Return results through arguments */