diff options
| author | guerby <guerby@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-11-17 11:35:08 +0000 |
|---|---|---|
| committer | guerby <guerby@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-11-17 11:35:08 +0000 |
| commit | 0f13b49dace06a6e21336b2888ffb3257f0cadbf (patch) | |
| tree | 39e493e87df2945a110142da9ac42207c0aaa146 /gcc/ada/sysdep.c | |
| parent | a2ebaaac869d44c8963a1890dadea6037615b103 (diff) | |
| download | gcc-0f13b49dace06a6e21336b2888ffb3257f0cadbf.tar.gz | |
2001-11-17 Laurent Guerby <guerby@acm.org>
* 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
Diffstat (limited to 'gcc/ada/sysdep.c')
| -rw-r--r-- | gcc/ada/sysdep.c | 19 |
1 files changed, 12 insertions, 7 deletions
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 |