From fca04441218b5e306e0480170550ff6ac6a00b36 Mon Sep 17 00:00:00 2001 From: Richard Kenner Date: Thu, 21 Apr 1994 15:24:02 -0400 Subject: [PATCH] Add prototypes to declarations of functions in real.c. (immed_real_const_1): Move declaration from rtl.h. From-SVN: r7108 --- gcc/real.h | 43 +++++++++++++++++++++++++++++++------------ 1 file changed, 31 insertions(+), 12 deletions(-) diff --git a/gcc/real.h b/gcc/real.h index 2090bb1575a..28dce267931 100644 --- a/gcc/real.h +++ b/gcc/real.h @@ -1,5 +1,5 @@ /* Front-end tree definitions for GNU compiler. - Copyright (C) 1989, 1991 Free Software Foundation, Inc. + Copyright (C) 1989, 1991, 1994 Free Software Foundation, Inc. This file is part of GNU CC. @@ -123,17 +123,33 @@ typedef struct { #define REAL_ARITHMETIC(value, code, d1, d2) \ earith (&(value), (code), &(d1), &(d2)) -/* Declare functions in real.c that are referenced here. */ -void earith (), ereal_from_uint (), ereal_from_int (), ereal_to_int (); -void etarldouble (), etartdouble (), etardouble (); -long etarsingle (); -HOST_WIDE_INT efixi (); -unsigned HOST_WIDE_INT efixui (); -int ereal_cmp (), ereal_isneg (); -unsigned int eroundui (); -REAL_VALUE_TYPE etrunci (), etruncui (), ereal_ldexp (), ereal_atof (); -REAL_VALUE_TYPE ereal_negate (), ereal_truncate (); -REAL_VALUE_TYPE ereal_from_float (), ereal_from_double (); +/* Declare functions in real.c. */ +extern void earith PROTO((REAL_VALUE_TYPE *, int, + REAL_VALUE_TYPE *, REAL_VALUE_TYPE *)); +extern REAL_VALUE_TYPE etrunci PROTO((REAL_VALUE_TYPE)); +extern REAL_VALUE_TYPE etruncui PROTO((REAL_VALUE_TYPE)); +extern REAL_VALUE_TYPE ereal_atof PROTO((char *, enum machine_mode)); +extern REAL_VALUE_TYPE ereal_negate PROTO((REAL_VALUE_TYPE)); +extern HOST_WIDE_INT efixi PROTO((REAL_VALUE_TYPE)); +extern unsigned HOST_WIDE_INT efixui PROTO((REAL_VALUE_TYPE)); +extern void ereal_from_int PROTO((REAL_VALUE_TYPE *, + HOST_WIDE_INT, HOST_WIDE_INT)); +extern void ereal_from_uint PROTO((REAL_VALUE_TYPE *, + unsigned HOST_WIDE_INT, + unsigned HOST_WIDE_INT)); +extern void ereal_to_int PROTO((HOST_WIDE_INT *, HOST_WIDE_INT *, + REAL_VALUE_TYPE)); +extern REAL_VALUE_TYPE ereal_ldexp PROTO((REAL_VALUE_TYPE, int)); + +extern void etartdouble PROTO((REAL_VALUE_TYPE, long *)); +extern void etarldouble PROTO((REAL_VALUE_TYPE, long *)); +extern void etardouble PROTO((REAL_VALUE_TYPE, long *)); +extern long etarsingle PROTO((REAL_VALUE_TYPE)); +extern void ereal_to_decimal PROTO((REAL_VALUE_TYPE, char *)); +extern int ereal_cmp PROTO((REAL_VALUE_TYPE, REAL_VALUE_TYPE)); +extern int ereal_isneg PROTO((REAL_VALUE_TYPE)); +extern REAL_VALUE_TYPE ereal_from_float PROTO((unsigned long)); +extern REAL_VALUE_TYPE ereal_from_double PROTO((unsigned long *)); #define REAL_VALUES_EQUAL(x, y) (ereal_cmp ((x), (y)) == 0) /* true if x < y : */ @@ -404,6 +420,9 @@ do { union real_extract u; \ /* Return a CONST_DOUBLE with value R and mode M. */ #define CONST_DOUBLE_FROM_REAL_VALUE(r, m) immed_real_const_1 (r, m) +extern struct rtx_def *immed_real_const_1 PROTO((REAL_VALUE_TYPE, + enum machine_mode)); + /* Convert a floating point value `r', that can be interpreted as a host machine float or double, to a decimal ASCII string `s' -- 2.30.2