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 3513 src/simh/scp.c EXPECT *exp = NULL; exp 3521 src/simh/scp.c exp = sim_cons_get_expect (); exp 3523 src/simh/scp.c return sim_set_expect (exp, cptr); exp 3525 src/simh/scp.c return sim_set_noexpect (exp, cptr); exp 3532 src/simh/scp.c EXPECT *exp = NULL; exp 3537 src/simh/scp.c r = tmxr_locate_line_expect (gbuf, &exp); exp 3543 src/simh/scp.c exp = sim_cons_get_expect (); exp 3551 src/simh/scp.c return sim_exp_show (st, exp, gbuf); exp 8950 src/simh/scp.c t_stat sim_set_expect (EXPECT *exp, CONST char *cptr) exp 8960 src/simh/scp.c if (exp == NULL) exp 8962 src/simh/scp.c after = exp->after; exp 8986 src/simh/scp.c return sim_exp_set (exp, gbuf, cnt, (after_set ? after : exp->after), sim_switches, cptr); exp 8991 src/simh/scp.c t_stat sim_set_noexpect (EXPECT *exp, const char *cptr) exp 8996 src/simh/scp.c return sim_exp_clrall (exp); /* clear all rules */ exp 9002 src/simh/scp.c return sim_exp_clr (exp, gbuf); /* clear one rule */ exp 9007 src/simh/scp.c CONST EXPTAB *sim_exp_fnd (CONST EXPECT *exp, const char *match, int32 start_rule) exp 9011 src/simh/scp.c if (!exp->rules) exp 9013 src/simh/scp.c for (i=start_rule; i<exp->size; i++) exp 9014 src/simh/scp.c if (!strcmp (exp->rules[i].match_pattern, match)) exp 9015 src/simh/scp.c return &exp->rules[i]; exp 9021 src/simh/scp.c t_stat sim_exp_clr_tab (EXPECT *exp, EXPTAB *ep) exp 9030 src/simh/scp.c exp->size -= 1; /* decrement count */ exp 9032 src/simh/scp.c for (i=ep-exp->rules; i<exp->size; i++) /* shuffle up remaining rules */ exp 9033 src/simh/scp.c exp->rules[i] = exp->rules[i+1]; exp 9034 src/simh/scp.c if (exp->size == 0) { /* No rules left? */ exp 9035 src/simh/scp.c FREE (exp->rules); exp 9036 src/simh/scp.c exp->rules = NULL; exp 9042 src/simh/scp.c t_stat sim_exp_clr (EXPECT *exp, const char *match) exp 9044 src/simh/scp.c EXPTAB *ep = (EXPTAB *)sim_exp_fnd (exp, match, 0); exp 9047 src/simh/scp.c sim_exp_clr_tab (exp, ep); exp 9048 src/simh/scp.c ep = (EXPTAB *)sim_exp_fnd (exp, match, ep - exp->rules); exp 9055 src/simh/scp.c t_stat sim_exp_clrall (EXPECT *exp) exp 9059 src/simh/scp.c for (i=0; i<exp->size; i++) { exp 9060 src/simh/scp.c FREE (exp->rules[i].match); /* deallocate match string */ exp 9061 src/simh/scp.c FREE (exp->rules[i].match_pattern); /* deallocate display format match string */ exp 9062 src/simh/scp.c FREE (exp->rules[i].act); /* deallocate action */ exp 9064 src/simh/scp.c FREE (exp->rules); exp 9065 src/simh/scp.c exp->rules = NULL; exp 9066 src/simh/scp.c exp->size = 0; exp 9067 src/simh/scp.c FREE (exp->buf); exp 9068 src/simh/scp.c exp->buf = NULL; exp 9069 src/simh/scp.c exp->buf_size = 0; exp 9070 src/simh/scp.c exp->buf_ins = 0; exp 9076 src/simh/scp.c t_stat sim_exp_set (EXPECT *exp, const char *match, int32 cnt, uint32 after, int32 switches, const char *act) exp 9096 src/simh/scp.c sim_data_trace(exp->dptr, exp->dptr->units, (const uint8 *)match, "", strlen(match)+1, "Expect Match String", exp->dbit); exp 9103 src/simh/scp.c for (i=0; i<exp->size; i++) { /* Make sure this rule won't be occluded */ exp 9104 src/simh/scp.c if ((0 == strcmp (match, exp->rules[i].match_pattern)) && exp 9105 src/simh/scp.c (exp->rules[i].switches & EXP_TYP_PERSIST)) exp 9108 src/simh/scp.c if (after && exp->size) exp 9110 src/simh/scp.c exp->rules = (EXPTAB *) realloc (exp->rules, sizeof (*exp->rules)*(exp->size + 1)); exp 9111 src/simh/scp.c if (!exp->rules) exp 9123 src/simh/scp.c ep = &exp->rules[exp->size]; exp 9124 src/simh/scp.c exp->size += 1; exp 9125 src/simh/scp.c exp->after = after; /* set halt after value */ exp 9134 src/simh/scp.c sim_exp_clr_tab (exp, ep); /* clear it */ exp 9143 src/simh/scp.c sim_data_trace(exp->dptr, exp->dptr->units, (const uint8 *)match, "", strlen(match)+1, "Expect Match String", exp->dbit); exp 9175 src/simh/scp.c for (i=0; i<exp->size; i++) { exp 9176 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 9177 src/simh/scp.c if (compare_size >= exp->buf_size) { exp 9178 src/simh/scp.c exp->buf = (uint8 *)realloc (exp->buf, compare_size + 2); /* Extra byte to null terminate regex compares */ exp 9179 src/simh/scp.c exp->buf_size = compare_size + 1; exp 9187 src/simh/scp.c t_stat sim_exp_show_tab (FILE *st, const EXPECT *exp, const EXPTAB *ep) exp 9209 src/simh/scp.c t_stat sim_exp_show (FILE *st, CONST EXPECT *exp, const char *match) exp 9211 src/simh/scp.c CONST EXPTAB *ep = (CONST EXPTAB *)sim_exp_fnd (exp, match, 0); exp 9213 src/simh/scp.c if (exp->buf_size) { exp 9214 src/simh/scp.c char *bstr = sim_encode_quoted_string (exp->buf, exp->buf_ins); exp 9216 src/simh/scp.c fprintf (st, "Match Buffer Size: %d\n", exp->buf_size); exp 9217 src/simh/scp.c fprintf (st, "Buffer Insert Offset: %d\n", exp->buf_ins); exp 9221 src/simh/scp.c if (exp->after) exp 9222 src/simh/scp.c fprintf (st, "Halt After: %d instructions\n", exp->after); exp 9223 src/simh/scp.c if (exp->dptr && exp->dbit) exp 9224 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 9227 src/simh/scp.c return sim_exp_showall (st, exp); exp 9233 src/simh/scp.c sim_exp_show_tab (st, exp, ep); exp 9234 src/simh/scp.c ep = (CONST EXPTAB *)sim_exp_fnd (exp, match, 1 + (ep - exp->rules)); exp 9241 src/simh/scp.c t_stat sim_exp_showall (FILE *st, const EXPECT *exp) exp 9245 src/simh/scp.c for (i=0; i < exp->size; i++) exp 9246 src/simh/scp.c sim_exp_show_tab (st, exp, &exp->rules[i]); exp 9252 src/simh/scp.c t_stat sim_exp_check (EXPECT *exp, uint8 data) exp 9258 src/simh/scp.c if ((!exp) || (!exp->rules)) /* Anything to check? */ exp 9261 src/simh/scp.c exp->buf[exp->buf_ins++] = data; /* Save new data */ exp 9262 src/simh/scp.c exp->buf[exp->buf_ins] = '\0'; /* Nul terminate for RegEx match */ exp 9264 src/simh/scp.c for (i=0; i < exp->size; i++) { exp 9265 src/simh/scp.c ep = &exp->rules[i]; exp 9271 src/simh/scp.c if (exp->buf_ins < ep->size) { /* Match stradle end of buffer */ exp 9276 src/simh/scp.c if (exp->buf_ins) { exp 9277 src/simh/scp.c if (sim_deb && exp->dptr && (exp->dptr->dctrl & exp->dbit)) { exp 9278 src/simh/scp.c char *estr = sim_encode_quoted_string (exp->buf, exp->buf_ins); exp 9279 src/simh/scp.c char *mstr = sim_encode_quoted_string (&ep->match[ep->size-exp->buf_ins], exp->buf_ins); exp 9281 src/simh/scp.c sim_debug (exp->dbit, exp->dptr, "Checking String[0:%d]: %s\n", exp->buf_ins, estr); exp 9282 src/simh/scp.c sim_debug (exp->dbit, exp->dptr, "Against Match Data: %s\n", mstr); exp 9286 src/simh/scp.c if (memcmp (exp->buf, &ep->match[ep->size-exp->buf_ins], exp->buf_ins)) exp 9289 src/simh/scp.c if (sim_deb && exp->dptr && (exp->dptr->dctrl & exp->dbit)) { exp 9290 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 9291 src/simh/scp.c char *mstr = sim_encode_quoted_string (ep->match, ep->size-exp->buf_ins); exp 9293 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 9294 src/simh/scp.c sim_debug (exp->dbit, exp->dptr, "Against Match Data: %s\n", mstr); exp 9298 src/simh/scp.c if (memcmp (&exp->buf[exp->buf_size-(ep->size-exp->buf_ins)], ep->match, ep->size-exp->buf_ins)) exp 9303 src/simh/scp.c if (sim_deb && exp->dptr && (exp->dptr->dctrl & exp->dbit)) { exp 9304 src/simh/scp.c char *estr = sim_encode_quoted_string (&exp->buf[exp->buf_ins-ep->size], ep->size); exp 9307 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 9308 src/simh/scp.c sim_debug (exp->dbit, exp->dptr, "Against Match Data: %s\n", mstr); exp 9312 src/simh/scp.c if (memcmp (&exp->buf[exp->buf_ins-ep->size], ep->match, ep->size)) exp 9318 src/simh/scp.c if (exp->buf_ins == exp->buf_size) { /* At end of match buffer? */ exp 9319 src/simh/scp.c exp->buf_ins = 0; /* wrap around to beginning */ exp 9320 src/simh/scp.c sim_debug (exp->dbit, exp->dptr, "Buffer wrapping\n"); exp 9322 src/simh/scp.c if ((ep != NULL) && (i != exp->size)) { /* Found? */ exp 9323 src/simh/scp.c sim_debug (exp->dbit, exp->dptr, "Matched expect pattern!\n"); exp 9326 src/simh/scp.c sim_debug (exp->dbit, exp->dptr, "Waiting for %d more match%s before stopping\n", exp 9330 src/simh/scp.c uint32 after = exp->after; exp 9333 src/simh/scp.c sim_debug (exp->dbit, exp->dptr, "Initiating actions: %s\n", ep->act); exp 9336 src/simh/scp.c sim_debug (exp->dbit, exp->dptr, "No actions specified, stopping...\n"); exp 9340 src/simh/scp.c sim_exp_clrall (exp); /* delete all rules */ exp 9343 src/simh/scp.c sim_exp_clr_tab (exp, ep); /* delete it */ exp 9347 src/simh/scp.c (uint32)((sim_timer_inst_per_sec ()*exp->after)/1000000.0) : exp 9351 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 2852 src/simh/sim_tmxr.c static t_stat _tmxr_locate_line_send_expect (const char *cptr, SEND **snd, EXPECT **exp) exp 2861 src/simh/sim_tmxr.c if (exp) exp 2862 src/simh/sim_tmxr.c *exp = NULL; exp 2875 src/simh/sim_tmxr.c if (exp) exp 2876 src/simh/sim_tmxr.c *exp = &tmxr_open_devices[i]->ldsc[line].expect; exp 2887 src/simh/sim_tmxr.c t_stat tmxr_locate_line_expect (const char *cptr, EXPECT **exp) exp 2889 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);