From 0f13b49dace06a6e21336b2888ffb3257f0cadbf Mon Sep 17 00:00:00 2001 From: guerby Date: Sat, 17 Nov 2001 11:35:08 +0000 Subject: 2001-11-17 Laurent Guerby * Make-lang.in (GNATLIBFLAGS): Add -W -Wall. * gigi.h (init_decl_processing): Rename to gnat_init_decl_processing. * io-aux.c: Provide K&R prototypes to all functions, reformat code. * lang-spec.h: Add missing struct field to silence warnings. * sysdep.c (rts_get_*): Provide K&R prototype. * sysdep.c (Unlock_Task, Lock_Task): Move to K&R prototype. * traceback.c (Unlock_Task, Lock_Task): Likewise. * tracebak.c (__gnat_backtrace): Remove unused variable. * utils.c (end_subprog_body): Move to K&R style. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@47117 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/sysdep.c | 19 ++++++++++++------- 1 file changed, 12 insertions(+), 7 deletions(-) (limited to 'gcc/ada/sysdep.c') diff --git a/gcc/ada/sysdep.c b/gcc/ada/sysdep.c index 3ae033aeeeb..ed8988a8f5a 100644 --- a/gcc/ada/sysdep.c +++ b/gcc/ada/sysdep.c @@ -6,7 +6,7 @@ * * * C Implementation File * * * - * $Revision$ + * $Revision: 1.3 $ * * * Copyright (C) 1992-2001 Free Software Foundation, Inc. * * * @@ -521,10 +521,15 @@ getc_immediate_common (stream, ch, end_of_file, avail, waiting) will want to import these). We use the same names as the routines used by AdaMagic for compatibility. */ -char *rts_get_hInstance (void) { return (GetModuleHandleA (0)); } -char *rts_get_hPrevInstance (void) { return (0); } -char *rts_get_lpCommandLine (void) { return (GetCommandLineA ()); } -int rts_get_nShowCmd (void) { return (1); } +char *rts_get_hInstance PARAMS ((void)); +char *rts_get_hPrevInstance PARAMS ((void)); +char *rts_get_lpCommandLine PARAMS ((void)); +int rts_get_nShowCmd PARAMS ((void)); + +char *rts_get_hInstance () { return (GetModuleHandleA (0)); } +char *rts_get_hPrevInstance () { return (0); } +char *rts_get_lpCommandLine () { return (GetCommandLineA ()); } +int rts_get_nShowCmd () { return (1); } #endif /* WINNT */ #ifdef VMS @@ -551,10 +556,10 @@ get_gmtoff () #if defined (_AIX) || defined (__EMX__) #define Lock_Task system__soft_links__lock_task -extern void (*Lock_Task) (void); +extern void (*Lock_Task) PARAMS ((void)); #define Unlock_Task system__soft_links__unlock_task -extern void (*Unlock_Task) (void); +extern void (*Unlock_Task) PARAMS ((void)); /* Provide reentrant version of localtime on Aix and OS/2. Note that AiX does provide localtime_r, but in the library libc_r which doesn't get included -- cgit v1.2.1