exp 2463 src/decNumber/decNumber.c Int exp=res->exponent; // save for overflow test exp 2465 src/decNumber/decNumber.c if (((exp^reqexp)>=0) // same sign ... exp 2466 src/decNumber/decNumber.c && ((exp^res->exponent)<0)) { // .. but result had different exp 2468 src/decNumber/decNumber.c if (exp<0) res->exponent=DEC_MIN_EMIN-DEC_MAX_DIGITS; exp 2636 src/decNumber/decNumber.c Int exp; // working exponent exp 2738 src/decNumber/decNumber.c exp=f->exponent+f->digits; // adjusted to Hull rules exp 2753 src/decNumber/decNumber.c if ((exp & 1)==0) { // even exponent exp 2771 src/decNumber/decNumber.c exp++; // e=e+1 exp 2813 src/decNumber/decNumber.c a->exponent+=exp/2; // set correct exponent exp 2831 src/decNumber/decNumber.c a->exponent-=exp/2; // back to 0.1->1 exp 2850 src/decNumber/decNumber.c approxset.emin-=exp/2; // adjust to match a exp 2851 src/decNumber/decNumber.c approxset.emax-=exp/2; exp 2864 src/decNumber/decNumber.c approxset.emin-=exp/2; // adjust to match a exp 2865 src/decNumber/decNumber.c approxset.emax-=exp/2; exp 2873 src/decNumber/decNumber.c a->exponent+=exp/2; // set correct exponent exp 3399 src/decNumber/decNumber.c Int exp=dn->exponent; // local copy exp 3425 src/decNumber/decNumber.c if (exp!=0 || (*dn->lsu==0 && dn->digits==1)) return; exp 3433 src/decNumber/decNumber.c if (exp==0) { // simple integer [common fastpath] exp 3443 src/decNumber/decNumber.c pre=dn->digits+exp; // digits before '.' exp 3445 src/decNumber/decNumber.c if ((exp>0) || (pre<-5)) { // need exponential form exp 3446 src/decNumber/decNumber.c e=exp+dn->digits-1; // calculate E value exp 4404 src/decNumber/decNumber.c Int exp=lhs->exponent; // save min(exponents) exp 4405 src/decNumber/decNumber.c if (rhs->exponent<exp) exp=rhs->exponent; exp 4410 src/decNumber/decNumber.c res->exponent=exp; // .. with proper exponent exp 4471 src/decNumber/decNumber.c Int exp, expunits, exprem; // work exp 4495 src/decNumber/decNumber.c exp=rhs->exponent-exponent; // RHS padding needed exp 4497 src/decNumber/decNumber.c expunits=exp/DECDPUN; exp 4498 src/decNumber/decNumber.c exprem=exp%DECDPUN; exp 5938 src/decNumber/decNumber.c const Unit *b, Int blength, Int exp) { exp 5946 src/decNumber/decNumber.c if (exp==0) { // aligned; fastpath exp 5961 src/decNumber/decNumber.c if (alength>blength+(Int)D2U(exp)) return 1; exp 5962 src/decNumber/decNumber.c if (alength+1<blength+(Int)D2U(exp)) return -1; exp 5967 src/decNumber/decNumber.c need=blength+D2U(exp); // maximum real length of B exp 5977 src/decNumber/decNumber.c expunits=exp/DECDPUN; exp 5978 src/decNumber/decNumber.c exprem=exp%DECDPUN; exp 6289 src/decNumber/decNumber.c Int d, exp; // work exp 6302 src/decNumber/decNumber.c exp=dn->exponent; exp 6316 src/decNumber/decNumber.c if (exp<=0) { // if digit might be significant exp 6317 src/decNumber/decNumber.c if (exp==0) break; // then quit exp 6318 src/decNumber/decNumber.c exp++; // next digit might be significant exp 349 src/decNumber/decNumberLocal.h # define EXPISSPECIAL(exp) ((exp)>=DECFLOAT_MinSp) exp 350 src/decNumber/decNumberLocal.h # define EXPISINF(exp) (exp==DECFLOAT_Inf) //-V1003 exp 351 src/decNumber/decNumberLocal.h # define EXPISNAN(exp) (exp==DECFLOAT_qNaN || exp==DECFLOAT_sNaN) //-V1003 exp 183 src/dps8/dps8_math.c int exp; exp 184 src/dps8/dps8_math.c long double mant = frexpl(f, &exp); exp 195 src/dps8/dps8_math.c exp -= 1; exp 224 src/dps8/dps8_math.c int e = (int)exp; exp 235 src/dps8/dps8_math.c static long double MYfrexpl(long double x, int *exp) exp 243 src/dps8/dps8_math.c *exp = 0; exp 248 src/dps8/dps8_math.c return -MYfrexpl(-x, exp); exp 282 src/dps8/dps8_math.c *exp = exponent; exp 306 src/dps8/dps8_math.c int exp; exp 307 src/dps8/dps8_math.c long double mant = MYfrexpl(f, &exp); exp 315 src/dps8/dps8_math.c exp -= 1; exp 337 src/dps8/dps8_math.c cpu . rE = exp & MASK8; exp 397 src/dps8/dps8_math.c exp 398 src/dps8/dps8_math.c exp 427 src/dps8/dps8_math.c exp 1946 src/dps8/dps8_math.c exp 1952 src/dps8/dps8_math.c exp 1956 src/dps8/dps8_math.c exp 1958 src/dps8/dps8_math.c exp 268 src/simh/scp.c t_stat tmxr_locate_line_expect (const char *dev_line, EXPECT **exp); exp 3739 src/simh/scp.c EXPECT *exp = NULL; exp 3747 src/simh/scp.c exp = sim_cons_get_expect (); exp 3749 src/simh/scp.c return sim_set_expect (exp, cptr); exp 3751 src/simh/scp.c return sim_set_noexpect (exp, cptr); exp 3758 src/simh/scp.c EXPECT *exp = NULL; exp 3763 src/simh/scp.c r = tmxr_locate_line_expect (gbuf, &exp); exp 3769 src/simh/scp.c exp = sim_cons_get_expect (); exp 3777 src/simh/scp.c return sim_exp_show (st, exp, gbuf); exp 9525 src/simh/scp.c t_stat sim_set_expect (EXPECT *exp, CONST char *cptr) exp 9535 src/simh/scp.c if (exp == NULL) exp 9537 src/simh/scp.c after = exp->after; exp 9561 src/simh/scp.c return sim_exp_set (exp, gbuf, cnt, (after_set ? after : exp->after), sim_switches, cptr); exp 9566 src/simh/scp.c t_stat sim_set_noexpect (EXPECT *exp, const char *cptr) exp 9571 src/simh/scp.c return sim_exp_clrall (exp); /* clear all rules */ exp 9577 src/simh/scp.c return sim_exp_clr (exp, gbuf); /* clear one rule */ exp 9582 src/simh/scp.c CONST EXPTAB *sim_exp_fnd (CONST EXPECT *exp, const char *match, size_t start_rule) exp 9586 src/simh/scp.c if (NULL == exp->rules) exp 9588 src/simh/scp.c for (i=start_rule; i<exp->size; i++) exp 9589 src/simh/scp.c if (!strcmp (exp->rules[i].match_pattern, match)) exp 9590 src/simh/scp.c return &exp->rules[i]; exp 9596 src/simh/scp.c t_stat sim_exp_clr_tab (EXPECT *exp, EXPTAB *ep) exp 9605 src/simh/scp.c exp->size -= 1; /* decrement count */ exp 9607 src/simh/scp.c for (i=ep-exp->rules; i<exp->size; i++) /* shuffle up remaining rules */ exp 9608 src/simh/scp.c exp->rules[i] = exp->rules[i+1]; exp 9609 src/simh/scp.c if (exp->size == 0) { /* No rules left? */ exp 9610 src/simh/scp.c FREE (exp->rules); exp 9611 src/simh/scp.c exp->rules = NULL; exp 9617 src/simh/scp.c t_stat sim_exp_clr (EXPECT *exp, const char *match) exp 9619 src/simh/scp.c EXPTAB *ep = (EXPTAB *)sim_exp_fnd (exp, match, 0); exp 9622 src/simh/scp.c sim_exp_clr_tab (exp, ep); exp 9623 src/simh/scp.c ep = (EXPTAB *)sim_exp_fnd (exp, match, ep - exp->rules); exp 9630 src/simh/scp.c t_stat sim_exp_clrall (EXPECT *exp) exp 9634 src/simh/scp.c for (i=0; i<exp->size; i++) { exp 9635 src/simh/scp.c FREE (exp->rules[i].match); /* deallocate match string */ exp 9636 src/simh/scp.c FREE (exp->rules[i].match_pattern); /* deallocate display format match string */ exp 9637 src/simh/scp.c FREE (exp->rules[i].act); /* deallocate action */ exp 9639 src/simh/scp.c FREE (exp->rules); exp 9640 src/simh/scp.c exp->rules = NULL; exp 9641 src/simh/scp.c exp->size = 0; exp 9642 src/simh/scp.c FREE (exp->buf); exp 9643 src/simh/scp.c exp->buf = NULL; exp 9644 src/simh/scp.c exp->buf_size = 0; exp 9645 src/simh/scp.c exp->buf_ins = 0; exp 9651 src/simh/scp.c t_stat sim_exp_set (EXPECT *exp, const char *match, int32 cnt, uint32 after, int32 switches, const char *act) exp 9671 src/simh/scp.c sim_data_trace(exp->dptr, exp->dptr->units, (const uint8 *)match, "", strlen(match)+1, "Expect Match String", exp->dbit); exp 9678 src/simh/scp.c for (i=0; i<exp->size; i++) { /* Make sure this rule won't be occluded */ exp 9679 src/simh/scp.c if ((0 == strcmp (match, exp->rules[i].match_pattern)) && exp 9680 src/simh/scp.c (exp->rules[i].switches & EXP_TYP_PERSIST)) exp 9683 src/simh/scp.c if (after && exp->size) exp 9685 src/simh/scp.c exp->rules = (EXPTAB *) realloc (exp->rules, sizeof (*exp->rules)*(exp->size + 1)); exp 9686 src/simh/scp.c if (!exp->rules) exp 9698 src/simh/scp.c ep = &exp->rules[exp->size]; exp 9699 src/simh/scp.c exp->size += 1; exp 9700 src/simh/scp.c exp->after = after; /* set halt after value */ exp 9709 src/simh/scp.c sim_exp_clr_tab (exp, ep); /* clear it */ exp 9718 src/simh/scp.c sim_data_trace(exp->dptr, exp->dptr->units, (const uint8 *)match, "", strlen(match)+1, "Expect Match String", exp->dbit); exp 9750 src/simh/scp.c for (i=0; i<exp->size; i++) { exp 9751 src/simh/scp.c size_t compare_size = (exp->rules[i].switches & EXP_TYP_REGEX) ? MAX(10 * strlen(ep->match_pattern), 1024) : exp->rules[i].size; exp 9752 src/simh/scp.c if (compare_size >= exp->buf_size) { exp 9753 src/simh/scp.c exp->buf = (uint8 *)realloc (exp->buf, compare_size + 2); /* Extra byte to null terminate regex compares */ exp 9754 src/simh/scp.c exp->buf_size = compare_size + 1; exp 9762 src/simh/scp.c t_stat sim_exp_show_tab (FILE *st, const EXPECT *exp, const EXPTAB *ep) exp 9784 src/simh/scp.c t_stat sim_exp_show (FILE *st, CONST EXPECT *exp, const char *match) exp 9786 src/simh/scp.c CONST EXPTAB *ep = (CONST EXPTAB *)sim_exp_fnd (exp, match, 0); exp 9788 src/simh/scp.c if (exp->buf_size) { exp 9789 src/simh/scp.c char *bstr = sim_encode_quoted_string (exp->buf, exp->buf_ins); exp 9792 src/simh/scp.c (long long)exp->buf_size); exp 9794 src/simh/scp.c (long long)exp->buf_ins); exp 9799 src/simh/scp.c if (exp->after) exp 9801 src/simh/scp.c (long long)exp->after); exp 9802 src/simh/scp.c if (exp->dptr && exp->dbit) exp 9804 src/simh/scp.c sim_dname(exp->dptr), exp->dptr->debflags ? "=" : "", exp 9805 src/simh/scp.c exp->dptr->debflags ? get_dbg_verb (exp->dbit, exp->dptr) : ""); exp 9808 src/simh/scp.c return sim_exp_showall (st, exp); exp 9814 src/simh/scp.c sim_exp_show_tab (st, exp, ep); exp 9815 src/simh/scp.c ep = (CONST EXPTAB *)sim_exp_fnd (exp, match, 1 + (ep - exp->rules)); exp 9822 src/simh/scp.c t_stat sim_exp_showall (FILE *st, const EXPECT *exp) exp 9826 src/simh/scp.c for (i=0; i < exp->size; i++) exp 9827 src/simh/scp.c sim_exp_show_tab (st, exp, &exp->rules[i]); exp 9833 src/simh/scp.c t_stat sim_exp_check (EXPECT *exp, uint8 data) exp 9842 src/simh/scp.c if ((!exp) || (!exp->rules)) /* Anything to check? */ exp 9845 src/simh/scp.c exp->buf[exp->buf_ins++] = data; /* Save new data */ exp 9846 src/simh/scp.c exp->buf[exp->buf_ins] = '\0'; /* Nul terminate for RegEx match */ exp 9848 src/simh/scp.c for (i=0; i < exp->size; i++) { exp 9849 src/simh/scp.c ep = &exp->rules[i]; exp 9855 src/simh/scp.c if (exp->buf_ins < ep->size) { /* Match stradle end of buffer */ exp 9860 src/simh/scp.c if (exp->buf_ins > 0) { exp 9861 src/simh/scp.c if (sim_deb && exp->dptr && (exp->dptr->dctrl & exp->dbit)) { exp 9862 src/simh/scp.c char *estr = sim_encode_quoted_string (exp->buf, exp->buf_ins); exp 9863 src/simh/scp.c char *mstr = sim_encode_quoted_string (&ep->match[ep->size-exp->buf_ins], exp->buf_ins); exp 9865 src/simh/scp.c sim_debug (exp->dbit, exp->dptr, "Checking String[0:%lld]: %s\n", exp 9866 src/simh/scp.c (long long)exp->buf_ins, estr); exp 9867 src/simh/scp.c sim_debug (exp->dbit, exp->dptr, "Against Match Data: %s\n", mstr); exp 9871 src/simh/scp.c if (memcmp (exp->buf, &ep->match[ep->size-exp->buf_ins], exp->buf_ins)) exp 9874 src/simh/scp.c if (sim_deb && exp->dptr && (exp->dptr->dctrl & exp->dbit)) { exp 9875 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 9876 src/simh/scp.c char *mstr = sim_encode_quoted_string (ep->match, ep->size-exp->buf_ins); exp 9878 src/simh/scp.c sim_debug (exp->dbit, exp->dptr, "Checking String[%lld:%lld]: %s\n", exp 9879 src/simh/scp.c (long long)exp->buf_size-(ep->size-exp->buf_ins), exp 9880 src/simh/scp.c (long long)ep->size-exp->buf_ins, estr); exp 9881 src/simh/scp.c sim_debug (exp->dbit, exp->dptr, "Against Match Data: %s\n", mstr); exp 9885 src/simh/scp.c if (memcmp (&exp->buf[exp->buf_size-(ep->size-exp->buf_ins)], ep->match, ep->size-exp->buf_ins)) exp 9890 src/simh/scp.c if (sim_deb && exp->dptr && (exp->dptr->dctrl & exp->dbit)) { exp 9891 src/simh/scp.c char *estr = sim_encode_quoted_string (&exp->buf[exp->buf_ins-ep->size], ep->size); exp 9894 src/simh/scp.c sim_debug (exp->dbit, exp->dptr, "Checking String[%lld:%lld]: %s\n", exp 9895 src/simh/scp.c (long long)exp->buf_ins-ep->size, exp 9897 src/simh/scp.c sim_debug (exp->dbit, exp->dptr, "Against Match Data: %s\n", mstr); exp 9901 src/simh/scp.c if (memcmp (&exp->buf[exp->buf_ins-ep->size], ep->match, ep->size)) exp 9907 src/simh/scp.c if (exp->buf_ins == exp->buf_size) { /* At end of match buffer? */ exp 9908 src/simh/scp.c exp->buf_ins = 0; /* wrap around to beginning */ exp 9909 src/simh/scp.c sim_debug (exp->dbit, exp->dptr, "Buffer wrapping\n"); exp 9911 src/simh/scp.c if ((ep != NULL) && (i != exp->size)) { /* Found? */ exp 9912 src/simh/scp.c sim_debug (exp->dbit, exp->dptr, "Matched expect pattern!\n"); exp 9915 src/simh/scp.c sim_debug (exp->dbit, exp->dptr, "Waiting for %lld more match%s before stopping\n", exp 9919 src/simh/scp.c uint32 after = exp->after; exp 9922 src/simh/scp.c sim_debug (exp->dbit, exp->dptr, "Initiating actions: %s\n", ep->act); exp 9925 src/simh/scp.c sim_debug (exp->dbit, exp->dptr, "No actions specified, stopping...\n"); exp 9929 src/simh/scp.c sim_exp_clrall (exp); /* delete all rules */ exp 9932 src/simh/scp.c sim_exp_clr_tab (exp, ep); /* delete it */ exp 9936 src/simh/scp.c (uint32)((sim_timer_inst_per_sec ()*exp->after)/1000000.0) : exp 9940 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 2948 src/simh/sim_tmxr.c static t_stat _tmxr_locate_line_send_expect (const char *cptr, SEND **snd, EXPECT **exp) exp 2957 src/simh/sim_tmxr.c if (exp) exp 2958 src/simh/sim_tmxr.c *exp = NULL; exp 2971 src/simh/sim_tmxr.c if (exp) exp 2972 src/simh/sim_tmxr.c *exp = &tmxr_open_devices[i]->ldsc[line].expect; exp 2983 src/simh/sim_tmxr.c t_stat tmxr_locate_line_expect (const char *cptr, EXPECT **exp) exp 2985 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);