projects
/
deliverable
/
binutils-gdb.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
*** empty log message ***
[deliverable/binutils-gdb.git]
/
gdb
/
scm-exp.c
diff --git
a/gdb/scm-exp.c
b/gdb/scm-exp.c
index 43cb4d8a43ec45ccfebaf83a48000c5bb75c00d1..61eb7c4b73998995f6ebfd6d7f0d19a88d671d17 100644
(file)
--- a/
gdb/scm-exp.c
+++ b/
gdb/scm-exp.c
@@
-1,5
+1,7
@@
/* Scheme/Guile language support routines for GDB, the GNU debugger.
/* Scheme/Guile language support routines for GDB, the GNU debugger.
- Copyright 1995 Free Software Foundation, Inc.
+
+ Copyright (C) 1995, 1996, 2000, 2003, 2005 Free Software Foundation,
+ Inc.
This file is part of GDB.
This file is part of GDB.
@@
-15,8
+17,8
@@
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
- Foundation, Inc., 5
9 Temple Place - Suite 330
,
- Boston, MA 0211
1-1307
, USA. */
+ Foundation, Inc., 5
1 Franklin Street, Fifth Floor
,
+ Boston, MA 0211
0-1301
, USA. */
#include "defs.h"
#include "symtab.h"
#include "defs.h"
#include "symtab.h"
@@
-39,10
+41,7
@@
static LONGEST scm_istr2int (char *, int, int);
static void scm_lreadr (int);
static LONGEST
static void scm_lreadr (int);
static LONGEST
-scm_istr2int (str, len, radix)
- char *str;
- int len;
- int radix;
+scm_istr2int (char *str, int len, int radix)
{
int i = 0;
LONGEST inum = 0;
{
int i = 0;
LONGEST inum = 0;
@@
-107,10
+106,7
@@
scm_istr2int (str, len, radix)
}
static LONGEST
}
static LONGEST
-scm_istring2number (str, len, radix)
- char *str;
- int len;
- int radix;
+scm_istring2number (char *str, int len, int radix)
{
int i = 0;
char ex = 0;
{
int i = 0;
char ex = 0;
@@
-184,9
+180,7
@@
scm_istring2number (str, len, radix)
}
static void
}
static void
-scm_read_token (c, weird)
- int c;
- int weird;
+scm_read_token (int c, int weird)
{
while (1)
{
{
while (1)
{
@@
-243,9
+237,9
@@
scm_read_token (c, weird)
}
static int
}
static int
-scm_skip_ws ()
+scm_skip_ws (
void
)
{
{
-
register
int c;
+ int c;
while (1)
switch ((c = *lexptr++))
{
while (1)
switch ((c = *lexptr++))
{
@@
-275,8
+269,7
@@
scm_skip_ws ()
}
static void
}
static void
-scm_lreadparen (skipping)
- int skipping;
+scm_lreadparen (int skipping)
{
for (;;)
{
{
for (;;)
{
@@
-291,8
+284,7
@@
scm_lreadparen (skipping)
}
static void
}
static void
-scm_lreadr (skipping)
- int skipping;
+scm_lreadr (int skipping)
{
int c, j;
struct stoken str;
{
int c, j;
struct stoken str;
@@
-318,11
+310,11
@@
tryagain:
scm_lreadr (skipping);
if (!skipping)
{
scm_lreadr (skipping);
if (!skipping)
{
-
value_ptr
val = scm_evaluate_string (str.ptr, lexptr - str.ptr);
- if (!is_scmvalue_type (
VALUE_TYPE
(val)))
+
struct value *
val = scm_evaluate_string (str.ptr, lexptr - str.ptr);
+ if (!is_scmvalue_type (
value_type
(val)))
error ("quoted scm form yields non-SCM value");
error ("quoted scm form yields non-SCM value");
- svalue = extract_signed_integer (
VALUE_CONTENTS
(val),
- TYPE_LENGTH (
VALUE_TYPE
(val)));
+ svalue = extract_signed_integer (
value_contents
(val),
+ TYPE_LENGTH (
value_type
(val)));
goto handle_immediate;
}
return;
goto handle_immediate;
}
return;
@@
-487,7
+479,7
@@
handle_immediate:
}
int
}
int
-scm_parse ()
+scm_parse (
void
)
{
char *start;
while (*lexptr == ' ')
{
char *start;
while (*lexptr == ' ')
This page took
0.024742 seconds
and
4
git commands to generate.