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

bigmem/stack.t: skip if we're not using SSize_t mark

Browse Source
This commit is contained in:
Tony Cook 2023-10-05 15:54:20 +11:00
parent a1ab4f2eff
commit a1556fc719
2 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ext/XS-APItest/APItest.xs
View File

@ -3332,6 +3332,15 @@ xs_items(...)
OUTPUT:
RETVAL
void
wide_marks(...)
PPCODE:
#ifdef PERL_STACK_OFFSET_SSIZET
XSRETURN_YES;
#else
XSRETURN_NO;
#endif
void
bhk_record(bool on)
CODE:

2
t/bigmem/stack.t
View File

@ -14,6 +14,8 @@ $ENV{PERL_TEST_MEMORY} >= 60
or skip_all("Need ~60GB for this test");
$Config{ptrsize} >= 8
or skip_all("Need 64-bit pointers for this test");
XS::APItest::wide_marks()
or skip_all("Not configured for SSize_t marks");
my @x;
$x[0x8000_0000] = "Hello";