/* Pascal language support routines for GDB, the GNU debugger.
|
/* Pascal language support routines for GDB, the GNU debugger.
|
|
|
Copyright (C) 2000, 2002, 2003, 2004, 2005, 2007, 2008
|
Copyright (C) 2000, 2002, 2003, 2004, 2005, 2007, 2008
|
Free Software Foundation, Inc.
|
Free Software Foundation, Inc.
|
|
|
This file is part of GDB.
|
This file is part of GDB.
|
|
|
This program is free software; you can redistribute it and/or modify
|
This program is free software; you can redistribute it and/or modify
|
it under the terms of the GNU General Public License as published by
|
it under the terms of the GNU General Public License as published by
|
the Free Software Foundation; either version 3 of the License, or
|
the Free Software Foundation; either version 3 of the License, or
|
(at your option) any later version.
|
(at your option) any later version.
|
|
|
This program is distributed in the hope that it will be useful,
|
This program is distributed in the hope that it will be useful,
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
GNU General Public License for more details.
|
GNU General Public License for more details.
|
|
|
You should have received a copy of the GNU General Public License
|
You should have received a copy of the GNU General Public License
|
along with this program. If not, see <http://www.gnu.org/licenses/>. */
|
along with this program. If not, see <http://www.gnu.org/licenses/>. */
|
|
|
/* This file is derived from c-lang.c */
|
/* This file is derived from c-lang.c */
|
|
|
#include "defs.h"
|
#include "defs.h"
|
#include "gdb_string.h"
|
#include "gdb_string.h"
|
#include "symtab.h"
|
#include "symtab.h"
|
#include "gdbtypes.h"
|
#include "gdbtypes.h"
|
#include "expression.h"
|
#include "expression.h"
|
#include "parser-defs.h"
|
#include "parser-defs.h"
|
#include "language.h"
|
#include "language.h"
|
#include "p-lang.h"
|
#include "p-lang.h"
|
#include "valprint.h"
|
#include "valprint.h"
|
#include "value.h"
|
#include "value.h"
|
#include <ctype.h>
|
#include <ctype.h>
|
|
|
extern void _initialize_pascal_language (void);
|
extern void _initialize_pascal_language (void);
|
|
|
|
|
/* All GPC versions until now (2007-09-27) also define a symbol called
|
/* All GPC versions until now (2007-09-27) also define a symbol called
|
'_p_initialize'. Check for the presence of this symbol first. */
|
'_p_initialize'. Check for the presence of this symbol first. */
|
static const char GPC_P_INITIALIZE[] = "_p_initialize";
|
static const char GPC_P_INITIALIZE[] = "_p_initialize";
|
|
|
/* The name of the symbol that GPC uses as the name of the main
|
/* The name of the symbol that GPC uses as the name of the main
|
procedure (since version 20050212). */
|
procedure (since version 20050212). */
|
static const char GPC_MAIN_PROGRAM_NAME_1[] = "_p__M0_main_program";
|
static const char GPC_MAIN_PROGRAM_NAME_1[] = "_p__M0_main_program";
|
|
|
/* Older versions of GPC (versions older than 20050212) were using
|
/* Older versions of GPC (versions older than 20050212) were using
|
a different name for the main procedure. */
|
a different name for the main procedure. */
|
static const char GPC_MAIN_PROGRAM_NAME_2[] = "pascal_main_program";
|
static const char GPC_MAIN_PROGRAM_NAME_2[] = "pascal_main_program";
|
|
|
/* Function returning the special symbol name used
|
/* Function returning the special symbol name used
|
by GPC for the main procedure in the main program
|
by GPC for the main procedure in the main program
|
if it is found in minimal symbol list.
|
if it is found in minimal symbol list.
|
This function tries to find minimal symbols generated by GPC
|
This function tries to find minimal symbols generated by GPC
|
so that it finds the even if the program was compiled
|
so that it finds the even if the program was compiled
|
without debugging information.
|
without debugging information.
|
According to information supplied by Waldeck Hebisch,
|
According to information supplied by Waldeck Hebisch,
|
this should work for all versions posterior to June 2000. */
|
this should work for all versions posterior to June 2000. */
|
|
|
const char *
|
const char *
|
pascal_main_name (void)
|
pascal_main_name (void)
|
{
|
{
|
struct minimal_symbol *msym;
|
struct minimal_symbol *msym;
|
|
|
msym = lookup_minimal_symbol (GPC_P_INITIALIZE, NULL, NULL);
|
msym = lookup_minimal_symbol (GPC_P_INITIALIZE, NULL, NULL);
|
|
|
/* If '_p_initialize' was not found, the main program is likely not
|
/* If '_p_initialize' was not found, the main program is likely not
|
written in Pascal. */
|
written in Pascal. */
|
if (msym == NULL)
|
if (msym == NULL)
|
return NULL;
|
return NULL;
|
|
|
msym = lookup_minimal_symbol (GPC_MAIN_PROGRAM_NAME_1, NULL, NULL);
|
msym = lookup_minimal_symbol (GPC_MAIN_PROGRAM_NAME_1, NULL, NULL);
|
if (msym != NULL)
|
if (msym != NULL)
|
{
|
{
|
return GPC_MAIN_PROGRAM_NAME_1;
|
return GPC_MAIN_PROGRAM_NAME_1;
|
}
|
}
|
|
|
msym = lookup_minimal_symbol (GPC_MAIN_PROGRAM_NAME_2, NULL, NULL);
|
msym = lookup_minimal_symbol (GPC_MAIN_PROGRAM_NAME_2, NULL, NULL);
|
if (msym != NULL)
|
if (msym != NULL)
|
{
|
{
|
return GPC_MAIN_PROGRAM_NAME_2;
|
return GPC_MAIN_PROGRAM_NAME_2;
|
}
|
}
|
|
|
/* No known entry procedure found, the main program is probably
|
/* No known entry procedure found, the main program is probably
|
not compiled with GPC. */
|
not compiled with GPC. */
|
return NULL;
|
return NULL;
|
}
|
}
|
|
|
/* Determines if type TYPE is a pascal string type.
|
/* Determines if type TYPE is a pascal string type.
|
Returns 1 if the type is a known pascal type
|
Returns 1 if the type is a known pascal type
|
This function is used by p-valprint.c code to allow better string display.
|
This function is used by p-valprint.c code to allow better string display.
|
If it is a pascal string type, then it also sets info needed
|
If it is a pascal string type, then it also sets info needed
|
to get the length and the data of the string
|
to get the length and the data of the string
|
length_pos, length_size and string_pos are given in bytes.
|
length_pos, length_size and string_pos are given in bytes.
|
char_size gives the element size in bytes.
|
char_size gives the element size in bytes.
|
FIXME: if the position or the size of these fields
|
FIXME: if the position or the size of these fields
|
are not multiple of TARGET_CHAR_BIT then the results are wrong
|
are not multiple of TARGET_CHAR_BIT then the results are wrong
|
but this does not happen for Free Pascal nor for GPC. */
|
but this does not happen for Free Pascal nor for GPC. */
|
int
|
int
|
is_pascal_string_type (struct type *type,int *length_pos,
|
is_pascal_string_type (struct type *type,int *length_pos,
|
int *length_size, int *string_pos, int *char_size,
|
int *length_size, int *string_pos, int *char_size,
|
char **arrayname)
|
char **arrayname)
|
{
|
{
|
if (TYPE_CODE (type) == TYPE_CODE_STRUCT)
|
if (TYPE_CODE (type) == TYPE_CODE_STRUCT)
|
{
|
{
|
/* Old Borland type pascal strings from Free Pascal Compiler. */
|
/* Old Borland type pascal strings from Free Pascal Compiler. */
|
/* Two fields: length and st. */
|
/* Two fields: length and st. */
|
if (TYPE_NFIELDS (type) == 2
|
if (TYPE_NFIELDS (type) == 2
|
&& strcmp (TYPE_FIELDS (type)[0].name, "length") == 0
|
&& strcmp (TYPE_FIELDS (type)[0].name, "length") == 0
|
&& strcmp (TYPE_FIELDS (type)[1].name, "st") == 0)
|
&& strcmp (TYPE_FIELDS (type)[1].name, "st") == 0)
|
{
|
{
|
if (length_pos)
|
if (length_pos)
|
*length_pos = TYPE_FIELD_BITPOS (type, 0) / TARGET_CHAR_BIT;
|
*length_pos = TYPE_FIELD_BITPOS (type, 0) / TARGET_CHAR_BIT;
|
if (length_size)
|
if (length_size)
|
*length_size = TYPE_LENGTH (TYPE_FIELD_TYPE (type, 0));
|
*length_size = TYPE_LENGTH (TYPE_FIELD_TYPE (type, 0));
|
if (string_pos)
|
if (string_pos)
|
*string_pos = TYPE_FIELD_BITPOS (type, 1) / TARGET_CHAR_BIT;
|
*string_pos = TYPE_FIELD_BITPOS (type, 1) / TARGET_CHAR_BIT;
|
if (char_size)
|
if (char_size)
|
*char_size = 1;
|
*char_size = 1;
|
if (arrayname)
|
if (arrayname)
|
*arrayname = TYPE_FIELDS (type)[1].name;
|
*arrayname = TYPE_FIELDS (type)[1].name;
|
return 2;
|
return 2;
|
};
|
};
|
/* GNU pascal strings. */
|
/* GNU pascal strings. */
|
/* Three fields: Capacity, length and schema$ or _p_schema. */
|
/* Three fields: Capacity, length and schema$ or _p_schema. */
|
if (TYPE_NFIELDS (type) == 3
|
if (TYPE_NFIELDS (type) == 3
|
&& strcmp (TYPE_FIELDS (type)[0].name, "Capacity") == 0
|
&& strcmp (TYPE_FIELDS (type)[0].name, "Capacity") == 0
|
&& strcmp (TYPE_FIELDS (type)[1].name, "length") == 0)
|
&& strcmp (TYPE_FIELDS (type)[1].name, "length") == 0)
|
{
|
{
|
if (length_pos)
|
if (length_pos)
|
*length_pos = TYPE_FIELD_BITPOS (type, 1) / TARGET_CHAR_BIT;
|
*length_pos = TYPE_FIELD_BITPOS (type, 1) / TARGET_CHAR_BIT;
|
if (length_size)
|
if (length_size)
|
*length_size = TYPE_LENGTH (TYPE_FIELD_TYPE (type, 1));
|
*length_size = TYPE_LENGTH (TYPE_FIELD_TYPE (type, 1));
|
if (string_pos)
|
if (string_pos)
|
*string_pos = TYPE_FIELD_BITPOS (type, 2) / TARGET_CHAR_BIT;
|
*string_pos = TYPE_FIELD_BITPOS (type, 2) / TARGET_CHAR_BIT;
|
/* FIXME: how can I detect wide chars in GPC ?? */
|
/* FIXME: how can I detect wide chars in GPC ?? */
|
if (char_size)
|
if (char_size)
|
*char_size = 1;
|
*char_size = 1;
|
if (arrayname)
|
if (arrayname)
|
*arrayname = TYPE_FIELDS (type)[2].name;
|
*arrayname = TYPE_FIELDS (type)[2].name;
|
return 3;
|
return 3;
|
};
|
};
|
}
|
}
|
return 0;
|
return 0;
|
}
|
}
|
|
|
static void pascal_one_char (int, struct ui_file *, int *);
|
static void pascal_one_char (int, struct ui_file *, int *);
|
|
|
/* Print the character C on STREAM as part of the contents of a literal
|
/* Print the character C on STREAM as part of the contents of a literal
|
string.
|
string.
|
In_quotes is reset to 0 if a char is written with #4 notation */
|
In_quotes is reset to 0 if a char is written with #4 notation */
|
|
|
static void
|
static void
|
pascal_one_char (int c, struct ui_file *stream, int *in_quotes)
|
pascal_one_char (int c, struct ui_file *stream, int *in_quotes)
|
{
|
{
|
|
|
c &= 0xFF; /* Avoid sign bit follies */
|
c &= 0xFF; /* Avoid sign bit follies */
|
|
|
if ((c == '\'') || (PRINT_LITERAL_FORM (c)))
|
if ((c == '\'') || (PRINT_LITERAL_FORM (c)))
|
{
|
{
|
if (!(*in_quotes))
|
if (!(*in_quotes))
|
fputs_filtered ("'", stream);
|
fputs_filtered ("'", stream);
|
*in_quotes = 1;
|
*in_quotes = 1;
|
if (c == '\'')
|
if (c == '\'')
|
{
|
{
|
fputs_filtered ("''", stream);
|
fputs_filtered ("''", stream);
|
}
|
}
|
else
|
else
|
fprintf_filtered (stream, "%c", c);
|
fprintf_filtered (stream, "%c", c);
|
}
|
}
|
else
|
else
|
{
|
{
|
if (*in_quotes)
|
if (*in_quotes)
|
fputs_filtered ("'", stream);
|
fputs_filtered ("'", stream);
|
*in_quotes = 0;
|
*in_quotes = 0;
|
fprintf_filtered (stream, "#%d", (unsigned int) c);
|
fprintf_filtered (stream, "#%d", (unsigned int) c);
|
}
|
}
|
}
|
}
|
|
|
static void pascal_emit_char (int c, struct ui_file *stream, int quoter);
|
static void pascal_emit_char (int c, struct ui_file *stream, int quoter);
|
|
|
/* Print the character C on STREAM as part of the contents of a literal
|
/* Print the character C on STREAM as part of the contents of a literal
|
string whose delimiter is QUOTER. Note that that format for printing
|
string whose delimiter is QUOTER. Note that that format for printing
|
characters and strings is language specific. */
|
characters and strings is language specific. */
|
|
|
static void
|
static void
|
pascal_emit_char (int c, struct ui_file *stream, int quoter)
|
pascal_emit_char (int c, struct ui_file *stream, int quoter)
|
{
|
{
|
int in_quotes = 0;
|
int in_quotes = 0;
|
pascal_one_char (c, stream, &in_quotes);
|
pascal_one_char (c, stream, &in_quotes);
|
if (in_quotes)
|
if (in_quotes)
|
fputs_filtered ("'", stream);
|
fputs_filtered ("'", stream);
|
}
|
}
|
|
|
void
|
void
|
pascal_printchar (int c, struct ui_file *stream)
|
pascal_printchar (int c, struct ui_file *stream)
|
{
|
{
|
int in_quotes = 0;
|
int in_quotes = 0;
|
pascal_one_char (c, stream, &in_quotes);
|
pascal_one_char (c, stream, &in_quotes);
|
if (in_quotes)
|
if (in_quotes)
|
fputs_filtered ("'", stream);
|
fputs_filtered ("'", stream);
|
}
|
}
|
|
|
/* Print the character string STRING, printing at most LENGTH characters.
|
/* Print the character string STRING, printing at most LENGTH characters.
|
Printing stops early if the number hits print_max; repeat counts
|
Printing stops early if the number hits print_max; repeat counts
|
are printed as appropriate. Print ellipses at the end if we
|
are printed as appropriate. Print ellipses at the end if we
|
had to stop before printing LENGTH characters, or if FORCE_ELLIPSES. */
|
had to stop before printing LENGTH characters, or if FORCE_ELLIPSES. */
|
|
|
void
|
void
|
pascal_printstr (struct ui_file *stream, const gdb_byte *string,
|
pascal_printstr (struct ui_file *stream, const gdb_byte *string,
|
unsigned int length, int width, int force_ellipses)
|
unsigned int length, int width, int force_ellipses)
|
{
|
{
|
unsigned int i;
|
unsigned int i;
|
unsigned int things_printed = 0;
|
unsigned int things_printed = 0;
|
int in_quotes = 0;
|
int in_quotes = 0;
|
int need_comma = 0;
|
int need_comma = 0;
|
|
|
/* If the string was not truncated due to `set print elements', and
|
/* If the string was not truncated due to `set print elements', and
|
the last byte of it is a null, we don't print that, in traditional C
|
the last byte of it is a null, we don't print that, in traditional C
|
style. */
|
style. */
|
if ((!force_ellipses) && length > 0 && string[length - 1] == '\0')
|
if ((!force_ellipses) && length > 0 && string[length - 1] == '\0')
|
length--;
|
length--;
|
|
|
if (length == 0)
|
if (length == 0)
|
{
|
{
|
fputs_filtered ("''", stream);
|
fputs_filtered ("''", stream);
|
return;
|
return;
|
}
|
}
|
|
|
for (i = 0; i < length && things_printed < print_max; ++i)
|
for (i = 0; i < length && things_printed < print_max; ++i)
|
{
|
{
|
/* Position of the character we are examining
|
/* Position of the character we are examining
|
to see whether it is repeated. */
|
to see whether it is repeated. */
|
unsigned int rep1;
|
unsigned int rep1;
|
/* Number of repetitions we have detected so far. */
|
/* Number of repetitions we have detected so far. */
|
unsigned int reps;
|
unsigned int reps;
|
|
|
QUIT;
|
QUIT;
|
|
|
if (need_comma)
|
if (need_comma)
|
{
|
{
|
fputs_filtered (", ", stream);
|
fputs_filtered (", ", stream);
|
need_comma = 0;
|
need_comma = 0;
|
}
|
}
|
|
|
rep1 = i + 1;
|
rep1 = i + 1;
|
reps = 1;
|
reps = 1;
|
while (rep1 < length && string[rep1] == string[i])
|
while (rep1 < length && string[rep1] == string[i])
|
{
|
{
|
++rep1;
|
++rep1;
|
++reps;
|
++reps;
|
}
|
}
|
|
|
if (reps > repeat_count_threshold)
|
if (reps > repeat_count_threshold)
|
{
|
{
|
if (in_quotes)
|
if (in_quotes)
|
{
|
{
|
if (inspect_it)
|
if (inspect_it)
|
fputs_filtered ("\\', ", stream);
|
fputs_filtered ("\\', ", stream);
|
else
|
else
|
fputs_filtered ("', ", stream);
|
fputs_filtered ("', ", stream);
|
in_quotes = 0;
|
in_quotes = 0;
|
}
|
}
|
pascal_printchar (string[i], stream);
|
pascal_printchar (string[i], stream);
|
fprintf_filtered (stream, " <repeats %u times>", reps);
|
fprintf_filtered (stream, " <repeats %u times>", reps);
|
i = rep1 - 1;
|
i = rep1 - 1;
|
things_printed += repeat_count_threshold;
|
things_printed += repeat_count_threshold;
|
need_comma = 1;
|
need_comma = 1;
|
}
|
}
|
else
|
else
|
{
|
{
|
int c = string[i];
|
int c = string[i];
|
if ((!in_quotes) && (PRINT_LITERAL_FORM (c)))
|
if ((!in_quotes) && (PRINT_LITERAL_FORM (c)))
|
{
|
{
|
if (inspect_it)
|
if (inspect_it)
|
fputs_filtered ("\\'", stream);
|
fputs_filtered ("\\'", stream);
|
else
|
else
|
fputs_filtered ("'", stream);
|
fputs_filtered ("'", stream);
|
in_quotes = 1;
|
in_quotes = 1;
|
}
|
}
|
pascal_one_char (c, stream, &in_quotes);
|
pascal_one_char (c, stream, &in_quotes);
|
++things_printed;
|
++things_printed;
|
}
|
}
|
}
|
}
|
|
|
/* Terminate the quotes if necessary. */
|
/* Terminate the quotes if necessary. */
|
if (in_quotes)
|
if (in_quotes)
|
{
|
{
|
if (inspect_it)
|
if (inspect_it)
|
fputs_filtered ("\\'", stream);
|
fputs_filtered ("\\'", stream);
|
else
|
else
|
fputs_filtered ("'", stream);
|
fputs_filtered ("'", stream);
|
}
|
}
|
|
|
if (force_ellipses || i < length)
|
if (force_ellipses || i < length)
|
fputs_filtered ("...", stream);
|
fputs_filtered ("...", stream);
|
}
|
}
|
|
|
|
|
/* Table mapping opcodes into strings for printing operators
|
/* Table mapping opcodes into strings for printing operators
|
and precedences of the operators. */
|
and precedences of the operators. */
|
|
|
const struct op_print pascal_op_print_tab[] =
|
const struct op_print pascal_op_print_tab[] =
|
{
|
{
|
{",", BINOP_COMMA, PREC_COMMA, 0},
|
{",", BINOP_COMMA, PREC_COMMA, 0},
|
{":=", BINOP_ASSIGN, PREC_ASSIGN, 1},
|
{":=", BINOP_ASSIGN, PREC_ASSIGN, 1},
|
{"or", BINOP_BITWISE_IOR, PREC_BITWISE_IOR, 0},
|
{"or", BINOP_BITWISE_IOR, PREC_BITWISE_IOR, 0},
|
{"xor", BINOP_BITWISE_XOR, PREC_BITWISE_XOR, 0},
|
{"xor", BINOP_BITWISE_XOR, PREC_BITWISE_XOR, 0},
|
{"and", BINOP_BITWISE_AND, PREC_BITWISE_AND, 0},
|
{"and", BINOP_BITWISE_AND, PREC_BITWISE_AND, 0},
|
{"=", BINOP_EQUAL, PREC_EQUAL, 0},
|
{"=", BINOP_EQUAL, PREC_EQUAL, 0},
|
{"<>", BINOP_NOTEQUAL, PREC_EQUAL, 0},
|
{"<>", BINOP_NOTEQUAL, PREC_EQUAL, 0},
|
{"<=", BINOP_LEQ, PREC_ORDER, 0},
|
{"<=", BINOP_LEQ, PREC_ORDER, 0},
|
{">=", BINOP_GEQ, PREC_ORDER, 0},
|
{">=", BINOP_GEQ, PREC_ORDER, 0},
|
{">", BINOP_GTR, PREC_ORDER, 0},
|
{">", BINOP_GTR, PREC_ORDER, 0},
|
{"<", BINOP_LESS, PREC_ORDER, 0},
|
{"<", BINOP_LESS, PREC_ORDER, 0},
|
{"shr", BINOP_RSH, PREC_SHIFT, 0},
|
{"shr", BINOP_RSH, PREC_SHIFT, 0},
|
{"shl", BINOP_LSH, PREC_SHIFT, 0},
|
{"shl", BINOP_LSH, PREC_SHIFT, 0},
|
{"+", BINOP_ADD, PREC_ADD, 0},
|
{"+", BINOP_ADD, PREC_ADD, 0},
|
{"-", BINOP_SUB, PREC_ADD, 0},
|
{"-", BINOP_SUB, PREC_ADD, 0},
|
{"*", BINOP_MUL, PREC_MUL, 0},
|
{"*", BINOP_MUL, PREC_MUL, 0},
|
{"/", BINOP_DIV, PREC_MUL, 0},
|
{"/", BINOP_DIV, PREC_MUL, 0},
|
{"div", BINOP_INTDIV, PREC_MUL, 0},
|
{"div", BINOP_INTDIV, PREC_MUL, 0},
|
{"mod", BINOP_REM, PREC_MUL, 0},
|
{"mod", BINOP_REM, PREC_MUL, 0},
|
{"@", BINOP_REPEAT, PREC_REPEAT, 0},
|
{"@", BINOP_REPEAT, PREC_REPEAT, 0},
|
{"-", UNOP_NEG, PREC_PREFIX, 0},
|
{"-", UNOP_NEG, PREC_PREFIX, 0},
|
{"not", UNOP_LOGICAL_NOT, PREC_PREFIX, 0},
|
{"not", UNOP_LOGICAL_NOT, PREC_PREFIX, 0},
|
{"^", UNOP_IND, PREC_SUFFIX, 1},
|
{"^", UNOP_IND, PREC_SUFFIX, 1},
|
{"@", UNOP_ADDR, PREC_PREFIX, 0},
|
{"@", UNOP_ADDR, PREC_PREFIX, 0},
|
{"sizeof", UNOP_SIZEOF, PREC_PREFIX, 0},
|
{"sizeof", UNOP_SIZEOF, PREC_PREFIX, 0},
|
{NULL, 0, 0, 0}
|
{NULL, 0, 0, 0}
|
};
|
};
|
|
|
enum pascal_primitive_types {
|
enum pascal_primitive_types {
|
pascal_primitive_type_int,
|
pascal_primitive_type_int,
|
pascal_primitive_type_long,
|
pascal_primitive_type_long,
|
pascal_primitive_type_short,
|
pascal_primitive_type_short,
|
pascal_primitive_type_char,
|
pascal_primitive_type_char,
|
pascal_primitive_type_float,
|
pascal_primitive_type_float,
|
pascal_primitive_type_double,
|
pascal_primitive_type_double,
|
pascal_primitive_type_void,
|
pascal_primitive_type_void,
|
pascal_primitive_type_long_long,
|
pascal_primitive_type_long_long,
|
pascal_primitive_type_signed_char,
|
pascal_primitive_type_signed_char,
|
pascal_primitive_type_unsigned_char,
|
pascal_primitive_type_unsigned_char,
|
pascal_primitive_type_unsigned_short,
|
pascal_primitive_type_unsigned_short,
|
pascal_primitive_type_unsigned_int,
|
pascal_primitive_type_unsigned_int,
|
pascal_primitive_type_unsigned_long,
|
pascal_primitive_type_unsigned_long,
|
pascal_primitive_type_unsigned_long_long,
|
pascal_primitive_type_unsigned_long_long,
|
pascal_primitive_type_long_double,
|
pascal_primitive_type_long_double,
|
pascal_primitive_type_complex,
|
pascal_primitive_type_complex,
|
pascal_primitive_type_double_complex,
|
pascal_primitive_type_double_complex,
|
nr_pascal_primitive_types
|
nr_pascal_primitive_types
|
};
|
};
|
|
|
static void
|
static void
|
pascal_language_arch_info (struct gdbarch *gdbarch,
|
pascal_language_arch_info (struct gdbarch *gdbarch,
|
struct language_arch_info *lai)
|
struct language_arch_info *lai)
|
{
|
{
|
const struct builtin_type *builtin = builtin_type (gdbarch);
|
const struct builtin_type *builtin = builtin_type (gdbarch);
|
lai->string_char_type = builtin->builtin_char;
|
lai->string_char_type = builtin->builtin_char;
|
lai->primitive_type_vector
|
lai->primitive_type_vector
|
= GDBARCH_OBSTACK_CALLOC (gdbarch, nr_pascal_primitive_types + 1,
|
= GDBARCH_OBSTACK_CALLOC (gdbarch, nr_pascal_primitive_types + 1,
|
struct type *);
|
struct type *);
|
lai->primitive_type_vector [pascal_primitive_type_int]
|
lai->primitive_type_vector [pascal_primitive_type_int]
|
= builtin->builtin_int;
|
= builtin->builtin_int;
|
lai->primitive_type_vector [pascal_primitive_type_long]
|
lai->primitive_type_vector [pascal_primitive_type_long]
|
= builtin->builtin_long;
|
= builtin->builtin_long;
|
lai->primitive_type_vector [pascal_primitive_type_short]
|
lai->primitive_type_vector [pascal_primitive_type_short]
|
= builtin->builtin_short;
|
= builtin->builtin_short;
|
lai->primitive_type_vector [pascal_primitive_type_char]
|
lai->primitive_type_vector [pascal_primitive_type_char]
|
= builtin->builtin_char;
|
= builtin->builtin_char;
|
lai->primitive_type_vector [pascal_primitive_type_float]
|
lai->primitive_type_vector [pascal_primitive_type_float]
|
= builtin->builtin_float;
|
= builtin->builtin_float;
|
lai->primitive_type_vector [pascal_primitive_type_double]
|
lai->primitive_type_vector [pascal_primitive_type_double]
|
= builtin->builtin_double;
|
= builtin->builtin_double;
|
lai->primitive_type_vector [pascal_primitive_type_void]
|
lai->primitive_type_vector [pascal_primitive_type_void]
|
= builtin->builtin_void;
|
= builtin->builtin_void;
|
lai->primitive_type_vector [pascal_primitive_type_long_long]
|
lai->primitive_type_vector [pascal_primitive_type_long_long]
|
= builtin->builtin_long_long;
|
= builtin->builtin_long_long;
|
lai->primitive_type_vector [pascal_primitive_type_signed_char]
|
lai->primitive_type_vector [pascal_primitive_type_signed_char]
|
= builtin->builtin_signed_char;
|
= builtin->builtin_signed_char;
|
lai->primitive_type_vector [pascal_primitive_type_unsigned_char]
|
lai->primitive_type_vector [pascal_primitive_type_unsigned_char]
|
= builtin->builtin_unsigned_char;
|
= builtin->builtin_unsigned_char;
|
lai->primitive_type_vector [pascal_primitive_type_unsigned_short]
|
lai->primitive_type_vector [pascal_primitive_type_unsigned_short]
|
= builtin->builtin_unsigned_short;
|
= builtin->builtin_unsigned_short;
|
lai->primitive_type_vector [pascal_primitive_type_unsigned_int]
|
lai->primitive_type_vector [pascal_primitive_type_unsigned_int]
|
= builtin->builtin_unsigned_int;
|
= builtin->builtin_unsigned_int;
|
lai->primitive_type_vector [pascal_primitive_type_unsigned_long]
|
lai->primitive_type_vector [pascal_primitive_type_unsigned_long]
|
= builtin->builtin_unsigned_long;
|
= builtin->builtin_unsigned_long;
|
lai->primitive_type_vector [pascal_primitive_type_unsigned_long_long]
|
lai->primitive_type_vector [pascal_primitive_type_unsigned_long_long]
|
= builtin->builtin_unsigned_long_long;
|
= builtin->builtin_unsigned_long_long;
|
lai->primitive_type_vector [pascal_primitive_type_long_double]
|
lai->primitive_type_vector [pascal_primitive_type_long_double]
|
= builtin->builtin_long_double;
|
= builtin->builtin_long_double;
|
lai->primitive_type_vector [pascal_primitive_type_complex]
|
lai->primitive_type_vector [pascal_primitive_type_complex]
|
= builtin->builtin_complex;
|
= builtin->builtin_complex;
|
lai->primitive_type_vector [pascal_primitive_type_double_complex]
|
lai->primitive_type_vector [pascal_primitive_type_double_complex]
|
= builtin->builtin_double_complex;
|
= builtin->builtin_double_complex;
|
}
|
}
|
|
|
const struct language_defn pascal_language_defn =
|
const struct language_defn pascal_language_defn =
|
{
|
{
|
"pascal", /* Language name */
|
"pascal", /* Language name */
|
language_pascal,
|
language_pascal,
|
range_check_on,
|
range_check_on,
|
type_check_on,
|
type_check_on,
|
case_sensitive_on,
|
case_sensitive_on,
|
array_row_major,
|
array_row_major,
|
&exp_descriptor_standard,
|
&exp_descriptor_standard,
|
pascal_parse,
|
pascal_parse,
|
pascal_error,
|
pascal_error,
|
null_post_parser,
|
null_post_parser,
|
pascal_printchar, /* Print a character constant */
|
pascal_printchar, /* Print a character constant */
|
pascal_printstr, /* Function to print string constant */
|
pascal_printstr, /* Function to print string constant */
|
pascal_emit_char, /* Print a single char */
|
pascal_emit_char, /* Print a single char */
|
pascal_print_type, /* Print a type using appropriate syntax */
|
pascal_print_type, /* Print a type using appropriate syntax */
|
pascal_val_print, /* Print a value using appropriate syntax */
|
pascal_val_print, /* Print a value using appropriate syntax */
|
pascal_value_print, /* Print a top-level value */
|
pascal_value_print, /* Print a top-level value */
|
NULL, /* Language specific skip_trampoline */
|
NULL, /* Language specific skip_trampoline */
|
value_of_this, /* value_of_this */
|
value_of_this, /* value_of_this */
|
basic_lookup_symbol_nonlocal, /* lookup_symbol_nonlocal */
|
basic_lookup_symbol_nonlocal, /* lookup_symbol_nonlocal */
|
basic_lookup_transparent_type,/* lookup_transparent_type */
|
basic_lookup_transparent_type,/* lookup_transparent_type */
|
NULL, /* Language specific symbol demangler */
|
NULL, /* Language specific symbol demangler */
|
NULL, /* Language specific class_name_from_physname */
|
NULL, /* Language specific class_name_from_physname */
|
pascal_op_print_tab, /* expression operators for printing */
|
pascal_op_print_tab, /* expression operators for printing */
|
1, /* c-style arrays */
|
1, /* c-style arrays */
|
0, /* String lower bound */
|
0, /* String lower bound */
|
default_word_break_characters,
|
default_word_break_characters,
|
default_make_symbol_completion_list,
|
default_make_symbol_completion_list,
|
pascal_language_arch_info,
|
pascal_language_arch_info,
|
default_print_array_index,
|
default_print_array_index,
|
default_pass_by_reference,
|
default_pass_by_reference,
|
LANG_MAGIC
|
LANG_MAGIC
|
};
|
};
|
|
|
void
|
void
|
_initialize_pascal_language (void)
|
_initialize_pascal_language (void)
|
{
|
{
|
add_language (&pascal_language_defn);
|
add_language (&pascal_language_defn);
|
}
|
}
|
|
|
