From 6b4a335bf7b7996e904e895b3fdc35443c40cfca Mon Sep 17 00:00:00 2001 From: Tom Tromey Date: Wed, 1 Apr 2020 14:09:52 -0600 Subject: [PATCH] Fix value_literal_complex comment Christian pointed out that the value_literal_complex was still a bit weird; this patch rewrites it and moves it to value.h. gdb/ChangeLog 2020-04-01 Tom Tromey * value.h (value_literal_complex): Add comment. * valops.c (value_literal_complex): Refer to value.h. --- gdb/ChangeLog | 5 +++++ gdb/valops.c | 6 ++---- gdb/value.h | 4 ++++ 3 files changed, 11 insertions(+), 4 deletions(-) diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 61d30070e37..12f099559b8 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,8 @@ +2020-04-01 Tom Tromey + + * value.h (value_literal_complex): Add comment. + * valops.c (value_literal_complex): Refer to value.h. + 2020-04-01 Tom Tromey * c-exp.y (FLOAT_KEYWORD, COMPLEX): New tokens. diff --git a/gdb/valops.c b/gdb/valops.c index 83fd2584b59..03c6482ee1e 100644 --- a/gdb/valops.c +++ b/gdb/valops.c @@ -3854,12 +3854,10 @@ value_slice (struct value *array, int lowbound, int length) return slice; } -/* Create a value for a FORTRAN complex number. Currently most of the - time values are coerced to COMPLEX*16 (i.e. a complex number - composed of 2 doubles. */ +/* See value.h. */ struct value * -value_literal_complex (struct value *arg1, +value_literal_complex (struct value *arg1, struct value *arg2, struct type *type) { diff --git a/gdb/value.h b/gdb/value.h index 85fe6c297f5..247be13a0d9 100644 --- a/gdb/value.h +++ b/gdb/value.h @@ -1138,6 +1138,10 @@ extern struct value *varying_to_slice (struct value *); extern struct value *value_slice (struct value *, int, int); +/* Create a complex number. The type is the complex type; the values + are cast to the underlying scalar type before the complex number is + created. */ + extern struct value *value_literal_complex (struct value *, struct value *, struct type *); -- 2.30.2