mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-26 16:39:36 +00:00
Code Issues Packages Projects Releases Wiki Activity

numeric.c: Make S_output_nonportable() callable from core

Browse Source 
Instead of being internal to this file, changing its name to
Perl_output_nonportable
This commit is contained in:
Karl Williamson 2025-11-11 05:41:19 -07:00 committed by Karl Williamson
parent 8de9351fc4
commit c1becd7fcc
4 changed files with 10 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
embed.fnc
View File

@ -2577,6 +2577,8 @@ Adp |OP * |op_sibling_splice \
px |OP * |op_unscope |NULLOK OP *o
ARdpx |OP * |op_wrap_finally|NN OP *block \
|NN OP *finally
p |void |output_non_portable \
|const U8 shift
: Used in perly.y
dp |void |package |NN OP *name \
|NULLOK OP *version
@ -4988,10 +4990,6 @@ Sd |AV * |mro_get_linear_isa_dfs \
|NN HV *stash \
|U32 level
#endif
#if defined(PERL_IN_NUMERIC_C)
S |void |output_non_portable \
|const U8 shift
#endif
#if defined(PERL_IN_OP_C)
S |void |apply_attrs |NN HV *stash \
|NN SV *target \

4
embed.h
View File

@ -1336,6 +1336,7 @@
# define oopsAV(a) Perl_oopsAV(aTHX_ a)
# define oopsHV(a) Perl_oopsHV(aTHX_ a)
# define op_unscope(a) Perl_op_unscope(aTHX_ a)
# define output_non_portable(a) Perl_output_non_portable(aTHX_ a)
# define package(a,b) Perl_package(aTHX_ a,b)
# define pad_add_weakref(a) Perl_pad_add_weakref(aTHX_ a)
# define pad_block_start(a) Perl_pad_block_start(aTHX_ a)
@ -1688,9 +1689,6 @@
# define mro_gather_and_rename(a,b,c,d,e) S_mro_gather_and_rename(aTHX_ a,b,c,d,e)
# define mro_get_linear_isa_dfs(a,b) S_mro_get_linear_isa_dfs(aTHX_ a,b)
# endif
# if defined(PERL_IN_NUMERIC_C)
# define output_non_portable(a) S_output_non_portable(aTHX_ a)
# endif
# if defined(PERL_IN_OP_C)
# define apply_attrs(a,b,c) S_apply_attrs(aTHX_ a,b,c)
# define apply_attrs_my(a,b,c,d) S_apply_attrs_my(aTHX_ a,b,c,d)

4
numeric.c
View File

@ -216,8 +216,8 @@ Perl_cast_uv(NV f)
return f > 0 ? UV_MAX : 0 /* NaN */;
}
STATIC void
S_output_non_portable(pTHX_ const U8 base)
void
Perl_output_non_portable(pTHX_ const U8 base)
{
/* Display the proper message for a number in the given input base not
* fitting in 32 bits */

11
proto.h generated
View File

@ -3322,6 +3322,11 @@ Perl_opdump_printf(pTHX_ struct Perl_OpDumpContext *ctx, const char *pat, ...)
#define PERL_ARGS_ASSERT_OPDUMP_PRINTF \
assert(ctx); assert(pat)
PERL_CALLCONV void
Perl_output_non_portable(pTHX_ const U8 shift)
__attribute__visibility__("hidden");
#define PERL_ARGS_ASSERT_OUTPUT_NON_PORTABLE
PERL_CALLCONV void
Perl_package(pTHX_ OP *name, OP *version)
__attribute__visibility__("hidden");
@ -7422,12 +7427,6 @@ S_mro_get_linear_isa_dfs(pTHX_ HV *stash, U32 level);
assert(stash); assert(SvTYPE(stash) == SVt_PVHV)
#endif /* defined(PERL_IN_MRO_C) */
#if defined(PERL_IN_NUMERIC_C)
STATIC void
S_output_non_portable(pTHX_ const U8 shift);
# define PERL_ARGS_ASSERT_OUTPUT_NON_PORTABLE
#endif
#if defined(PERL_IN_OP_C)
STATIC void
S_apply_attrs(pTHX_ HV *stash, SV *target, OP *attrs);