diff options
| author | Fred Fish <fnf@specifix.com> | 1996-07-26 03:01:51 +0000 |
|---|---|---|
| committer | Fred Fish <fnf@specifix.com> | 1996-07-26 03:01:51 +0000 |
| commit | b607efe7149f91512dc5fd9dbfc4c6156cdf9a93 (patch) | |
| tree | b90b82aac0d802ec179525d8d80635a44c562f1e /gdb/scm-exp.c | |
| parent | dc88c64e2c0dbc786d0cee2b3bde0bdee8fcf2d1 (diff) | |
| download | gdb-b607efe7149f91512dc5fd9dbfc4c6156cdf9a93.zip gdb-b607efe7149f91512dc5fd9dbfc4c6156cdf9a93.tar.gz gdb-b607efe7149f91512dc5fd9dbfc4c6156cdf9a93.tar.bz2 | |
See gdb ChangeLog entry with header:
Thu Jul 25 19:41:31 1996 Fred Fish <fnf@cygnus.com>
for a rather huge set of changes. I was going to put them here, but it
made cvs dump core. :-(
Diffstat (limited to 'gdb/scm-exp.c')
| -rw-r--r-- | gdb/scm-exp.c | 17 |
1 files changed, 13 insertions, 4 deletions
diff --git a/gdb/scm-exp.c b/gdb/scm-exp.c index 8df6803..70e7191 100644 --- a/gdb/scm-exp.c +++ b/gdb/scm-exp.c @@ -30,15 +30,19 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #define USE_EXPRSTRING 0 +static void scm_lreadparen PARAMS ((int)); +static int scm_skip_ws PARAMS ((void)); +static void scm_read_token PARAMS ((int, int)); +static LONGEST scm_istring2number PARAMS ((char *, int, int)); +static LONGEST scm_istr2int PARAMS ((char *, int, int)); static void scm_lreadr PARAMS ((int)); -LONGEST +static LONGEST scm_istr2int(str, len, radix) char *str; int len; int radix; { - int j; int i = 0; LONGEST inum = 0; int c; @@ -78,7 +82,7 @@ scm_istr2int(str, len, radix) return SCM_MAKINUM (inum); } -LONGEST +static LONGEST scm_istring2number(str, len, radix) char *str; int len; @@ -87,7 +91,9 @@ scm_istring2number(str, len, radix) int i = 0; char ex = 0; char ex_p = 0, rx_p = 0; /* Only allow 1 exactness and 1 radix prefix */ +#if 0 SCM res; +#endif if (len==1) if (*str=='+' || *str=='-') /* Catches lone `+' and `-' for speed */ return SCM_BOOL_F; @@ -319,7 +325,9 @@ scm_lreadr (skipping) goto tryagain; case '.': default: +#if 0 callshrp: +#endif scm_lreadr (skipping); return; } @@ -365,7 +373,9 @@ scm_lreadr (skipping) case ':': scm_read_token ('-', 0); return; +#if 0 do_symbol: +#endif default: str.ptr = lexptr-1; scm_read_token (c, 0); @@ -398,7 +408,6 @@ int scm_parse () { char* start; - struct stoken str; while (*lexptr == ' ') lexptr++; start = lexptr; |