diff options
| author | Tom Tromey <tom@tromey.com> | 2021-03-08 07:27:57 -0700 |
|---|---|---|
| committer | Tom Tromey <tom@tromey.com> | 2021-03-08 07:28:28 -0700 |
| commit | 2bc9b40ce16a109a22320589d2cfb9fced5fb769 (patch) | |
| tree | 4b118a13d15c4a096435ed2a2ffb6eadbb3e9a7a /gdb/m2-lang.c | |
| parent | 5947d337d6061b884073a3a684aff2825c4a05f9 (diff) | |
| download | fsf-binutils-gdb-2bc9b40ce16a109a22320589d2cfb9fced5fb769.zip fsf-binutils-gdb-2bc9b40ce16a109a22320589d2cfb9fced5fb769.tar.gz fsf-binutils-gdb-2bc9b40ce16a109a22320589d2cfb9fced5fb769.tar.bz2 | |
Add two simple Modula-2 operations
This adds a couple of simple Modula-2 operations.
gdb/ChangeLog
2021-03-08 Tom Tromey <tom@tromey.com>
* m2-lang.c (eval_op_m2_high, eval_op_m2_subscript): No longer
static.
* m2-exp.h: New file.
Diffstat (limited to 'gdb/m2-lang.c')
| -rw-r--r-- | gdb/m2-lang.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gdb/m2-lang.c b/gdb/m2-lang.c index 5748b60..e286613 100644 --- a/gdb/m2-lang.c +++ b/gdb/m2-lang.c @@ -28,10 +28,11 @@ #include "c-lang.h" #include "valprint.h" #include "gdbarch.h" +#include "m2-exp.h" /* A helper function for UNOP_HIGH. */ -static struct value * +struct value * eval_op_m2_high (struct type *expect_type, struct expression *exp, enum noside noside, struct value *arg1) @@ -62,7 +63,7 @@ eval_op_m2_high (struct type *expect_type, struct expression *exp, /* A helper function for BINOP_SUBSCRIPT. */ -static struct value * +struct value * eval_op_m2_subscript (struct type *expect_type, struct expression *exp, enum noside noside, struct value *arg1, struct value *arg2) |