X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=proto.h;h=5110345ccfdf79fd28b1e99527c4a937c00140ee;hb=1189d1e4ec2aeb7f9bc79c90e6eb01859b7730ab;hp=ae4157cf0cb774f0aa65a8d5a5830207defbb6f2;hpb=894237640a8731055a749592e01318892443c38d;p=p5sagit%2Fp5-mst-13.2.git diff --git a/proto.h b/proto.h index ae4157c..5110345 100644 --- a/proto.h +++ b/proto.h @@ -24,11 +24,11 @@ PERL_CALLCONV PerlInterpreter* perl_clone_using(PerlInterpreter *interp, UV flag # endif #endif -#if defined(MYMALLOC) PERL_CALLCONV Malloc_t Perl_malloc(MEM_SIZE nbytes); PERL_CALLCONV Malloc_t Perl_calloc(MEM_SIZE elements, MEM_SIZE size); PERL_CALLCONV Malloc_t Perl_realloc(Malloc_t where, MEM_SIZE nbytes); PERL_CALLCONV Free_t Perl_mfree(Malloc_t where); +#if defined(MYMALLOC) PERL_CALLCONV MEM_SIZE Perl_malloced_size(void *p); #endif @@ -1258,6 +1258,7 @@ STATIC void S_force_next(pTHX_ I32 type); STATIC char* S_force_version(pTHX_ char *start); STATIC char* S_force_word(pTHX_ char *start, int token, int check_keyword, int allow_pack, int allow_tick); STATIC SV* S_tokeq(pTHX_ SV *sv); +STATIC int S_pending_ident(pTHX); STATIC char* S_scan_const(pTHX_ char *start); STATIC char* S_scan_formline(pTHX_ char *s); STATIC char* S_scan_heredoc(pTHX_ char *s);