Rename mcount variable, produces crashes when profiling is enabled

This commit is contained in:
Jorge Acereda 2021-11-27 18:46:01 +01:00
parent d6a039821f
commit e7a9ea7fc2

View file

@ -35,7 +35,7 @@ static double rt_log2(double x)
static int mp, sccfirst;
static unsigned int monte[MONTEN];
static long inmont, mcount;
static long inmont, mcnt;
static double cexp_, incirc, montex, montey, montepi,
scc, sccun, sccu0, scclast, scct1, scct2, scct3,
ent, chisq, datasum;
@ -55,7 +55,7 @@ void rt_init(int binmode)
datasum = 0.0; /* Clear sum of bytes for arithmetic mean */
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 */
incirc = 65535.0 * 65535.0;/* In-circle distance for Monte Carlo */
@ -98,7 +98,7 @@ void rt_add(void *buf, int bufl)
int mj;
mp = 0;
mcount++;
mcnt++;
montex = montey = 0;
for (mj = 0; mj < MONTEN / 2; mj++) {
montex = (montex * 256.0) + monte[mj];
@ -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
within the circle */
montepi = 4.0 * (((double) inmont) / mcount);
montepi = 4.0 * (((double) inmont) / mcnt);
/* Return results through arguments */