github/amiga-clib2
1
0
Fork 0
mirror of https://github.com/adtools/clib2.git synced 2025-12-08 14:59:05 +00:00
Code Issues Releases Wiki Activity

- When using the wildcard expansion code for command line

Browse Source 
parameters (which is by default linked in with libunix.a),
  regular expressions can no longer prompt dos.library requesters
  to appear. However, to be on the safe side, if you are expecting
  to pass regular expressions on the command line, do not use
  the wildcard expansion code such as by overriding the library
  symbols with dummy functions such as are used in the file
  "stdlib_wildcard_expand.c".

- Added a new variable '__open_locale' which can be used to
  restrict all library functions to use the "C" language locale
  rather than the current system locale settings. In addition
  to that, two new functions __locale_exit() and __locale_init()
  can be used to close and (re-)open the system locale at a
  later time.

- Local ("static") functions are now identified by the STATIC
  qualifier. This was done in preparation for changes that will
  deal with global and local data and the issue of thread safety.


git-svn-id: file:///Users/olsen/Code/migration-svn-zu-git/logical-line-staging/clib2/trunk@14839 87f5fb63-7c3d-0410-a384-fd976d0f7a62
This commit is contained in:
Olaf Barthel
2005-02-25 10:14:22 +00:00
parent 53d99ac7a2
commit 1550c6fef3
65 changed files with 416 additions and 264 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
library/GNUmakefile.68k
View File

@ -1,5 +1,5 @@
#
# $Id: GNUmakefile.68k,v 1.28 2005-02-20 13:19:40 obarthel Exp $
# $Id: GNUmakefile.68k,v 1.29 2005-02-25 10:14:20 obarthel Exp $
#
# :ts=8
#
@ -151,6 +151,7 @@ C_LIB = \
libgen_dirname.o \
locale_init_exit.o \
locale_localeconv.o \
locale_open_locale.o \
locale_setlocale.o \
mount_convertinfo.o \
mount_fstatfs.o \

3
library/GNUmakefile.os4
View File

@ -1,5 +1,5 @@
#
# $Id: GNUmakefile.os4,v 1.28 2005-02-20 13:19:40 obarthel Exp $
# $Id: GNUmakefile.os4,v 1.29 2005-02-25 10:14:20 obarthel Exp $
#
# :ts=8
#
@ -155,6 +155,7 @@ C_LIB = \
libgen_dirname.o \
locale_init_exit.o \
locale_localeconv.o \
locale_open_locale.o \
locale_setlocale.o \
mount_convertinfo.o \
mount_fstatfs.o \

4
library/amiga_addtof.c
View File

