From 0a55fab4fbefb84ac3095cdacd018c649b67453c Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 5 Jan 2004 10:17:08 +0000 Subject: use hash_ref() to check priority of the arguments --- perl_checker.src/parser_helper.ml | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'perl_checker.src/parser_helper.ml') diff --git a/perl_checker.src/parser_helper.ml b/perl_checker.src/parser_helper.ml index 76bd171..c52dadc 100644 --- a/perl_checker.src/parser_helper.ml +++ b/perl_checker.src/parser_helper.ml @@ -245,12 +245,14 @@ let prio_lo_check pri_out pri_in pos expr = | _ -> warn pos "missing parentheses (needed for clarity)") let prio_lo pri_out in_ = prio_lo_check pri_out in_.any.priority in_.pos in_.any.expr ; in_.any.expr - + let prio_lo_after pri_out in_ = if in_.any.priority = P_call_no_paren then in_.any.expr else prio_lo pri_out in_ let prio_lo_concat esp = prio_lo P_mul { esp with any = { esp.any with priority = P_paren_wanted esp.any.priority } } +let hash_ref esp = Ref(I_hash, prio_lo P_loose esp) + let sp_0 esp = match esp.spaces with | Space_none -> () -- cgit v1.2.1