diff options
| author | Per Bothner <per@bothner.com> | 1995-09-29 01:43:54 +0000 |
|---|---|---|
| committer | Per Bothner <per@bothner.com> | 1995-09-29 01:43:54 +0000 |
| commit | 0e4ca328e1d046bc478f61273b1cb3a86d5c592e (patch) | |
| tree | 93a4c015edad29672c526e9c798106d07a14c224 /gdb/parse.c | |
| parent | 38fe0f1fc711cbf62260a9d9c23d4d2fe7360ea3 (diff) | |
| download | gdb-0e4ca328e1d046bc478f61273b1cb3a86d5c592e.zip gdb-0e4ca328e1d046bc478f61273b1cb3a86d5c592e.tar.gz gdb-0e4ca328e1d046bc478f61273b1cb3a86d5c592e.tar.bz2 | |
* defs.h (enum language): Add language_scm.
* expression.h (enum exp_code): Added OP_EXPRSTRING.
* scm-lang.c: Preliminary support for Guile /SCM dialect of Scheme.
* expprint.c (print_subexp): Add OP_EXPRSTRING support.
* parse.c (length_of_subexp, prefixify_subexp): Likewise.
* valops.c (find_function_in_inferior): New function.
(value_allocate_space_in_inferior): New function.
(allocate_space_in_inferior): Redefine using previous function.
* Makefile.in (SFILES): Add scm-lang.c.
(COMMON_OBS): Add scm-lang.o
Diffstat (limited to 'gdb/parse.c')
| -rw-r--r-- | gdb/parse.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gdb/parse.c b/gdb/parse.c index ad38e8b..a545814 100644 --- a/gdb/parse.c +++ b/gdb/parse.c @@ -512,6 +512,7 @@ length_of_subexp (expr, endpos) /* fall through */ case OP_M2_STRING: case OP_STRING: + case OP_EXPRSTRING: oplen = longest_to_int (expr->elts[endpos - 2].longconst); oplen = 4 + BYTES_TO_EXP_ELEM (oplen + 1); break; @@ -649,6 +650,7 @@ prefixify_subexp (inexpr, outexpr, inend, outbeg) /* fall through */ case OP_M2_STRING: case OP_STRING: + case OP_EXPRSTRING: oplen = longest_to_int (inexpr->elts[inend - 2].longconst); oplen = 4 + BYTES_TO_EXP_ELEM (oplen + 1); break; |