17c478bd9Sstevel@tonic-gate %{
27c478bd9Sstevel@tonic-gate /*
37c478bd9Sstevel@tonic-gate * CDDL HEADER START
47c478bd9Sstevel@tonic-gate *
57c478bd9Sstevel@tonic-gate * The contents of this file are subject to the terms of the
68a6a72fdSaf * Common Development and Distribution License (the "License").
78a6a72fdSaf * You may not use this file except in compliance with the License.
87c478bd9Sstevel@tonic-gate *
97c478bd9Sstevel@tonic-gate * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
107c478bd9Sstevel@tonic-gate * or http://www.opensolaris.org/os/licensing.
117c478bd9Sstevel@tonic-gate * See the License for the specific language governing permissions
127c478bd9Sstevel@tonic-gate * and limitations under the License.
137c478bd9Sstevel@tonic-gate *
147c478bd9Sstevel@tonic-gate * When distributing Covered Code, include this CDDL HEADER in each
157c478bd9Sstevel@tonic-gate * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
167c478bd9Sstevel@tonic-gate * If applicable, add the following below this CDDL HEADER, with the
177c478bd9Sstevel@tonic-gate * fields enclosed by brackets "[]" replaced with your own identifying
187c478bd9Sstevel@tonic-gate * information: Portions Copyright [yyyy] [name of copyright owner]
197c478bd9Sstevel@tonic-gate *
207c478bd9Sstevel@tonic-gate * CDDL HEADER END
217c478bd9Sstevel@tonic-gate *
228a6a72fdSaf */
238a6a72fdSaf /*
248a6a72fdSaf * Copyright 2006 Sun Microsystems, Inc. All rights reserved.
257c478bd9Sstevel@tonic-gate * Use is subject to license terms.
267c478bd9Sstevel@tonic-gate */
277c478bd9Sstevel@tonic-gate
287df3beaeSBryan Cantrill /*
29*7a2abfc9SRobert Mustacchi * Copyright (c) 2019, Joyent, Inc. All rights reserved.
307df3beaeSBryan Cantrill */
317c478bd9Sstevel@tonic-gate
327c478bd9Sstevel@tonic-gate #include <mdb/mdb_types.h>
337c478bd9Sstevel@tonic-gate #include <mdb/mdb_debug.h>
347c478bd9Sstevel@tonic-gate #include <mdb/mdb_shell.h>
357c478bd9Sstevel@tonic-gate #include <mdb/mdb_string.h>
367c478bd9Sstevel@tonic-gate #include <mdb/mdb_frame.h>
377c478bd9Sstevel@tonic-gate #include <mdb/mdb_lex.h>
387c478bd9Sstevel@tonic-gate #include <mdb/mdb_io.h>
397c478bd9Sstevel@tonic-gate #include <mdb/mdb_nv.h>
407c478bd9Sstevel@tonic-gate #include <mdb/mdb.h>
417c478bd9Sstevel@tonic-gate
427c478bd9Sstevel@tonic-gate /*
437c478bd9Sstevel@tonic-gate * Utility routines to fetch values from the target's virtual address space
447c478bd9Sstevel@tonic-gate * and object file, respectively. These are called from the handlers for
457c478bd9Sstevel@tonic-gate * the * /.../ and % /.../ code below.
467c478bd9Sstevel@tonic-gate */
477c478bd9Sstevel@tonic-gate
487c478bd9Sstevel@tonic-gate static void
vfetch(void * buf,size_t nbytes,uintptr_t addr)497c478bd9Sstevel@tonic-gate vfetch(void *buf, size_t nbytes, uintptr_t addr)
507c478bd9Sstevel@tonic-gate {
517c478bd9Sstevel@tonic-gate if (mdb_tgt_vread(mdb.m_target, buf, nbytes, addr) != nbytes)
527c478bd9Sstevel@tonic-gate yyperror("failed to read from address %p", addr);
537c478bd9Sstevel@tonic-gate }
547c478bd9Sstevel@tonic-gate
557c478bd9Sstevel@tonic-gate static void
ffetch(void * buf,size_t nbytes,uintptr_t addr)567c478bd9Sstevel@tonic-gate ffetch(void *buf, size_t nbytes, uintptr_t addr)
577c478bd9Sstevel@tonic-gate {
587c478bd9Sstevel@tonic-gate if (mdb_tgt_fread(mdb.m_target, buf, nbytes, addr) != nbytes)
597c478bd9Sstevel@tonic-gate yyperror("failed to read from address %p", addr);
607c478bd9Sstevel@tonic-gate }
617c478bd9Sstevel@tonic-gate
627c478bd9Sstevel@tonic-gate /*
637c478bd9Sstevel@tonic-gate * Because we define YYMAXDEPTH as zero below, we have to provide a YYEXPAND()
647c478bd9Sstevel@tonic-gate * function to expand our yys and yyv variables. For simplicity, we currently
657c478bd9Sstevel@tonic-gate * define these structures statically; a more complex solution can be defined if
667c478bd9Sstevel@tonic-gate * it is ever needed. If we return 'val', yacc assumes resize has failed.
677c478bd9Sstevel@tonic-gate */
687c478bd9Sstevel@tonic-gate static int
yyexpand(int val)697c478bd9Sstevel@tonic-gate yyexpand(int val)
707c478bd9Sstevel@tonic-gate {
717c478bd9Sstevel@tonic-gate return (val ? val : YYMAXDEPTH);
727c478bd9Sstevel@tonic-gate }
737c478bd9Sstevel@tonic-gate #define YYEXPAND yyexpand
747c478bd9Sstevel@tonic-gate
757c478bd9Sstevel@tonic-gate /*
767c478bd9Sstevel@tonic-gate * This will cause the rest of the yacc code to assume that yys and yyv are
777c478bd9Sstevel@tonic-gate * pointers, not static arrays.
787c478bd9Sstevel@tonic-gate */
797c478bd9Sstevel@tonic-gate #undef YYMAXDEPTH
807c478bd9Sstevel@tonic-gate #define YYMAXDEPTH 0
817c478bd9Sstevel@tonic-gate %}
827c478bd9Sstevel@tonic-gate
837c478bd9Sstevel@tonic-gate %union {
847c478bd9Sstevel@tonic-gate char *l_string;
857c478bd9Sstevel@tonic-gate char l_char;
867c478bd9Sstevel@tonic-gate uintmax_t l_immediate;
877c478bd9Sstevel@tonic-gate mdb_var_t *l_var;
887c478bd9Sstevel@tonic-gate mdb_idcmd_t *l_dcmd;
897c478bd9Sstevel@tonic-gate }
907c478bd9Sstevel@tonic-gate
917c478bd9Sstevel@tonic-gate %token <l_string> MDB_TOK_SYMBOL
927c478bd9Sstevel@tonic-gate %token <l_string> MDB_TOK_STRING
937c478bd9Sstevel@tonic-gate %token <l_char> MDB_TOK_CHAR
947c478bd9Sstevel@tonic-gate %token <l_immediate> MDB_TOK_IMMEDIATE
957c478bd9Sstevel@tonic-gate %token <l_dcmd> MDB_TOK_DCMD
967c478bd9Sstevel@tonic-gate %token <l_var> MDB_TOK_VAR_REF
977c478bd9Sstevel@tonic-gate %token <l_immediate> MDB_TOK_LEXPR
987c478bd9Sstevel@tonic-gate %token <l_immediate> MDB_TOK_REXPR
997c478bd9Sstevel@tonic-gate %token <l_immediate> MDB_TOK_COR1_DEREF
1007c478bd9Sstevel@tonic-gate %token <l_immediate> MDB_TOK_COR2_DEREF
1017c478bd9Sstevel@tonic-gate %token <l_immediate> MDB_TOK_COR4_DEREF
1027c478bd9Sstevel@tonic-gate %token <l_immediate> MDB_TOK_COR8_DEREF
1037c478bd9Sstevel@tonic-gate %token <l_immediate> MDB_TOK_OBJ1_DEREF
1047c478bd9Sstevel@tonic-gate %token <l_immediate> MDB_TOK_OBJ2_DEREF
1057c478bd9Sstevel@tonic-gate %token <l_immediate> MDB_TOK_OBJ4_DEREF
1067c478bd9Sstevel@tonic-gate %token <l_immediate> MDB_TOK_OBJ8_DEREF
1077c478bd9Sstevel@tonic-gate
1087c478bd9Sstevel@tonic-gate %left '|'
1097c478bd9Sstevel@tonic-gate %left '^'
1107c478bd9Sstevel@tonic-gate %left '&'
1117c478bd9Sstevel@tonic-gate %left MDB_TOK_EQUAL MDB_TOK_NOTEQUAL
1127c478bd9Sstevel@tonic-gate %left MDB_TOK_LSHIFT MDB_TOK_RSHIFT
1137c478bd9Sstevel@tonic-gate %left '-' '+'
1147c478bd9Sstevel@tonic-gate %left '*' '%' '#'
115*7a2abfc9SRobert Mustacchi %left MDB_TOK_MODULUS
1167c478bd9Sstevel@tonic-gate
1177c478bd9Sstevel@tonic-gate %right MDB_COR_VALUE
1187c478bd9Sstevel@tonic-gate %right MDB_OBJ_VALUE
1197c478bd9Sstevel@tonic-gate %right MDB_INT_NEGATE
1207c478bd9Sstevel@tonic-gate %right MDB_BIT_COMPLEMENT
1217c478bd9Sstevel@tonic-gate %right MDB_LOG_NEGATE
1227c478bd9Sstevel@tonic-gate %right MDB_VAR_REFERENCE
1237c478bd9Sstevel@tonic-gate
1247c478bd9Sstevel@tonic-gate %type <l_immediate> expression
1257c478bd9Sstevel@tonic-gate %type <l_dcmd> command
1267c478bd9Sstevel@tonic-gate
1277c478bd9Sstevel@tonic-gate %%
1287c478bd9Sstevel@tonic-gate statement_list: /* Empty */
1297c478bd9Sstevel@tonic-gate | statement_list statement { return (0); }
1307c478bd9Sstevel@tonic-gate ;
1317c478bd9Sstevel@tonic-gate
1327c478bd9Sstevel@tonic-gate terminator: '\n'
1337c478bd9Sstevel@tonic-gate | ';'
1347c478bd9Sstevel@tonic-gate
1357c478bd9Sstevel@tonic-gate statement: pipeline shell_pipe terminator {
1367c478bd9Sstevel@tonic-gate if (!mdb_call(mdb_nv_get_value(mdb.m_dot), 1, 0))
1377c478bd9Sstevel@tonic-gate return (0);
1387c478bd9Sstevel@tonic-gate }
1397c478bd9Sstevel@tonic-gate
1407c478bd9Sstevel@tonic-gate | expression pipeline shell_pipe terminator {
1417c478bd9Sstevel@tonic-gate if (!mdb_call($1, 1, DCMD_ADDRSPEC))
1427c478bd9Sstevel@tonic-gate return (0);
1437c478bd9Sstevel@tonic-gate }
1447c478bd9Sstevel@tonic-gate
1457c478bd9Sstevel@tonic-gate | expression ',' expression pipeline shell_pipe terminator {
1467c478bd9Sstevel@tonic-gate if (!mdb_call($1, $3, DCMD_ADDRSPEC | DCMD_LOOP))
1477c478bd9Sstevel@tonic-gate return (0);
1487c478bd9Sstevel@tonic-gate }
1497c478bd9Sstevel@tonic-gate
1507c478bd9Sstevel@tonic-gate | ',' expression pipeline shell_pipe terminator {
1517c478bd9Sstevel@tonic-gate if (!mdb_call(mdb_nv_get_value(mdb.m_dot), $2,
1527c478bd9Sstevel@tonic-gate DCMD_LOOP))
1537c478bd9Sstevel@tonic-gate return (0);
1547c478bd9Sstevel@tonic-gate }
1557c478bd9Sstevel@tonic-gate
1567c478bd9Sstevel@tonic-gate | expression terminator {
1578a6a72fdSaf mdb_frame_t *pfp = mdb_frame_pipe();
1587c478bd9Sstevel@tonic-gate /*
1597c478bd9Sstevel@tonic-gate * The handling of naked expressions is slightly tricky:
1607c478bd9Sstevel@tonic-gate * in a string context, we want to just set dot to the
1617c478bd9Sstevel@tonic-gate * expression value. In a pipe context, we also set
1627c478bd9Sstevel@tonic-gate * dot but need to record the address in the right-
1637c478bd9Sstevel@tonic-gate * hand command's addrv and update any vcbs that are
1647c478bd9Sstevel@tonic-gate * active. Otherwise, on the command-line, we have to
1657c478bd9Sstevel@tonic-gate * support this as an alias for executing the previous
1667c478bd9Sstevel@tonic-gate * command with the new value of dot. Sigh.
1677c478bd9Sstevel@tonic-gate */
1687c478bd9Sstevel@tonic-gate if (mdb_iob_isastr(mdb.m_in)) {
1697c478bd9Sstevel@tonic-gate mdb_nv_set_value(mdb.m_dot, $1);
1707c478bd9Sstevel@tonic-gate mdb.m_incr = 0;
1717c478bd9Sstevel@tonic-gate } else if (pfp != NULL && pfp->f_pcmd != NULL) {
1727c478bd9Sstevel@tonic-gate mdb_addrvec_unshift(&pfp->f_pcmd->c_addrv,
1737c478bd9Sstevel@tonic-gate (uintptr_t)$1);
1747c478bd9Sstevel@tonic-gate mdb_vcb_update(pfp, (uintptr_t)$1);
1757c478bd9Sstevel@tonic-gate mdb_nv_set_value(mdb.m_dot, $1);
1767c478bd9Sstevel@tonic-gate } else {
1777c478bd9Sstevel@tonic-gate mdb_list_move(&mdb.m_lastc,
1787c478bd9Sstevel@tonic-gate &mdb.m_frame->f_cmds);
1797c478bd9Sstevel@tonic-gate if (!mdb_call($1, 1, DCMD_ADDRSPEC))
1807c478bd9Sstevel@tonic-gate return (0);
1817c478bd9Sstevel@tonic-gate }
1827c478bd9Sstevel@tonic-gate }
1837c478bd9Sstevel@tonic-gate
1847c478bd9Sstevel@tonic-gate | expression ',' expression shell_pipe terminator {
1857c478bd9Sstevel@tonic-gate mdb_list_move(&mdb.m_lastc, &mdb.m_frame->f_cmds);
1867c478bd9Sstevel@tonic-gate if (!mdb_call($1, $3, DCMD_ADDRSPEC | DCMD_LOOP))
1877c478bd9Sstevel@tonic-gate return (0);
1887c478bd9Sstevel@tonic-gate }
1897c478bd9Sstevel@tonic-gate
1907c478bd9Sstevel@tonic-gate | ',' expression shell_pipe terminator {
1917c478bd9Sstevel@tonic-gate uintmax_t dot = mdb_dot_incr(",");
1927c478bd9Sstevel@tonic-gate mdb_list_move(&mdb.m_lastc, &mdb.m_frame->f_cmds);
1937c478bd9Sstevel@tonic-gate if (!mdb_call(dot, $2, DCMD_LOOP))
1947c478bd9Sstevel@tonic-gate return (0);
1957c478bd9Sstevel@tonic-gate }
1967c478bd9Sstevel@tonic-gate
1977c478bd9Sstevel@tonic-gate | '!' MDB_TOK_STRING terminator {
1987c478bd9Sstevel@tonic-gate if (mdb_iob_isapipe(mdb.m_in))
1997c478bd9Sstevel@tonic-gate yyerror("syntax error");
2007c478bd9Sstevel@tonic-gate mdb_shell_exec($2);
2017c478bd9Sstevel@tonic-gate }
2027c478bd9Sstevel@tonic-gate
2037c478bd9Sstevel@tonic-gate | terminator {
2047c478bd9Sstevel@tonic-gate if ((mdb.m_flags & MDB_FL_REPLAST) &&
2057c478bd9Sstevel@tonic-gate !mdb_iob_isastr(mdb.m_in)) {
2067c478bd9Sstevel@tonic-gate uintmax_t dot = mdb_dot_incr("\\n");
2077c478bd9Sstevel@tonic-gate /*
2087c478bd9Sstevel@tonic-gate * If a bare terminator is encountered, execute
2097c478bd9Sstevel@tonic-gate * the previous command if -o repeatlast is set
2107c478bd9Sstevel@tonic-gate * and stdin is not an mdb_eval() string.
2117c478bd9Sstevel@tonic-gate */
2127c478bd9Sstevel@tonic-gate mdb_list_move(&mdb.m_lastc,
2137c478bd9Sstevel@tonic-gate &mdb.m_frame->f_cmds);
2147c478bd9Sstevel@tonic-gate if (!mdb_call(dot, 1, 0))
2157c478bd9Sstevel@tonic-gate return (0);
2167c478bd9Sstevel@tonic-gate }
2177c478bd9Sstevel@tonic-gate }
2187c478bd9Sstevel@tonic-gate ;
2197c478bd9Sstevel@tonic-gate
2207c478bd9Sstevel@tonic-gate pipeline: pipeline '|' command { mdb_cmd_create($3, &mdb.m_frame->f_argvec); }
2217c478bd9Sstevel@tonic-gate | command { mdb_cmd_create($1, &mdb.m_frame->f_argvec); }
2227c478bd9Sstevel@tonic-gate ;
2237c478bd9Sstevel@tonic-gate
2247c478bd9Sstevel@tonic-gate command: '?' format_list { $$ = mdb_dcmd_lookup("?"); }
2257c478bd9Sstevel@tonic-gate | '/' format_list { $$ = mdb_dcmd_lookup("/"); }
2267c478bd9Sstevel@tonic-gate | '\\' format_list { $$ = mdb_dcmd_lookup("\\"); }
2277c478bd9Sstevel@tonic-gate | '@' format_list { $$ = mdb_dcmd_lookup("@"); }
2287c478bd9Sstevel@tonic-gate | '=' format_list { $$ = mdb_dcmd_lookup("="); }
2297c478bd9Sstevel@tonic-gate | MDB_TOK_DCMD argument_list { $$ = $1; }
2307c478bd9Sstevel@tonic-gate | '$' { $$ = mdb_dcmd_lookup("$?"); }
2317c478bd9Sstevel@tonic-gate ;
2327c478bd9Sstevel@tonic-gate
2337c478bd9Sstevel@tonic-gate shell_pipe: /* Empty */
2347c478bd9Sstevel@tonic-gate | '!' MDB_TOK_STRING { mdb_shell_pipe($2); }
2357c478bd9Sstevel@tonic-gate ;
2367c478bd9Sstevel@tonic-gate
2377c478bd9Sstevel@tonic-gate format_list: /* Empty */
2387c478bd9Sstevel@tonic-gate | format_list MDB_TOK_LEXPR expression MDB_TOK_REXPR {
2397c478bd9Sstevel@tonic-gate mdb_arg_t arg;
2407c478bd9Sstevel@tonic-gate
2417c478bd9Sstevel@tonic-gate arg.a_type = MDB_TYPE_IMMEDIATE;
2427c478bd9Sstevel@tonic-gate arg.a_un.a_val = $3;
2437c478bd9Sstevel@tonic-gate
2447c478bd9Sstevel@tonic-gate mdb_argvec_append(&mdb.m_frame->f_argvec, &arg);
2457c478bd9Sstevel@tonic-gate }
2467c478bd9Sstevel@tonic-gate
2477c478bd9Sstevel@tonic-gate | format_list MDB_TOK_IMMEDIATE {
2487c478bd9Sstevel@tonic-gate mdb_arg_t arg;
2497c478bd9Sstevel@tonic-gate
2507c478bd9Sstevel@tonic-gate arg.a_type = MDB_TYPE_IMMEDIATE;
2517c478bd9Sstevel@tonic-gate arg.a_un.a_val = $2;
2527c478bd9Sstevel@tonic-gate
2537c478bd9Sstevel@tonic-gate mdb_argvec_append(&mdb.m_frame->f_argvec, &arg);
2547c478bd9Sstevel@tonic-gate }
2557c478bd9Sstevel@tonic-gate
2567c478bd9Sstevel@tonic-gate | format_list MDB_TOK_STRING {
2577c478bd9Sstevel@tonic-gate mdb_arg_t arg;
2587c478bd9Sstevel@tonic-gate
2597c478bd9Sstevel@tonic-gate arg.a_type = MDB_TYPE_STRING;
2607c478bd9Sstevel@tonic-gate arg.a_un.a_str = $2;
2617c478bd9Sstevel@tonic-gate
2627c478bd9Sstevel@tonic-gate mdb_argvec_append(&mdb.m_frame->f_argvec, &arg);
2637c478bd9Sstevel@tonic-gate }
2647c478bd9Sstevel@tonic-gate
2657c478bd9Sstevel@tonic-gate | format_list MDB_TOK_CHAR {
2667c478bd9Sstevel@tonic-gate mdb_arg_t arg;
2677c478bd9Sstevel@tonic-gate
2687c478bd9Sstevel@tonic-gate arg.a_type = MDB_TYPE_CHAR;
2697c478bd9Sstevel@tonic-gate arg.a_un.a_char = $2;
2707c478bd9Sstevel@tonic-gate
2717c478bd9Sstevel@tonic-gate mdb_argvec_append(&mdb.m_frame->f_argvec, &arg);
2727c478bd9Sstevel@tonic-gate }
2737c478bd9Sstevel@tonic-gate ;
2747c478bd9Sstevel@tonic-gate
2757c478bd9Sstevel@tonic-gate argument_list: /* Empty */
2767c478bd9Sstevel@tonic-gate | argument_list MDB_TOK_LEXPR expression MDB_TOK_REXPR {
2777c478bd9Sstevel@tonic-gate mdb_arg_t arg;
2787c478bd9Sstevel@tonic-gate
2797c478bd9Sstevel@tonic-gate arg.a_type = MDB_TYPE_IMMEDIATE;
2807c478bd9Sstevel@tonic-gate arg.a_un.a_val = $3;
2817c478bd9Sstevel@tonic-gate
2827c478bd9Sstevel@tonic-gate mdb_argvec_append(&mdb.m_frame->f_argvec, &arg);
2837c478bd9Sstevel@tonic-gate }
2847c478bd9Sstevel@tonic-gate
2857c478bd9Sstevel@tonic-gate | argument_list MDB_TOK_STRING {
2867c478bd9Sstevel@tonic-gate mdb_arg_t arg;
2877c478bd9Sstevel@tonic-gate
2887c478bd9Sstevel@tonic-gate arg.a_type = MDB_TYPE_STRING;
2897c478bd9Sstevel@tonic-gate arg.a_un.a_str = $2;
2907c478bd9Sstevel@tonic-gate
2917c478bd9Sstevel@tonic-gate mdb_argvec_append(&mdb.m_frame->f_argvec, &arg);
2927c478bd9Sstevel@tonic-gate }
2937c478bd9Sstevel@tonic-gate ;
2947c478bd9Sstevel@tonic-gate
2957c478bd9Sstevel@tonic-gate expression: expression '+' expression { $$ = $1 + $3; }
2967c478bd9Sstevel@tonic-gate | expression '-' expression { $$ = $1 - $3; }
2977c478bd9Sstevel@tonic-gate | expression '*' expression { $$ = $1 * $3; }
2987c478bd9Sstevel@tonic-gate
2997c478bd9Sstevel@tonic-gate | expression '%' expression {
3007c478bd9Sstevel@tonic-gate if ($3 == 0UL)
3017c478bd9Sstevel@tonic-gate yyerror("attempted to divide by zero");
3027c478bd9Sstevel@tonic-gate
3037df3beaeSBryan Cantrill /*
3047df3beaeSBryan Cantrill * Annoyingly, x86 generates a #DE when dividing
3057df3beaeSBryan Cantrill * LONG_MIN by -1; check for this case explicitly.
3067df3beaeSBryan Cantrill */
3077df3beaeSBryan Cantrill if ($1 == LONG_MIN && $3 == -1L)
3087df3beaeSBryan Cantrill yyerror("divide overflow");
3097df3beaeSBryan Cantrill
3107c478bd9Sstevel@tonic-gate $$ = (intmax_t)$1 / (intmax_t)$3;
3117c478bd9Sstevel@tonic-gate }
3127c478bd9Sstevel@tonic-gate
313*7a2abfc9SRobert Mustacchi | expression MDB_TOK_MODULUS expression {
314*7a2abfc9SRobert Mustacchi
315*7a2abfc9SRobert Mustacchi if ($3 == 0UL)
316*7a2abfc9SRobert Mustacchi yyerror("attempted to divide by zero");
317*7a2abfc9SRobert Mustacchi
318*7a2abfc9SRobert Mustacchi $$ = $1 % $3;
319*7a2abfc9SRobert Mustacchi }
320*7a2abfc9SRobert Mustacchi
321*7a2abfc9SRobert Mustacchi
322*7a2abfc9SRobert Mustacchi
3237c478bd9Sstevel@tonic-gate | expression '&' expression { $$ = $1 & $3; }
3247c478bd9Sstevel@tonic-gate | expression '|' expression { $$ = $1 | $3; }
3257c478bd9Sstevel@tonic-gate | expression '^' expression { $$ = $1 ^ $3; }
3267c478bd9Sstevel@tonic-gate
3277c478bd9Sstevel@tonic-gate | expression MDB_TOK_EQUAL expression { $$ = ($1 == $3); }
3287c478bd9Sstevel@tonic-gate | expression MDB_TOK_NOTEQUAL expression { $$ = ($1 != $3); }
3297c478bd9Sstevel@tonic-gate
3307c478bd9Sstevel@tonic-gate | expression MDB_TOK_LSHIFT expression { $$ = $1 << $3; }
3317c478bd9Sstevel@tonic-gate | expression MDB_TOK_RSHIFT expression { $$ = $1 >> $3; }
3327c478bd9Sstevel@tonic-gate
3337c478bd9Sstevel@tonic-gate | expression '#' expression {
3347c478bd9Sstevel@tonic-gate if ($3 == 0UL)
3357c478bd9Sstevel@tonic-gate yyerror("attempted to divide by zero");
3367c478bd9Sstevel@tonic-gate
3377c478bd9Sstevel@tonic-gate $$ = ((intptr_t)($1 + ($3 - 1)) / (intptr_t)$3) * $3;
3387c478bd9Sstevel@tonic-gate }
3397c478bd9Sstevel@tonic-gate
3407c478bd9Sstevel@tonic-gate | '*' expression %prec MDB_COR_VALUE {
3417c478bd9Sstevel@tonic-gate uintptr_t value;
3427c478bd9Sstevel@tonic-gate
3437c478bd9Sstevel@tonic-gate vfetch(&value, sizeof (value), $2);
3447c478bd9Sstevel@tonic-gate $$ = value;
3457c478bd9Sstevel@tonic-gate }
3467c478bd9Sstevel@tonic-gate
3477c478bd9Sstevel@tonic-gate | MDB_TOK_COR1_DEREF expression %prec MDB_COR_VALUE {
3487c478bd9Sstevel@tonic-gate uint8_t value;
3497c478bd9Sstevel@tonic-gate
3507c478bd9Sstevel@tonic-gate vfetch(&value, sizeof (value), $2);
3517c478bd9Sstevel@tonic-gate $$ = value;
3527c478bd9Sstevel@tonic-gate }
3537c478bd9Sstevel@tonic-gate
3547c478bd9Sstevel@tonic-gate | MDB_TOK_COR2_DEREF expression %prec MDB_COR_VALUE {
3557c478bd9Sstevel@tonic-gate uint16_t value;
3567c478bd9Sstevel@tonic-gate
3577c478bd9Sstevel@tonic-gate vfetch(&value, sizeof (value), $2);
3587c478bd9Sstevel@tonic-gate $$ = value;
3597c478bd9Sstevel@tonic-gate }
3607c478bd9Sstevel@tonic-gate
3617c478bd9Sstevel@tonic-gate | MDB_TOK_COR4_DEREF expression %prec MDB_COR_VALUE {
3627c478bd9Sstevel@tonic-gate uint32_t value;
3637c478bd9Sstevel@tonic-gate
3647c478bd9Sstevel@tonic-gate vfetch(&value, sizeof (value), $2);
3657c478bd9Sstevel@tonic-gate $$ = value;
3667c478bd9Sstevel@tonic-gate }
3677c478bd9Sstevel@tonic-gate
3687c478bd9Sstevel@tonic-gate | MDB_TOK_COR8_DEREF expression %prec MDB_COR_VALUE {
3697c478bd9Sstevel@tonic-gate uint64_t value;
3707c478bd9Sstevel@tonic-gate
3717c478bd9Sstevel@tonic-gate vfetch(&value, sizeof (value), $2);
3727c478bd9Sstevel@tonic-gate $$ = value;
3737c478bd9Sstevel@tonic-gate }
3747c478bd9Sstevel@tonic-gate
3757c478bd9Sstevel@tonic-gate | '%' expression %prec MDB_OBJ_VALUE {
3767c478bd9Sstevel@tonic-gate uintptr_t value;
3777c478bd9Sstevel@tonic-gate
3787c478bd9Sstevel@tonic-gate ffetch(&value, sizeof (value), $2);
3797c478bd9Sstevel@tonic-gate $$ = value;
3807c478bd9Sstevel@tonic-gate }
3817c478bd9Sstevel@tonic-gate
3827c478bd9Sstevel@tonic-gate | MDB_TOK_OBJ1_DEREF expression %prec MDB_OBJ_VALUE {
3837c478bd9Sstevel@tonic-gate uint8_t value;
3847c478bd9Sstevel@tonic-gate
3857c478bd9Sstevel@tonic-gate ffetch(&value, sizeof (value), $2);
3867c478bd9Sstevel@tonic-gate $$ = value;
3877c478bd9Sstevel@tonic-gate }
3887c478bd9Sstevel@tonic-gate
3897c478bd9Sstevel@tonic-gate | MDB_TOK_OBJ2_DEREF expression %prec MDB_OBJ_VALUE {
3907c478bd9Sstevel@tonic-gate uint16_t value;
3917c478bd9Sstevel@tonic-gate
3927c478bd9Sstevel@tonic-gate ffetch(&value, sizeof (value), $2);
3937c478bd9Sstevel@tonic-gate $$ = value;
3947c478bd9Sstevel@tonic-gate }
3957c478bd9Sstevel@tonic-gate
3967c478bd9Sstevel@tonic-gate | MDB_TOK_OBJ4_DEREF expression %prec MDB_OBJ_VALUE {
3977c478bd9Sstevel@tonic-gate uint32_t value;
3987c478bd9Sstevel@tonic-gate
3997c478bd9Sstevel@tonic-gate ffetch(&value, sizeof (value), $2);
4007c478bd9Sstevel@tonic-gate $$ = value;
4017c478bd9Sstevel@tonic-gate }
4027c478bd9Sstevel@tonic-gate
4037c478bd9Sstevel@tonic-gate | MDB_TOK_OBJ8_DEREF expression %prec MDB_OBJ_VALUE {
4047c478bd9Sstevel@tonic-gate uint64_t value;
4057c478bd9Sstevel@tonic-gate
4067c478bd9Sstevel@tonic-gate ffetch(&value, sizeof (value), $2);
4077c478bd9Sstevel@tonic-gate $$ = value;
4087c478bd9Sstevel@tonic-gate }
4097c478bd9Sstevel@tonic-gate
4107c478bd9Sstevel@tonic-gate | '-' expression %prec MDB_INT_NEGATE { $$ = -$2; }
4117c478bd9Sstevel@tonic-gate | '~' expression %prec MDB_BIT_COMPLEMENT { $$ = ~$2; }
4127c478bd9Sstevel@tonic-gate | '#' expression %prec MDB_LOG_NEGATE { $$ = !$2; }
4137c478bd9Sstevel@tonic-gate | '(' expression ')' { $$ = $2; }
4147c478bd9Sstevel@tonic-gate
4157c478bd9Sstevel@tonic-gate | MDB_TOK_VAR_REF %prec MDB_VAR_REFERENCE {
4167c478bd9Sstevel@tonic-gate $$ = mdb_nv_get_value($1);
4177c478bd9Sstevel@tonic-gate }
4187c478bd9Sstevel@tonic-gate
4197c478bd9Sstevel@tonic-gate | MDB_TOK_SYMBOL {
4207c478bd9Sstevel@tonic-gate if (strcmp($1, ".") == 0) {
4217c478bd9Sstevel@tonic-gate $$ = mdb_nv_get_value(mdb.m_dot);
4227c478bd9Sstevel@tonic-gate strfree($1);
4237c478bd9Sstevel@tonic-gate
4247c478bd9Sstevel@tonic-gate } else {
4257c478bd9Sstevel@tonic-gate const char *obj = MDB_TGT_OBJ_EVERY, *name = $1;
4267c478bd9Sstevel@tonic-gate char *s = (char *)$1;
4277c478bd9Sstevel@tonic-gate GElf_Sym sym;
4287c478bd9Sstevel@tonic-gate
4297c478bd9Sstevel@tonic-gate if ((s = strrsplit(s, '`')) != NULL) {
4307c478bd9Sstevel@tonic-gate name = s;
4317c478bd9Sstevel@tonic-gate obj = $1;
4327c478bd9Sstevel@tonic-gate }
4337c478bd9Sstevel@tonic-gate
4347c478bd9Sstevel@tonic-gate if (mdb_tgt_lookup_by_name(mdb.m_target,
4357c478bd9Sstevel@tonic-gate obj, name, &sym, NULL) == -1) {
4367c478bd9Sstevel@tonic-gate strfree($1);
4377c478bd9Sstevel@tonic-gate yyperror("failed to dereference "
4387c478bd9Sstevel@tonic-gate "symbol");
4397c478bd9Sstevel@tonic-gate }
4407c478bd9Sstevel@tonic-gate
4417c478bd9Sstevel@tonic-gate strfree($1);
4427c478bd9Sstevel@tonic-gate $$ = (uintmax_t)sym.st_value;
4437c478bd9Sstevel@tonic-gate }
4447c478bd9Sstevel@tonic-gate }
4457c478bd9Sstevel@tonic-gate
4467c478bd9Sstevel@tonic-gate | '+' { $$ = mdb_dot_incr("+"); }
4477c478bd9Sstevel@tonic-gate | '^' { $$ = mdb_dot_decr("^"); }
4487c478bd9Sstevel@tonic-gate | '&' { $$ = mdb.m_raddr; }
4497c478bd9Sstevel@tonic-gate | MDB_TOK_IMMEDIATE
4507c478bd9Sstevel@tonic-gate ;
4517c478bd9Sstevel@tonic-gate
4527c478bd9Sstevel@tonic-gate %%
453