FreeChainXenon/binutils-gdb
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Protoization.

Browse source
This commit is contained in:
Kevin Buettner 2000-07-30 01:48:28 +00:00
parent 29e6d33b03
commit fba45db2fa
284 changed files with 5720 additions and 13265 deletions
Download patch file Download diff file Expand all files Collapse all files

28
gdb/p-lang.c
View file

@ -36,10 +36,7 @@ static void pascal_one_char (int, struct ui_file *, int *);
In_quotes is reset to 0 if a char is written with #4 notation */
static void
pascal_one_char (c, stream, in_quotes)
register int c;
struct ui_file *stream;
int *in_quotes;
pascal_one_char (register int c, struct ui_file *stream, int *in_quotes)
{
c &= 0xFF; /* Avoid sign bit follies */
@ -72,10 +69,7 @@ static void pascal_emit_char (int c, struct ui_file *stream, int quoter);
characters and strings is language specific. */
static void
pascal_emit_char (c, stream, quoter)
register int c;
struct ui_file *stream;
int quoter;
pascal_emit_char (register int c, struct ui_file *stream, int quoter)
{
int in_quotes = 0;
pascal_one_char (c, stream, &in_quotes);
@ -84,9 +78,7 @@ pascal_emit_char (c, stream, quoter)
}
void
pascal_printchar (c, stream)
int c;
struct ui_file *stream;
pascal_printchar (int c, struct ui_file *stream)
{
int in_quotes = 0;
pascal_one_char (c, stream, &in_quotes);
@ -100,12 +92,8 @@ pascal_printchar (c, stream)
had to stop before printing LENGTH characters, or if FORCE_ELLIPSES. */
void
pascal_printstr (stream, string, length, width, force_ellipses)
struct ui_file *stream;
char *string;
unsigned int length;
int width;
int force_ellipses;
pascal_printstr (struct ui_file *stream, char *string, unsigned int length,
int width, int force_ellipses)
{
register unsigned int i;
unsigned int things_printed = 0;
@ -222,9 +210,7 @@ pascal_printstr (stream, string, length, width, force_ellipses)
struct type *
pascal_create_fundamental_type (objfile, typeid)
struct objfile *objfile;
int typeid;
pascal_create_fundamental_type (struct objfile *objfile, int typeid)
{
register struct type *type = NULL;
@ -424,7 +410,7 @@ const struct language_defn pascal_language_defn =
};
void
_initialize_pascal_language ()
_initialize_pascal_language (void)
{
add_language (&pascal_language_defn);
}