diff options
author | Per Bothner <per@bothner.com> | 1995-11-29 23:22:32 +0000 |
---|---|---|
committer | Per Bothner <per@bothner.com> | 1995-11-29 23:22:32 +0000 |
commit | f2ed3a80bbee4ea7e133c4b7ae56fcae3cf8699c (patch) | |
tree | 83652d24e8d99fc0395ad6e99c94141798b66bb3 /gdb | |
parent | badefd2800f5ee2dc6a0eef870771af9dc29bba7 (diff) | |
download | gdb-f2ed3a80bbee4ea7e133c4b7ae56fcae3cf8699c.zip gdb-f2ed3a80bbee4ea7e133c4b7ae56fcae3cf8699c.tar.gz gdb-f2ed3a80bbee4ea7e133c4b7ae56fcae3cf8699c.tar.bz2 |
* top.c (command_line_input): Only strip out an initial #-comment.
Looking for internal comments is language-specific (breaks Scheme).
Diffstat (limited to 'gdb')
-rw-r--r-- | gdb/ChangeLog | 3 | ||||
-rw-r--r-- | gdb/top.c | 47 |
2 files changed, 10 insertions, 40 deletions
diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 1e2654a..f15444a 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,5 +1,8 @@ Wed Nov 29 13:35:18 1995 Per Bothner <bothner@kalessin.cygnus.com> + * top.c (command_line_input): Only strip out an initial #-comment. + Looking for internal comments is language-specific (breaks Scheme). + * expression.h (enum exp_opcode): Add BINOP_RANGE. * expprint.c (dump_expression): Support BINOP_RANGE. * eval.c (evaluate_subexp_standard): Handle BINOP_RANGE (as error). @@ -2041,16 +2041,11 @@ command_line_input (prrompt, repeat, annotation_suffix) /* If we just got an empty line, and that is supposed to repeat the previous command, return the value in the global buffer. */ - if (repeat) - { - if (p == linebuffer) - return line; - p1 = linebuffer; - while (*p1 == ' ' || *p1 == '\t') - p1++; - if (!*p1) - return line; - } + if (repeat && p == linebuffer) + return line; + for (p1 = linebuffer; *p1 == ' ' || *p1 == '\t'; p1++) ; + if (repeat && !*p1) + return line; *p = 0; @@ -2065,36 +2060,8 @@ command_line_input (prrompt, repeat, annotation_suffix) out the command and then later fetch it from the value history and remove the '#'. The kill ring is probably better, but some people are in the habit of commenting things out. */ - p1 = linebuffer; - while ((c = *p1++) != '\0') - { - if (c == '"') - while ((c = *p1++) != '"') - { - /* Make sure an escaped '"' doesn't make us think the string - is ended. */ - if (c == '\\') - parse_escape (&p1); - if (c == '\0') - break; - } - else if (c == '\'') - while ((c = *p1++) != '\'') - { - /* Make sure an escaped '\'' doesn't make us think the string - is ended. */ - if (c == '\\') - parse_escape (&p1); - if (c == '\0') - break; - } - else if (c == '#') - { - /* Found a comment. */ - p1[-1] = '\0'; - break; - } - } + if (*p1 == '#') + *p1 = '\0'; /* Found a comment. */ /* Save into global buffer if appropriate. */ if (repeat) |