X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;ds=sidebyside;f=Types.xs;h=eee8b5ca6e0629d3d13c958c8c18baaa836fbf3e;hb=3c21e318416918af3ce9f4673c257c790ba5daaf;hp=1b9aee0686e2d4385cc58a9dc88aedb1114e1169;hpb=ddde33cb0654c5f7c44e321cf020059908f64ea8;p=perl%2Fmodules%2FLexical-Types.git diff --git a/Types.xs b/Types.xs index 1b9aee0..eee8b5c 100644 --- a/Types.xs +++ b/Types.xs @@ -86,7 +86,7 @@ # undef MY_CXT # define MY_CXT lt_globaldata # undef START_MY_CXT -# define START_MY_CXT STATIC my_cxt_t MY_CXT; +# define START_MY_CXT static my_cxt_t MY_CXT; # undef MY_CXT_INIT # define MY_CXT_INIT NOOP # undef MY_CXT_CLONE @@ -951,7 +951,6 @@ static void lt_peep(pTHX_ OP *o) { /* --- Interpreter setup/teardown ------------------------------------------ */ - static U32 lt_initialized = 0; static void lt_teardown(pTHX_ void *root) {