3 # Regenerate (overwriting only if changed):
12 # from information stored in
17 # pp.sym (which has been generated by opcode.pl)
19 # plus from the values hardcoded into this script in @extvars.
21 # Accepts the standard regen_lib -q and -v args.
23 # This script is normally invoked from regen.pl.
25 require 5.003; # keep this compatible, an old perl is all we may have before
26 # we build the new one
31 # Get function prototypes
32 require 'regen_lib.pl';
35 my $SPLINT = 0; # Turn true for experimental splint support http://www.splint.org
38 # See database of global and static function prototypes in embed.fnc
39 # This is used to generate prototype headers under various configurations,
40 # export symbols lists for different platforms, and macros to provide an
41 # implicit interpreter context argument.
48 my $years = '1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009';
50 $years =~ s/1999,/1999,\n / if length $years > 40;
53 -*- buffer-read-only: t -*-
57 Copyright (C) $years, by Larry Wall and others
59 You may distribute under the terms of either the GNU General Public
60 License or the Artistic License, as specified in the README file.
62 !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
63 This file is built by embed.pl from data in embed.fnc, embed.pl,
64 pp.sym, intrpvar.h, and perlvars.h.
65 Any changes made here will be lost!
67 Edit those files and run 'make regen_headers' to effect changes.
71 $warning .= <<EOW if $file eq 'perlapi.c';
73 Up to the threshold of the door there mounted a flight of twenty-seven
74 broad stairs, hewn by some unknown art of the same black stone. This
75 was the only entrance to the tower; ...
77 [p.577 of _The Lord of the Rings_, III/x: "The Voice of Saruman"]
82 if ($file =~ m:\.[ch]$:) {
83 $warning =~ s:^: * :gm;
84 $warning =~ s: +$::gm;
89 $warning =~ s:^:# :gm;
90 $warning =~ s: +$::gm;
95 open IN, "embed.fnc" or die $!;
97 # walk table providing an array of components in each line to
98 # subroutine, printing the result
100 my $function = shift;
101 my $filename = shift || '-';
103 defined $leader or $leader = do_not_edit ($filename);
106 if (ref $filename) { # filehandle
110 # safer_unlink $filename if $filename ne '/dev/null';
111 $F = safer_open("$filename-new");
113 print $F $leader if $leader;
114 seek IN, 0, 0; # so we may restart
128 @args = split /\s*\|\s*/, $_;
130 my @outs = &{$function}(@args);
131 print $F @outs; # $function->(@args) is not 5.003
133 print $F $trailer if $trailer;
134 unless (ref $filename) {
136 rename_if_different("$filename-new", $filename);
140 sub munge_c_files () {
143 warn "\@ARGV empty, nothing to do\n";
148 $functions->{$_[2]} = \@_ if $_[@_-1] =~ /\.\.\./;
150 } '/dev/null', '', '';
153 s{(\b(\w+)[ \t]*\([ \t]*(?!aTHX))}
157 if (exists $functions->{$f}) {
159 warn("$ARGV:$.:$`#$repl#$'");
164 close ARGV if eof; # restart $.
172 my $wrote_protected = 0;
181 my ($flags,$retval,$plain_func,@args) = @_;
183 my $has_context = ( $flags !~ /n/ );
184 my $never_returns = ( $flags =~ /r/ );
185 my $commented_out = ( $flags =~ /m/ );
186 my $binarycompat = ( $flags =~ /b/ );
187 my $is_malloc = ( $flags =~ /a/ );
188 my $can_ignore = ( $flags !~ /R/ ) && !$is_malloc;
192 my $splint_flags = "";
193 if ( $SPLINT && !$commented_out ) {
194 $splint_flags .= '/*@noreturn@*/ ' if $never_returns;
195 if ($can_ignore && ($retval ne 'void') && ($retval !~ /\*/)) {
196 $retval .= " /*\@alt void\@*/";
201 $retval = "STATIC $splint_flags$retval";
202 $func = "S_$plain_func";
205 $retval = "PERL_CALLCONV $splint_flags$retval";
206 if ($flags =~ /[bp]/) {
207 $func = "Perl_$plain_func";
212 $ret .= "$retval\t$func(";
213 if ( $has_context ) {
214 $ret .= @args ? "pTHX_ " : "pTHX";
218 for my $arg ( @args ) {
220 if ( $arg =~ /\*/ && $arg !~ /\b(NN|NULLOK)\b/ ) {
221 warn "$func: $arg needs NN or NULLOK\n";
222 our $unflagged_pointers;
223 ++$unflagged_pointers;
225 my $nn = ( $arg =~ s/\s*\bNN\b\s+// );
226 push( @nonnull, $n ) if $nn;
228 my $nullok = ( $arg =~ s/\s*\bNULLOK\b\s+// ); # strip NULLOK with no effect
230 # Make sure each arg has at least a type and a var name.
231 # An arg of "int" is valid C, but want it to be "int foo".
233 $temp_arg =~ s/\*//g;
234 $temp_arg =~ s/\s*\bstruct\b\s*/ /g;
235 if ( ($temp_arg ne "...")
236 && ($temp_arg !~ /\w+\s+(\w+)(?:\[\d+\])?\s*$/) ) {
237 warn "$func: $arg ($n) doesn't have a name\n";
239 if ( $SPLINT && $nullok && !$commented_out ) {
240 $arg = '/*@null@*/ ' . $arg;
242 if (defined $1 && $nn && !($commented_out && !$binarycompat)) {
243 push @names_of_nn, $1;
246 $ret .= join ", ", @args;
249 $ret .= "void" if !$has_context;
253 if ( $flags =~ /r/ ) {
254 push @attrs, "__attribute__noreturn__";
257 push @attrs, "__attribute__malloc__";
259 if ( !$can_ignore ) {
260 push @attrs, "__attribute__warn_unused_result__";
262 if ( $flags =~ /P/ ) {
263 push @attrs, "__attribute__pure__";
265 if( $flags =~ /f/ ) {
266 my $prefix = $has_context ? 'pTHX_' : '';
267 my $args = scalar @args;
269 my $macro = @nonnull && $nonnull[-1] == $pat
270 ? '__attribute__format__'
271 : '__attribute__format__null_ok__';
272 push @attrs, sprintf "%s(__printf__,%s%d,%s%d)", $macro,
273 $prefix, $pat, $prefix, $args;
276 my @pos = map { $has_context ? "pTHX_$_" : $_ } @nonnull;
277 push @attrs, map { sprintf( "__attribute__nonnull__(%s)", $_ ) } @pos;
281 $ret .= join( "\n", map { "\t\t\t$_" } @attrs );
284 $ret = "/* $ret */" if $commented_out;
286 $ret .= "\n#define PERL_ARGS_ASSERT_\U$plain_func\E\t\\\n\t"
287 . join '; ', map "assert($_)", @names_of_nn;
289 $ret .= @attrs ? "\n\n" : "\n";
294 # generates global.sym (API export list)
297 sub write_global_sym {
300 my ($flags,$retval,$func,@args) = @_;
301 # If a function is defined twice, for example before and after an
302 # #else, only process the flags on the first instance for global.sym
303 return $ret if $seen{$func}++;
304 if ($flags =~ /[AX]/ && $flags !~ /[xm]/
305 || $flags =~ /b/) { # public API, so export
306 $func = "Perl_$func" if $flags =~ /[pbX]/;
315 our $unflagged_pointers;
316 walk_table(\&write_protos, "proto.h", undef, "/* ex: set ro: */\n");
317 warn "$unflagged_pointers pointer arguments to clean up\n" if $unflagged_pointers;
318 walk_table(\&write_global_sym, "global.sym", undef, "# ex: set ro:\n");
320 # XXX others that may need adding
324 my @extvars = qw(sv_undef sv_yes sv_no na dowarn
326 tainting tainted stack_base stack_sp sv_arenaroot
328 curstash DBsub DBsingle DBassertion debstash
342 my ($syms, $file) = @_;
344 open(FILE, "< $file")
345 or die "embed.pl: Can't open $file: $!\n";
347 s/[ \t]*#.*//; # Delete comments.
348 if (/^\s*(\S+)\s*$/) {
350 warn "duplicate symbol $sym while processing $file line $.\n"
351 if exists $$syms{$sym};
358 # Perl_pp_* and Perl_ck_* are in pp.sym
359 readsyms my %ppsym, 'pp.sym';
361 sub readvars(\%$$@) {
362 my ($syms, $file,$pre,$keep_pre) = @_;
364 open(FILE, "< $file")
365 or die "embed.pl: Can't open $file: $!\n";
367 s/[ \t]*#.*//; # Delete comments.
368 if (/PERLVARA?I?S?C?\($pre(\w+)/) {
370 $sym = $pre . $sym if $keep_pre;
371 warn "duplicate symbol $sym while processing $file line $.\n"
372 if exists $$syms{$sym};
373 $$syms{$sym} = $pre || 1;
382 readvars %intrp, 'intrpvar.h','I';
383 readvars %globvar, 'perlvars.h','G';
393 my ($from, $to) = @_;
394 my $t = int(length($from) / 8);
395 "#define $from" . "\t" x ($t < 3 ? 3 - $t : 1) . "$to\n";
398 sub bincompat_var ($$) {
399 my ($pfx, $sym) = @_;
400 my $arg = ($pfx eq 'G' ? 'NULL' : 'aTHX');
401 undefine("PL_$sym") . hide("PL_$sym", "(*Perl_${pfx}${sym}_ptr($arg))");
405 my ($sym,$pre,$ptr) = @_;
406 hide("PL_$sym", "($ptr$pre$sym)");
411 return hide("PL_$pre$sym", "PL_$sym");
414 my $em = safer_open('embed.h-new');
416 print $em do_not_edit ("embed.h"), <<'END';
418 /* (Doing namespace management portably in C is really gross.) */
420 /* By defining PERL_NO_SHORT_NAMES (not done by default) the short forms
421 * (like warn instead of Perl_warn) for the API are not defined.
422 * Not defining the short forms is a good thing for cleaner embedding. */
424 #ifndef PERL_NO_SHORT_NAMES
426 /* Hide global symbols */
428 #if !defined(PERL_IMPLICIT_CONTEXT)
432 # Try to elimiate lots of repeated
439 # by tracking state and merging foo and bar into one block.
440 my $ifdef_state = '';
444 my $new_ifdef_state = '';
447 $ret .= "$arg\n" if $arg =~ /^#\s*(if|ifn?def|else|endif)\b/;
450 my ($flags,$retval,$func,@args) = @_;
451 unless ($flags =~ /[om]/) {
453 $ret .= hide($func,"S_$func");
455 elsif ($flags =~ /p/) {
456 $ret .= hide($func,"Perl_$func");
459 if ($ret ne '' && $flags !~ /A/) {
462 = "#if defined(PERL_CORE) || defined(PERL_EXT)\n";
465 $new_ifdef_state = "#ifdef PERL_CORE\n";
468 if ($new_ifdef_state ne $ifdef_state) {
469 $ret = $new_ifdef_state . $ret;
473 if ($ifdef_state && $new_ifdef_state ne $ifdef_state) {
474 # Close the old one ahead of opening the new one.
475 $ret = "#endif\n$ret";
477 # Remember the new state.
478 $ifdef_state = $new_ifdef_state;
483 print $em "#endif\n";
486 for $sym (sort keys %ppsym) {
488 print $em hide($sym, "Perl_$sym");
493 #else /* PERL_IMPLICIT_CONTEXT */
502 my $new_ifdef_state = '';
505 $ret .= "$arg\n" if $arg =~ /^#\s*(if|ifn?def|else|endif)\b/;
508 my ($flags,$retval,$func,@args) = @_;
509 unless ($flags =~ /[om]/) {
510 my $args = scalar @args;
511 if ($args and $args[$args-1] =~ /\.\.\./) {
512 # we're out of luck for varargs functions under CPP
514 elsif ($flags =~ /n/) {
516 $ret .= hide($func,"S_$func");
518 elsif ($flags =~ /p/) {
519 $ret .= hide($func,"Perl_$func");
523 my $alist = join(",", @az[0..$args-1]);
524 $ret = "#define $func($alist)";
525 my $t = int(length($ret) / 8);
526 $ret .= "\t" x ($t < 4 ? 4 - $t : 1);
528 $ret .= "S_$func(aTHX";
530 elsif ($flags =~ /p/) {
531 $ret .= "Perl_$func(aTHX";
533 $ret .= "_ " if $alist;
534 $ret .= $alist . ")\n";
537 unless ($flags =~ /A/) {
540 = "#if defined(PERL_CORE) || defined(PERL_EXT)\n";
543 $new_ifdef_state = "#ifdef PERL_CORE\n";
546 if ($new_ifdef_state ne $ifdef_state) {
547 $ret = $new_ifdef_state . $ret;
551 if ($ifdef_state && $new_ifdef_state ne $ifdef_state) {
552 # Close the old one ahead of opening the new one.
553 $ret = "#endif\n$ret";
555 # Remember the new state.
556 $ifdef_state = $new_ifdef_state;
561 print $em "#endif\n";
564 for $sym (sort keys %ppsym) {
566 if ($sym =~ /^ck_/) {
567 print $em hide("$sym(a)", "Perl_$sym(aTHX_ a)");
569 elsif ($sym =~ /^pp_/) {
570 print $em hide("$sym()", "Perl_$sym(aTHX)");
573 warn "Illegal symbol '$sym' in pp.sym";
579 #endif /* PERL_IMPLICIT_CONTEXT */
581 #endif /* #ifndef PERL_NO_SHORT_NAMES */
587 /* Compatibility stubs. Compile extensions with -DPERL_NOCOMPAT to
591 #if !defined(PERL_CORE)
592 # define sv_setptrobj(rv,ptr,name) sv_setref_iv(rv,name,PTR2IV(ptr))
593 # define sv_setptrref(rv,ptr) sv_setref_iv(rv,NULL,PTR2IV(ptr))
596 #if !defined(PERL_CORE) && !defined(PERL_NOCOMPAT)
598 /* Compatibility for various misnamed functions. All functions
599 in the API that begin with "perl_" (not "Perl_") take an explicit
600 interpreter context pointer.
601 The following are not like that, but since they had a "perl_"
602 prefix in previous versions, we provide compatibility macros.
604 # define perl_atexit(a,b) call_atexit(a,b)
605 # define perl_call_argv(a,b,c) call_argv(a,b,c)
606 # define perl_call_pv(a,b) call_pv(a,b)
607 # define perl_call_method(a,b) call_method(a,b)
608 # define perl_call_sv(a,b) call_sv(a,b)
609 # define perl_eval_sv(a,b) eval_sv(a,b)
610 # define perl_eval_pv(a,b) eval_pv(a,b)
611 # define perl_require_pv(a) require_pv(a)
612 # define perl_get_sv(a,b) get_sv(a,b)
613 # define perl_get_av(a,b) get_av(a,b)
614 # define perl_get_hv(a,b) get_hv(a,b)
615 # define perl_get_cv(a,b) get_cv(a,b)
616 # define perl_init_i18nl10n(a) init_i18nl10n(a)
617 # define perl_init_i18nl14n(a) init_i18nl14n(a)
618 # define perl_new_ctype(a) new_ctype(a)
619 # define perl_new_collate(a) new_collate(a)
620 # define perl_new_numeric(a) new_numeric(a)
622 /* varargs functions can't be handled with CPP macros. :-(
623 This provides a set of compatibility functions that don't take
624 an extra argument but grab the context pointer using the macro
627 #if defined(PERL_IMPLICIT_CONTEXT) && !defined(PERL_NO_SHORT_NAMES)
628 # define croak Perl_croak_nocontext
629 # define deb Perl_deb_nocontext
630 # define die Perl_die_nocontext
631 # define form Perl_form_nocontext
632 # define load_module Perl_load_module_nocontext
633 # define mess Perl_mess_nocontext
634 # define newSVpvf Perl_newSVpvf_nocontext
635 # define sv_catpvf Perl_sv_catpvf_nocontext
636 # define sv_setpvf Perl_sv_setpvf_nocontext
637 # define warn Perl_warn_nocontext
638 # define warner Perl_warner_nocontext
639 # define sv_catpvf_mg Perl_sv_catpvf_mg_nocontext
640 # define sv_setpvf_mg Perl_sv_setpvf_mg_nocontext
643 #endif /* !defined(PERL_CORE) && !defined(PERL_NOCOMPAT) */
645 #if !defined(PERL_IMPLICIT_CONTEXT)
646 /* undefined symbols, point them back at the usual ones */
647 # define Perl_croak_nocontext Perl_croak
648 # define Perl_die_nocontext Perl_die
649 # define Perl_deb_nocontext Perl_deb
650 # define Perl_form_nocontext Perl_form
651 # define Perl_load_module_nocontext Perl_load_module
652 # define Perl_mess_nocontext Perl_mess
653 # define Perl_newSVpvf_nocontext Perl_newSVpvf
654 # define Perl_sv_catpvf_nocontext Perl_sv_catpvf
655 # define Perl_sv_setpvf_nocontext Perl_sv_setpvf
656 # define Perl_warn_nocontext Perl_warn
657 # define Perl_warner_nocontext Perl_warner
658 # define Perl_sv_catpvf_mg_nocontext Perl_sv_catpvf_mg
659 # define Perl_sv_setpvf_mg_nocontext Perl_sv_setpvf_mg
666 rename_if_different('embed.h-new', 'embed.h');
668 $em = safer_open('embedvar.h-new');
670 print $em do_not_edit ("embedvar.h"), <<'END';
672 /* (Doing namespace management portably in C is really gross.) */
675 The following combinations of MULTIPLICITY and PERL_IMPLICIT_CONTEXT
678 2) MULTIPLICITY # supported for compatibility
679 3) MULTIPLICITY && PERL_IMPLICIT_CONTEXT
681 All other combinations of these flags are errors.
683 only #3 is supported directly, while #2 is a special
684 case of #3 (supported by redefining vTHX appropriately).
687 #if defined(MULTIPLICITY)
688 /* cases 2 and 3 above */
690 # if defined(PERL_IMPLICIT_CONTEXT)
693 # define vTHX PERL_GET_INTERP
698 for $sym (sort keys %intrp) {
699 print $em multon($sym,'I','vTHX->');
704 #else /* !MULTIPLICITY */
710 for $sym (sort keys %intrp) {
711 print $em multoff($sym,'I');
720 #endif /* MULTIPLICITY */
722 #if defined(PERL_GLOBAL_STRUCT)
726 for $sym (sort keys %globvar) {
727 print $em multon($sym, 'G','my_vars->');
728 print $em multon("G$sym",'', 'my_vars->');
733 #else /* !PERL_GLOBAL_STRUCT */
737 for $sym (sort keys %globvar) {
738 print $em multoff($sym,'G');
743 #endif /* PERL_GLOBAL_STRUCT */
745 #ifdef PERL_POLLUTE /* disabled by default in 5.6.0 */
749 for $sym (sort @extvars) {
750 print $em hide($sym,"PL_$sym");
755 #endif /* PERL_POLLUTE */
761 rename_if_different('embedvar.h-new', 'embedvar.h');
763 my $capi = safer_open('perlapi.c-new');
764 my $capih = safer_open('perlapi.h-new');
766 print $capih do_not_edit ("perlapi.h"), <<'EOT';
768 /* declare accessor functions for Perl variables */
769 #ifndef __perlapi_h__
770 #define __perlapi_h__
772 #if defined (MULTIPLICITY)
781 #define PERLVAR(v,t) EXTERN_C t* Perl_##v##_ptr(pTHX);
782 #define PERLVARA(v,n,t) typedef t PL_##v##_t[n]; \
783 EXTERN_C PL_##v##_t* Perl_##v##_ptr(pTHX);
784 #define PERLVARI(v,t,i) PERLVAR(v,t)
785 #define PERLVARIC(v,t,i) PERLVAR(v, const t)
786 #define PERLVARISC(v,i) typedef const char PL_##v##_t[sizeof(i)]; \
787 EXTERN_C PL_##v##_t* Perl_##v##_ptr(pTHX);
789 #include "intrpvar.h"
790 #include "perlvars.h"
798 #ifndef PERL_GLOBAL_STRUCT
799 EXTERN_C Perl_ppaddr_t** Perl_Gppaddr_ptr(pTHX);
800 EXTERN_C Perl_check_t** Perl_Gcheck_ptr(pTHX);
801 EXTERN_C unsigned char** Perl_Gfold_locale_ptr(pTHX);
802 #define Perl_ppaddr_ptr Perl_Gppaddr_ptr
803 #define Perl_check_ptr Perl_Gcheck_ptr
804 #define Perl_fold_locale_ptr Perl_Gfold_locale_ptr
809 #if defined(PERL_CORE)
811 /* accessor functions for Perl variables (provide binary compatibility) */
813 /* these need to be mentioned here, or most linkers won't put them in
814 the perl executable */
816 #ifndef PERL_NO_FORCE_LINK
821 EXTCONST void * const PL_force_link_funcs[];
823 EXTCONST void * const PL_force_link_funcs[] = {
828 #define PERLVAR(v,t) (void*)Perl_##v##_ptr,
829 #define PERLVARA(v,n,t) PERLVAR(v,t)
830 #define PERLVARI(v,t,i) PERLVAR(v,t)
831 #define PERLVARIC(v,t,i) PERLVAR(v,t)
832 #define PERLVARISC(v,i) PERLVAR(v,char)
834 /* In Tru64 (__DEC && __osf__) the cc option -std1 causes that one
835 * cannot cast between void pointers and function pointers without
836 * info level warnings. The PL_force_link_funcs[] would cause a few
837 * hundred of those warnings. In code one can circumnavigate this by using
838 * unions that overlay the different pointers, but in declarations one
839 * cannot use this trick. Therefore we just disable the warning here
840 * for the duration of the PL_force_link_funcs[] declaration. */
842 #if defined(__DECC) && defined(__osf__)
844 #pragma message disable (nonstandcast)
847 #include "intrpvar.h"
848 #include "perlvars.h"
850 #if defined(__DECC) && defined(__osf__)
851 #pragma message restore
864 #endif /* PERL_NO_FORCE_LINK */
866 #else /* !PERL_CORE */
870 foreach $sym (sort keys %intrp) {
871 print $capih bincompat_var('I',$sym);
874 foreach $sym (sort keys %globvar) {
875 print $capih bincompat_var('G',$sym);
878 print $capih <<'EOT';
880 #endif /* !PERL_CORE */
881 #endif /* MULTIPLICITY */
883 #endif /* __perlapi_h__ */
888 rename_if_different('perlapi.h-new', 'perlapi.h');
890 print $capi do_not_edit ("perlapi.c"), <<'EOT';
896 #if defined (MULTIPLICITY)
898 /* accessor functions for Perl variables (provides binary compatibility) */
907 #define PERLVAR(v,t) t* Perl_##v##_ptr(pTHX) \
908 { dVAR; PERL_UNUSED_CONTEXT; return &(aTHX->v); }
909 #define PERLVARA(v,n,t) PL_##v##_t* Perl_##v##_ptr(pTHX) \
910 { dVAR; PERL_UNUSED_CONTEXT; return &(aTHX->v); }
912 #define PERLVARI(v,t,i) PERLVAR(v,t)
913 #define PERLVARIC(v,t,i) PERLVAR(v, const t)
914 #define PERLVARISC(v,i) PL_##v##_t* Perl_##v##_ptr(pTHX) \
915 { dVAR; PERL_UNUSED_CONTEXT; return &(aTHX->v); }
917 #include "intrpvar.h"
921 #define PERLVAR(v,t) t* Perl_##v##_ptr(pTHX) \
922 { dVAR; PERL_UNUSED_CONTEXT; return &(PL_##v); }
923 #define PERLVARA(v,n,t) PL_##v##_t* Perl_##v##_ptr(pTHX) \
924 { dVAR; PERL_UNUSED_CONTEXT; return &(PL_##v); }
927 #define PERLVARIC(v,t,i) \
928 const t* Perl_##v##_ptr(pTHX) \
929 { PERL_UNUSED_CONTEXT; return (const t *)&(PL_##v); }
930 #define PERLVARISC(v,i) PL_##v##_t* Perl_##v##_ptr(pTHX) \
931 { dVAR; PERL_UNUSED_CONTEXT; return &(PL_##v); }
932 #include "perlvars.h"
940 #ifndef PERL_GLOBAL_STRUCT
941 /* A few evil special cases. Could probably macrofy this. */
944 #undef PL_fold_locale
945 Perl_ppaddr_t** Perl_Gppaddr_ptr(pTHX) {
946 static Perl_ppaddr_t* const ppaddr_ptr = PL_ppaddr;
948 return (Perl_ppaddr_t**)&ppaddr_ptr;
950 Perl_check_t** Perl_Gcheck_ptr(pTHX) {
951 static Perl_check_t* const check_ptr = PL_check;
953 return (Perl_check_t**)&check_ptr;
955 unsigned char** Perl_Gfold_locale_ptr(pTHX) {
956 static unsigned char* const fold_locale_ptr = PL_fold_locale;
958 return (unsigned char**)&fold_locale_ptr;
964 #endif /* MULTIPLICITY */
970 rename_if_different('perlapi.c-new', 'perlapi.c');
972 # functions that take va_list* for implementing vararg functions
973 # NOTE: makedef.pl must be updated if you add symbols to %vfuncs
974 # XXX %vfuncs currently unused
976 Perl_croak Perl_vcroak
978 Perl_warner Perl_vwarner
981 Perl_load_module Perl_vload_module
984 Perl_newSVpvf Perl_vnewSVpvf
985 Perl_sv_setpvf Perl_sv_vsetpvf
986 Perl_sv_setpvf_mg Perl_sv_vsetpvf_mg
987 Perl_sv_catpvf Perl_sv_vcatpvf
988 Perl_sv_catpvf_mg Perl_sv_vcatpvf_mg
989 Perl_dump_indent Perl_dump_vindent
990 Perl_default_protect Perl_vdefault_protect
993 # ex: set ts=8 sts=4 sw=4 noet: