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 271 src/simh/scp.c t_stat tmxr_locate_line_expect (const char *dev_line, EXPECT **exp); exp 3811 src/simh/scp.c EXPECT *exp = NULL; exp 3818 src/simh/scp.c exp = sim_cons_get_expect (); exp 3822 src/simh/scp.c return sim_set_expect (exp, cptr); exp 3824 src/simh/scp.c if (exp == NULL) { exp 3825 src/simh/scp.c exp = sim_cons_get_expect(); exp 3827 src/simh/scp.c return sim_set_noexpect (exp, cptr); exp 3835 src/simh/scp.c EXPECT *exp = NULL; exp 3840 src/simh/scp.c r = tmxr_locate_line_expect (gbuf, &exp); exp 3846 src/simh/scp.c exp = sim_cons_get_expect (); exp 3854 src/simh/scp.c return sim_exp_show (st, exp, gbuf); exp 9603 src/simh/scp.c t_stat sim_set_expect (EXPECT *exp, CONST char *cptr) exp 9613 src/simh/scp.c if (exp == NULL) exp 9615 src/simh/scp.c after = exp->after; exp 9639 src/simh/scp.c return sim_exp_set (exp, gbuf, cnt, (after_set ? after : exp->after), sim_switches, cptr); exp 9644 src/simh/scp.c t_stat sim_set_noexpect (EXPECT *exp, const char *cptr) exp 9649 src/simh/scp.c return sim_exp_clrall (exp); /* clear all rules */ exp 9655 src/simh/scp.c return sim_exp_clr (exp, gbuf); /* clear one rule */ exp 9660 src/simh/scp.c CONST EXPTAB *sim_exp_fnd (CONST EXPECT *exp, const char *match, size_t start_rule) exp 9664 src/simh/scp.c if (NULL == exp->rules) exp 9666 src/simh/scp.c for (i=start_rule; i<exp->size; i++) exp 9667 src/simh/scp.c if (!strcmp (exp->rules[i].match_pattern, match)) exp 9668 src/simh/scp.c return &exp->rules[i]; exp 9674 src/simh/scp.c t_stat sim_exp_clr_tab (EXPECT *exp, EXPTAB *ep) exp 9683 src/simh/scp.c exp->size -= 1; /* decrement count */ exp 9685 src/simh/scp.c for (i=ep-exp->rules; i<exp->size; i++) /* shuffle up remaining rules */ exp 9686 src/simh/scp.c exp->rules[i] = exp->rules[i+1]; exp 9687 src/simh/scp.c if (exp->size == 0) { /* No rules left? */ exp 9688 src/simh/scp.c FREE (exp->rules); exp 9689 src/simh/scp.c exp->rules = NULL; exp 9695 src/simh/scp.c t_stat sim_exp_clr (EXPECT *exp, const char *match) exp 9697 src/simh/scp.c EXPTAB *ep = (EXPTAB *)sim_exp_fnd (exp, match, 0); exp 9700 src/simh/scp.c sim_exp_clr_tab (exp, ep); exp 9701 src/simh/scp.c ep = (EXPTAB *)sim_exp_fnd (exp, match, ep - exp->rules); exp 9708 src/simh/scp.c t_stat sim_exp_clrall (EXPECT *exp) exp 9712 src/simh/scp.c for (i=0; i<exp->size; i++) { exp 9713 src/simh/scp.c FREE (exp->rules[i].match); /* deallocate match string */ exp 9714 src/simh/scp.c FREE (exp->rules[i].match_pattern); /* deallocate display format match string */ exp 9715 src/simh/scp.c FREE (exp->rules[i].act); /* deallocate action */ exp 9717 src/simh/scp.c FREE (exp->rules); exp 9718 src/simh/scp.c exp->rules = NULL; exp 9719 src/simh/scp.c exp->size = 0; exp 9720 src/simh/scp.c FREE (exp->buf); exp 9721 src/simh/scp.c exp->buf = NULL; exp 9722 src/simh/scp.c exp->buf_size = 0; exp 9723 src/simh/scp.c exp->buf_ins = 0; exp 9729 src/simh/scp.c t_stat sim_exp_set (EXPECT *exp, const char *match, int32 cnt, uint32 after, int32 switches, const char *act) exp 9749 src/simh/scp.c sim_data_trace(exp->dptr, exp->dptr->units, (const uint8 *)match, "", strlen(match)+1, "Expect Match String", exp->dbit); exp 9756 src/simh/scp.c for (i=0; i<exp->size; i++) { /* Make sure this rule won't be occluded */ exp 9757 src/simh/scp.c if ((0 == strcmp (match, exp->rules[i].match_pattern)) && exp 9758 src/simh/scp.c (exp->rules[i].switches & EXP_TYP_PERSIST)) exp 9761 src/simh/scp.c if (after && exp->size) exp 9763 src/simh/scp.c exp->rules = (EXPTAB *) realloc (exp->rules, sizeof (*exp->rules)*(exp->size + 1)); exp 9764 src/simh/scp.c if (!exp->rules) exp 9776 src/simh/scp.c ep = &exp->rules[exp->size]; exp 9777 src/simh/scp.c exp->size += 1; exp 9778 src/simh/scp.c exp->after = after; /* set halt after value */ exp 9787 src/simh/scp.c sim_exp_clr_tab (exp, ep); /* clear it */ exp 9796 src/simh/scp.c sim_data_trace(exp->dptr, exp->dptr->units, (const uint8 *)match, "", strlen(match)+1, "Expect Match String", exp->dbit); exp 9828 src/simh/scp.c for (i=0; i<exp->size; i++) { exp 9829 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 9830 src/simh/scp.c if (compare_size >= exp->buf_size) { exp 9831 src/simh/scp.c exp->buf = (uint8 *)realloc (exp->buf, compare_size + 2); /* Extra byte to null terminate regex compares */ exp 9832 src/simh/scp.c exp->buf_size = compare_size + 1; exp 9840 src/simh/scp.c t_stat sim_exp_show_tab (FILE *st, const EXPECT *exp, const EXPTAB *ep) exp 9862 src/simh/scp.c t_stat sim_exp_show (FILE *st, CONST EXPECT *exp, const char *match) exp 9864 src/simh/scp.c CONST EXPTAB *ep = (CONST EXPTAB *)sim_exp_fnd (exp, match, 0); exp 9866 src/simh/scp.c if (exp->buf_size) { exp 9867 src/simh/scp.c char *bstr = sim_encode_quoted_string (exp->buf, exp->buf_ins); exp 9870 src/simh/scp.c (long long)exp->buf_size); exp 9872 src/simh/scp.c (long long)exp->buf_ins); exp 9877 src/simh/scp.c if (exp->after) exp 9879 src/simh/scp.c (long long)exp->after); exp 9880 src/simh/scp.c if (exp->dptr && exp->dbit) exp 9882 src/simh/scp.c sim_dname(exp->dptr), exp->dptr->debflags ? "=" : "", exp 9883 src/simh/scp.c exp->dptr->debflags ? get_dbg_verb (exp->dbit, exp->dptr) : ""); exp 9886 src/simh/scp.c return sim_exp_showall (st, exp); exp 9892 src/simh/scp.c sim_exp_show_tab (st, exp, ep); exp 9893 src/simh/scp.c ep = (CONST EXPTAB *)sim_exp_fnd (exp, match, 1 + (ep - exp->rules)); exp 9900 src/simh/scp.c t_stat sim_exp_showall (FILE *st, const EXPECT *exp) exp 9904 src/simh/scp.c for (i=0; i < exp->size; i++) exp 9905 src/simh/scp.c sim_exp_show_tab (st, exp, &exp->rules[i]); exp 9911 src/simh/scp.c t_stat sim_exp_check (EXPECT *exp, uint8 data) exp 9920 src/simh/scp.c if ((!exp) || (!exp->rules)) /* Anything to check? */ exp 9923 src/simh/scp.c exp->buf[exp->buf_ins++] = data; /* Save new data */ exp 9924 src/simh/scp.c exp->buf[exp->buf_ins] = '\0'; /* Nul terminate for RegEx match */ exp 9926 src/simh/scp.c for (i=0; i < exp->size; i++) { exp 9927 src/simh/scp.c ep = &exp->rules[i]; exp 9933 src/simh/scp.c if (exp->buf_ins < ep->size) { /* Match stradle end of buffer */ exp 9938 src/simh/scp.c if (exp->buf_ins > 0) { exp 9939 src/simh/scp.c if (sim_deb && exp->dptr && (exp->dptr->dctrl & exp->dbit)) { exp 9940 src/simh/scp.c char *estr = sim_encode_quoted_string (exp->buf, exp->buf_ins); exp 9941 src/simh/scp.c char *mstr = sim_encode_quoted_string (&ep->match[ep->size-exp->buf_ins], exp->buf_ins); exp 9943 src/simh/scp.c sim_debug (exp->dbit, exp->dptr, "Checking String[0:%lld]: %s\n", exp 9944 src/simh/scp.c (long long)exp->buf_ins, estr); exp 9945 src/simh/scp.c sim_debug (exp->dbit, exp->dptr, "Against Match Data: %s\n", mstr); exp 9949 src/simh/scp.c if (memcmp (exp->buf, &ep->match[ep->size-exp->buf_ins], exp->buf_ins)) exp 9952 src/simh/scp.c if (sim_deb && exp->dptr && (exp->dptr->dctrl & exp->dbit)) { exp 9953 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 9954 src/simh/scp.c char *mstr = sim_encode_quoted_string (ep->match, ep->size-exp->buf_ins); exp 9956 src/simh/scp.c sim_debug (exp->dbit, exp->dptr, "Checking String[%lld:%lld]: %s\n", exp 9957 src/simh/scp.c (long long)exp->buf_size-(ep->size-exp->buf_ins), exp 9958 src/simh/scp.c (long long)ep->size-exp->buf_ins, estr); exp 9959 src/simh/scp.c sim_debug (exp->dbit, exp->dptr, "Against Match Data: %s\n", mstr); exp 9963 src/simh/scp.c if (memcmp (&exp->buf[exp->buf_size-(ep->size-exp->buf_ins)], ep->match, ep->size-exp->buf_ins)) exp 9968 src/simh/scp.c if (sim_deb && exp->dptr && (exp->dptr->dctrl & exp->dbit)) { exp 9969 src/simh/scp.c char *estr = sim_encode_quoted_string (&exp->buf[exp->buf_ins-ep->size], ep->size); exp 9972 src/simh/scp.c sim_debug (exp->dbit, exp->dptr, "Checking String[%lld:%lld]: %s\n", exp 9973 src/simh/scp.c (long long)exp->buf_ins-ep->size, exp 9975 src/simh/scp.c sim_debug (exp->dbit, exp->dptr, "Against Match Data: %s\n", mstr); exp 9979 src/simh/scp.c if (memcmp (&exp->buf[exp->buf_ins-ep->size], ep->match, ep->size)) exp 9985 src/simh/scp.c if (exp->buf_ins == exp->buf_size) { /* At end of match buffer? */ exp 9986 src/simh/scp.c exp->buf_ins = 0; /* wrap around to beginning */ exp 9987 src/simh/scp.c sim_debug (exp->dbit, exp->dptr, "Buffer wrapping\n"); exp 9989 src/simh/scp.c if ((ep != NULL) && (i != exp->size)) { /* Found? */ exp 9990 src/simh/scp.c sim_debug (exp->dbit, exp->dptr, "Matched expect pattern!\n"); exp 9993 src/simh/scp.c sim_debug (exp->dbit, exp->dptr, "Waiting for %lld more match%s before stopping\n", exp 9997 src/simh/scp.c uint32 after = exp->after; exp 10000 src/simh/scp.c sim_debug (exp->dbit, exp->dptr, "Initiating actions: %s\n", ep->act); exp 10003 src/simh/scp.c sim_debug (exp->dbit, exp->dptr, "No actions specified, stopping...\n"); exp 10007 src/simh/scp.c sim_exp_clrall (exp); /* delete all rules */ exp 10010 src/simh/scp.c sim_exp_clr_tab (exp, ep); /* delete it */ exp 10014 src/simh/scp.c (uint32)((sim_timer_inst_per_sec ()*exp->after)/1000000.0) : exp 10018 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);