From fc7cc5bb951e340239e582c66e92765b4c4b5b00 Mon Sep 17 00:00:00 2001 From: Ed J Date: Sat, 22 Sep 2018 22:00:00 +0100 Subject: [PATCH] zap unnecessary SvGETMAGIC (thanks @sisyphus) --- doc/Inline/C/Cookbook.swim | 1 - test/29refargs.t | 1 - 2 files changed, 2 deletions(-) diff --git a/doc/Inline/C/Cookbook.swim b/doc/Inline/C/Cookbook.swim index 123f818..de104f3 100644 --- a/doc/Inline/C/Cookbook.swim +++ b/doc/Inline/C/Cookbook.swim @@ -343,7 +343,6 @@ How do I pass a variable-sized list of arguments to an Inline C function? SV *sum(SV *array) { int total = 0; int numelts, i; - SvGETMAGIC(array); if ((!SvROK(array)) || (SvTYPE(SvRV(array)) != SVt_PVAV) || ((numelts = av_len((AV *)SvRV(array))) < 0) diff --git a/test/29refargs.t b/test/29refargs.t index 72080e2..d7b8223 100644 --- a/test/29refargs.t +++ b/test/29refargs.t @@ -9,7 +9,6 @@ my $c_text = <<'EOC'; SV *sum(SV *array) { int total = 0; int numelts, i; - SvGETMAGIC(array); if ((!SvROK(array)) || (SvTYPE(SvRV(array)) != SVt_PVAV) || ((numelts = av_len((AV *)SvRV(array))) < 0)