From: kenner Date: Sun, 16 Feb 1997 12:55:15 +0000 (+0000) Subject: (__negdi2, __lshrdi3, __ashldi3, __ashrdi3, __ffsdi2): X-Git-Url: http://git.sourceforge.jp/view?a=commitdiff_plain;h=4f195a89be1c189ef1c0474f09688660ae20370e;p=pf3gnuchains%2Fgcc-fork.git (__negdi2, __lshrdi3, __ashldi3, __ashrdi3, __ffsdi2): Use ANSI style definition with full prototype. (__muldi3, __udiv_w_sdiv, __udivmoddi4, __divdi3, __moddi3) : Likewise. (__udivmoddi4, __udivdi3, __cmpdi2, __ucmpdi2) : Likewise. (__fixunstfdi, __fixtfdi, __fixunsxfdi, __fixxfdi) : Likewise. (__fixunsdfdi, __fixdfdi, __floatdixf, __floatditf) : Likewise. (__floatdidf, __floatdisf, __fixunsxfsi, __fixunsdfsi) : Likewise. (__gcc_bcmp, __eprintf, gopen, gclose, __bb_init_file) : Likewise. (__bb_init_trace_func, __clear_cache, mprotect) : Likewise. (__enable_execute_stack, cacheflush, exit) : Likewise. (find_exception_table, __find_first_exception_table_match) : Likewise. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@13658 138bc75d-0d04-0410-961f-82ee72b054a4 --- diff --git a/gcc/libgcc2.c b/gcc/libgcc2.c index cec29dbf8bd..16b15fff3f8 100644 --- a/gcc/libgcc2.c +++ b/gcc/libgcc2.c @@ -1,6 +1,6 @@ /* More subroutines needed by GCC output code on some machines. */ /* Compile this one with gcc. */ -/* Copyright (C) 1989, 92, 93, 94, 95, 1996 Free Software Foundation, Inc. +/* Copyright (C) 1989, 92, 93, 94, 95, 96, 1997 Free Software Foundation, Inc. This file is part of GNU CC. @@ -138,8 +138,7 @@ extern DItype __fixunstfdi (TFtype a); static inline #endif DItype -__negdi2 (u) - DItype u; +__negdi2 (DItype u) { DIunion w; DIunion uu; @@ -153,11 +152,11 @@ __negdi2 (u) } #endif +/* Unless shift functions are defined whith full ANSI prototypes, + parameter b will be promoted to int if word_type is smaller than an int. */ #ifdef L_lshrdi3 DItype -__lshrdi3 (u, b) - DItype u; - word_type b; +__lshrdi3 (DItype u, word_type b) { DIunion w; word_type bm; @@ -187,9 +186,7 @@ __lshrdi3 (u, b) #ifdef L_ashldi3 DItype -__ashldi3 (u, b) - DItype u; - word_type b; +__ashldi3 (DItype u, word_type b) { DIunion w; word_type bm; @@ -219,9 +216,7 @@ __ashldi3 (u, b) #ifdef L_ashrdi3 DItype -__ashrdi3 (u, b) - DItype u; - word_type b; +__ashrdi3 (DItype u, word_type b) { DIunion w; word_type bm; @@ -252,8 +247,7 @@ __ashrdi3 (u, b) #ifdef L_ffsdi2 DItype -__ffsdi2 (u) - DItype u; +__ffsdi2 (DItype u) { DIunion uu, w; uu.ll = u; @@ -273,8 +267,7 @@ __ffsdi2 (u) #ifdef L_muldi3 DItype -__muldi3 (u, v) - DItype u, v; +__muldi3 (DItype u, DItype v) { DIunion w; DIunion uu, vv; @@ -293,8 +286,7 @@ __muldi3 (u, v) #ifdef L_udiv_w_sdiv #if defined (sdiv_qrnnd) USItype -__udiv_w_sdiv (rp, a1, a0, d) - USItype *rp, a1, a0, d; +__udiv_w_sdiv (USItype *rp, USItype a1, USItype a0, USItype d) { USItype q, r; USItype c0, c1, b1; @@ -392,8 +384,7 @@ __udiv_w_sdiv (rp, a1, a0, d) #else /* If sdiv_qrnnd doesn't exist, define dummy __udiv_w_sdiv. */ USItype -__udiv_w_sdiv (rp, a1, a0, d) - USItype *rp, a1, a0, d; +__udiv_w_sdiv (USItype *rp, USItype a1, USItype a0, USItype d) {} #endif #endif @@ -421,9 +412,7 @@ static const UQItype __clz_tab[] = static inline #endif UDItype -__udivmoddi4 (n, d, rp) - UDItype n, d; - UDItype *rp; +__udivmoddi4 (UDItype n, UDItype d, UDItype *rp) { DIunion ww; DIunion nn, dd; @@ -644,8 +633,7 @@ __udivmoddi4 (n, d, rp) UDItype __udivmoddi4 (); DItype -__divdi3 (u, v) - DItype u, v; +__divdi3 (DItype u, DItype v) { word_type c = 0; DIunion uu, vv; @@ -672,8 +660,7 @@ __divdi3 (u, v) #ifdef L_moddi3 UDItype __udivmoddi4 (); DItype -__moddi3 (u, v) - DItype u, v; +__moddi3 (DItype u, DItype v) { word_type c = 0; DIunion uu, vv; @@ -699,8 +686,7 @@ __moddi3 (u, v) #ifdef L_umoddi3 UDItype __udivmoddi4 (); UDItype -__umoddi3 (u, v) - UDItype u, v; +__umoddi3 (UDItype u, UDItype v) { UDItype w; @@ -713,8 +699,7 @@ __umoddi3 (u, v) #ifdef L_udivdi3 UDItype __udivmoddi4 (); UDItype -__udivdi3 (n, d) - UDItype n, d; +__udivdi3 (UDItype n, UDItype d) { return __udivmoddi4 (n, d, (UDItype *) 0); } @@ -722,8 +707,7 @@ __udivdi3 (n, d) #ifdef L_cmpdi2 word_type -__cmpdi2 (a, b) - DItype a, b; +__cmpdi2 (DItype a, DItype b) { DIunion au, bu; @@ -743,8 +727,7 @@ __cmpdi2 (a, b) #ifdef L_ucmpdi2 word_type -__ucmpdi2 (a, b) - DItype a, b; +__ucmpdi2 (DItype a, DItype b) { DIunion au, bu; @@ -767,8 +750,7 @@ __ucmpdi2 (a, b) #define HIGH_WORD_COEFF (((UDItype) 1) << WORD_SIZE) DItype -__fixunstfdi (a) - TFtype a; +__fixunstfdi (TFtype a) { TFtype b; UDItype v; @@ -797,8 +779,7 @@ __fixunstfdi (a) #if defined(L_fixtfdi) && (LONG_DOUBLE_TYPE_SIZE == 128) DItype -__fixtfdi (a) - TFtype a; +__fixtfdi (TFtype a) { if (a < 0) return - __fixunstfdi (-a); @@ -811,8 +792,7 @@ __fixtfdi (a) #define HIGH_WORD_COEFF (((UDItype) 1) << WORD_SIZE) DItype -__fixunsxfdi (a) - XFtype a; +__fixunsxfdi (XFtype a) { XFtype b; UDItype v; @@ -841,8 +821,7 @@ __fixunsxfdi (a) #if defined(L_fixxfdi) && (LONG_DOUBLE_TYPE_SIZE == 96) DItype -__fixxfdi (a) - XFtype a; +__fixxfdi (XFtype a) { if (a < 0) return - __fixunsxfdi (-a); @@ -855,8 +834,7 @@ __fixxfdi (a) #define HIGH_WORD_COEFF (((UDItype) 1) << WORD_SIZE) DItype -__fixunsdfdi (a) - DFtype a; +__fixunsdfdi (DFtype a) { DFtype b; UDItype v; @@ -885,8 +863,7 @@ __fixunsdfdi (a) #ifdef L_fixdfdi DItype -__fixdfdi (a) - DFtype a; +__fixdfdi (DFtype a) { if (a < 0) return - __fixunsdfdi (-a); @@ -946,8 +923,7 @@ __fixsfdi (SFtype a) #define HIGH_WORD_COEFF (((UDItype) 1) << WORD_SIZE) XFtype -__floatdixf (u) - DItype u; +__floatdixf (DItype u) { XFtype d; SItype negate = 0; @@ -970,8 +946,7 @@ __floatdixf (u) #define HIGH_WORD_COEFF (((UDItype) 1) << WORD_SIZE) TFtype -__floatditf (u) - DItype u; +__floatditf (DItype u) { TFtype d; SItype negate = 0; @@ -994,8 +969,7 @@ __floatditf (u) #define HIGH_WORD_COEFF (((UDItype) 1) << WORD_SIZE) DFtype -__floatdidf (u) - DItype u; +__floatdidf (DItype u) { DFtype d; SItype negate = 0; @@ -1047,8 +1021,7 @@ __floatdidf (u) #endif SFtype -__floatdisf (u) - DItype u; +__floatdisf (DItype u) { /* Do the calculation in DFmode so that we don't lose any of the precision of the high word @@ -1098,8 +1071,7 @@ __floatdisf (u) #include USItype -__fixunsxfsi (a) - XFtype a; +__fixunsxfsi (XFtype a) { if (a >= - (DFtype) LONG_MIN) return (SItype) (a + LONG_MIN) - LONG_MIN; @@ -1121,8 +1093,7 @@ __fixunsxfsi (a) #include USItype -__fixunsdfsi (a) - DFtype a; +__fixunsdfsi (DFtype a) { if (a >= - (DFtype) LONG_MIN) return (SItype) (a + LONG_MIN) - LONG_MIN; @@ -1176,9 +1147,7 @@ __fixunssfsi (SFtype a) positive if S1 is greater, 0 if S1 and S2 are equal. */ int -__gcc_bcmp (s1, s2, size) - unsigned char *s1, *s2; - size_t size; +__gcc_bcmp (unsigned char *s1, unsigned char *s2, size_t size) { while (size > 0) { @@ -1424,11 +1393,8 @@ __builtin_saveregs () #include /* This is used by the `assert' macro. */ void -__eprintf (string, expression, line, filename) - const char *string; - const char *expression; - int line; - const char *filename; +__eprintf (const char *string, const char *expression, + int line, const char *filename) { fprintf (stderr, string, expression, line, filename); fflush (stderr); @@ -1720,9 +1686,7 @@ bb_mode & 8 != 0 : Insert return instructions in basic block flow. '.gz' from any first parameter to gopen. */ static FILE * -gopen (fn, mode) - char *fn; - char *mode; +gopen (char *fn, char *mode) { int use_gzip; char *p; @@ -1770,8 +1734,7 @@ gopen (fn, mode) } static int -gclose (f) - FILE *f; +gclose (FILE *f) { struct stat buf; @@ -2228,8 +2191,7 @@ skip: /* Called upon entering the first function of a file. */ static void -__bb_init_file (blocks) - struct bb *blocks; +__bb_init_file (struct bb *blocks) { const struct bb_func *p; @@ -2290,9 +2252,7 @@ __bb_trace_ret () /* Called when entering a function. */ void -__bb_init_trace_func (blocks, blockno) - struct bb *blocks; - unsigned long blockno; +__bb_init_trace_func (struct bb *blocks, unsigned long blockno) { static int trace_init = 0; @@ -2529,8 +2489,7 @@ unsigned int __shtab[] = { #define INSN_CACHE_PLANE_SIZE (INSN_CACHE_SIZE / INSN_CACHE_DEPTH) void -__clear_cache (beg, end) - char *beg, *end; +__clear_cache (char *beg, char *end) { #ifdef CLEAR_INSN_CACHE CLEAR_INSN_CACHE (beg, end); @@ -2653,9 +2612,7 @@ long getpagesize() #endif } -int mprotect(addr, len, prot) - char *addr; - int len, prot; +int mprotect(char *addr, int len, int prot) { int np, op; @@ -2690,8 +2647,7 @@ TRANSFER_FROM_TRAMPOLINE #endif void -__enable_execute_stack (addr) - char *addr; +__enable_execute_stack (char *addr) { kern_return_t r; char *eaddr = addr + TRAMPOLINE_SIZE; @@ -2815,10 +2771,7 @@ __enable_execute_stack () defined in config/mips/mips.h. */ void -cacheflush (beg,size,flag) - char *beg; - int size; - int flag; +cacheflush (char *beg, int size, int flag) { if (syscall (SYS_sysnews, NEWS_CACHEFLUSH, beg, size, FLUSH_BCACHE)) { @@ -2988,8 +2941,7 @@ extern void _cleanup (); extern void _exit () __attribute__ ((noreturn)); void -exit (status) - int status; +exit (int status) { #if !defined (INIT_SECTION_ASM_OP) || !defined (OBJECT_FORMAT_ELF) #ifdef NEED_ATEXIT @@ -3045,8 +2997,7 @@ struct exception_table_node { static struct exception_table_node *exception_table_list; static exception_table * -find_exception_table (pc) - void *pc; +find_exception_table (void *pc) { register struct exception_table_node *table = exception_table_list; for ( ; table != 0; table = table->next) @@ -3082,8 +3033,7 @@ find_exception_table (pc) an inner block. */ void * -__find_first_exception_table_match (pc) - void *pc; +__find_first_exception_table_match (void *pc) { exception_table *table = find_exception_table (pc); int pos = 0;