Faster.pm ã®æœ€é©åŒ– - tokuhirom's blogFaster.pm ã®æœ€é©åŒ– Faster.pm ãŒã‚„ã£ã¦ã‚‹ã“ã¨ã¯ã€åŸºæœ¬çš„ã«ã¯ Perl VM ãŒã‚„ã£ã¦ã‚‹å‡¦ç†ã‚’ C ã®ã‚³ãƒ¼ãƒ‰ã«ã‹ããã ã—ãŸã ã‘ãªã®ã§ã™ã€‚生æˆã•ã‚Œã¦ã‚‹ C ã®ã‚³ãƒ¼ãƒ‰ã¯ä»¥ä¸‹ã®ã‚ˆã†ãªã‹ã‚“ã˜ã 。 ã“ã“ã‹ã‚‰ã•ã‚‰ã«æœ€é©åŒ–ã§ãã‚Œã°ã€ãã£ã¨é€Ÿãã§ãã‚‹ã®ã ã‘ã©ã€‚ #define PERL_NO_GET_CONTEXT #define PERL_CORE #include <assert.h> #include "EXTERN.h" #include "perl.h" #include "XSUB.h" #if 1 # define faster_PUSHMARK_PREALLOC(count) while (PL_markstack_ptr + (count) >= PL_ markstack_max) markstack_grow () # define faster_PUSHMARK(
{{#tags}}- {{label}}
{{/tags}}