diff options
| author | Michael Snyder <msnyder@vmware.com> | 2010-05-16 23:49:58 +0000 |
|---|---|---|
| committer | Michael Snyder <msnyder@vmware.com> | 2010-05-16 23:49:58 +0000 |
| commit | 433759f7091e71559584a924e0d18cc8a0770fc9 (patch) | |
| tree | 9698031d651fcb74c945a760b024f53d7ce5930a /gdb/scm-lang.c | |
| parent | dd304d5382484115a44a2aa81aafbb92e70ae462 (diff) | |
| download | gdb-433759f7091e71559584a924e0d18cc8a0770fc9.zip gdb-433759f7091e71559584a924e0d18cc8a0770fc9.tar.gz gdb-433759f7091e71559584a924e0d18cc8a0770fc9.tar.bz2 | |
2010-05-16 Michael Snyder <msnyder@vmware.com>
* scm-exp.c: White space.
* scm-lang.c: White space.
* scm-valprint.c: White space.
* sentinel-frame.c: White space.
* ser-base.c: White space.
* ser-go32.c: White space.
* serial.c: White space.
* ser-mingw.c: White space.
* ser-pipe.c: White space.
* ser-tcp.c: White space.
* ser-unix.c: White space.
* solib.c: White space.
* solib-darwin.c: White space.
* solib-frv.c: White space.
* solib-irix.c: White space.
* solib-osf.c: White space.
* solib-pa64.c: White space.
* solib-som.c: White space.
* solib-spu.c: White space.
* solib-svr4.c: White space.
* solib-target.c: White space.
* source.c: White space.
* stabsread.c: White space.
* stack.c: White space.
* std-regs.c: White space.
* symfile.c: White space.
* symmisc.c: White space.
* symtab.c: White space.
Diffstat (limited to 'gdb/scm-lang.c')
| -rw-r--r-- | gdb/scm-lang.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/gdb/scm-lang.c b/gdb/scm-lang.c index 23e5f22..870b1e4 100644 --- a/gdb/scm-lang.c +++ b/gdb/scm-lang.c @@ -70,6 +70,7 @@ scm_get_field (LONGEST svalue, int index, int size, enum bfd_endian byte_order) { gdb_byte buffer[20]; + read_memory (SCM2PTR (svalue) + index * size, buffer, size); return extract_signed_integer (buffer, size, byte_order); } @@ -135,6 +136,7 @@ in_eval_c (void) { char *filename = cursal.symtab->filename; int len = strlen (filename); + if (len >= 6 && strcmp (filename + len - 6, "eval.c") == 0) return 1; } @@ -188,6 +190,7 @@ scm_evaluate_string (char *str, int len) struct value *func; struct value *addr = value_allocate_space_in_inferior (len + 1); LONGEST iaddr = value_as_long (addr); + write_memory (iaddr, (gdb_byte *) str, len); /* FIXME - should find and pass env */ write_memory (iaddr + len, (gdb_byte *) "", 1); @@ -202,6 +205,7 @@ evaluate_exp (struct type *expect_type, struct expression *exp, enum exp_opcode op = exp->elts[*pos].opcode; int len, pc; char *str; + switch (op) { case OP_NAME: |