This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[Ada] PATCH: fix argument types in dummy functions
- To: gcc-patches at gcc dot gnu dot org
- Subject: [Ada] PATCH: fix argument types in dummy functions
- From: Geert Bosch <bosch at gnat dot com>
- Date: Thu, 4 Oct 2001 15:27:30 -0400 (EDT)
2001-10-04 Geert Bosch <bosch@gnat.com>
* sysdep.c (__gnat_set_binary_mode, __gnat_set_text_mode):
Arg is int, not FILE *, in dummy version of functions.
* adaint.h (__gnat_set_binary_mode, __gnat_set_text_mode):
Arg is int, not FILE *.
*** sysdep.c 2001/09/09 01:12:38
--- sysdep.c 2001/09/28 00:17:29
***************
*** 264,277 ****
/* These functions do nothing in non-DOS systems. */
void
! __gnat_set_binary_mode (stream)
! FILE *stream ATTRIBUTE_UNUSED;
{
}
void
! __gnat_set_text_mode (stream)
! FILE *stream ATTRIBUTE_UNUSED;
{
}
char *
--- 264,277 ----
/* These functions do nothing in non-DOS systems. */
void
! __gnat_set_binary_mode (handle)
! int handle ATTRIBUTE_UNUSED;
{
}
void
! __gnat_set_text_mode (handle)
! int handle ATTRIBUTE_UNUSED;
{
}
char *
*** adaint.h 2001/09/27 12:18:43
--- adaint.h 2001/09/28 00:17:31
***************
*** 130,137 ****
extern int __gnat_pipe PARAMS ((int *));
extern int __gnat_expect_poll PARAMS ((int *, int, int,
int *));
! extern void __gnat_set_binary_mode PARAMS ((FILE *));
! extern void __gnat_set_text_mode PARAMS ((FILE *));
extern char *__gnat_ttyname PARAMS ((int));
#ifdef IN_RTS
--- 130,137 ----
extern int __gnat_pipe PARAMS ((int *));
extern int __gnat_expect_poll PARAMS ((int *, int, int,
int *));
! extern void __gnat_set_binary_mode PARAMS ((int));
! extern void __gnat_set_text_mode PARAMS ((int));
extern char *__gnat_ttyname PARAMS ((int));
#ifdef IN_RTS