From b1bd223085d7b97d8de8679894a81b7993c26b28 Mon Sep 17 00:00:00 2001 From: Nobuyoshi Nakada Date: Fri, 9 Oct 2020 20:06:30 +0900 Subject: Support shareable_constant_value pragma --- parse.y | 13 +++++++++++++ 1 file changed, 13 insertions(+) (limited to 'parse.y') diff --git a/parse.y b/parse.y index ff413d8b1b..3c9b9e0d43 100644 --- a/parse.y +++ b/parse.y @@ -31,6 +31,7 @@ struct lex_context { unsigned int in_kwarg: 1; unsigned int in_def: 1; unsigned int in_class: 1; + unsigned int shareable_constant_value: 1; }; #include "internal.h" @@ -959,6 +960,7 @@ restore_defun(struct parser_params *p, NODE *name) YYSTYPE c = {.val = name->nd_cval}; p->cur_arg = name->nd_vid; p->ctxt.in_def = c.ctxt.in_def; + p->ctxt.shareable_constant_value = c.ctxt.shareable_constant_value; } static void @@ -3087,6 +3089,7 @@ primary : literal /*% ripper: class!($2, $3, $5) %*/ local_pop(p); p->ctxt.in_class = $1.in_class; + p->ctxt.shareable_constant_value = $1.shareable_constant_value; } | k_class tLSHFT expr { @@ -3108,6 +3111,7 @@ primary : literal local_pop(p); p->ctxt.in_def = $1.in_def; p->ctxt.in_class = $1.in_class; + p->ctxt.shareable_constant_value = $1.shareable_constant_value; } | k_module cpath { @@ -3130,6 +3134,7 @@ primary : literal /*% ripper: module!($2, $4) %*/ local_pop(p); p->ctxt.in_class = $1.in_class; + p->ctxt.shareable_constant_value = $1.shareable_constant_value; } | defn_head f_arglist @@ -7978,6 +7983,13 @@ parser_set_compile_option_flag(struct parser_params *p, const char *name, const (b ? Qtrue : Qfalse)); } +static void +parser_set_shareable_constant_value(struct parser_params *p, const char *name, const char *val) +{ + int b = parser_get_bool(p, name, val); + if (b >= 0) p->ctxt.shareable_constant_value = b; +} + # if WARN_PAST_SCOPE static void parser_set_past_scope(struct parser_params *p, const char *name, const char *val) @@ -7997,6 +8009,7 @@ static const struct magic_comment magic_comments[] = { {"coding", magic_comment_encoding, parser_encode_length}, {"encoding", magic_comment_encoding, parser_encode_length}, {"frozen_string_literal", parser_set_compile_option_flag}, + {"shareable_constant_value", parser_set_shareable_constant_value}, {"warn_indent", parser_set_token_info}, # if WARN_PAST_SCOPE {"warn_past_scope", parser_set_past_scope}, -- cgit v1.2.3