BEGIN {
require '../../t/test.pl';
- plan(435);
+ plan(436);
use_ok('XS::APItest')
};
};
+{
+ # these are the ones documented in perlcall.pod
+ my @flags = (G_DISCARD, G_NOARGS, G_EVAL, G_KEEPERR);
+ my $mask = 0;
+ $mask |= $_ for (@flags);
+ is(unpack('%32b*', pack('l', $mask)), @flags,
+ "G_DISCARD and the rest are separate bits");
+}
+
foreach my $inx ("", "aabbcc\n", [qw(aa bb cc)]) {
foreach my $outx ("", "xxyyzz\n", [qw(xx yy zz)]) {
my $warn;
=head1 FLAG VALUES
-The C<flags> parameter in all the I<call_*> functions is a bit mask
-which can consist of any combination of the symbols defined below,
-OR'ed together.
-
+The C<flags> parameter in all the I<call_*> functions is one of G_VOID,
+G_SCALAR, or G_ARRAY, which indicate the call context, OR'ed together
+with a bit mask of any combination of the other G_* symbols defined below.
=head2 G_VOID