@ -1,5 +1,5 @@
/*
* $Id: amiga_addtof.c,v 1.2 2005-01-02 09:07:06 obarthel Exp $
* $Id: amiga_addtof.c,v 1.3 2005-02-25 10:14:20 obarthel Exp $
*
* :ts=4
*
@ -57,7 +57,7 @@ typedef LONG (* CFUNC)(APTR arg);
/****************************************************************************/
static LONG INTERRUPT ASM
STATIC LONG INTERRUPT ASM
call_routine(REG(a1,struct Isrvstr *i))
{
CFUNC p = (CFUNC)i->ccode;

6
library/amiga_invertstring.c
View File

@ -1,5 +1,5 @@
/*
* $Id: amiga_invertstring.c,v 1.2 2005-01-02 09:07:07 obarthel Exp $
* $Id: amiga_invertstring.c,v 1.3 2005-02-25 10:14:20 obarthel Exp $
*
* :ts=4
*
@ -49,7 +49,7 @@
/****************************************************************************/
static int
STATIC int
do_escape(int cc)
{
int result;
@ -91,7 +91,7 @@ do_escape(int cc)
/****************************************************************************/
static ULONG
STATIC ULONG
do_angle(STRPTR * strp, struct InputEvent *ie)
{
ULONG result;

4
library/amiga_setsuperattrs.c
View File

@ -1,5 +1,5 @@
/*
* $Id: amiga_setsuperattrs.c,v 1.3 2005-01-09 10:10:41 obarthel Exp $
* $Id: amiga_setsuperattrs.c,v 1.4 2005-02-25 10:14:20 obarthel Exp $
*
* :ts=4
*
@ -46,7 +46,7 @@
/****************************************************************************/
static ULONG
STATIC ULONG
SetSuperAttrsA(Class * cl,Object * obj,struct TagItem * tags)
{
ULONG result = 0;

23
library/changes
View File

@ -25,6 +25,29 @@
buffered files which now bypasses close/read/write/lseek and
directly invokes the hook code for unbuffered files.
- Added various floating point constants to <math.h>, courtesy
of Henning Nielsen Lund. Thank you very much!
- When using the wildcard expansion code for command line
parameters (which is by default linked in with libunix.a),
regular expressions can no longer prompt dos.library requesters
to appear. However, to be on the safe side, if you are expecting
to pass regular expressions on the command line, do not use
the wildcard expansion code such as by overriding the library
symbols with dummy functions such as are used in the file
"stdlib_wildcard_expand.c".
- Added a new variable '__open_locale'<27>which can be used to
restrict all library functions to use the "C" language locale
rather than the current system locale settings. In addition
to that, two new functions __locale_exit() and __locale_init()
can be used to close and (re-)open the system locale at a
later time.
- Local ("static") functions are now identified by the STATIC
qualifier. This was done in preparation for changes that will
deal with global and local data and the issue of thread safety.
c.lib 1.188 (7.2.2005)

10
library/crtbegin.c
View File

@ -1,5 +1,5 @@
/*
* $Id: crtbegin.c,v 1.3 2004-09-29 16:54:54 obarthel Exp $
* $Id: crtbegin.c,v 1.4 2005-02-25 10:14:21 obarthel Exp $
*
* :ts=4
*
@ -30,7 +30,7 @@ static void (*__DTOR_LIST__[1]) (void) __attribute__((section(".dtors"))) = { (v
/****************************************************************************/
static void
STATIC VOID
_do_ctors(void)
{
void (**pFuncPtr)(void);
@ -45,7 +45,7 @@ _do_ctors(void)
/****************************************************************************/
static void
STATIC VOID
_do_dtors(void)
{
ULONG i = (ULONG)__DTOR_LIST__[0];
@ -79,7 +79,7 @@ typedef void (*func_ptr)(void);
/****************************************************************************/
static void
STATIC VOID
_do_ctors(void)
{
extern func_ptr __CTOR_LIST__[];
@ -92,7 +92,7 @@ _do_ctors(void)
/****************************************************************************/
static void
STATIC VOID
_do_dtors(void)
{
extern func_ptr __DTOR_LIST__[];

4
library/debug.c
View File

@ -1,5 +1,5 @@
/*
* $Id: debug.c,v 1.2 2005-01-02 09:07:07 obarthel Exp $
* $Id: debug.c,v 1.3 2005-02-25 10:14:21 obarthel Exp $
*
* :ts=8
*
@ -133,7 +133,7 @@ _POPDEBUGLEVEL(void)
/****************************************************************************/
static void
STATIC VOID
_INDENT(void)
{
if(program_name_len > 0)

6
library/debug_kputfmt.c
View File

@ -1,5 +1,5 @@
/*
* $Id: debug_kputfmt.c,v 1.2 2005-01-02 09:07:07 obarthel Exp $
* $Id: debug_kputfmt.c,v 1.3 2005-02-25 10:14:21 obarthel Exp $
*
* :ts=4
*
@ -43,7 +43,7 @@
parameter table is provided, pick up the parameters and store them in
the table. The table layout follows the format string and can include
both 16 and 32 bit data. */
static size_t
STATIC size_t
process_var_args(char *format_string,va_list argument_list,unsigned short * table)
{
size_t num_args = 0;
@ -150,7 +150,7 @@ process_var_args(char *format_string,va_list argument_list,unsigned short * tabl
/****************************************************************************/
static VOID ASM
STATIC VOID ASM
raw_put_char(REG(d0,UBYTE c))
{
kputc(c);

4
library/dirent_opendir.c
View File

@ -1,5 +1,5 @@
/*
* $Id: dirent_opendir.c,v 1.6 2005-02-21 16:09:39 obarthel Exp $
* $Id: dirent_opendir.c,v 1.7 2005-02-25 10:14:21 obarthel Exp $
*
* :ts=4
*
@ -57,7 +57,7 @@
/****************************************************************************/
static struct Node *
STATIC struct Node *
find_by_name(struct List * list,const char * name)
{
struct Node * result = NULL;

4
library/fcntl_open.c
View File

@ -1,5 +1,5 @@
/*
* $Id: fcntl_open.c,v 1.9 2005-02-20 13:19:40 obarthel Exp $
* $Id: fcntl_open.c,v 1.10 2005-02-25 10:14:21 obarthel Exp $
*
* :ts=4
*
@ -56,7 +56,7 @@
/* This is used in place of ChangeMode() in order to work around a bug in
dos.library V40 and below: a "NIL:" file handle will crash the
caller of the ChangeMode() function. */
static LONG
STATIC LONG
safe_change_mode(LONG type,BPTR file_handle,LONG mode)
{
LONG result = DOSFALSE;

28
library/include/dos.h
View File

@ -1,5 +1,5 @@
/*
* $Id: dos.h,v 1.7 2005-02-03 17:33:54 obarthel Exp $
* $Id: dos.h,v 1.8 2005-02-25 10:14:22 obarthel Exp $
*
* :ts=4
*
@ -272,6 +272,32 @@ extern unsigned int (* __get_default_stack_size)(void);
/****************************************************************************/
/*
* This library falls back onto locale.library to perform string collation
* in strcoll(), character conversion in toupper() and various other
* functions. This may not your intention. To restrict the library to use
* only the "C" language locale, declare the following variable in your
* code and set it to FALSE, so that it overrides the default settings.
* The variable value is checked during program startup and, if set to
* TRUE, has the effect of opening locale.library and obtaining the
* default locale.
*/
extern BOOL __open_locale;
/*
* Two functions control how this library uses the locale.library API to
* perform string collation, character and time conversion, etc.
*
* __locale_init() opens locale.library and attempts to open the default
* locale. If it succeeds, it will return 0 and -1 otherwise.
*
* __locale_exit() releases the default locale and closes locale.library.
*/
extern void __locale_exit(void);
extern int __locale_init(void);
/****************************************************************************/
/*
* If linked with -lunix, Unix path names are translated to Amiga path
* names (and the other way round). If you wish to disable this, set the

18
library/include/math.h
View File

@ -1,5 +1,5 @@
/*
* $Id: math.h,v 1.5 2005-01-02 09:07:21 obarthel Exp $
* $Id: math.h,v 1.6 2005-02-25 10:14:22 obarthel Exp $
*
* :ts=4
*
@ -85,6 +85,22 @@ extern double tanh(double x);
/****************************************************************************/
#define M_E 2.7182818284590452354
#define M_LOG2E 1.4426950408889634074
#define M_LOG10E 0.43429448190325182765
#define M_LN2 0.69314718055994530942
#define M_LN10 2.30258509299404568402
#define M_PI 3.14159265358979323846
#define M_PI_2 1.57079632679489661923
#define M_PI_4 0.78539816339744830962
#define M_1_PI 0.31830988618379067154
#define M_2_PI 0.63661977236758134308
#define M_2_SQRTPI 1.12837916709551257390
#define M_SQRT2 1.41421356237309504880
#define M_SQRT1_2 0.70710678118654752440
/****************************************************************************/
extern double rint(double x);
extern float rintf(float x);
extern int isinf(double x);

93
library/locale_init_exit.c
View File

@ -1,5 +1,5 @@
/*
* $Id: locale_init_exit.c,v 1.4 2005-01-02 09:07:07 obarthel Exp $
* $Id: locale_init_exit.c,v 1.5 2005-02-25 10:14:21 obarthel Exp $
*
* :ts=4
*
@ -88,9 +88,11 @@ __close_all_locales(void)
}
}
/****************************************************************************/
CLIB_DESTRUCTOR(__locale_exit)
void
__locale_exit(void)
{
ENTER();
@ -125,7 +127,64 @@ CLIB_DESTRUCTOR(__locale_exit)
/****************************************************************************/
CLIB_CONSTRUCTOR(__locale_init)
int
__locale_init(void)
{
int result = -1;
ENTER();
PROFILE_OFF();
if(__LocaleBase == NULL)
{
__LocaleBase = OpenLibrary("locale.library",38);
#if defined(__amigaos4__)
{
if (__LocaleBase != NULL)
{
__ILocale = (struct LocaleIFace *)GetInterface(__LocaleBase, "main", 1, 0);
if(__ILocale == NULL)
{
CloseLibrary(__LocaleBase);
__LocaleBase = NULL;
}
}
}
#endif /* __amigaos4__ */
}
if(__LocaleBase != NULL && __default_locale == NULL)
{
DECLARE_LOCALEBASE();
__default_locale = OpenLocale(NULL);
}
if(__default_locale != NULL)
result = 0;
PROFILE_ON();
RETURN(result);
return(result);
}
/****************************************************************************/
CLIB_DESTRUCTOR(__locale_exit_destructor)
{
ENTER();
__locale_exit();
LEAVE();
}
/****************************************************************************/
CLIB_CONSTRUCTOR(__locale_init_constructor)
{
int i;
@ -134,32 +193,8 @@ CLIB_CONSTRUCTOR(__locale_init)
for(i = 0 ; i < NUM_LOCALES ; i++)
strcpy(__locale_name_table[i],"C");
PROFILE_OFF();
__LocaleBase = OpenLibrary("locale.library",38);
#if defined(__amigaos4__)
{
if (__LocaleBase != NULL)
{
__ILocale = (struct LocaleIFace *)GetInterface(__LocaleBase, "main", 1, 0);
if(__ILocale == NULL)
{
CloseLibrary(__LocaleBase);
__LocaleBase = NULL;
}
}
}
#endif /* __amigaos4__ */
if(__LocaleBase != NULL)
{
DECLARE_LOCALEBASE();
__default_locale = OpenLocale(NULL);
}
PROFILE_ON();
if(__open_locale)
__locale_init();
RETURN(OK);

3
library/locale_localeconv.c
View File

@ -1,5 +1,5 @@
/*
* $Id: locale_localeconv.c,v 1.2 2005-01-02 09:07:07 obarthel Exp $
* $Id: locale_localeconv.c,v 1.3 2005-02-25 10:14:21 obarthel Exp $
*
* :ts=4
*
@ -41,6 +41,7 @@ struct lconv *
localeconv(void)
{
static struct lconv loc;
struct Locale * numeric_locale = __locale_table[LC_NUMERIC];
struct Locale * monetary_locale = __locale_table[LC_MONETARY];
struct lconv * result;

40
library/locale_open_locale.c Normal file
View File

@ -0,0 +1,40 @@
/*
* $Id: locale_open_locale.c,v 1.1 2005-02-25 10:14:21 obarthel Exp $
*
* :ts=4
*
* Portable ISO 'C' (1994) runtime library for the Amiga computer
* Copyright (c) 2002-2005 by Olaf Barthel <olsen@sourcery.han.de>
* All rights reserved.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
*
* - Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
*
* - Neither the name of Olaf Barthel nor the names of contributors
* may be used to endorse or promote products derived from this
* software without specific prior written permission.
*
* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
* AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
* ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
* LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
* CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
* SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
* INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
* CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
* ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
* POSSIBILITY OF SUCH DAMAGE.
*/
#ifndef _LOCALE_HEADERS_H
#include "locale_headers.h"
#endif /* _LOCALE_HEADERS_H */
/****************************************************************************/
BOOL __open_locale = TRUE;

10
library/macros.h
View File

@ -1,5 +1,5 @@
/*
* $Id: macros.h,v 1.8 2005-01-30 09:37:59 obarthel Exp $
* $Id: macros.h,v 1.9 2005-02-25 10:14:21 obarthel Exp $
*
* :ts=4
*
@ -163,10 +163,10 @@
#endif /* __SASC */
#ifdef __GNUC__
#define CLIB_CONSTRUCTOR(name) static void __attribute__((constructor)) name##_ctor(void)
#define CLIB_DESTRUCTOR(name) static void __attribute__((destructor)) name##_dtor(void)
#define PROFILE_CONSTRUCTOR(name) static void __attribute__((constructor)) name##_ctor(void)
#define PROFILE_DESTRUCTOR(name) static void __attribute__((destructor)) name##_dtor(void)
#define CLIB_CONSTRUCTOR(name) STATIC VOID __attribute__((constructor)) name##_ctor(void)
#define CLIB_DESTRUCTOR(name) STATIC VOID __attribute__((destructor)) name##_dtor(void)
#define PROFILE_CONSTRUCTOR(name) STATIC VOID __attribute__((constructor)) name##_ctor(void)
#define PROFILE_DESTRUCTOR(name) STATIC VOID __attribute__((destructor)) name##_dtor(void)
#define CONSTRUCTOR_SUCCEED() return
#define CONSTRUCTOR_FAIL() exit(RETURN_FAIL) /* ZZZ not a nice thing to do; fix the constructor invocation code! */
#endif /* __GNUC__ */

8
library/math_acos.c
View File

@ -1,5 +1,5 @@
/*
* $Id: math_acos.c,v 1.4 2005-02-03 16:56:15 obarthel Exp $
* $Id: math_acos.c,v 1.5 2005-02-25 10:14:21 obarthel Exp $
*
* :ts=4
*
@ -97,7 +97,7 @@ ___acos:
/****************************************************************************/
INLINE static const double
INLINE STATIC const double
__acos(double x)
{
double result;
@ -119,7 +119,7 @@ __acos(double x)
#if defined(M68881_FLOATING_POINT_SUPPORT)
INLINE static const double
INLINE STATIC const double
__acos(double x)
{
double result;
@ -153,7 +153,7 @@ qS2 = 2.02094576023350569471e+00, /* 0x40002AE5, 0x9C598AC8 */
qS3 = -6.88283971605453293030e-01, /* 0xBFE6066C, 0x1B8D0159 */
qS4 = 7.70381505559019352791e-02; /* 0x3FB3B8C5, 0xB12E9282 */
INLINE static const double
INLINE STATIC const double
__acos(double x)
{
double z,p,q,r,w,s,c,df;

8
library/math_asin.c
View File

@ -1,5 +1,5 @@
/*
* $Id: math_asin.c,v 1.4 2005-02-03 16:56:15 obarthel Exp $
* $Id: math_asin.c,v 1.5 2005-02-25 10:14:21 obarthel Exp $
*
* :ts=4
*
@ -97,7 +97,7 @@ ___asin:
/****************************************************************************/
INLINE static const double
INLINE STATIC const double
__asin(double x)
{
double result;
@ -119,7 +119,7 @@ __asin(double x)
#if defined(M68881_FLOATING_POINT_SUPPORT)
INLINE static const double
INLINE STATIC const double
__asin(double x)
{
double result;
@ -156,7 +156,7 @@ qS3 = -6.88283971605453293030e-01, /* 0xBFE6066C, 0x1B8D0159 */
qS4 = 7.70381505559019352791e-02; /* 0x3FB3B8C5, 0xB12E9282 */
INLINE static const double
INLINE STATIC const double
__asin(double x)
{
double t,w,p,q,c,r,s;

8
library/math_atan.c
View File

@ -1,5 +1,5 @@
/*
* $Id: math_atan.c,v 1.2 2005-01-02 09:07:07 obarthel Exp $
* $Id: math_atan.c,v 1.3 2005-02-25 10:14:21 obarthel Exp $
*
* :ts=4
*
@ -97,7 +97,7 @@ ___atan:
/****************************************************************************/
INLINE static const double
INLINE STATIC const double
__atan(double x)
{
double result;
@ -119,7 +119,7 @@ __atan(double x)
#if defined(M68881_FLOATING_POINT_SUPPORT)
INLINE static const double
INLINE STATIC const double
__atan(double x)
{
double result;
@ -169,7 +169,7 @@ static const double
one = 1.0,
huge = 1.0e300;
INLINE static const double
INLINE STATIC const double
__atan(double x)
{
double w,s1,s2,z;

10
library/math_atan2.c
View File

@ -1,5 +1,5 @@
/*
* $Id: math_atan2.c,v 1.5 2005-02-03 16:56:15 obarthel Exp $
* $Id: math_atan2.c,v 1.6 2005-02-25 10:14:21 obarthel Exp $
*
* :ts=4
*
@ -62,7 +62,7 @@ extern double __atan(double x);
/****************************************************************************/
INLINE static const double
INLINE STATIC const double
__atan2(double y,double x)
{
const double pi = 3.14159265358979323846;
@ -122,7 +122,7 @@ __atan2(double y,double x)
#if defined(M68881_FLOATING_POINT_SUPPORT)
INLINE static const double
INLINE STATIC const double
__atan(double x)
{
double result;
@ -134,7 +134,7 @@ __atan(double x)
return(result);
}
INLINE static const double
INLINE STATIC const double
__atan2(double y,double x)
{
double pi,pi_over_2;
@ -209,7 +209,7 @@ pi_o_2 = 1.5707963267948965580E+00, /* 0x3FF921FB, 0x54442D18 */
pi = 3.1415926535897931160E+00, /* 0x400921FB, 0x54442D18 */
pi_lo = 1.2246467991473531772E-16; /* 0x3CA1A626, 0x33145C07 */
INLINE static const double
INLINE STATIC const double
__atan2(double y,double x)
{
double z;

8
library/math_ceil.c
View File

@ -1,5 +1,5 @@
/*
* $Id: math_ceil.c,v 1.3 2005-01-26 09:24:38 obarthel Exp $
* $Id: math_ceil.c,v 1.4 2005-02-25 10:14:21 obarthel Exp $
*
* :ts=4
*
@ -97,7 +97,7 @@ ___ceil:
/****************************************************************************/
INLINE static const double
INLINE STATIC const double
__ceil(double x)
{
double result;
@ -119,7 +119,7 @@ __ceil(double x)
#if defined(M68881_FLOATING_POINT_SUPPORT)
INLINE static const double
INLINE STATIC const double
__ceil(double x)
{
int rounding_mode, round_up;
@ -152,7 +152,7 @@ __ceil(double x)
static const double huge = 1.0e300;
INLINE static const double
INLINE STATIC const double
__ceil(double x)
{
int i0,i1,j0;

8
library/math_cos.c
View File

@ -1,5 +1,5 @@
/*
* $Id: math_cos.c,v 1.3 2005-01-26 09:24:38 obarthel Exp $
* $Id: math_cos.c,v 1.4 2005-02-25 10:14:21 obarthel Exp $
*
* :ts=4
*
@ -97,7 +97,7 @@ ___cos:
/****************************************************************************/
INLINE static const double
INLINE STATIC const double
__cos(double x)
{
double result;
@ -119,7 +119,7 @@ __cos(double x)
#if defined(M68881_FLOATING_POINT_SUPPORT)
INLINE static const double
INLINE STATIC const double
__cos(double x)
{
double result;
@ -137,7 +137,7 @@ __cos(double x)
#if defined(PPC_FLOATING_POINT_SUPPORT)
INLINE static const double
INLINE STATIC const double
__cos(double x)
{
double y[2],z=0.0;

8
library/math_cosh.c
View File

@ -1,5 +1,5 @@
/*
* $Id: math_cosh.c,v 1.2 2005-01-02 09:07:07 obarthel Exp $
* $Id: math_cosh.c,v 1.3 2005-02-25 10:14:21 obarthel Exp $
*
* :ts=4
*
@ -97,7 +97,7 @@ ___cosh:
/****************************************************************************/
INLINE static const double
INLINE STATIC const double
__cosh(double x)
{
double result;
@ -119,7 +119,7 @@ __cosh(double x)
#if defined(M68881_FLOATING_POINT_SUPPORT)
INLINE static const double
INLINE STATIC const double
__cosh(double x)
{
double result;
@ -139,7 +139,7 @@ __cosh(double x)
static const double one = 1.0, half=0.5, huge = 1.0e300;
INLINE static const double
INLINE STATIC const double
__cosh(double x)
{
double t,w;

8
library/math_exp.c
View File

@ -1,5 +1,5 @@
/*
* $Id: math_exp.c,v 1.3 2005-01-02 09:07:07 obarthel Exp $
* $Id: math_exp.c,v 1.4 2005-02-25 10:14:21 obarthel Exp $
*
* :ts=4
*
@ -97,7 +97,7 @@ ___exp:
/****************************************************************************/
INLINE static const double
INLINE STATIC const double
__exp(double x)
{
double result;
@ -119,7 +119,7 @@ __exp(double x)
#if defined(M68881_FLOATING_POINT_SUPPORT)
INLINE static const double
INLINE STATIC const double
__exp(double x)
{
double result;
@ -155,7 +155,7 @@ P3 = 6.61375632143793436117e-05, /* 0x3F11566A, 0xAF25DE2C */
P4 = -1.65339022054652515390e-06, /* 0xBEBBBD41, 0xC5D26BF1 */
P5 = 4.13813679705723846039e-08; /* 0x3E663769, 0x72BEA4D0 */
INLINE static const double
INLINE STATIC const double
__exp(double x)
{
double y,hi,lo,c,t;

10
library/math_fabs.c
View File

@ -1,5 +1,5 @@
/*
* $Id: math_fabs.c,v 1.5 2005-01-02 09:07:07 obarthel Exp $
* $Id: math_fabs.c,v 1.6 2005-02-25 10:14:21 obarthel Exp $
*
* :ts=4
*
@ -88,7 +88,7 @@ ___fabs:
/****************************************************************************/
INLINE static const double
INLINE STATIC const double
__fabs(double x)
{
double result;
@ -110,7 +110,7 @@ __fabs(double x)
#if defined(M68881_FLOATING_POINT_SUPPORT)
INLINE static const double
INLINE STATIC const double
__fabs(double x)
{
double result;
@ -134,7 +134,7 @@ __fabs(double x)
/****************************************************************************/
INLINE static const double
INLINE STATIC const double
__fabs(double x)
{
double res;
@ -153,7 +153,7 @@ __fabs(double x)
/****************************************************************************/
INLINE static const double
INLINE STATIC const double
__fabs(double x)
{
double res;

8
library/math_floor.c
View File

@ -1,5 +1,5 @@
/*
* $Id: math_floor.c,v 1.2 2005-01-02 09:07:07 obarthel Exp $
* $Id: math_floor.c,v 1.3 2005-02-25 10:14:21 obarthel Exp $
*
* :ts=4
*
@ -97,7 +97,7 @@ ___floor:
/****************************************************************************/
INLINE static const double
INLINE STATIC const double
__floor(double x)
{
double result;
@ -119,7 +119,7 @@ __floor(double x)
#if defined(M68881_FLOATING_POINT_SUPPORT)
INLINE static const double
INLINE STATIC const double
__floor(double x)
{
int rounding_mode, round_down;
@ -153,7 +153,7 @@ __floor(double x)
#if defined(PPC_FLOATING_POINT_SUPPORT)
static const double huge = 1.0e300;
INLINE static const double
INLINE STATIC const double
__floor(double x)
{
int i0,i1,j0;

8
library/math_fmod.c
View File

@ -1,5 +1,5 @@
/*
* $Id: math_fmod.c,v 1.4 2005-02-03 16:56:15 obarthel Exp $
* $Id: math_fmod.c,v 1.5 2005-02-25 10:14:21 obarthel Exp $
*
* :ts=4
*
@ -54,7 +54,7 @@
/****************************************************************************/
INLINE static const double
INLINE STATIC const double
__fmod(double x,double y)
{
double q,p,result;
@ -79,7 +79,7 @@ __fmod(double x,double y)
#if defined(M68881_FLOATING_POINT_SUPPORT)
INLINE static const double
INLINE STATIC const double
__fmod(double x,double y)
{
double result;
@ -102,7 +102,7 @@ static const double
one = 1.0,
Zero[] = {0.0, -0.0,};
INLINE static const double
INLINE STATIC const double
__fmod(double x,double y)
{
int n,hx,hy,hz,ix,iy,sx,i;

8
library/math_frexp.c
View File

@ -1,5 +1,5 @@
/*
* $Id: math_frexp.c,v 1.3 2005-02-03 16:56:15 obarthel Exp $
* $Id: math_frexp.c,v 1.4 2005-02-25 10:14:21 obarthel Exp $
*
* :ts=4
*
@ -58,7 +58,7 @@
#if defined(IEEE_FLOATING_POINT_SUPPORT)
INLINE static const double
INLINE STATIC const double
__frexp(double x,int * nptr)
{
int int_exponent = 0;
@ -106,7 +106,7 @@ __frexp(double x,int * nptr)
#if defined(M68881_FLOATING_POINT_SUPPORT)
INLINE static const double
INLINE STATIC const double
__frexp(double x,int * nptr)
{
double float_exponent;
@ -146,7 +146,7 @@ __frexp(double x,int * nptr)
static const double
two54 = 1.80143985094819840000e+16; /* 0x43500000, 0x00000000 */
INLINE static const double
INLINE STATIC const double
__frexp(double x,int * eptr)
{
int hx, ix, lx;

6
library/math_hypot.c
View File

@ -1,5 +1,5 @@
/*
* $Id: math_hypot.c,v 1.2 2005-01-02 09:07:07 obarthel Exp $
* $Id: math_hypot.c,v 1.3 2005-02-25 10:14:21 obarthel Exp $
*
* :ts=4
*
@ -52,7 +52,7 @@
#if defined(IEEE_FLOATING_POINT_SUPPORT) || defined(M68881_FLOATING_POINT_SUPPORT)
INLINE static const double
INLINE STATIC const double
__hypot(double x,double y)
{
double yx;
@ -85,7 +85,7 @@ __hypot(double x,double y)
static const double one = 1.0;
INLINE static const double
INLINE STATIC const double
__hypot(double x,double y)
{
int n0;

6
library/math_kernel_rem_pio2.c
View File

@ -1,5 +1,5 @@
/*
* $Id: math_kernel_rem_pio2.c,v 1.2 2005-01-02 09:07:07 obarthel Exp $
* $Id: math_kernel_rem_pio2.c,v 1.3 2005-02-25 10:14:21 obarthel Exp $
*
* :ts=4
*
@ -69,7 +69,7 @@ one = 1.00000000000000000000e+00, /* 0x3FF00000, 0x00000000 */
two24 = 1.67772160000000000000e+07, /* 0x41700000, 0x00000000 */
twon24 = 5.96046447753906250000e-08; /* 0x3E700000, 0x00000000 */
INLINE static int __kernel_rem_pio2(double *x, double *y, int e0, int nx, int prec, const int *ipio2)
INLINE STATIC int kernel_rem_pio2(double *x, double *y, int e0, int nx, int prec, const int *ipio2)
{
int jz,jx,jv,jp,jk,carry,n,iq[20],i,j,k,m,q0,ih;
double z,fw,f[20],fq[20],q[20];
@ -341,7 +341,7 @@ int __rem_pio2(double x, double *y)
tx[2] = z;
nx = 3;
while(tx[nx-1]==zero) nx--; /* skip zero term */
n = __kernel_rem_pio2(tx,y,e0,nx,2,two_over_pi);
n = kernel_rem_pio2(tx,y,e0,nx,2,two_over_pi);
if(hx<0) {y[0] = -y[0]; y[1] = -y[1]; return -n;}
return n;
}

4
library/math_kernel_scalbn.c
View File

@ -1,5 +1,5 @@
/*
* $Id: math_kernel_scalbn.c,v 1.2 2005-01-02 09:07:07 obarthel Exp $
* $Id: math_kernel_scalbn.c,v 1.3 2005-02-25 10:14:21 obarthel Exp $
*
* :ts=4
*
@ -50,7 +50,7 @@
/****************************************************************************/
INLINE static double copysign(double x, double y)
INLINE STATIC double copysign(double x, double y)
{
unsigned int hx,hy;

8
library/math_ldexp.c
View File

@ -1,5 +1,5 @@
/*
* $Id: math_ldexp.c,v 1.2 2005-01-02 09:07:07 obarthel Exp $
* $Id: math_ldexp.c,v 1.3 2005-02-25 10:14:21 obarthel Exp $
*
* :ts=4
*
@ -66,7 +66,7 @@ union dtol
long ival[2];
};
INLINE static const double
INLINE STATIC const double
__ldexp(double x,int n)
{
union dtol number;
@ -96,7 +96,7 @@ __ldexp(double x,int n)
#if defined(M68881_FLOATING_POINT_SUPPORT)
INLINE static const double
INLINE STATIC const double
__ldexp(double x,int n)
{
double result;
@ -129,7 +129,7 @@ union dtol
long ival[2];
};
INLINE static const double
INLINE STATIC const double
__ldexp(double x,int n)
{
union dtol number;

8
library/math_log.c
View File

@ -1,5 +1,5 @@
/*
* $Id: math_log.c,v 1.5 2005-02-03 16:56:15 obarthel Exp $
* $Id: math_log.c,v 1.6 2005-02-25 10:14:21 obarthel Exp $
*
* :ts=4
*
@ -97,7 +97,7 @@ ___log:
/****************************************************************************/
INLINE static const double
INLINE STATIC const double
__log(double x)
{
double result;
@ -119,7 +119,7 @@ __log(double x)
#if defined(M68881_FLOATING_POINT_SUPPORT)
INLINE static const double
INLINE STATIC const double
__log(double x)
{
double result;
@ -150,7 +150,7 @@ Lg6 = 1.531383769920937332e-01, /* 3FC39A09 D078C69F */
Lg7 = 1.479819860511658591e-01, /* 3FC2F112 DF3E5244 */
zero = 0.0;
INLINE static const double
INLINE STATIC const double
__log(double x)
{
double hfsq,f,s,z,R,w,t1,t2,dk;

8
library/math_log10.c
View File

@ -1,5 +1,5 @@
/*
* $Id: math_log10.c,v 1.4 2005-02-03 16:56:15 obarthel Exp $
* $Id: math_log10.c,v 1.5 2005-02-25 10:14:21 obarthel Exp $
*
* :ts=4
*
@ -97,7 +97,7 @@ ___log10:
/****************************************************************************/
INLINE static const double
INLINE STATIC const double
__log10(double x)
{
double result;
@ -119,7 +119,7 @@ __log10(double x)
#if defined(M68881_FLOATING_POINT_SUPPORT)
INLINE static const double
INLINE STATIC const double
__log10(double x)
{
double result;
@ -144,7 +144,7 @@ log10_2hi = 3.01029995663611771306e-01, /* 0x3FD34413, 0x509F6000 */
log10_2lo = 3.69423907715893078616e-13, /* 0x3D59FEF3, 0x11F12B36 */
zero = 0.0;
INLINE static const double
INLINE STATIC const double
__log10(double x)
{
double y,z;

6
library/math_logb.c
View File

@ -1,5 +1,5 @@
/*
* $Id: math_logb.c,v 1.4 2005-02-03 16:56:15 obarthel Exp $
* $Id: math_logb.c,v 1.5 2005-02-25 10:14:21 obarthel Exp $
*
* :ts=4
*
@ -54,7 +54,7 @@
/****************************************************************************/
INLINE static const double
INLINE STATIC const double
__logb(double x)
{
double result;
@ -70,7 +70,7 @@ __logb(double x)
#if defined(PPC_FLOATING_POINT_SUPPORT)
INLINE static const double
INLINE STATIC const double
__logb(double x)
{
unsigned int lx,ix;

8
library/math_modf.c
View File

@ -1,5 +1,5 @@
/*
* $Id: math_modf.c,v 1.4 2005-02-03 16:56:15 obarthel Exp $
* $Id: math_modf.c,v 1.5 2005-02-25 10:14:21 obarthel Exp $
*
* :ts=4
*
@ -58,7 +58,7 @@
#if defined(IEEE_FLOATING_POINT_SUPPORT)
INLINE static const double
INLINE STATIC const double
__modf(double x,double *nptr)
{
double int_n;
@ -88,7 +88,7 @@ __modf(double x,double *nptr)
#if defined(M68881_FLOATING_POINT_SUPPORT)
INLINE static const double
INLINE STATIC const double
__modf(double x,double *nptr)
{
double result;
@ -111,7 +111,7 @@ __modf(double x,double *nptr)
#if defined(__PPC__)
INLINE static const double
INLINE STATIC const double
__modf(double x,double *nptr)
{
double int_n;

12
library/math_pow.c
View File

@ -1,5 +1,5 @@
/*
* $Id: math_pow.c,v 1.5 2005-02-03 16:56:15 obarthel Exp $
* $Id: math_pow.c,v 1.6 2005-02-25 10:14:21 obarthel Exp $
*
* :ts=4
*
@ -98,7 +98,7 @@ ___pow:
/****************************************************************************/
INLINE static const double
INLINE STATIC const double
__pow(double x,double y)
{
double result;
@ -121,7 +121,7 @@ __pow(double x,double y)
#if defined(M68881_FLOATING_POINT_SUPPORT)
INLINE static const double
INLINE STATIC const double
__exp(double x)
{
double result;
@ -133,7 +133,7 @@ __exp(double x)
return(result);
}
INLINE static const double
INLINE STATIC const double
__log(double x)
{
double result;
@ -145,7 +145,7 @@ __log(double x)
return(result);
}
INLINE static const double
INLINE STATIC const double
__pow(double x,double y)
{
double result;
@ -208,7 +208,7 @@ ivln2 = 1.44269504088896338700e+00, /* 0x3FF71547, 0x652B82FE =1/ln2 */
ivln2_h = 1.44269502162933349609e+00, /* 0x3FF71547, 0x60000000 =24b 1/ln2*/
ivln2_l = 1.92596299112661746887e-08; /* 0x3E54AE0B, 0xF85DDF44 =1/ln2 tail*/
INLINE static const double
INLINE STATIC const double
__pow(double x,double y)
{
double z,ax,z_h,z_l,p_h,p_l;

8
library/math_sin.c
View File

@ -1,5 +1,5 @@
/*
* $Id: math_sin.c,v 1.2 2005-01-02 09:07:07 obarthel Exp $
* $Id: math_sin.c,v 1.3 2005-02-25 10:14:21 obarthel Exp $
*
* :ts=4
*
@ -97,7 +97,7 @@ ___sin:
/****************************************************************************/
INLINE static const double
INLINE STATIC const double
__sin(double x)
{
double result;
@ -119,7 +119,7 @@ __sin(double x)
#if defined(M68881_FLOATING_POINT_SUPPORT)
INLINE static const double
INLINE STATIC const double
__sin(double x)
{
double result;
@ -137,7 +137,7 @@ __sin(double x)
#if defined(PPC_FLOATING_POINT_SUPPORT)
INLINE static const double
INLINE STATIC const double
__sin(double x)
{
double y[2],z=0.0;

8
library/math_sinh.c
View File

@ -1,5 +1,5 @@
/*
* $Id: math_sinh.c,v 1.2 2005-01-02 09:07:07 obarthel Exp $
* $Id: math_sinh.c,v 1.3 2005-02-25 10:14:21 obarthel Exp $
*
* :ts=4
*
@ -97,7 +97,7 @@ ___sinh:
/****************************************************************************/
INLINE static const double
INLINE STATIC const double
__sinh(double x)
{
double result;
@ -119,7 +119,7 @@ __sinh(double x)
#if defined(M68881_FLOATING_POINT_SUPPORT)
INLINE static const double
INLINE STATIC const double
__sinh(double x)
{
double result;
@ -139,7 +139,7 @@ __sinh(double x)
static const double one = 1.0, shuge = 1.0e307;
INLINE static const double
INLINE STATIC const double
__sinh(double x)
{
double t,w,h;

8
library/math_sqrt.c
View File

@ -1,5 +1,5 @@
/*
* $Id: math_sqrt.c,v 1.5 2005-02-03 16:56:15 obarthel Exp $
* $Id: math_sqrt.c,v 1.6 2005-02-25 10:14:21 obarthel Exp $
*
* :ts=4
*
@ -97,7 +97,7 @@ ___sqrt:
/****************************************************************************/
INLINE static const double
INLINE STATIC const double
__sqrt(double x)
{
double result;
@ -119,7 +119,7 @@ __sqrt(double x)
#if defined(M68881_FLOATING_POINT_SUPPORT)
INLINE static const double
INLINE STATIC const double
__sqrt(double x)
{
double result;
@ -139,7 +139,7 @@ __sqrt(double x)
static const double one = 1.0, tiny=1.0e-300;
INLINE static const double
INLINE STATIC const double
__sqrt(double x)
{
double z;

8
library/math_tan.c
View File

@ -1,5 +1,5 @@
/*
* $Id: math_tan.c,v 1.2 2005-01-02 09:07:07 obarthel Exp $
* $Id: math_tan.c,v 1.3 2005-02-25 10:14:21 obarthel Exp $
*
* :ts=4
*
@ -97,7 +97,7 @@ ___tan:
/****************************************************************************/
INLINE static const double
INLINE STATIC const double
__tan(double x)
{
double result;
@ -119,7 +119,7 @@ __tan(double x)
#if defined(M68881_FLOATING_POINT_SUPPORT)
INLINE static const double
INLINE STATIC const double
__tan(double x)
{
double result;
@ -137,7 +137,7 @@ __tan(double x)
#if defined(PPC_FLOATING_POINT_SUPPORT)
INLINE static const double
INLINE STATIC const double
__tan(double x)
{
double y[2],z=0.0;

8
library/math_tanh.c
View File

@ -1,5 +1,5 @@
/*
* $Id: math_tanh.c,v 1.2 2005-01-02 09:07:07 obarthel Exp $
* $Id: math_tanh.c,v 1.3 2005-02-25 10:14:21 obarthel Exp $
*
* :ts=4
*
@ -97,7 +97,7 @@ ___tanh:
/****************************************************************************/
INLINE static const double
INLINE STATIC const double
__tanh(double x)
{
double result;
@ -119,7 +119,7 @@ __tanh(double x)
#if defined(M68881_FLOATING_POINT_SUPPORT)
INLINE static const double
INLINE STATIC const double
__tanh(double x)
{
double result;
@ -139,7 +139,7 @@ __tanh(double x)
static const double one=1.0, two=2.0, tiny = 1.0e-300;
INLINE static const double
INLINE STATIC const double
__tanh(double x)
{
double t,z;

22
library/sas_profile.c
View File

@ -1,5 +1,5 @@
/*
* $Id: sas_profile.c,v 1.2 2005-02-21 10:21:43 obarthel Exp $
* $Id: sas_profile.c,v 1.3 2005-02-25 10:14:21 obarthel Exp $
*
* :ts=4
*
@ -77,11 +77,11 @@ static BOOL initialized;
/****************************************************************************/
static int send_profiler_message(ULONG clock_value, char *id, ULONG flags);
static ULONG get_current_time(void);
static void update_overhead(void);
static void __profile_init(void);
static void __profile_exit(void);
STATIC int send_profiler_message(ULONG clock_value, char *id, ULONG flags);
STATIC ULONG get_current_time(void);
STATIC void update_overhead(void);
STATIC void __profile_init(void);
STATIC void __profile_exit(void);
/****************************************************************************/
@ -90,7 +90,7 @@ void ASM _EPILOG(REG(a0, char *id));
/****************************************************************************/
static int
STATIC int
send_profiler_message(ULONG clock_value,char * id,ULONG flags)
{
extern long __builtin_getreg(int);
@ -142,7 +142,7 @@ send_profiler_message(ULONG clock_value,char * id,ULONG flags)
/****************************************************************************/
static ULONG
STATIC ULONG
get_current_time(void)
{
ULONG result;
@ -156,7 +156,7 @@ get_current_time(void)
/****************************************************************************/
static void
STATIC void
update_overhead(void)
{
struct EClockVal ev;
@ -192,7 +192,7 @@ _EPILOG(REG(a0,char * id))
/****************************************************************************/
static void
STATIC VOID
__profile_init(void)
{
struct SPROFMSG * spm;
@ -258,7 +258,7 @@ __profile_init(void)
/****************************************************************************/
static void
STATIC VOID
__profile_exit(void)
{
if(initialized)

3
library/smakefile
View File

@ -1,5 +1,5 @@
_#
# $Id: smakefile,v 1.22 2005-02-20 13:19:40 obarthel Exp $
# $Id: smakefile,v 1.23 2005-02-25 10:14:21 obarthel Exp $
#
# :ts=8
#
@ -174,6 +174,7 @@ LIBGEN_OBJ = \
LOCALE_OBJ = \
locale_init_exit.o \
locale_localeconv.o \
locale_open_locale.o \
locale_setlocale.o
MATH_OBJ = \

24
library/socket_select.c
View File

@ -1,5 +1,5 @@
/*
* $Id: socket_select.c,v 1.4 2005-02-03 16:56:15 obarthel Exp $
* $Id: socket_select.c,v 1.5 2005-02-25 10:14:21 obarthel Exp $
*
* :ts=4
*
@ -47,7 +47,7 @@
/****************************************************************************/
static void
STATIC VOID
copy_fd_set(fd_set * to,fd_set * from,int num_fds)
{
ENTER();
@ -72,7 +72,7 @@ copy_fd_set(fd_set * to,fd_set * from,int num_fds)
/****************************************************************************/
static void
STATIC VOID
zero_fd_set(fd_set * set,int num_fds)
{
ENTER();
@ -96,7 +96,7 @@ zero_fd_set(fd_set * set,int num_fds)
/****************************************************************************/
static fd_set *
STATIC fd_set *
allocate_fd_set(int num_fds,fd_set * duplicate_this_set)
{
fd_set * result = NULL;
@ -130,7 +130,7 @@ allocate_fd_set(int num_fds,fd_set * duplicate_this_set)
/****************************************************************************/
static void
STATIC VOID
free_fd_set(fd_set * set)
{
if(set != NULL)
@ -139,7 +139,7 @@ free_fd_set(fd_set * set)
/****************************************************************************/
static struct fd *
STATIC struct fd *
get_file_descriptor(int file_descriptor)
{
struct fd * result = NULL;
@ -166,7 +166,7 @@ get_file_descriptor(int file_descriptor)
/****************************************************************************/
static void
STATIC VOID
fix_datestamp(struct DateStamp * ds)
{
const LONG ticks_per_minute = 60 * TICKS_PER_SECOND;
@ -195,7 +195,7 @@ fix_datestamp(struct DateStamp * ds)
/****************************************************************************/
static struct DateStamp *
STATIC struct DateStamp *
timeval_to_datestamp(struct DateStamp * ds,const struct timeval * tv)
{
assert( ds != NULL && tv != NULL );
@ -211,7 +211,7 @@ timeval_to_datestamp(struct DateStamp * ds,const struct timeval * tv)
/****************************************************************************/
static void
STATIC VOID
add_dates(struct DateStamp * to,const struct DateStamp * from)
{
assert( to != NULL && from != NULL );
@ -225,7 +225,7 @@ add_dates(struct DateStamp * to,const struct DateStamp * from)
/****************************************************************************/
static void
STATIC VOID
map_descriptor_sets(
const fd_set * input_fds,
int num_input_fds,
@ -341,7 +341,7 @@ map_descriptor_sets(
/****************************************************************************/
static void
STATIC VOID
remap_descriptor_sets(
const fd_set * socket_fds,
int num_socket_fds,
@ -432,7 +432,7 @@ remap_descriptor_sets(
/****************************************************************************/
static void
STATIC VOID
get_num_descriptors_used(int num_fds,int * num_socket_used_ptr,int * num_file_used_ptr)
{
int num_socket_used = 0;

46
library/stdio_record_locking.c
View File

@ -1,5 +1,5 @@
/*
* $Id: stdio_record_locking.c,v 1.2 2005-02-21 10:22:00 obarthel Exp $
* $Id: stdio_record_locking.c,v 1.3 2005-02-25 10:14:21 obarthel Exp $
*
* :ts=4
*
@ -100,21 +100,21 @@ static struct FileLockSemaphore * FileLockSemaphore;
/****************************************************************************/
static void release_file_lock_semaphore(struct FileLockSemaphore *fls);
static struct FileLockSemaphore *obtain_file_lock_semaphore(BOOL shared);
static void remove_locked_region_node(struct FileLockSemaphore *fls, struct fd *fd, LONG start, LONG stop, LONG original_length);
static void delete_locked_region_node(struct LockedRegionNode *lrn);
static long create_locked_region_node(struct LockedRegionNode **result_ptr);
static void delete_file_lock_node(struct FileLockNode *fln);
static long create_file_lock_node(struct fd *fd, struct FileLockNode **result_ptr);
static long find_file_lock_node_by_file_handle(struct FileLockSemaphore *fls, BPTR file_handle, struct FileLockNode **result_ptr);
static long find_file_lock_node_by_drawer_and_name(struct FileLockSemaphore *fls, BPTR dir_lock, STRPTR file_name, struct FileLockNode **result_ptr);
static struct LockedRegionNode *find_colliding_region(struct FileLockNode *fln, LONG start, LONG stop, BOOL shared);
static void cleanup_locked_records(struct fd * fd);
STATIC VOID release_file_lock_semaphore(struct FileLockSemaphore *fls);
STATIC struct FileLockSemaphore *obtain_file_lock_semaphore(BOOL shared);
STATIC VOID remove_locked_region_node(struct FileLockSemaphore *fls, struct fd *fd, LONG start, LONG stop, LONG original_length);
STATIC VOID delete_locked_region_node(struct LockedRegionNode *lrn);
STATIC LONG create_locked_region_node(struct LockedRegionNode **result_ptr);
STATIC VOID delete_file_lock_node(struct FileLockNode *fln);
STATIC LONG create_file_lock_node(struct fd *fd, struct FileLockNode **result_ptr);
STATIC LONG find_file_lock_node_by_file_handle(struct FileLockSemaphore *fls, BPTR file_handle, struct FileLockNode **result_ptr);
STATIC LONG find_file_lock_node_by_drawer_and_name(struct FileLockSemaphore *fls, BPTR dir_lock, STRPTR file_name, struct FileLockNode **result_ptr);
STATIC struct LockedRegionNode *find_colliding_region(struct FileLockNode *fln, LONG start, LONG stop, BOOL shared);
STATIC VOID cleanup_locked_records(struct fd * fd);
/****************************************************************************/
static void
STATIC VOID
release_file_lock_semaphore(struct FileLockSemaphore * fls)
{
ENTER();
@ -129,7 +129,7 @@ release_file_lock_semaphore(struct FileLockSemaphore * fls)
/****************************************************************************/
static struct FileLockSemaphore *
STATIC struct FileLockSemaphore *
obtain_file_lock_semaphore(BOOL shared)
{
struct FileLockSemaphore * result = NULL;
@ -234,7 +234,7 @@ obtain_file_lock_semaphore(BOOL shared)
/****************************************************************************/
static void
STATIC VOID
remove_locked_region_node(struct FileLockSemaphore * fls,struct fd * fd,LONG start,LONG UNUSED stop,LONG original_length)
{
ENTER();
@ -304,7 +304,7 @@ remove_locked_region_node(struct FileLockSemaphore * fls,struct fd * fd,LONG sta
/****************************************************************************/
static void
STATIC VOID
delete_locked_region_node(struct LockedRegionNode * lrn)
{
ENTER();
@ -318,7 +318,7 @@ delete_locked_region_node(struct LockedRegionNode * lrn)
/****************************************************************************/
static long
STATIC LONG
create_locked_region_node(struct LockedRegionNode ** result_ptr)
{
struct LockedRegionNode * lrn;
@ -349,7 +349,7 @@ create_locked_region_node(struct LockedRegionNode ** result_ptr)
/****************************************************************************/
static void
STATIC VOID
delete_file_lock_node(struct FileLockNode * fln)
{
ENTER();
@ -370,7 +370,7 @@ delete_file_lock_node(struct FileLockNode * fln)
/****************************************************************************/
static long
STATIC LONG
create_file_lock_node(struct fd * fd,struct FileLockNode ** result_ptr)
{
struct FileLockNode * result = NULL;
@ -433,7 +433,7 @@ create_file_lock_node(struct fd * fd,struct FileLockNode ** result_ptr)
/****************************************************************************/
static long
STATIC LONG
find_file_lock_node_by_drawer_and_name(
struct FileLockSemaphore * fls,
BPTR dir_lock,
@ -499,7 +499,7 @@ find_file_lock_node_by_drawer_and_name(
/****************************************************************************/
static LONG
STATIC LONG
find_file_lock_node_by_file_handle(
struct FileLockSemaphore * fls,
BPTR file_handle,
@ -555,7 +555,7 @@ find_file_lock_node_by_file_handle(
/****************************************************************************/
static struct LockedRegionNode *
STATIC struct LockedRegionNode *
find_colliding_region(struct FileLockNode * fln,LONG start,LONG stop,BOOL shared)
{
struct LockedRegionNode * result = NULL;
@ -612,7 +612,7 @@ find_colliding_region(struct FileLockNode * fln,LONG start,LONG stop,BOOL shared
/****************************************************************************/
static void
STATIC VOID
cleanup_locked_records(struct fd * fd)
{
ENTER();

4
library/stdio_vfprintf.c
View File

@ -1,5 +1,5 @@
/*
* $Id: stdio_vfprintf.c,v 1.10 2005-02-21 10:22:01 obarthel Exp $
* $Id: stdio_vfprintf.c,v 1.11 2005-02-25 10:14:21 obarthel Exp $
*
* :ts=4
*
@ -71,7 +71,7 @@
/****************************************************************************/
static int
STATIC int
get_num_leading_digits(__long_double_t v)
{
int num_digits;

10
library/stdlib_constructor_begin.c
View File

@ -1,5 +1,5 @@
/*
* $Id: stdlib_constructor_begin.c,v 1.3 2005-01-02 09:07:08 obarthel Exp $
* $Id: stdlib_constructor_begin.c,v 1.4 2005-02-25 10:14:21 obarthel Exp $
*
* :ts=4
*
@ -62,7 +62,7 @@ __construct(void)
/****************************************************************************/
static void
STATIC VOID
_do_ctors(void)
{
void * volatile p = &__ctors;
@ -82,7 +82,7 @@ _do_ctors(void)
/****************************************************************************/
static void
STATIC VOID
_do_dtors(void)
{
void * volatile p = &__dtors;
@ -121,7 +121,7 @@ typedef void (*func_ptr)(void);
/****************************************************************************/
static void
STATIC VOID
_do_ctors(void)
{
extern func_ptr __CTOR_LIST__[];
@ -147,7 +147,7 @@ _do_ctors(void)
/****************************************************************************/
static void
STATIC VOID
_do_dtors(void)
{
extern func_ptr __DTOR_LIST__[];

14
library/stdlib_free.c
View File

@ -1,5 +1,5 @@
/*
* $Id: stdlib_free.c,v 1.5 2005-01-02 09:07:18 obarthel Exp $
* $Id: stdlib_free.c,v 1.6 2005-02-25 10:14:21 obarthel Exp $
*
* :ts=4
*
@ -52,7 +52,7 @@
/****************************************************************************/
static char
STATIC CHAR
get_hex_char(int n)
{
char result;
@ -65,7 +65,7 @@ get_hex_char(int n)
return(result);
}
static void
STATIC VOID
int_to_hex(unsigned long v,char * buffer,int min_digits)
{
int i,j,c;
@ -94,7 +94,7 @@ int_to_hex(unsigned long v,char * buffer,int min_digits)
buffer[i] = '\0';
}
static void
STATIC VOID
dump_memory(unsigned char * m,int size,int ignore)
{
const int mod = 20;
@ -162,7 +162,7 @@ dump_memory(unsigned char * m,int size,int ignore)
/****************************************************************************/
static void
STATIC VOID
check_memory_node(struct MemoryNode * mn,const char * file,int line)
{
size_t size = mn->mn_Size;
@ -328,7 +328,7 @@ __find_memory_node(void * address)
/****************************************************************************/
static void
STATIC VOID
remove_and_free_memory_node(struct MemoryNode * mn)
{
size_t allocation_size;
@ -434,7 +434,7 @@ __free_memory_node(struct MemoryNode * mn,const char * UNUSED file,int UNUSED li
/****************************************************************************/
static void
STATIC VOID
free_memory(void * ptr,BOOL force,const char * file,int line)
{
struct MemoryNode * mn;

4
library/stdlib_headers.h
View File

@ -1,5 +1,5 @@
/*
* $Id: stdlib_headers.h,v 1.7 2005-02-03 12:14:55 obarthel Exp $
* $Id: stdlib_headers.h,v 1.8 2005-02-25 10:14:21 obarthel Exp $
*
* :ts=4
*
@ -139,7 +139,7 @@ extern char * __getcwd(char * buffer,size_t buffer_size,const char *file,int lin
#else
#define __static static
#define __static STATIC
#define __free(mem,file,line) free(mem)
#define __malloc(size,file,line) malloc(size)

8
library/stdlib_main.c
View File

@ -1,5 +1,5 @@
/*
* $Id: stdlib_main.c,v 1.10 2005-01-13 15:39:39 obarthel Exp $
* $Id: stdlib_main.c,v 1.11 2005-02-25 10:14:21 obarthel Exp $
*
* :ts=4
*
@ -107,7 +107,7 @@ _EPILOG(REG(a0,char * id))
/****************************************************************************/
static int
STATIC int
call_main(void)
{
/* Initialization functions; must be called exactly in this
@ -243,7 +243,7 @@ call_main(void)
/****************************************************************************/
static void ASM
STATIC VOID ASM
detach_cleanup(REG(d0, LONG UNUSED unused_return_code),REG(d1, BPTR segment_list))
{
#if defined(__amigaos4__)
@ -282,7 +282,7 @@ detach_cleanup(REG(d0, LONG UNUSED unused_return_code),REG(d1, BPTR segment_list
/****************************************************************************/
static ULONG
STATIC ULONG
get_stack_size(void)
{
struct Task * tc = FindTask(NULL);

4
library/stdlib_qsort.c
View File

@ -1,5 +1,5 @@
/*
* $Id: stdlib_qsort.c,v 1.4 2005-02-03 16:56:16 obarthel Exp $
* $Id: stdlib_qsort.c,v 1.5 2005-02-25 10:14:21 obarthel Exp $
*
* :ts=4
*
@ -89,7 +89,7 @@
/******************************************************************/
/* swap nbytes between a and b */
INLINE static void
INLINE STATIC void
swap(char * a, char * b, size_t nbytes)
{
char temp;

12
library/stdlib_red_black.c
View File

@ -1,5 +1,5 @@
/*
* $Id: stdlib_red_black.c,v 1.2 2005-01-02 09:07:18 obarthel Exp $
* $Id: stdlib_red_black.c,v 1.3 2005-02-25 10:14:21 obarthel Exp $
*
* :ts=4
*
@ -52,7 +52,7 @@
/****************************************************************************/
static void
STATIC VOID
help_insertion (struct MemoryTree * tree, struct MemoryNode * z)
{
struct MemoryNode *nil = &tree->mt_NullNode;
@ -82,7 +82,7 @@ help_insertion (struct MemoryTree * tree, struct MemoryNode * z)
y->mn_Right = z;
}
static void
STATIC VOID
rotate_left (struct MemoryTree * tree, struct MemoryNode * x)
{
struct MemoryNode *nil = &tree->mt_NullNode;
@ -105,7 +105,7 @@ rotate_left (struct MemoryTree * tree, struct MemoryNode * x)
x->mn_Parent = y;
}
static void
STATIC VOID
rotate_right (struct MemoryTree * tree, struct MemoryNode * y)
{
struct MemoryNode *nil = &tree->mt_NullNode;
@ -130,7 +130,7 @@ rotate_right (struct MemoryTree * tree, struct MemoryNode * y)
/****************************************************************************/
static struct MemoryNode *
STATIC STRUCT MemoryNode *
get_successor (struct MemoryTree * tree, struct MemoryNode * x)
{
struct MemoryNode *nil = &tree->mt_NullNode;
@ -164,7 +164,7 @@ get_successor (struct MemoryTree * tree, struct MemoryNode * x)
return (result);
}
static void
STATIC VOID
remove_fixup (struct MemoryTree * tree, struct MemoryNode * x)
{
struct MemoryNode *root = tree->mt_Root->mn_Left;

6
library/stdlib_stackextension.c
View File

@ -1,5 +1,5 @@
/*
* $Id: stdlib_stackextension.c,v 1.4 2005-01-02 09:07:19 obarthel Exp $
* $Id: stdlib_stackextension.c,v 1.5 2005-02-25 10:14:21 obarthel Exp $
*
* :ts=4
*
@ -326,7 +326,7 @@ CLIB_DESTRUCTOR(__stk_exit)
/* Move a stackframe with a minimum of requiredstack bytes to the used list
and fill the StackSwapStruct structure. */
static void
STATIC VOID
pushframe(ULONG requiredstack, struct StackSwapStruct *sss)
{
struct stackframe *sf;
@ -504,7 +504,7 @@ stkext_f(struct StackSwapStruct sss, long d0, long d1, long a0, long a1, long a6
/* Move all used stackframes upto (and including) sf to the spares list
and fill the StackSwapStruct structure. */
static void
STATIC VOID
popframes(struct stackframe *sf, struct StackSwapStruct *sss)
{
struct stackframe *sf2;

4
library/stdlib_stacksize.c
View File

@ -1,5 +1,5 @@
/*
* $Id: stdlib_stacksize.c,v 1.2 2005-01-02 09:07:19 obarthel Exp $
* $Id: stdlib_stacksize.c,v 1.3 2005-02-25 10:14:21 obarthel Exp $
*
* :ts=4
*
@ -46,7 +46,7 @@
/******************************************************************************/
static unsigned int
STATIC unsigned int
get_default_stack_size(void)
{
unsigned int result = 0;

6
library/stdlib_startup.c
View File

@ -1,5 +1,5 @@
/*
* $Id: stdlib_startup.c,v 1.6 2005-01-09 15:58:02 obarthel Exp $
* $Id: stdlib_startup.c,v 1.7 2005-02-25 10:14:21 obarthel Exp $
*
* :ts=4
*
@ -90,7 +90,7 @@ UBYTE * __quote_vector;
/****************************************************************************/
static BOOL
STATIC BOOL
is_escape_character(UBYTE c)
{
BOOL result;
@ -102,7 +102,7 @@ is_escape_character(UBYTE c)
/****************************************************************************/
static BOOL
STATIC BOOL
is_final_quote_character(const char * str)
{
BOOL result;

4
library/string_memchr.c
View File

@ -1,5 +1,5 @@
/*
* $Id: string_memchr.c,v 1.4 2005-02-03 16:56:17 obarthel Exp $
* $Id: string_memchr.c,v 1.5 2005-02-25 10:14:21 obarthel Exp $
*
* :ts=4
*
@ -48,7 +48,7 @@
/****************************************************************************/
INLINE static void *
INLINE STATIC void *
__memchr(const unsigned char * m,unsigned char val,size_t len)
{
void * result = NULL;

4
library/string_memcmp.c
View File

@ -1,5 +1,5 @@
/*
* $Id: string_memcmp.c,v 1.5 2005-02-03 16:56:17 obarthel Exp $
* $Id: string_memcmp.c,v 1.6 2005-02-25 10:14:21 obarthel Exp $
*
* :ts=4
*
@ -43,7 +43,7 @@
/****************************************************************************/
INLINE static int
INLINE STATIC int
__memcmp(const char *m1,const char *m2,size_t len)
{
int result = 0;

4
library/string_memcpy.c
View File

@ -1,5 +1,5 @@
/*
* $Id: string_memcpy.c,v 1.5 2005-02-03 16:56:17 obarthel Exp $
* $Id: string_memcpy.c,v 1.6 2005-02-25 10:14:21 obarthel Exp $
*
* :ts=4
*
@ -229,7 +229,7 @@ memcpy(void *dst, const void *src, size_t len)
/****************************************************************************/
INLINE static void
INLINE STATIC VOID
__memcpy(unsigned char * to,unsigned char * from,size_t len)
{
/* The setup below is intended to speed up copying larger

4
library/string_memmove.c
View File

@ -1,5 +1,5 @@
/*
* $Id: string_memmove.c,v 1.4 2005-02-03 16:56:17 obarthel Exp $
* $Id: string_memmove.c,v 1.5 2005-02-25 10:14:21 obarthel Exp $
*
* :ts=4
*
@ -351,7 +351,7 @@ memmove(void *dest, const void * src, size_t len)
/****************************************************************************/
INLINE static void
INLINE STATIC VOID
__memmove(unsigned char * to,unsigned char * from,size_t len)
{
if(from < to && to < from + len)

4
library/string_memset.c
View File

@ -1,5 +1,5 @@
/*
* $Id: string_memset.c,v 1.5 2005-02-03 16:56:17 obarthel Exp $
* $Id: string_memset.c,v 1.6 2005-02-25 10:14:21 obarthel Exp $
*
* :ts=4
*
@ -43,7 +43,7 @@
/****************************************************************************/
INLINE static void
INLINE STATIC VOID
__memset(unsigned char * to,unsigned char value,size_t len)
{
/* The setup below is intended to speed up changing larger

4
library/time_asctime_r.c
View File

@ -1,5 +1,5 @@
/*
* $Id: time_asctime_r.c,v 1.6 2005-02-03 16:56:17 obarthel Exp $
* $Id: time_asctime_r.c,v 1.7 2005-02-25 10:14:21 obarthel Exp $
*
* :ts=4
*
@ -43,7 +43,7 @@
/****************************************************************************/
static void
STATIC VOID
add_to_string(char * to,size_t to_size,const char * string,size_t * offset_ptr)
{
size_t offset,len;

8
library/time_strftime.c
View File

@ -1,5 +1,5 @@
/*
* $Id: time_strftime.c,v 1.7 2005-02-03 16:56:17 obarthel Exp $
* $Id: time_strftime.c,v 1.8 2005-02-25 10:14:21 obarthel Exp $
*
* :ts=4
*
@ -56,7 +56,7 @@ struct format_hook_data
/****************************************************************************/
static void
STATIC VOID
format_hook_function(
struct Hook * hook,
long c,
@ -85,7 +85,7 @@ format_hook_function(
/****************************************************************************/
static void
STATIC VOID
store_string_via_hook(const char * string,int len,struct Hook * hook)
{
DECLARE_UTILITYBASE();
@ -102,7 +102,7 @@ store_string_via_hook(const char * string,int len,struct Hook * hook)
/****************************************************************************/
static void
STATIC VOID
format_date(const char *format,const struct tm *tm,struct Hook * hook)
{
char buffer[40];

12
library/unistd_wildcard_expand.c
View File

@ -1,5 +1,5 @@
/*
* $Id: unistd_wildcard_expand.c,v 1.7 2005-02-07 11:19:32 obarthel Exp $
* $Id: unistd_wildcard_expand.c,v 1.8 2005-02-25 10:14:21 obarthel Exp $
*
* :ts=4
*
@ -111,7 +111,7 @@ struct name_node
/****************************************************************************/
static int
STATIC int
compare(const char **a,const char **b)
{
DECLARE_UTILITYBASE();
@ -126,6 +126,7 @@ compare(const char **a,const char **b)
int
__wildcard_expand_init(void)
{
APTR old_window_pointer;
struct AnchorPath * ap = NULL;
struct MinList argument_list;
size_t argument_list_size;
@ -139,6 +140,11 @@ __wildcard_expand_init(void)
PROFILE_OFF();
/* Disable dos.library requesters during pattern matching below. We
do this so early in order to make it easier to reset the window
pointer in the cleanup code. */
old_window_pointer = __set_process_window((APTR)-1);
/* No work to be done? */
if(__quote_vector == NULL || __argc == 0 || __argv == NULL)
{
@ -405,6 +411,8 @@ __wildcard_expand_init(void)
free(__quote_vector);
__quote_vector = NULL;
__set_process_window(old_window_pointer);
PROFILE_ON();
return(error);