/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ |
H A D | thrdvar.h | 45 PERLVAR(Tscopestack, I32 *) /* scopes we've ENTERed */ 46 PERLVAR(Tscopestack_ix, I32) 47 PERLVAR(Tscopestack_max,I32) 51 PERLVAR(Tsavestack_ix, I32) 52 PERLVAR(Tsavestack_max, I32) 55 PERLVARI(Ttmps_ix, I32, -1) 56 PERLVARI(Ttmps_floor, I32, -1) 57 PERLVAR(Ttmps_max, I32) 59 PERLVAR(Tmarkstack, I32 *) /* stack_sp locations we're remembering */ 60 PERLVAR(Tmarkstack_ptr, I32 *) [all...] |
H A D | proto.h | 55 PERL_CALLCONV CV* Perl_gv_handler(pTHX_ HV* stash, I32 id); 56 PERL_CALLCONV OP* Perl_append_elem(pTHX_ I32 optype, OP* head, OP* tail); 57 PERL_CALLCONV OP* Perl_append_list(pTHX_ I32 optype, LISTOP* first, LISTOP* last); 58 PERL_CALLCONV I32 Perl_apply(pTHX_ I32 type, SV** mark, SV** sp); 60 PERL_CALLCONV SV* Perl_avhv_delete_ent(pTHX_ AV *ar, SV* keysv, I32 flags, U32 hash); 62 PERL_CALLCONV SV** Perl_avhv_fetch_ent(pTHX_ AV *ar, SV* keysv, I32 lval, U32 hash); 68 PERL_CALLCONV SV* Perl_av_delete(pTHX_ AV* ar, I32 key, I32 flags); 69 PERL_CALLCONV bool Perl_av_exists(pTHX_ AV* ar, I32 ke [all...] |
H A D | intrpvar.h | 70 PERLVARI(Imaxsysfd, I32, MAXSYSFD) 73 PERLVAR(Istatusvalue, I32) /* $? */ 140 PERLVAR(Isv_count, I32) /* how many SV* are currently allocated */ 141 PERLVAR(Isv_objcount, I32) /* how many objects are currently allocated */ 172 PERLVARI(Igensym, I32, 0) /* next symbol for getsym() to define */ 176 PERLVARI(Ilaststype, I32, OP_STAT) 186 PERLVARI(Iexitlistlen, I32, 0) /* length of same */ 212 PERLVAR(Icomppad_name_fill, I32) /* last "introduced" variable offset */ 213 PERLVAR(Icomppad_name_floor, I32) /* start of vars in innermost block */ 299 PERLVARI(Icshlen, I32, [all...] |
H A D | regexp.h | 32 I32 *startp; 33 I32 *endp; 41 I32 sublen; /* Length of string pointed by subbeg */ 42 I32 refcnt; 43 I32 minlen; /* mininum possible length of $& */ 44 I32 prelen; /* length of precomp */
|
H A D | deb.c | 64 I32 93 S_deb_stack_n(pTHX_ SV** stack_base, I32 stack_min, I32 stack_max, 94 I32 mark_min, I32 mark_max) 97 register I32 i = stack_max - 30; 98 I32 *markscan = PL_markstack + mark_min; 133 I32 176 I32 ix, si_ix; 215 I32 [all...] |
H A D | doop.c | 23 STATIC I32 30 I32 matches = 0; 31 I32 grows = PL_op->op_private & OPpTRANS_GROWS; 34 I32 ch; 93 STATIC I32 98 I32 matches = 0; 101 I32 complement = PL_op->op_private & OPpTRANS_COMPLEMENT; 131 STATIC I32 138 I32 isutf8; 139 I32 matche [all...] |
H A D | numeric.c | 28 return f < I32_MIN ? (U32) I32_MIN : (U32)(I32) f; 42 I32 46 return f < I32_MIN ? I32_MIN : (I32) f; 50 return (I32)(U32) f; 52 return (I32)(((U32) f) | (1 + U32_MAX >> 1)); 54 return (I32)(U32) f; 57 return f > 0 ? (I32)U32_MAX : 0 /* NaN */; 139 Perl_grok_bin(pTHX_ char *start, STRLEN *len_p, I32 *flags, NV *result) { 253 Perl_grok_hex(pTHX_ char *start, STRLEN *len_p, I32 *flags, NV *result) { 350 Perl_grok_oct(pTHX_ char *start, STRLEN *len_p, I32 *flag [all...] |
H A D | pp_sort.c | 25 static I32 sortcv(pTHX_ SV *a, SV *b); 26 static I32 sortcv_stacked(pTHX_ SV *a, SV *b); 27 static I32 sortcv_xsub(pTHX_ SV *a, SV *b); 28 static I32 sv_ncmp(pTHX_ SV *a, SV *b); 29 static I32 sv_i_ncmp(pTHX_ SV *a, SV *b); 30 static I32 amagic_ncmp(pTHX_ SV *a, SV *b); 31 static I32 amagic_i_ncmp(pTHX_ SV *a, SV *b); 32 static I32 amagic_cmp(pTHX_ SV *a, SV *b); 33 static I32 amagic_cmp_locale(pTHX_ SV *a, SV *b); 40 (SvIOK(hintsv) ? ((I32)SvI [all...] |
H A D | hv.c | 81 S_save_hek_flags(pTHX_ const char *str, I32 len, U32 hash, int flags) 153 S_hv_notallowed(pTHX_ int flags, const char *key, I32 klen, 207 Perl_hv_store(pTHX_ HV *hv, const char *key, I32 klen_i32, SV *val, U32 hash) 226 Perl_hv_store_flags(pTHX_ HV *hv, const char *key, I32 klen, SV *val, 279 Perl_hv_exists(pTHX_ HV *hv, const char *key, I32 klen_i32) 310 Perl_hv_fetch(pTHX_ HV *hv, const char *key, I32 klen_i32, I32 lval) 366 Perl_hv_fetch_ent(pTHX_ HV *hv, SV *keysv, I32 lval, register U32 hash) 627 /* entry = (HvARRAY(hv))[hash & (I32) HvMAX(hv)]; */ 628 entry = ((HE**)xhv->xhv_array)[hash & (I32) xh [all...] |
H A D | scope.c | 70 Perl_new_stackinfo(pTHX_ I32 stitems, I32 cxitems) 91 I32 127 Renew(PL_scopestack, PL_scopestack_max, I32); 136 I32 oldsave = PL_scopestack[--PL_scopestack_ix]; 143 I32 oldmax = PL_markstack_max - PL_markstack; 144 I32 newmax = GROW(oldmax); 146 Renew(PL_markstack, newmax, I32); 159 Perl_savestack_grow_cnt(pTHX_ I32 need) 168 Perl_tmps_grow(pTHX_ I32 [all...] |
H A D | av.c | 27 I32 key; 62 Perl_av_extend(pTHX_ AV *av, I32 key) 83 I32 tmp; 84 I32 newmax; 183 Perl_av_fetch(pTHX_ register AV *av, I32 key, I32 lval) 269 Perl_av_store(pTHX_ register AV *av, I32 key, SV *val) 375 Perl_av_make(pTHX_ register I32 size, register SV **strp) 378 register I32 i; 401 Perl_av_fake(pTHX_ register I32 siz [all...] |
H A D | pp_ctl.c | 30 static I32 run_user_filter(pTHX_ int idx, SV *buf_sv, int maxlen); 35 I32 cxix; 98 PM_GETRE(pm)->prelen != (I32)len || 173 I32 saviters = cx->sb_iters; 243 I32 i; 304 rx->sublen = (I32)(*p++); 306 rx->startp[i] = (I32)(*p++); 307 rx->endp[i] = (I32)(*p++); 332 register I32 arg; 335 I32 itemsiz [all...] |
H A D | perly.h | 66 I32 ival;
|
H A D | cop.h | 27 I32 cop_arybase; /* array base this line was compiled with */ 212 I32 old_in_eval; 213 I32 old_op_type; 242 I32 resetsp; 305 I32 blku_oldsp; /* stack pointer to copy stuff down to */ 307 I32 blku_oldretsp; /* return stack index */ 308 I32 blku_oldmarksp; /* mark stack index */ 309 I32 blku_oldscopesp; /* scope stack index */ 367 I32 sbu_iters; 368 I32 sbu_maxiter [all...] |
H A D | pad.c | 223 I32 ix; 393 Perl_pad_alloc(pTHX_ I32 optype, U32 tmptype) 396 I32 retval; 504 /* XXX DAPM - why the (I32) cast - shouldn't we ensure they're the same 506 for (off = top; (I32)off > PL_comppad_name_floor; off--) { 561 I32 off; 562 I32 fake_off = 0; 563 I32 our_off = 0; 639 I32 off = 0; 643 I32 dept [all...] |
H A D | regexec.c | 165 S_regcppush(pTHX_ I32 parenfloor) 211 I32 i; 214 I32 tmps; 244 if ((I32)(*PL_reglastparen + 1) <= PL_regnpar) { 261 for (paren = *PL_reglastparen + 1; (I32)paren <= PL_regnpar; paren++) { 262 if ((I32)paren > PL_regsize) 271 S_regcp_set_to(pTHX_ I32 ss) 273 I32 tmp = PL_savestack_ix; 283 I32 ss; 315 I32 [all...] |
H A D | pp.c | 51 I32 gimme; 66 I32 maxarg = AvFILL((AV*)TARG) + 1; 82 I32 maxarg = AvFILL((AV*)TARG) + 1; 92 I32 gimme; 325 I32 i = mg->mg_len; 377 #define MAX_ARGS_OP ((sizeof(I32) - 1) * 2) 379 I32 oa; 619 register I32 pos; 620 register I32 ch; 621 register I32 *sfirs [all...] |
H A D | util.c | 221 Perl_delimcpy(pTHX_ register char *to, register char *toend, register char *from, register char *fromend, register int delim, I32 *retlen) 223 register I32 tolen; 253 register I32 first; 283 register I32 first = *little; 313 register I32 first = *little; 361 I32 rarest = 0; 436 register I32 multiline = flags & FBMrf_MULTILINE; 575 register I32 tmp; 626 Perl_screaminstr(pTHX_ SV *bigstr, SV *littlestr, I32 start_shift, I32 end_shif [all...] |
H A D | pp_sys.c | 315 I32 gimme = GIMME_V; 558 PUSHi( (I32)PL_forkprocess ); 782 I32 markoff = MARK - PL_stack_base; 820 EXTEND(SP,(I32)items); 838 EXTEND(SP,(I32)items); 990 register I32 i; 991 register I32 j; 995 I32 maxlen = 0; 996 I32 nfound; 999 I32 growsiz [all...] |
H A D | regcomp.c | 118 I32 whilem_seen; /* number of WHILEM in this expr */ 121 I32 naughty; /* How bad is this pattern? */ 122 I32 sawback; /* Did we see \1, ...? */ 124 I32 size; /* Code size. */ 125 I32 npar; /* () count. */ 126 I32 extralen; 127 I32 seen_zerolen; 128 I32 seen_evals; 129 I32 utf8; /* whether the pattern is utf8 or not */ 130 I32 orig_utf [all...] |
H A D | op.c | 37 * To make incrementing use count easy PL_OpSlab is an I32 * 38 * To make inserting the link to slab PL_OpPtr is I32 ** 39 * So compute size in units of sizeof(I32 *) as that is how Pl_OpPtr increments 42 sz = (sz + 2*sizeof(I32 *) -1)/sizeof(I32 *); 44 PL_OpPtr = (I32 **) PerlMemShared_malloc(PERL_SLAB_SIZE*sizeof(I32*)); 48 Zero(PL_OpPtr,PERL_SLAB_SIZE,I32 **); 49 /* We reserve the 0'th I32 sized chunk as a use count */ 50 PL_OpSlab = (I32 *) PL_OpPt [all...] |
H A D | mg.c | 74 I32 mgs_ss_ix; 79 S_save_magic(pTHX_ I32 mgs_ix, SV *sv) 134 I32 mgs_ix = SSNEW(sizeof(MGS)); 198 I32 mgs_ix; 237 I32 mgs_ix; 258 I32 262 I32 len; 267 I32 mgs_ix; 302 I32 mgs_ix; 350 Perl_mg_copy(pTHX_ SV *sv, SV *nsv, const char *key, I32 kle [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/re/ |
H A D | re.xs | 13 extern I32 my_regexec (pTHX_ regexp* prog, char* stringarg, char* strend, 14 char* strbeg, I32 minend, SV* screamer,
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Data/Dumper/ |
H A D | Dumper.xs | 6 static I32 num_q (char *s, STRLEN slen); 7 static I32 esc_q (char *dest, char *src, STRLEN slen); 8 static I32 esc_q_utf8 (pTHX_ SV *sv, char *src, STRLEN slen); 9 static SV *sv_x (pTHX_ SV *sv, char *str, STRLEN len, I32 n); 10 static I32 DD_dump (pTHX_ SV *val, char *name, STRLEN namelen, SV *retval, 11 HV *seenhv, AV *postav, I32 *levelp, I32 indent, 14 I32 purity, I32 deepcopy, I32 quotekey [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Storable/ |
H A D | Storable.xs | 411 #define LOW_32BITS(x) ((I32) (x)) 413 #define LOW_32BITS(x) ((I32) ((unsigned long) (x) & 0xffffffffUL)) 419 * Hack for Crays, where sizeof(I32) == 8, and which are big-endians. 424 #define oI(x) ((I32 *) ((char *) (x) + 4)) 817 ASSERT(sizeof(x) == sizeof(I32), ("writing an I32")); \ 895 ASSERT(sizeof(x) == sizeof(I32), ("reading an I32")); \ 1690 I32 flags) 1792 I32 *classnu [all...] |