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

pp_goto: fix macro-in-macro compile error

Browse Source 
Turns out MSVC 1.42 doesn't like

        FOO(bar,
    #ifdef X
            1
    #else
            0
    #endif
        );

where FOO is a macro.
This commit is contained in:
David Mitchell 2023-02-26 15:35:09 +00:00
parent a40b4738ef
commit dbc9c91513
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
pp_ctl.c
View File

@ -3292,18 +3292,19 @@ PP(pp_goto)
}
else sv = AvARRAY(arg)[index];
#ifdef PERL_RC_STACK
rpp_push_1(
sv
?
#ifdef PERL_RC_STACK
sv
? sv
: newSVavdefelem(arg, index, 1)
#else
(r ? SvREFCNT_inc_NN(sv_2mortal(sv)) : sv)
: sv_2mortal(newSVavdefelem(arg, index, 1))
#endif
);
#else
rpp_push_1(
sv
? (r ? SvREFCNT_inc_NN(sv_2mortal(sv)) : sv)
: sv_2mortal(newSVavdefelem(arg, index, 1))
);
#endif
}
}