diff options
author | Karl Williamson <public@khwilliamson.com> | 2011-01-29 10:11:39 -0700 |
---|---|---|
committer | Karl Williamson <public@khwilliamson.com> | 2011-01-29 10:26:41 -0700 |
commit | 881ffab65cdbee2f146ada660e5593bad2e71472 (patch) | |
tree | e8ede27d35417eb0e8de6b9039f75a62a9479343 /dquote_static.c | |
parent | 71556506e314e769ce97e03177d978fbd8a37c18 (diff) | |
download | perl-881ffab65cdbee2f146ada660e5593bad2e71472.tar.gz |
Use embed.pl inline capabilities for regcurly
Change the regcurly definition to use the new inline abilities.
Diffstat (limited to 'dquote_static.c')
-rw-r--r-- | dquote_static.c | 18 |
1 files changed, 6 insertions, 12 deletions
diff --git a/dquote_static.c b/dquote_static.c index fbd8c3824d..532122134e 100644 --- a/dquote_static.c +++ b/dquote_static.c @@ -7,24 +7,18 @@ * It is currently #included by regcomp.c and toke.c. */ +#define PERL_IN_DQUOTE_STATIC_C +#include "proto.h" +#include "embed.h" + /* - regcurly - a little FSA that accepts {\d+,?\d*} Pulled from regcomp.c. */ - -/* embed.pl doesn't yet know how to handle static inline functions, so - manually decorate it here with gcc-style attributes. -*/ -PERL_STATIC_INLINE I32 -regcurly(register const char *s) - __attribute__warn_unused_result__ - __attribute__pure__ - __attribute__nonnull__(1); - PERL_STATIC_INLINE I32 -regcurly(register const char *s) +S_regcurly(register const char *s) { - assert(s); + PERL_ARGS_ASSERT_REGCURLY; if (*s++ != '{') return FALSE; |