diff options
| author | Paul "LeoNerd" Evans <leonerd@leonerd.org.uk> | 2022-12-10 22:16:11 +0000 |
|---|---|---|
| committer | Paul Evans <leonerd@leonerd.org.uk> | 2022-12-14 12:10:44 +0000 |
| commit | db91d049e0db8300915cd78a2abb8dd9407e90c6 (patch) | |
| tree | ae56c8616998d016a96c5457823257347e41cc32 /perly.h | |
| parent | 1829598c6e4e29da89d73624e461aaffd983fde3 (diff) | |
| download | perl-db91d049e0db8300915cd78a2abb8dd9407e90c6.tar.gz | |
Token type `pval` should be a void * pointer
The `pval` field of the token type union is currently only used in one
place; storing the result of the infix operator plugin. Its use here
stores a structure pointer, not a string. The union should define this
field as a `void *` and not a `char *`.
In addition we should not attempt to debug print it as a string because
its value is not valid as one.
Diffstat (limited to 'perly.h')
| -rw-r--r-- | perly.h | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -209,7 +209,7 @@ union YYSTYPE I32 ival; /* __DEFAULT__ (marker for regen_perly.pl; must always be 1st union member) */ - char *pval; + void *pval; OP *opval; GV *gvval; @@ -226,6 +226,6 @@ int yyparse (void); /* Generated from: - * 21f50be92bd623859b76b35d4165bcd0fbe33785929bfc0a6a522d266e86de40 perly.y + * d159cbbb0bfd3916708be07894588433a9434f9ade8adce98532533a9ea86747 perly.y * acf1cbfd2545faeaaa58b1cf0cf9d7f98b5be0752eb7a54528ef904a9e2e1ca7 regen_perly.pl * ex: set ro: */ |