exp 2479 src/decNumber/decNumber.c Int exp=res->exponent; // save for overflow test exp 2481 src/decNumber/decNumber.c if (((exp^reqexp)>=0) // same sign ... exp 2482 src/decNumber/decNumber.c && ((exp^res->exponent)<0)) { // .. but result had different exp 2484 src/decNumber/decNumber.c if (exp<0) res->exponent=DEC_MIN_EMIN-DEC_MAX_DIGITS; exp 2652 src/decNumber/decNumber.c Int exp; // working exponent exp 2754 src/decNumber/decNumber.c exp=f->exponent+f->digits; // adjusted to Hull rules exp 2769 src/decNumber/decNumber.c if ((exp & 1)==0) { // even exponent exp 2787 src/decNumber/decNumber.c exp++; // e=e+1 exp 2829 src/decNumber/decNumber.c a->exponent+=exp/2; // set correct exponent exp 2847 src/decNumber/decNumber.c a->exponent-=exp/2; // back to 0.1->1 exp 2866 src/decNumber/decNumber.c approxset.emin-=exp/2; // adjust to match a exp 2867 src/decNumber/decNumber.c approxset.emax-=exp/2; exp 2880 src/decNumber/decNumber.c approxset.emin-=exp/2; // adjust to match a exp 2881 src/decNumber/decNumber.c approxset.emax-=exp/2; exp 2889 src/decNumber/decNumber.c a->exponent+=exp/2; // set correct exponent exp 3416 src/decNumber/decNumber.c Int exp=dn->exponent; // local copy exp 3442 src/decNumber/decNumber.c if (exp!=0 || (*dn->lsu==0 && dn->digits==1)) return; exp 3450 src/decNumber/decNumber.c if (exp==0) { // simple integer [common fastpath] exp 3460 src/decNumber/decNumber.c pre=dn->digits+exp; // digits before '.' exp 3462 src/decNumber/decNumber.c if ((exp>0) || (pre<-5)) { // need exponential form exp 3463 src/decNumber/decNumber.c e=exp+dn->digits-1; // calculate E value exp 4424 src/decNumber/decNumber.c Int exp=lhs->exponent; // save min(exponents) exp 4425 src/decNumber/decNumber.c if (rhs->exponent<exp) exp=rhs->exponent; exp 4430 src/decNumber/decNumber.c res->exponent=exp; // .. with proper exponent exp 4491 src/decNumber/decNumber.c Int exp, expunits, exprem; // work exp 4515 src/decNumber/decNumber.c exp=rhs->exponent-exponent; // RHS padding needed exp 4517 src/decNumber/decNumber.c expunits=exp/DECDPUN; exp 4518 src/decNumber/decNumber.c exprem=exp%DECDPUN; exp 5958 src/decNumber/decNumber.c const Unit *b, Int blength, Int exp) { exp 5966 src/decNumber/decNumber.c if (exp==0) { // aligned; fastpath exp 5981 src/decNumber/decNumber.c if (alength>blength+(Int)D2U(exp)) return 1; exp 5982 src/decNumber/decNumber.c if (alength+1<blength+(Int)D2U(exp)) return -1; exp 5987 src/decNumber/decNumber.c need=blength+D2U(exp); // maximum real length of B exp 5997 src/decNumber/decNumber.c expunits=exp/DECDPUN; exp 5998 src/decNumber/decNumber.c exprem=exp%DECDPUN; exp 6309 src/decNumber/decNumber.c Int d, exp; // work exp 6322 src/decNumber/decNumber.c exp=dn->exponent; exp 6336 src/decNumber/decNumber.c if (exp<=0) { // if digit might be significant exp 6337 src/decNumber/decNumber.c if (exp==0) break; // then quit exp 6338 src/decNumber/decNumber.c exp++; // next digit might be significant exp 347 src/decNumber/decNumberLocal.h # define EXPISSPECIAL(exp) ((exp)>=DECFLOAT_MinSp) exp 348 src/decNumber/decNumberLocal.h # define EXPISINF(exp) (exp==DECFLOAT_Inf) //-V1003 exp 349 src/decNumber/decNumberLocal.h # define EXPISNAN(exp) (exp==DECFLOAT_qNaN || exp==DECFLOAT_sNaN) //-V1003 exp 182 src/dps8/dps8_math.c int exp; exp 183 src/dps8/dps8_math.c long double mant = frexpl(f, &exp); exp 194 src/dps8/dps8_math.c exp -= 1; exp 220 src/dps8/dps8_math.c int e = (int)exp; exp 231 src/dps8/dps8_math.c static long double MYfrexpl(long double x, int *exp) exp 239 src/dps8/dps8_math.c *exp = 0; exp 244 src/dps8/dps8_math.c return -MYfrexpl(-x, exp); exp 278 src/dps8/dps8_math.c *exp = exponent; exp 302 src/dps8/dps8_math.c int exp; exp 303 src/dps8/dps8_math.c long double mant = MYfrexpl(f, &exp); exp 311 src/dps8/dps8_math.c exp -= 1; exp 332 src/dps8/dps8_math.c cpu . rE = exp & MASK8; exp 392 src/dps8/dps8_math.c exp 393 src/dps8/dps8_math.c exp 422 src/dps8/dps8_math.c exp 1942 src/dps8/dps8_math.c exp 1948 src/dps8/dps8_math.c exp 1952 src/dps8/dps8_math.c exp 1954 src/dps8/dps8_math.c exp 197 src/simh/scp.c t_stat tmxr_locate_line_expect (const char *dev_line, EXPECT **exp); exp 3514 src/simh/scp.c EXPECT *exp = NULL; exp 3522 src/simh/scp.c exp = sim_cons_get_expect (); exp 3524 src/simh/scp.c return sim_set_expect (exp, cptr); exp 3526 src/simh/scp.c return sim_set_noexpect (exp, cptr); exp 3533 src/simh/scp.c EXPECT *exp = NULL; exp 3538 src/simh/scp.c r = tmxr_locate_line_expect (gbuf, &exp); exp 3544 src/simh/scp.c exp = sim_cons_get_expect (); exp 3552 src/simh/scp.c return sim_exp_show (st, exp, gbuf); exp 9163 src/simh/scp.c t_stat sim_set_expect (EXPECT *exp, CONST char *cptr) exp 9173 src/simh/scp.c if (exp == NULL) exp 9175 src/simh/scp.c after = exp->after; exp 9199 src/simh/scp.c return sim_exp_set (exp, gbuf, cnt, (after_set ? after : exp->after), sim_switches, cptr); exp 9204 src/simh/scp.c t_stat sim_set_noexpect (EXPECT *exp, const char *cptr) exp 9209 src/simh/scp.c return sim_exp_clrall (exp); /* clear all rules */ exp 9215 src/simh/scp.c return sim_exp_clr (exp, gbuf); /* clear one rule */ exp 9220 src/simh/scp.c CONST EXPTAB *sim_exp_fnd (CONST EXPECT *exp, const char *match, int32 start_rule) exp 9224 src/simh/scp.c if (!exp->rules) exp 9226 src/simh/scp.c for (i=start_rule; i<exp->size; i++) exp 9227 src/simh/scp.c if (!strcmp (exp->rules[i].match_pattern, match)) exp 9228 src/simh/scp.c return &exp->rules[i]; exp 9234 src/simh/scp.c t_stat sim_exp_clr_tab (EXPECT *exp, EXPTAB *ep) exp 9243 src/simh/scp.c exp->size -= 1; /* decrement count */ exp 9245 src/simh/scp.c for (i=ep-exp->rules; i<exp->size; i++) /* shuffle up remaining rules */ exp 9246 src/simh/scp.c exp->rules[i] = exp->rules[i+1]; exp 9247 src/simh/scp.c if (exp->size == 0) { /* No rules left? */ exp 9248 src/simh/scp.c FREE (exp->rules); exp 9249 src/simh/scp.c exp->rules = NULL; exp 9255 src/simh/scp.c t_stat sim_exp_clr (EXPECT *exp, const char *match) exp 9257 src/simh/scp.c EXPTAB *ep = (EXPTAB *)sim_exp_fnd (exp, match, 0); exp 9260 src/simh/scp.c sim_exp_clr_tab (exp, ep); exp 9261 src/simh/scp.c ep = (EXPTAB *)sim_exp_fnd (exp, match, ep - exp->rules); exp 9268 src/simh/scp.c t_stat sim_exp_clrall (EXPECT *exp) exp 9272 src/simh/scp.c for (i=0; i<exp->size; i++) { exp 9273 src/simh/scp.c FREE (exp->rules[i].match); /* deallocate match string */ exp 9274 src/simh/scp.c FREE (exp->rules[i].match_pattern); /* deallocate display format match string */ exp 9275 src/simh/scp.c FREE (exp->rules[i].act); /* deallocate action */ exp 9277 src/simh/scp.c FREE (exp->rules); exp 9278 src/simh/scp.c exp->rules = NULL; exp 9279 src/simh/scp.c exp->size = 0; exp 9280 src/simh/scp.c FREE (exp->buf); exp 9281 src/simh/scp.c exp->buf = NULL; exp 9282 src/simh/scp.c exp->buf_size = 0; exp 9283 src/simh/scp.c exp->buf_ins = 0; exp 9289 src/simh/scp.c t_stat sim_exp_set (EXPECT *exp, const char *match, int32 cnt, uint32 after, int32 switches, const char *act) exp 9309 src/simh/scp.c sim_data_trace(exp->dptr, exp->dptr->units, (const uint8 *)match, "", strlen(match)+1, "Expect Match String", exp->dbit); exp 9316 src/simh/scp.c for (i=0; i<exp->size; i++) { /* Make sure this rule won't be occluded */ exp 9317 src/simh/scp.c if ((0 == strcmp (match, exp->rules[i].match_pattern)) && exp 9318 src/simh/scp.c (exp->rules[i].switches & EXP_TYP_PERSIST)) exp 9321 src/simh/scp.c if (after && exp->size) exp 9323 src/simh/scp.c exp->rules = (EXPTAB *) realloc (exp->rules, sizeof (*exp->rules)*(exp->size + 1)); exp 9324 src/simh/scp.c if (!exp->rules) exp 9336 src/simh/scp.c ep = &exp->rules[exp->size]; exp 9337 src/simh/scp.c exp->size += 1; exp 9338 src/simh/scp.c exp->after = after; /* set halt after value */ exp 9347 src/simh/scp.c sim_exp_clr_tab (exp, ep); /* clear it */ exp 9356 src/simh/scp.c sim_data_trace(exp->dptr, exp->dptr->units, (const uint8 *)match, "", strlen(match)+1, "Expect Match String", exp->dbit); exp 9388 src/simh/scp.c for (i=0; i<exp->size; i++) { exp 9389 src/simh/scp.c uint32 compare_size = (exp->rules[i].switches & EXP_TYP_REGEX) ? MAX(10 * strlen(ep->match_pattern), 1024) : exp->rules[i].size; exp 9390 src/simh/scp.c if (compare_size >= exp->buf_size) { exp 9391 src/simh/scp.c exp->buf = (uint8 *)realloc (exp->buf, compare_size + 2); /* Extra byte to null terminate regex compares */ exp 9392 src/simh/scp.c exp->buf_size = compare_size + 1; exp 9400 src/simh/scp.c t_stat sim_exp_show_tab (FILE *st, const EXPECT *exp, const EXPTAB *ep) exp 9422 src/simh/scp.c t_stat sim_exp_show (FILE *st, CONST EXPECT *exp, const char *match) exp 9424 src/simh/scp.c CONST EXPTAB *ep = (CONST EXPTAB *)sim_exp_fnd (exp, match, 0); exp 9426 src/simh/scp.c if (exp->buf_size) { exp 9427 src/simh/scp.c char *bstr = sim_encode_quoted_string (exp->buf, exp->buf_ins); exp 9429 src/simh/scp.c fprintf (st, "Match Buffer Size: %d\n", exp->buf_size); exp 9430 src/simh/scp.c fprintf (st, "Buffer Insert Offset: %d\n", exp->buf_ins); exp 9434 src/simh/scp.c if (exp->after) exp 9435 src/simh/scp.c fprintf (st, "Halt After: %d instructions\n", exp->after); exp 9436 src/simh/scp.c if (exp->dptr && exp->dbit) exp 9437 src/simh/scp.c fprintf (st, "Debugging via: SET %s DEBUG%s%s\n", sim_dname(exp->dptr), exp->dptr->debflags ? "=" : "", exp->dptr->debflags ? get_dbg_verb (exp->dbit, exp->dptr) : ""); exp 9440 src/simh/scp.c return sim_exp_showall (st, exp); exp 9446 src/simh/scp.c sim_exp_show_tab (st, exp, ep); exp 9447 src/simh/scp.c ep = (CONST EXPTAB *)sim_exp_fnd (exp, match, 1 + (ep - exp->rules)); exp 9454 src/simh/scp.c t_stat sim_exp_showall (FILE *st, const EXPECT *exp) exp 9458 src/simh/scp.c for (i=0; i < exp->size; i++) exp 9459 src/simh/scp.c sim_exp_show_tab (st, exp, &exp->rules[i]); exp 9465 src/simh/scp.c t_stat sim_exp_check (EXPECT *exp, uint8 data) exp 9471 src/simh/scp.c if ((!exp) || (!exp->rules)) /* Anything to check? */ exp 9474 src/simh/scp.c exp->buf[exp->buf_ins++] = data; /* Save new data */ exp 9475 src/simh/scp.c exp->buf[exp->buf_ins] = '\0'; /* Nul terminate for RegEx match */ exp 9477 src/simh/scp.c for (i=0; i < exp->size; i++) { exp 9478 src/simh/scp.c ep = &exp->rules[i]; exp 9484 src/simh/scp.c if (exp->buf_ins < ep->size) { /* Match stradle end of buffer */ exp 9489 src/simh/scp.c if (exp->buf_ins) { exp 9490 src/simh/scp.c if (sim_deb && exp->dptr && (exp->dptr->dctrl & exp->dbit)) { exp 9491 src/simh/scp.c char *estr = sim_encode_quoted_string (exp->buf, exp->buf_ins); exp 9492 src/simh/scp.c char *mstr = sim_encode_quoted_string (&ep->match[ep->size-exp->buf_ins], exp->buf_ins); exp 9494 src/simh/scp.c sim_debug (exp->dbit, exp->dptr, "Checking String[0:%d]: %s\n", exp->buf_ins, estr); exp 9495 src/simh/scp.c sim_debug (exp->dbit, exp->dptr, "Against Match Data: %s\n", mstr); exp 9499 src/simh/scp.c if (memcmp (exp->buf, &ep->match[ep->size-exp->buf_ins], exp->buf_ins)) exp 9502 src/simh/scp.c if (sim_deb && exp->dptr && (exp->dptr->dctrl & exp->dbit)) { exp 9503 src/simh/scp.c char *estr = sim_encode_quoted_string (&exp->buf[exp->buf_size-(ep->size-exp->buf_ins)], ep->size-exp->buf_ins); exp 9504 src/simh/scp.c char *mstr = sim_encode_quoted_string (ep->match, ep->size-exp->buf_ins); exp 9506 src/simh/scp.c sim_debug (exp->dbit, exp->dptr, "Checking String[%d:%d]: %s\n", exp->buf_size-(ep->size-exp->buf_ins), ep->size-exp->buf_ins, estr); exp 9507 src/simh/scp.c sim_debug (exp->dbit, exp->dptr, "Against Match Data: %s\n", mstr); exp 9511 src/simh/scp.c if (memcmp (&exp->buf[exp->buf_size-(ep->size-exp->buf_ins)], ep->match, ep->size-exp->buf_ins)) exp 9516 src/simh/scp.c if (sim_deb && exp->dptr && (exp->dptr->dctrl & exp->dbit)) { exp 9517 src/simh/scp.c char *estr = sim_encode_quoted_string (&exp->buf[exp->buf_ins-ep->size], ep->size); exp 9520 src/simh/scp.c sim_debug (exp->dbit, exp->dptr, "Checking String[%d:%d]: %s\n", exp->buf_ins-ep->size, ep->size, estr); exp 9521 src/simh/scp.c sim_debug (exp->dbit, exp->dptr, "Against Match Data: %s\n", mstr); exp 9525 src/simh/scp.c if (memcmp (&exp->buf[exp->buf_ins-ep->size], ep->match, ep->size)) exp 9531 src/simh/scp.c if (exp->buf_ins == exp->buf_size) { /* At end of match buffer? */ exp 9532 src/simh/scp.c exp->buf_ins = 0; /* wrap around to beginning */ exp 9533 src/simh/scp.c sim_debug (exp->dbit, exp->dptr, "Buffer wrapping\n"); exp 9535 src/simh/scp.c if ((ep != NULL) && (i != exp->size)) { /* Found? */ exp 9536 src/simh/scp.c sim_debug (exp->dbit, exp->dptr, "Matched expect pattern!\n"); exp 9539 src/simh/scp.c sim_debug (exp->dbit, exp->dptr, "Waiting for %d more match%s before stopping\n", exp 9543 src/simh/scp.c uint32 after = exp->after; exp 9546 src/simh/scp.c sim_debug (exp->dbit, exp->dptr, "Initiating actions: %s\n", ep->act); exp 9549 src/simh/scp.c sim_debug (exp->dbit, exp->dptr, "No actions specified, stopping...\n"); exp 9553 src/simh/scp.c sim_exp_clrall (exp); /* delete all rules */ exp 9556 src/simh/scp.c sim_exp_clr_tab (exp, ep); /* delete it */ exp 9560 src/simh/scp.c (uint32)((sim_timer_inst_per_sec ()*exp->after)/1000000.0) : exp 9564 src/simh/scp.c exp->buf_ins = 0; exp 185 src/simh/scp.h t_stat sim_set_expect (EXPECT *exp, CONST char *cptr); exp 186 src/simh/scp.h t_stat sim_set_noexpect (EXPECT *exp, const char *cptr); exp 187 src/simh/scp.h t_stat sim_exp_set (EXPECT *exp, const char *match, int32 cnt, uint32 after, int32 switches, const char *act); exp 188 src/simh/scp.h t_stat sim_exp_clr (EXPECT *exp, const char *match); exp 189 src/simh/scp.h t_stat sim_exp_clrall (EXPECT *exp); exp 190 src/simh/scp.h t_stat sim_exp_show (FILE *st, CONST EXPECT *exp, const char *match); exp 191 src/simh/scp.h t_stat sim_exp_showall (FILE *st, const EXPECT *exp); exp 192 src/simh/scp.h t_stat sim_exp_check (EXPECT *exp, uint8 data); exp 2946 src/simh/sim_tmxr.c static t_stat _tmxr_locate_line_send_expect (const char *cptr, SEND **snd, EXPECT **exp) exp 2955 src/simh/sim_tmxr.c if (exp) exp 2956 src/simh/sim_tmxr.c *exp = NULL; exp 2969 src/simh/sim_tmxr.c if (exp) exp 2970 src/simh/sim_tmxr.c *exp = &tmxr_open_devices[i]->ldsc[line].expect; exp 2981 src/simh/sim_tmxr.c t_stat tmxr_locate_line_expect (const char *cptr, EXPECT **exp) exp 2983 src/simh/sim_tmxr.c return _tmxr_locate_line_send_expect (cptr, NULL, exp); exp 270 src/simh/sim_tmxr.h t_stat tmxr_locate_line_expect (const char *dev_line, EXPECT **exp);