diff options
-rw-r--r-- | deb.c | 26 | ||||
-rw-r--r-- | embed.fnc | 6 |
2 files changed, 29 insertions, 3 deletions
@@ -41,6 +41,24 @@ Perl_deb_nocontext(const char *pat, ...) } #endif +/* +=for apidoc deb +=for apidoc_item deb_nocontext + +When perl is compiled with C<-DDEBUGGING>, this prints to STDERR the +information given by the arguments, prefaced by the name of the file containing +the script causing the call, and the line number within that file. + +If the C<v> (verbose) debugging option is in effect, the process id is also +printed. + +The two forms differ only in that C<deb_nocontext> does not take a thread +context (C<aTHX>) parameter, so is used in situations where the caller doesn't +already have the thread context. + +=cut +*/ + void Perl_deb(pTHX_ const char *pat, ...) { @@ -55,6 +73,14 @@ Perl_deb(pTHX_ const char *pat, ...) va_end(args); } +/* +=for apidoc vdeb + +This is like C<L</deb>>, but C<args> are an encapsulated argument list. + +=cut +*/ + void Perl_vdeb(pTHX_ const char *pat, va_list *args) { @@ -709,7 +709,7 @@ Tore |void |win32_croak_not_implemented|NN const char * fname #if defined(MULTIPLICITY) AdfTrp |void |croak_nocontext|NULLOK const char* pat|... AdfTrp |OP* |die_nocontext |NULLOK const char* pat|... -AfTp |void |deb_nocontext |NN const char* pat|... +AfTpd |void |deb_nocontext |NN const char* pat|... AdfTp |char* |form_nocontext |NN const char* pat|... AdFTp |void |load_module_nocontext|U32 flags|NN SV* name|NULLOK SV* ver|... AdfTp |SV* |mess_nocontext |NN const char* pat|... @@ -756,8 +756,8 @@ pPRx |U32* |get_opargs CpPRx |PPADDR_t*|get_ppaddr : Used by CXINC, which appears to be in widespread use CpR |I32 |cxinc -Afp |void |deb |NN const char* pat|... -Ap |void |vdeb |NN const char* pat|NULLOK va_list* args +Afpd |void |deb |NN const char* pat|... +Apd |void |vdeb |NN const char* pat|NULLOK va_list* args Cpd |void |debprofdump EXp |SV* |multideref_stringify |NN const OP* o|NULLOK CV *cv EXp |SV* |multiconcat_stringify |NN const OP* o |