fix conflicts created by new import
This commit is contained in:
plunky
parent
1641c82fac
commit
ee4a1aaa9c
24
external/bsd/pcc/dist/pcc-libs/Makefile.in
vendored
24
external/bsd/pcc/dist/pcc-libs/Makefile.in
vendored
@ -1,24 +0,0 @@
|
||||
# Id: Makefile.in,v 1.3 2008/07/18 08:11:28 gmcgarry Exp
|
||||
# $NetBSD: Makefile.in,v 1.1.1.2 2010/06/03 18:58:00 plunky Exp $
|
||||
#
|
||||
# top-level Makefile
|
||||
#
|
||||
|
||||
VPATH = @srcdir@
|
||||
|
||||
SUBDIR = libsoftfloat libpcc csu
|
||||
|
||||
all: $(SUBDIR)
|
||||
|
||||
install clean:
|
||||
for f in $(SUBDIR); do (cd $$f && $(MAKE) $@); done
|
||||
|
||||
distclean: clean
|
||||
for f in $(SUBDIR); do (cd $$f && $(MAKE) distclean); done
|
||||
/bin/rm -rf Makefile config.log config.status \
|
||||
configure.lineno config.h autom4te.cache
|
||||
|
||||
$(SUBDIR): nonexistant
|
||||
cd $@; $(MAKE) all $(MFLAGS)
|
||||
|
||||
nonexistant:
|
||||
1516
external/bsd/pcc/dist/pcc-libs/config.guess
vendored
1516
external/bsd/pcc/dist/pcc-libs/config.guess
vendored
File diff suppressed because it is too large
Load Diff
1626
external/bsd/pcc/dist/pcc-libs/config.sub
vendored
1626
external/bsd/pcc/dist/pcc-libs/config.sub
vendored
File diff suppressed because it is too large
Load Diff
3384
external/bsd/pcc/dist/pcc-libs/configure
vendored
3384
external/bsd/pcc/dist/pcc-libs/configure
vendored
File diff suppressed because it is too large
Load Diff
151
external/bsd/pcc/dist/pcc-libs/configure.ac
vendored
151
external/bsd/pcc/dist/pcc-libs/configure.ac
vendored
@ -1,151 +0,0 @@
|
||||
# Process this file with autoconf to produce a configure script.
|
||||
|
||||
AC_PREREQ(2.59)
|
||||
AC_INIT([pcc-libs], [0.9.9], <pcc-list@ludd.ltu.se>)
|
||||
|
||||
AC_PROG_MAKE_SET
|
||||
AC_PROG_INSTALL
|
||||
AC_CANONICAL_TARGET
|
||||
|
||||
version=$PACKAGE_VERSION
|
||||
|
||||
case "$target_os" in
|
||||
|
||||
apple)
|
||||
targos=apple
|
||||
case "$target_cpu" in
|
||||
m68k) targmach=m68k endian=big ;;
|
||||
esac
|
||||
;;
|
||||
|
||||
darwin*)
|
||||
targos=darwin
|
||||
case "$target_cpu" in
|
||||
i?86) targmach=i386 ;;
|
||||
powerpc) targmach=powerpc endian=big ;;
|
||||
esac
|
||||
;;
|
||||
|
||||
dragonfly*)
|
||||
targos=dragonfly
|
||||
case "$target_cpu" in
|
||||
i?86) targmach=i386 ;;
|
||||
esac
|
||||
;;
|
||||
|
||||
freebsd*)
|
||||
targos=freebsd
|
||||
case "$target_cpu" in
|
||||
i386) targmach=i386 ;;
|
||||
esac
|
||||
;;
|
||||
|
||||
linux*)
|
||||
targos=linux
|
||||
case "$target_cpu" in
|
||||
i?86) targmach=i386 ;;
|
||||
powerpc*) targmach=powerpc endian=big ;;
|
||||
x86_64) targmach=amd64 ;;
|
||||
esac
|
||||
;;
|
||||
|
||||
midnightbsd*)
|
||||
targos=midnightbsd
|
||||
case "$target_cpu" in
|
||||
i?86) targmach=i386 ;;
|
||||
sparc64) targmach=sparc64 endian=big ;;
|
||||
esac
|
||||
;;
|
||||
|
||||
minix)
|
||||
targos=minix
|
||||
case "$target_cpu" in
|
||||
m68k) targmach=m68k endian=big ;;
|
||||
esac
|
||||
;;
|
||||
|
||||
mirbsd*)
|
||||
targos=mirbsd
|
||||
case "$target_cpu" in
|
||||
i?86) targmach=i386 ;;
|
||||
esac
|
||||
;;
|
||||
|
||||
netbsd*)
|
||||
targos=netbsd
|
||||
case "$target_cpu" in
|
||||
armeb) targmach=arm endian=big ;;
|
||||
arm*) targmach=arm ;;
|
||||
i?86) targmach=i386 ;;
|
||||
m68k*) targmach=m68k endian=big ;;
|
||||
mipseb) targmach=mips endian=big ;;
|
||||
mips*) targmach=mips ;;
|
||||
pdp10) targmach=pdp10 ;;
|
||||
powerpc) targmach=powerpc endian=big ;;
|
||||
sparc64) targmach=sparc64 endian=big ;;
|
||||
vax) targmach=vax ;;
|
||||
esac
|
||||
;;
|
||||
|
||||
openbsd*)
|
||||
targos=openbsd
|
||||
case "$target_cpu" in
|
||||
i?86) targmach=i386 ;;
|
||||
vax) targmach=vax ;;
|
||||
powerpc) targmach=powerpc endian=big ;;
|
||||
sparc64) targmach=sparc64 endian=big ;;
|
||||
esac
|
||||
;;
|
||||
|
||||
sunos*|solaris*)
|
||||
targos=sunos
|
||||
case "$target_cpu" in
|
||||
i?86) targmach=i386 ;;
|
||||
sparc*) targmach=sparc64 endian=big ;;
|
||||
esac
|
||||
;;
|
||||
|
||||
windows*|pe*)
|
||||
target_alias=i386-pe
|
||||
targos=win32
|
||||
targmach=i386
|
||||
;;
|
||||
|
||||
*)
|
||||
targos="$target_os"
|
||||
case "$target_cpu" in
|
||||
m16c) targmach=m16c ;;
|
||||
nova) targmach=nova ;;
|
||||
esac
|
||||
;;
|
||||
esac
|
||||
|
||||
if test "X$targos" = X -o "X$targmach" = X; then
|
||||
AC_MSG_ERROR(['$target' is not (yet) supported by pcc-libs.])
|
||||
fi
|
||||
|
||||
if test "X$endian" = "Xbig"; then
|
||||
AC_SUBST([ENDIAN_FLAG],[-D__BIG_ENDIAN__=1])
|
||||
else
|
||||
AC_SUBST([ENDIAN_FLAG],[-D__LITTLE_ENDIAN__=1])
|
||||
fi
|
||||
|
||||
AC_CHECK_TOOLS([CC], [pcc gcc cc])
|
||||
AC_CHECK_TOOL([AR], [ar], [ar])
|
||||
AC_PROG_RANLIB
|
||||
|
||||
AC_SUBST(targos)
|
||||
AC_SUBST(targmach)
|
||||
AC_SUBST(version)
|
||||
AC_SUBST(prefix)
|
||||
AC_SUBST(libdir)
|
||||
AC_SUBST(includedir)
|
||||
AC_SUBST(CPPFLAGS)
|
||||
AC_SUBST(CFLAGS)
|
||||
|
||||
AC_CONFIG_FILES([Makefile
|
||||
csu/Makefile
|
||||
libsoftfloat/Makefile
|
||||
libpcc/Makefile
|
||||
])
|
||||
AC_OUTPUT
|
||||
27
external/bsd/pcc/dist/pcc-libs/csu/Makefile.in
vendored
27
external/bsd/pcc/dist/pcc-libs/csu/Makefile.in
vendored
@ -1,27 +0,0 @@
|
||||
# Id: Makefile.in,v 1.9 2009/09/20 00:50:58 gmcgarry Exp
|
||||
# $NetBSD: Makefile.in,v 1.1.1.3 2010/06/03 18:58:04 plunky Exp $
|
||||
#
|
||||
# top-level Makefile
|
||||
#
|
||||
|
||||
prefix = @prefix@
|
||||
exec_prefix = @exec_prefix@
|
||||
libdir = @libdir@
|
||||
srcdir = @srcdir@
|
||||
|
||||
TARGOS = @targos@
|
||||
TARGMACH = @targmach@
|
||||
TARGET = @target@
|
||||
VERSION = @version@
|
||||
PCCLIBDIR = $(libdir)/pcc/$(TARGET)/$(VERSION)/lib
|
||||
|
||||
CC = @CC@
|
||||
CFLAGS = @CFLAGS@
|
||||
|
||||
MFLAGS += CC=$(CC) MACH=$(TARGMACH) PCCLIBDIR=$(PCCLIBDIR) VPATH=$(srcdir)/$(TARGOS) SRCDIR=$(srcdir)/$(TARGOS)/
|
||||
|
||||
all clean install:
|
||||
if test -f $(srcdir)/$(TARGOS)/Makefile ; then $(MAKE) -f $(srcdir)/$(TARGOS)/Makefile $(MFLAGS) $@ ; fi
|
||||
|
||||
distclean: clean
|
||||
/bin/rm -f Makefile
|
||||
19
external/bsd/pcc/dist/pcc-libs/csu/README
vendored
19
external/bsd/pcc/dist/pcc-libs/csu/README
vendored
@ -1,19 +0,0 @@
|
||||
Id: README,v 1.4 2009/08/14 02:17:08 gmcgarry Exp
|
||||
$NetBSD: README,v 1.1.1.3 2010/06/03 18:58:04 plunky Exp $
|
||||
|
||||
OS-dependent and target-dependent:
|
||||
|
||||
crt0.o startup code for programs (maybe compiled -static)
|
||||
crt1.o startup code for programs compiled -dynamic (if necessary)
|
||||
gcrt1.o profiling startup code for programs (maybe compiled -dynamic)
|
||||
crti.o beginning of _init() and _fini() functions (inside .init section)
|
||||
crtn.o end of _init() and _fini() functions (inside .fini section)
|
||||
|
||||
OS-dependent, but target-independent:
|
||||
|
||||
crtbegin.o support for calling global ctors/dtors
|
||||
crtend.o end of the ctor/dtor lists
|
||||
crtbeginT.o + for static binary (if necessary)
|
||||
crtendT.o + for static binary (if necessary)
|
||||
crtbeginS.o + for shared library (if necessary)
|
||||
crtendS.o + for shared library (if necessary)
|
||||
@ -1,30 +0,0 @@
|
||||
MACH ?= powerpc
|
||||
TARGET ?= $(MACH)-darwin
|
||||
VERSION ?= 0.9.9
|
||||
PCCLIBDIR ?= /usr/local/lib/pcc/$(TARGET)/$(VERSION)/lib
|
||||
SRCDIR ?= .
|
||||
|
||||
CFLAGS = -I$(SRCDIR)$(MACH) -I$(SRCDIR) -Wall -Werror -Wstrict-prototypes -Wmissing-prototypes
|
||||
|
||||
OBJS = crt0.o crt1.o gcrt1.o dylib1.o
|
||||
|
||||
all: $(OBJS)
|
||||
|
||||
crt0.o: $(MACH)/crt0.c
|
||||
$(CC) -r -static -nostdlib -Wl,-keep_private_externs -Wl,-weak_reference_mismatches,non-weak -DCRT -O $(CFLAGS) -o $@ $<
|
||||
|
||||
crt1.o: $(MACH)/crt0.c
|
||||
$(CC) -r -nostdlib -Wl,-keep_private_externs -Wl,-weak_reference_mismatches,non-weak -DCRT -DDYNAMIC -O $(CFLAGS) -o $@ $< /usr/lib/dyld
|
||||
|
||||
gcrt1.o: $(MACH)/crt0.c
|
||||
$(CC) -r -nostdlib -Wl,-keep_private_externs -Wl,-weak_reference_mismatches,non-weak -DCRT -DDYNAMIC -DPROFILE -O $(CFLAGS) -o $@ $< /usr/lib/dyld
|
||||
|
||||
dylib1.o: $(MACH)/dylib1.c
|
||||
$(CC) -r -nostdlib -Wl,-keep_private_externs -Wl,-weak_reference_mismatches,non-weak -DDYNAMIC -O $(CFLAGS) -o $@ $<
|
||||
|
||||
install:
|
||||
mkdir -p ${DESTDIR}$(PCCLIBDIR)
|
||||
cp $(OBJS) ${DESTDIR}$(PCCLIBDIR)
|
||||
|
||||
clean:
|
||||
rm -f $(OBJS)
|
||||
122
external/bsd/pcc/dist/pcc-libs/csu/darwin/common.c
vendored
122
external/bsd/pcc/dist/pcc-libs/csu/darwin/common.c
vendored
@ -1,122 +0,0 @@
|
||||
/* Id: common.c,v 1.3 2008/07/02 00:18:18 gmcgarry Exp */
|
||||
/* $NetBSD: common.c,v 1.1.1.2 2010/06/03 18:58:04 plunky Exp $ */
|
||||
/*-
|
||||
* Copyright (c) 2008 Gregory McGarry <g.mcgarry@ieee.org>
|
||||
*
|
||||
* Permission to use, copy, modify, and distribute this software for any
|
||||
* purpose with or without fee is hereby granted, provided that the above
|
||||
* copyright notice and this permission notice appear in all copies.
|
||||
*
|
||||
* THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
|
||||
* WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
|
||||
* MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
|
||||
* ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
|
||||
* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
|
||||
* ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
|
||||
* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
||||
*/
|
||||
|
||||
#include "macho.h"
|
||||
|
||||
static char *
|
||||
_strrchr(char *p, int ch)
|
||||
{
|
||||
char *save;
|
||||
|
||||
for (save = NULL;; ++p) {
|
||||
if (*p == ch)
|
||||
save = (char *)p;
|
||||
if (!*p)
|
||||
return(save);
|
||||
}
|
||||
/* NOTREACHED */
|
||||
}
|
||||
|
||||
static int
|
||||
_strcmp(char *s1, char *s2)
|
||||
{
|
||||
while (*s1 == *s2++)
|
||||
if (*s1++ == 0)
|
||||
return 0;
|
||||
s2--;
|
||||
return ((long)*s1 - (long)*s2);
|
||||
}
|
||||
|
||||
#ifdef PROFILE
|
||||
static void
|
||||
_mcleanup(void)
|
||||
{
|
||||
monitor(0, 0, 0, 0, 0);
|
||||
}
|
||||
#endif
|
||||
|
||||
extern struct mach_header _mh_execute_header;
|
||||
|
||||
static void
|
||||
_helper(int init)
|
||||
{
|
||||
struct mach_header *hdr = &_mh_execute_header;
|
||||
char *ptr = (char *)(hdr + 1);
|
||||
int i, j, n;
|
||||
struct segment_command *segp;
|
||||
struct section *secp;
|
||||
void (*func)(void);
|
||||
void **addr;
|
||||
|
||||
for (i = 0; i < (int)hdr->ncmds; i++, ptr += segp->cmdsize) {
|
||||
segp = (struct segment_command *)ptr;
|
||||
if (segp->cmd != LC_SEGMENT || segp->nsects == 0)
|
||||
continue;
|
||||
secp = (struct section *)(segp + 1);
|
||||
for (j = 0; j < (int)segp->nsects; j++, secp++) {
|
||||
if (init && _strcmp(secp->sectname, "__constructor") != 0)
|
||||
continue;
|
||||
if (!init && _strcmp(secp->sectname, "__destructor") != 0)
|
||||
continue;
|
||||
n = secp->size / 4;
|
||||
addr = (void **)secp->addr;
|
||||
while (n--) {
|
||||
func = *addr++;
|
||||
(*func)();
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
void
|
||||
_init(void)
|
||||
{
|
||||
_helper(1);
|
||||
}
|
||||
|
||||
void
|
||||
_fini(void)
|
||||
{
|
||||
_helper(0);
|
||||
}
|
||||
|
||||
#ifdef DYNAMIC
|
||||
|
||||
void
|
||||
_dyld_init(void)
|
||||
{
|
||||
void (*init)(void);
|
||||
_dyld_func_lookup("__dyld_make_delayed_module_initializer_calls",
|
||||
(void *)&init);
|
||||
if (init)
|
||||
init();
|
||||
}
|
||||
|
||||
void
|
||||
_dyld_fini(void)
|
||||
{
|
||||
void (*term)(void);
|
||||
_dyld_func_lookup("__dyld_mod_term_funcs", (void *)&term);
|
||||
if (term)
|
||||
term();
|
||||
}
|
||||
|
||||
#endif
|
||||
|
||||
IDENT("Id: common.c,v 1.3 2008/07/02 00:18:18 gmcgarry Exp ");
|
||||
IDENT("$NetBSD: common.c,v 1.1.1.2 2010/06/03 18:58:04 plunky Exp $");
|
||||
@ -1,52 +0,0 @@
|
||||
/* Id: common.h,v 1.4 2009/02/14 11:40:28 gmcgarry Exp */
|
||||
/* $NetBSD: common.h,v 1.1.1.3 2010/06/03 18:58:04 plunky Exp $ */
|
||||
/*-
|
||||
* Copyright (c) 2008 Gregory McGarry <g.mcgarry@ieee.org>
|
||||
*
|
||||
* Permission to use, copy, modify, and distribute this software for any
|
||||
* purpose with or without fee is hereby granted, provided that the above
|
||||
* copyright notice and this permission notice appear in all copies.
|
||||
*
|
||||
* THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
|
||||
* WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
|
||||
* MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
|
||||
* ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
|
||||
* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
|
||||
* ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
|
||||
* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
||||
*/
|
||||
|
||||
#if defined(__ppc__)
|
||||
#define IDENT(x) asm(".cstring\n\t.ascii \"" x "\\0\"")
|
||||
#elif defined(__i386__)
|
||||
#define IDENT(x) asm(".cstring\n\t.ascii \"" x "\\0\"")
|
||||
#endif
|
||||
|
||||
#define NULL (void *)0
|
||||
|
||||
extern int main(int argc, char *argv[], char *envp[]);
|
||||
extern void exit(int);
|
||||
extern int atexit(void (*fcn)(void));
|
||||
|
||||
#ifdef CRT
|
||||
static char *_strrchr(char *, int);
|
||||
static int _strcmp(char *, char *);
|
||||
#endif
|
||||
|
||||
#if PROFILE
|
||||
extern void moninit(void);
|
||||
static void _mcleanup(void);
|
||||
extern void monitor(char *, char *, char *, int, int);
|
||||
#endif
|
||||
|
||||
#ifdef DYNAMIC
|
||||
extern void _dyld_init(void);
|
||||
extern void _dyld_fini(void);
|
||||
extern int _dyld_func_lookup(const char *, void **);
|
||||
#endif
|
||||
|
||||
extern int (*mach_init_routine)(void);
|
||||
extern int (*_cthread_init_routine)(void);
|
||||
|
||||
extern void _init(void);
|
||||
extern void _fini(void);
|
||||
@ -1,154 +0,0 @@
|
||||
/* Id: crt0.c,v 1.4 2009/02/14 21:02:58 gmcgarry Exp */
|
||||
/* $NetBSD: crt0.c,v 1.1.1.3 2010/06/03 18:58:04 plunky Exp $ */
|
||||
/*-
|
||||
* Copyright (c) 2008 Gregory McGarry <g.mcgarry@ieee.org>
|
||||
*
|
||||
* Permission to use, copy, modify, and distribute this software for any
|
||||
* purpose with or without fee is hereby granted, provided that the above
|
||||
* copyright notice and this permission notice appear in all copies.
|
||||
*
|
||||
* THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
|
||||
* WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
|
||||
* MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
|
||||
* ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
|
||||
* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
|
||||
* ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
|
||||
* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
||||
*/
|
||||
|
||||
#include "common.h"
|
||||
|
||||
void _start(int, char **, char **);
|
||||
|
||||
char **environ;
|
||||
char *__progname = "";
|
||||
int NXArgc;
|
||||
char **NXArgv;
|
||||
|
||||
asm(
|
||||
#ifdef DYNAMIC
|
||||
" .text\n"
|
||||
" .symbol_stub\n"
|
||||
" .picsymbol_stub\n"
|
||||
#endif
|
||||
" .text\n"
|
||||
" .globl start\n"
|
||||
" .globl _start\n"
|
||||
" .p2align 2\n"
|
||||
"start:\n"
|
||||
"_start:\n"
|
||||
" pushl $0\n"
|
||||
" movl %esp,%ebp\n"
|
||||
" subl $16,%esp\n"
|
||||
" andl $-16,%esp\n"
|
||||
" movl 4(%ebp),%ebx\n"
|
||||
" movl %ebx,(%esp)\n"
|
||||
" leal 8(%ebp),%ecx\n"
|
||||
" movl %ecx,4(%esp)\n"
|
||||
" addl $1,%ebx\n"
|
||||
" shll $2,%ebx\n"
|
||||
" addl %ecx,%ebx\n"
|
||||
" movl %ebx,8(%esp)\n"
|
||||
" call __start\n"
|
||||
" hlt\n"
|
||||
);
|
||||
|
||||
|
||||
void
|
||||
_start(int argc, char *argv[], char *envp[])
|
||||
{
|
||||
char *namep;
|
||||
|
||||
environ = envp;
|
||||
NXArgc = argc;
|
||||
NXArgv = argv;
|
||||
|
||||
if ((namep = argv[0]) != NULL) {
|
||||
if ((__progname = _strrchr(namep, '/')) == NULL)
|
||||
__progname = namep;
|
||||
else
|
||||
__progname++;
|
||||
}
|
||||
|
||||
/*
|
||||
* Initialise hooks inside libc
|
||||
*/
|
||||
if (mach_init_routine)
|
||||
(*mach_init_routine)();
|
||||
if (_cthread_init_routine)
|
||||
(*_cthread_init_routine)();
|
||||
|
||||
#ifdef PROFILE
|
||||
atexit(_mcleanup);
|
||||
moninit();
|
||||
#endif
|
||||
|
||||
atexit(_fini);
|
||||
_init();
|
||||
|
||||
exit(main(argc, argv, environ));
|
||||
}
|
||||
|
||||
|
||||
#ifdef DYNAMIC
|
||||
|
||||
/*
|
||||
* dylib constructors/destructors
|
||||
*/
|
||||
asm(
|
||||
" .constructor\n"
|
||||
" .p2align 2\n"
|
||||
" .long __dyld_init\n"
|
||||
" .destructor\n"
|
||||
" .p2align 2\n"
|
||||
" .long __dyld_fini\n"
|
||||
);
|
||||
|
||||
/*
|
||||
* void _dyld_func_lookup(const char *, void **);
|
||||
*
|
||||
* jump to the linker via the pointer in the __dyld section
|
||||
*/
|
||||
asm(
|
||||
" .text\n"
|
||||
" .private_extern __dyld_func_lookup\n"
|
||||
"__dyld_func_lookup:\n"
|
||||
" jmp *Ldyld_func_lookup\n"
|
||||
);
|
||||
|
||||
/*
|
||||
* void dyld_stub_binding_helper(void)
|
||||
*/
|
||||
asm(
|
||||
" .text\n"
|
||||
" .private_extern dyld_stub_binding_helper\n"
|
||||
"dyld_stub_binding_helper:\n"
|
||||
" pushl $__mh_execute_header\n"
|
||||
" jmp *Ldyld_lazy_binder\n"
|
||||
);
|
||||
|
||||
/*
|
||||
* __dyld section
|
||||
*/
|
||||
asm(
|
||||
" .dyld\n"
|
||||
" .p2align 2\n"
|
||||
"Ldyld_lazy_binder:\n"
|
||||
" .long 0x8fe01000\n"
|
||||
"Ldyld_func_lookup:\n"
|
||||
" .long 0x8fe01008\n"
|
||||
" .long __mh_execute_header\n"
|
||||
" .long _NXArgc\n"
|
||||
" .long _NXArgv\n"
|
||||
" .long _environ\n"
|
||||
" .long ___progname\n"
|
||||
);
|
||||
|
||||
#endif
|
||||
|
||||
asm("\t.subsections_via_symbols\n");
|
||||
|
||||
#include "common.c"
|
||||
|
||||
IDENT("Id: crt0.c,v 1.4 2009/02/14 21:02:58 gmcgarry Exp ");
|
||||
IDENT("$NetBSD: crt0.c,v 1.1.1.3 2010/06/03 18:58:04 plunky Exp $");
|
||||
@ -1,72 +0,0 @@
|
||||
/* Id: dylib1.c,v 1.1 2009/02/14 11:40:28 gmcgarry Exp */
|
||||
/* $NetBSD: dylib1.c,v 1.1.1.2 2010/06/03 18:58:04 plunky Exp $ */
|
||||
/*-
|
||||
* Copyright (c) 2009 Gregory McGarry <g.mcgarry@ieee.org>
|
||||
*
|
||||
* Permission to use, copy, modify, and distribute this software for any
|
||||
* purpose with or without fee is hereby granted, provided that the above
|
||||
* copyright notice and this permission notice appear in all copies.
|
||||
*
|
||||
* THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
|
||||
* WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
|
||||
* MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
|
||||
* ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
|
||||
* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
|
||||
* ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
|
||||
* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
||||
*/
|
||||
|
||||
#include "common.h"
|
||||
|
||||
/*
|
||||
* void _dyld_func_lookup(const char *, void **);
|
||||
*
|
||||
* jump to the linker via the pointer in the __dyld section
|
||||
*/
|
||||
asm(
|
||||
" .text\n"
|
||||
" .private_extern __dyld_func_lookup\n"
|
||||
"__dyld_func_lookup:\n"
|
||||
" call L__dyld_func_lookup$pb\n"
|
||||
"L__dyld_func_lookup$pb:\n"
|
||||
" popl %eax\n"
|
||||
" movl Ldyld_func_lookup-L__dyld_func_lookup$pb(%eax),%eax\n"
|
||||
" jmp *%eax\n"
|
||||
);
|
||||
|
||||
/*
|
||||
* void dyld_stub_binding_helper(void)
|
||||
*/
|
||||
asm(
|
||||
" .data\n"
|
||||
" .p2align 2\n"
|
||||
"dyld__mach_header:\n"
|
||||
" .long __mh_dylib_header\n"
|
||||
" .text\n"
|
||||
" .private_extern dyld_stub_binding_helper\n"
|
||||
" .p2align 2\n"
|
||||
"dyld_stub_binding_helper:\n"
|
||||
" call Ldyld_stub_binding_helper$pb\n"
|
||||
"Ldyld_stub_binding_helper$pb:\n"
|
||||
" popl %eax\n"
|
||||
" pushl dyld__mach_header-Ldyld_stub_binding_helper$pb(%eax)\n"
|
||||
" movl Ldyld_lazy_binder-Ldyld_stub_binding_helper$pb(%eax),%eax\n"
|
||||
" jmp *%eax\n"
|
||||
);
|
||||
|
||||
/*
|
||||
* __dyld section
|
||||
*/
|
||||
asm(
|
||||
" .dyld\n"
|
||||
" .p2align 2\n"
|
||||
"Ldyld_lazy_binder:\n"
|
||||
" .long 0x8fe01000\n"
|
||||
"Ldyld_func_lookup:\n"
|
||||
" .long 0x8fe01008\n"
|
||||
);
|
||||
|
||||
asm("\t.subsections_via_symbols\n");
|
||||
|
||||
IDENT("Id: dylib1.c,v 1.1 2009/02/14 11:40:28 gmcgarry Exp ");
|
||||
IDENT("$NetBSD: dylib1.c,v 1.1.1.2 2010/06/03 18:58:04 plunky Exp $");
|
||||
@ -1,59 +0,0 @@
|
||||
/* Id: macho.h,v 1.1 2008/06/01 01:28:34 gmcgarry Exp */
|
||||
/* $NetBSD: macho.h,v 1.1.1.2 2010/06/03 18:58:04 plunky Exp $ */
|
||||
/*-
|
||||
* Copyright (c) 2008 Gregory McGarry <g.mcgarry@ieee.org>
|
||||
*
|
||||
* Permission to use, copy, modify, and distribute this software for any
|
||||
* purpose with or without fee is hereby granted, provided that the above
|
||||
* copyright notice and this permission notice appear in all copies.
|
||||
*
|
||||
* THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
|
||||
* WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
|
||||
* MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
|
||||
* ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
|
||||
* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
|
||||
* ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
|
||||
* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
||||
*/
|
||||
|
||||
#include <stdint.h>
|
||||
|
||||
struct mach_header {
|
||||
uint32_t magic;
|
||||
uint32_t cputype;
|
||||
uint32_t cpusubtype;
|
||||
uint32_t filetype;
|
||||
uint32_t ncmds;
|
||||
uint32_t sizeofcmds;
|
||||
uint32_t flags;
|
||||
};
|
||||
|
||||
#define LC_SEGMENT 0x01
|
||||
|
||||
struct segment_command {
|
||||
uint32_t cmd;
|
||||
uint32_t cmdsize;
|
||||
char segname[16];
|
||||
uint32_t vmaddr;
|
||||
uint32_t vmsize;
|
||||
uint32_t fileoff;
|
||||
uint32_t filesize;
|
||||
uint32_t maxprot;
|
||||
uint32_t initprot;
|
||||
uint32_t nsects;
|
||||
uint32_t flags;
|
||||
};
|
||||
|
||||
struct section {
|
||||
char sectname[16];
|
||||
char segname[16];
|
||||
uint32_t addr;
|
||||
uint32_t size;
|
||||
uint32_t offset;
|
||||
uint32_t align;
|
||||
uint32_t reloff;
|
||||
uint32_t nreloc;
|
||||
uint32_t flags;
|
||||
uint32_t reserved1;
|
||||
uint32_t reserved2;
|
||||
};
|
||||
@ -1,162 +0,0 @@
|
||||
/* Id: crt0.c,v 1.5 2009/02/14 21:02:58 gmcgarry Exp */
|
||||
/* $NetBSD: crt0.c,v 1.1.1.3 2010/06/03 18:58:04 plunky Exp $ */
|
||||
/*-
|
||||
* Copyright (c) 2008 Gregory McGarry <g.mcgarry@ieee.org>
|
||||
*
|
||||
* Permission to use, copy, modify, and distribute this software for any
|
||||
* purpose with or without fee is hereby granted, provided that the above
|
||||
* copyright notice and this permission notice appear in all copies.
|
||||
*
|
||||
* THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
|
||||
* WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
|
||||
* MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
|
||||
* ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
|
||||
* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
|
||||
* ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
|
||||
* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
||||
*/
|
||||
|
||||
#include "common.h"
|
||||
|
||||
void _start(int, char **, char **);
|
||||
|
||||
char **environ;
|
||||
char *__progname = "";
|
||||
int NXArgc;
|
||||
char **NXArgv;
|
||||
|
||||
asm(
|
||||
#ifdef DYNAMIC
|
||||
" .text\n"
|
||||
" .symbol_stub\n"
|
||||
" .picsymbol_stub\n"
|
||||
#endif
|
||||
" .text\n"
|
||||
" .globl start\n"
|
||||
" .globl _start\n"
|
||||
" .p2align 2\n"
|
||||
"start:\n"
|
||||
"_start:\n"
|
||||
" mr r26,r1\n"
|
||||
" subi r1,r1,4\n"
|
||||
" clrrwi r1,r1,5\n"
|
||||
" li r0,0\n"
|
||||
" stw r0,0(r1)\n"
|
||||
" stwu r1,-64(r1)\n"
|
||||
" lwz r3,0(r26)\n"
|
||||
" addi r4,r26,4\n"
|
||||
" addi r27,r3,1\n"
|
||||
" slwi r27,r27,2\n"
|
||||
" add r5,r4,r27\n"
|
||||
" bl __start\n"
|
||||
" trap\n"
|
||||
);
|
||||
|
||||
|
||||
void
|
||||
_start(int argc, char *argv[], char *envp[])
|
||||
{
|
||||
char *namep;
|
||||
|
||||
environ = envp;
|
||||
NXArgc = argc;
|
||||
NXArgv = argv;
|
||||
|
||||
if ((namep = argv[0]) != NULL) {
|
||||
if ((__progname = _strrchr(namep, '/')) == NULL)
|
||||
__progname = namep;
|
||||
else
|
||||
__progname++;
|
||||
}
|
||||
|
||||
/*
|
||||
* Initialise hooks inside libc
|
||||
*/
|
||||
if (mach_init_routine)
|
||||
(*mach_init_routine)();
|
||||
if (_cthread_init_routine)
|
||||
(*_cthread_init_routine)();
|
||||
|
||||
#ifdef PROFILE
|
||||
atexit(_mcleanup);
|
||||
moninit();
|
||||
#endif
|
||||
|
||||
atexit(_fini);
|
||||
_init();
|
||||
|
||||
exit(main(argc, argv, environ));
|
||||
}
|
||||
|
||||
|
||||
#ifdef DYNAMIC
|
||||
|
||||
/*
|
||||
* dylib constructors/destructors
|
||||
*/
|
||||
asm(
|
||||
" .constructor\n"
|
||||
" .p2align 2\n"
|
||||
" .long __dyld_init\n"
|
||||
" .destructor\n"
|
||||
" .p2align 2\n"
|
||||
" .long __dyld_fini\n"
|
||||
);
|
||||
|
||||
/*
|
||||
* void _dyld_func_lookup(const char *, void **);
|
||||
*
|
||||
* jump to the linker via the pointer in the __dyld section
|
||||
*/
|
||||
asm(
|
||||
" .text\n"
|
||||
" .p2align 2\n"
|
||||
" .private_extern __dyld_func_lookup\n"
|
||||
"__dyld_func_lookup:\n"
|
||||
" lis r11,ha16(Ldyld_func_lookup)\n"
|
||||
" lwz r11,lo16(Ldyld_func_lookup)(r11)\n"
|
||||
" mtctr r11\n"
|
||||
" bctr\n"
|
||||
);
|
||||
|
||||
/*
|
||||
* void dyld_stub_binding_helper(void)
|
||||
*/
|
||||
asm(
|
||||
" .text\n"
|
||||
" .p2align 2\n"
|
||||
" .private_extern dyld_stub_binding_helper\n"
|
||||
"dyld_stub_binding_helper:\n"
|
||||
" lis r12,ha16(Ldyld_lazy_binder)\n"
|
||||
" lwz r12,lo16(Ldyld_lazy_binder)(r12)\n"
|
||||
" mtctr r12\n"
|
||||
" lis r12,ha16(__mh_execute_header)\n"
|
||||
" addi r12,r12,lo16(__mh_execute_header)\n"
|
||||
" bctr\n"
|
||||
);
|
||||
|
||||
/*
|
||||
* __dyld section
|
||||
*/
|
||||
asm(
|
||||
" .dyld\n"
|
||||
" .p2align 2\n"
|
||||
"Ldyld_lazy_binder:\n"
|
||||
" .long 0x8fe01000\n"
|
||||
"Ldyld_func_lookup:\n"
|
||||
" .long 0x8fe01008\n"
|
||||
" .long __mh_execute_header\n"
|
||||
" .long _NXArgc\n"
|
||||
" .long _NXArgv\n"
|
||||
" .long _environ\n"
|
||||
" .long ___progname\n"
|
||||
);
|
||||
|
||||
#endif
|
||||
|
||||
asm("\t.subsections_via_symbols\n");
|
||||
|
||||
#include "common.c"
|
||||
|
||||
IDENT("Id: crt0.c,v 1.5 2009/02/14 21:02:58 gmcgarry Exp ");
|
||||
IDENT("$NetBSD: crt0.c,v 1.1.1.3 2010/06/03 18:58:04 plunky Exp $");
|
||||
@ -1,90 +0,0 @@
|
||||
/* Id: dylib1.c,v 1.1 2009/02/14 11:40:28 gmcgarry Exp */
|
||||
/* $NetBSD: dylib1.c,v 1.1.1.2 2010/06/03 18:58:04 plunky Exp $ */
|
||||
/*-
|
||||
* Copyright (c) 2009 Gregory McGarry <g.mcgarry@ieee.org>
|
||||
*
|
||||
* Permission to use, copy, modify, and distribute this software for any
|
||||
* purpose with or without fee is hereby granted, provided that the above
|
||||
* copyright notice and this permission notice appear in all copies.
|
||||
*
|
||||
* THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
|
||||
* WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
|
||||
* MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
|
||||
* ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
|
||||
* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
|
||||
* ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
|
||||
* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
||||
*/
|
||||
|
||||
#include "common.h"
|
||||
|
||||
asm(
|
||||
" .text\n"
|
||||
" .section __TEXT,__picsymbolstub1,symbol_stubs,pure_instructions,32"
|
||||
);
|
||||
|
||||
/*
|
||||
* void _dyld_func_lookup(const char *, void **);
|
||||
*
|
||||
* jump to the linker via the pointer in the __dyld section
|
||||
*/
|
||||
asm(
|
||||
" .text\n"
|
||||
" .p2align 2\n"
|
||||
" .private_extern __dyld_func_lookup\n"
|
||||
"__dyld_func_lookup:\n"
|
||||
" mflr r0\n"
|
||||
" bcl 20,31,L__dyld_func_lookup$pb\n"
|
||||
"L__dyld_func_lookup$pb:\n"
|
||||
" mflr r11\n"
|
||||
" mtlr r0\n"
|
||||
" addis r11,r11,ha16(Ldyld_func_lookup-L__dyld_func_lookup$pb)\n"
|
||||
" lwz r11,lo16(Ldyld_func_lookup-L__dyld_func_lookup$pb)(r11)\n"
|
||||
" mtctr r11\n"
|
||||
" bctr\n"
|
||||
);
|
||||
|
||||
/*
|
||||
* void dyld_stub_binding_helper(void)
|
||||
*/
|
||||
asm(
|
||||
" .data\n"
|
||||
" .p2align 2\n"
|
||||
"dyld__mach_header:\n"
|
||||
" .long __mh_dylib_header\n"
|
||||
" .text\n"
|
||||
" .p2align 2\n"
|
||||
" .private_extern dyld_stub_binding_helper\n"
|
||||
"dyld_stub_binding_helper:\n"
|
||||
" mflr r0\n"
|
||||
" bcl 20,31,Ldyld_stub_binding_helper$pb\n"
|
||||
"Ldyld_stub_binding_helper$pb:\n"
|
||||
" mflr r12\n"
|
||||
" mtlr r0\n"
|
||||
" mr r0,r12\n"
|
||||
" addis r12,r12,ha16(Ldyld_lazy_binder-Ldyld_stub_binding_helper$pb)\n"
|
||||
" lwz r12,lo16(Ldyld_lazy_binder-Ldyld_stub_binding_helper$pb)(r12)\n"
|
||||
" mtctr r12\n"
|
||||
" mr r12,r0\n"
|
||||
" addis r12,r12,ha16(dyld__mach_header-Ldyld_stub_binding_helper$pb)\n"
|
||||
" lwz r12,lo16(dyld__mach_header-Ldyld_stub_binding_helper$pb)(r12)\n"
|
||||
" bctr\n"
|
||||
);
|
||||
|
||||
/*
|
||||
* __dyld section
|
||||
*/
|
||||
asm(
|
||||
" .dyld\n"
|
||||
" .p2align 2\n"
|
||||
"Ldyld_lazy_binder:\n"
|
||||
" .long 0x8fe01000\n"
|
||||
"Ldyld_func_lookup:\n"
|
||||
" .long 0x8fe01008\n"
|
||||
|
||||
);
|
||||
|
||||
asm("\t.subsections_via_symbols\n");
|
||||
|
||||
IDENT("Id: dylib1.c,v 1.1 2009/02/14 11:40:28 gmcgarry Exp ");
|
||||
IDENT("$NetBSD: dylib1.c,v 1.1.1.2 2010/06/03 18:58:04 plunky Exp $");
|
||||
@ -1,39 +0,0 @@
|
||||
MACH ?= i386
|
||||
TARGET ?= $(MACH)-linux
|
||||
VERSION ?= 0.9.9
|
||||
PCCLIBDIR ?= /usr/local/lib/pcc/$(TARGET)/$(VERSION)/lib
|
||||
SRCDIR ?= .
|
||||
|
||||
CFLAGS = -I$(SRCDIR)/$(MACH) -I$(SRCDIR) -Wall -Wstrict-prototypes -Wmissing-prototypes
|
||||
|
||||
OBJS = crt0.o crt1.o gcrt1.o crti.o crtn.o crtbegin.o crtend.o
|
||||
|
||||
all: $(OBJS)
|
||||
|
||||
crt0.o: $(MACH)/crt0.c
|
||||
$(CC) -O $(CFLAGS) -c -o $@ $<
|
||||
|
||||
crt1.o: $(MACH)/crt0.c
|
||||
$(CC) -O $(CFLAGS) -c -o $@ $<
|
||||
|
||||
gcrt1.o: $(MACH)/crt0.c
|
||||
$(CC) -O -DPROFILE $(CFLAGS) -c -o $@ $<
|
||||
|
||||
crti.o: $(MACH)/crti.c
|
||||
$(CC) -O $(CFLAGS) -c -o $@ $<
|
||||
|
||||
crtn.o: $(MACH)/crtn.c
|
||||
$(CC) -O $(CFLAGS) -c -o $@ $<
|
||||
|
||||
crtbegin.o: crtbegin.c
|
||||
$(CC) -O $(CFLAGS) -c -o $@ $<
|
||||
|
||||
crtend.o: crtend.c
|
||||
$(CC) -O $(CFLAGS) -c -o $@ $<
|
||||
|
||||
install:
|
||||
mkdir -p ${DESTDIR}$(PCCLIBDIR)
|
||||
cp $(OBJS) ${DESTDIR}$(PCCLIBDIR)
|
||||
|
||||
clean:
|
||||
rm -f $(OBJS)
|
||||
@ -1,55 +0,0 @@
|
||||
/* Id: crt0.c,v 1.1 2009/08/14 02:24:36 gmcgarry Exp */
|
||||
/* $NetBSD: crt0.c,v 1.1.1.2 2010/06/03 18:58:04 plunky Exp $ */
|
||||
/*-
|
||||
* Copyright (c) 2009 Gregory McGarry <g.mcgarry@ieee.org>
|
||||
*
|
||||
* Permission to use, copy, modify, and distribute this software for any
|
||||
* purpose with or without fee is hereby granted, provided that the above
|
||||
* copyright notice and this permission notice appear in all copies.
|
||||
*
|
||||
* THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
|
||||
* WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
|
||||
* MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
|
||||
* ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
|
||||
* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
|
||||
* ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
|
||||
* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
||||
*/
|
||||
|
||||
#include "common.h"
|
||||
|
||||
void __start(int, char **, char **);
|
||||
|
||||
asm(" .text \n"
|
||||
" .align 4 \n"
|
||||
" .globl _start \n"
|
||||
"_start: \n"
|
||||
" movq %rbx,%r9 \n"
|
||||
" movq %rcx,%r8 \n"
|
||||
" movq %rdx,%rcx \n"
|
||||
" movq (%rsp),%rdi \n"
|
||||
" leaq 16(%rsp,%rdi,8),%rdx \n"
|
||||
" leaq 8(%rsp),%rsi \n"
|
||||
" subq $16,%rsp \n"
|
||||
" andq $-16,%rsp \n"
|
||||
" jmp __start \n");
|
||||
|
||||
void
|
||||
__start(int argc, char *argv[], char *envp[])
|
||||
{
|
||||
|
||||
#ifdef PROFILE
|
||||
atexit(_mcleanup);
|
||||
monstartup((unsigned long)&_eprol, (unsigned long)&_etext);
|
||||
#endif
|
||||
|
||||
_init();
|
||||
atexit(_fini);
|
||||
|
||||
exit(main(argc, argv, envp));
|
||||
}
|
||||
|
||||
#include "common.c"
|
||||
|
||||
IDENT("Id: crt0.c,v 1.1 2009/08/14 02:24:36 gmcgarry Exp ");
|
||||
IDENT("$NetBSD: crt0.c,v 1.1.1.2 2010/06/03 18:58:04 plunky Exp $");
|
||||
@ -1,36 +0,0 @@
|
||||
/* Id: crti.c,v 1.1 2009/08/14 02:24:36 gmcgarry Exp */
|
||||
/* $NetBSD: crti.c,v 1.1.1.2 2010/06/03 18:58:05 plunky Exp $ */
|
||||
/*-
|
||||
* Copyright (c) 2009 Gregory McGarry <g.mcgarry@ieee.org>
|
||||
*
|
||||
* Permission to use, copy, modify, and distribute this software for any
|
||||
* purpose with or without fee is hereby granted, provided that the above
|
||||
* copyright notice and this permission notice appear in all copies.
|
||||
*
|
||||
* THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
|
||||
* WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
|
||||
* MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
|
||||
* ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
|
||||
* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
|
||||
* ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
|
||||
* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
||||
*/
|
||||
|
||||
#include "common.h"
|
||||
|
||||
asm( " .section .init \n"
|
||||
" .globl _init \n"
|
||||
" .align 16 \n"
|
||||
"_init: \n"
|
||||
" subq $8,%rsp \n"
|
||||
" .previous \n");
|
||||
|
||||
asm( " .section .fini \n"
|
||||
" .globl _fini \n"
|
||||
" .align 16 \n"
|
||||
"_fini: \n"
|
||||
" subq $8,%rsp \n"
|
||||
" .previous \n");
|
||||
|
||||
IDENT("Id: crti.c,v 1.1 2009/08/14 02:24:36 gmcgarry Exp ");
|
||||
IDENT("$NetBSD: crti.c,v 1.1.1.2 2010/06/03 18:58:05 plunky Exp $");
|
||||
@ -1,32 +0,0 @@
|
||||
/* Id: crtn.c,v 1.1 2009/08/14 02:24:36 gmcgarry Exp */
|
||||
/* $NetBSD: crtn.c,v 1.1.1.2 2010/06/03 18:58:05 plunky Exp $ */
|
||||
/*-
|
||||
* Copyright (c) 2009 Gregory McGarry <g.mcgarry@ieee.org>
|
||||
*
|
||||
* Permission to use, copy, modify, and distribute this software for any
|
||||
* purpose with or without fee is hereby granted, provided that the above
|
||||
* copyright notice and this permission notice appear in all copies.
|
||||
*
|
||||
* THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
|
||||
* WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
|
||||
* MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
|
||||
* ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
|
||||
* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
|
||||
* ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
|
||||
* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
||||
*/
|
||||
|
||||
#include "common.h"
|
||||
|
||||
asm( " .section .init \n"
|
||||
" addq $8,%rsp \n"
|
||||
" ret \n"
|
||||
" .previous \n");
|
||||
|
||||
asm( " .section .fini \n"
|
||||
" addq $8,%rsp \n"
|
||||
" ret \n"
|
||||
" .previous \n");
|
||||
|
||||
IDENT("Id: crtn.c,v 1.1 2009/08/14 02:24:36 gmcgarry Exp ");
|
||||
IDENT("$NetBSD: crtn.c,v 1.1.1.2 2010/06/03 18:58:05 plunky Exp $");
|
||||
@ -1,26 +0,0 @@
|
||||
/* Id: common.c,v 1.4 2009/01/23 07:10:09 gmcgarry Exp */
|
||||
/* $NetBSD: common.c,v 1.1.1.3 2010/06/03 18:58:04 plunky Exp $ */
|
||||
/*-
|
||||
* Copyright (c) 2008 Gregory McGarry <g.mcgarry@ieee.org>
|
||||
*
|
||||
* Permission to use, copy, modify, and distribute this software for any
|
||||
* purpose with or without fee is hereby granted, provided that the above
|
||||
* copyright notice and this permission notice appear in all copies.
|
||||
*
|
||||
* THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
|
||||
* WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
|
||||
* MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
|
||||
* ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
|
||||
* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
|
||||
* ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
|
||||
* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
||||
*/
|
||||
|
||||
#include "common.h"
|
||||
|
||||
#ifdef PROFILE
|
||||
asm(" .text\n_eprol:");
|
||||
#endif
|
||||
|
||||
IDENT("Id: common.c,v 1.4 2009/01/23 07:10:09 gmcgarry Exp ");
|
||||
IDENT("$NetBSD: common.c,v 1.1.1.3 2010/06/03 18:58:04 plunky Exp $");
|
||||
@ -1,34 +0,0 @@
|
||||
/* Id: common.h,v 1.5 2009/02/14 23:49:40 gmcgarry Exp */
|
||||
/* $NetBSD: common.h,v 1.1.1.3 2010/06/03 18:58:04 plunky Exp $ */
|
||||
/*-
|
||||
* Copyright (c) 2008 Gregory McGarry <g.mcgarry@ieee.org>
|
||||
*
|
||||
* Permission to use, copy, modify, and distribute this software for any
|
||||
* purpose with or without fee is hereby granted, provided that the above
|
||||
* copyright notice and this permission notice appear in all copies.
|
||||
*
|
||||
* THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
|
||||
* WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
|
||||
* MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
|
||||
* ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
|
||||
* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
|
||||
* ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
|
||||
* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
||||
*/
|
||||
|
||||
#define IDENT(x) asm(".ident\t\"" x "\"")
|
||||
|
||||
#define NULL (void *)0
|
||||
|
||||
extern int main(int argc, char *argv[], char *envp[]);
|
||||
extern void exit(int);
|
||||
extern int atexit(void (*fcn)(void));
|
||||
|
||||
#if PROFILE
|
||||
extern void monstartup(unsigned long, unsigned long);
|
||||
extern void _mcleanup(void);
|
||||
extern unsigned char _etext, _eprol;
|
||||
#endif
|
||||
|
||||
extern void _init(void);
|
||||
extern void _fini(void);
|
||||
125
external/bsd/pcc/dist/pcc-libs/csu/linux/crtbegin.c
vendored
125
external/bsd/pcc/dist/pcc-libs/csu/linux/crtbegin.c
vendored
@ -1,125 +0,0 @@
|
||||
/* Id: crtbegin.c,v 1.6 2009/08/16 23:07:07 gmcgarry Exp */
|
||||
/* $NetBSD: crtbegin.c,v 1.1.1.3 2010/06/03 18:58:04 plunky Exp $ */
|
||||
/*-
|
||||
* Copyright (c) 1998, 2001, 2002 The NetBSD Foundation, Inc.
|
||||
* All rights reserved.
|
||||
*
|
||||
* This code is derived from software contributed to The NetBSD Foundation
|
||||
* by Paul Kranenburg, Ross Harvey, and Jason R. Thorpe.
|
||||
*
|
||||
* Redistribution and use in source and binary forms, with or without
|
||||
* modification, are permitted provided that the following conditions
|
||||
* are met:
|
||||
* 1. Redistributions of source code must retain the above copyright
|
||||
* notice, this list of conditions and the following disclaimer.
|
||||
* 2. Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditions and the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
*
|
||||
* THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. 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 FOUNDATION 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.
|
||||
*/
|
||||
|
||||
/*
|
||||
* Run-time module which handles constructors and destructors.
|
||||
*/
|
||||
|
||||
#include "common.h"
|
||||
|
||||
void __do_global_ctors_aux(void);
|
||||
void __do_global_dtors_aux(void);
|
||||
|
||||
extern void (*__CTOR_LIST__[1])(void);
|
||||
extern void (*__DTOR_LIST__[1])(void);
|
||||
|
||||
asm( " .section .ctors\n"
|
||||
" .align 2\n"
|
||||
"__CTOR_LIST__:\n"
|
||||
#ifdef __x86_64__
|
||||
" .quad -1\n"
|
||||
#else
|
||||
" .long -1\n"
|
||||
#endif
|
||||
" .section .dtors\n"
|
||||
" .align 2\n"
|
||||
"__DTOR_LIST__:\n"
|
||||
#ifdef __x86_64__
|
||||
" .quad -1\n"
|
||||
#else
|
||||
" .long -1\n"
|
||||
#endif
|
||||
);
|
||||
|
||||
|
||||
static void
|
||||
__ctors(void)
|
||||
{
|
||||
unsigned long i = (unsigned long) __CTOR_LIST__[0];
|
||||
void (**p)(void);
|
||||
|
||||
if (i == (unsigned long) -1) {
|
||||
for (i = 1; __CTOR_LIST__[i]; i++)
|
||||
;
|
||||
i--;
|
||||
}
|
||||
p = __CTOR_LIST__ + i;
|
||||
while (i--)
|
||||
(**p--)();
|
||||
}
|
||||
|
||||
static void
|
||||
__dtors(void)
|
||||
{
|
||||
void (**p)(void) = __DTOR_LIST__ + 1;
|
||||
|
||||
while (*p)
|
||||
(**p++)();
|
||||
}
|
||||
|
||||
void
|
||||
__do_global_ctors_aux(void)
|
||||
{
|
||||
static int initialized;
|
||||
|
||||
if (!initialized) {
|
||||
initialized = 1;
|
||||
__ctors();
|
||||
}
|
||||
}
|
||||
|
||||
void
|
||||
__do_global_dtors_aux(void)
|
||||
{
|
||||
static int finished;
|
||||
|
||||
if (finished)
|
||||
return;
|
||||
|
||||
__dtors();
|
||||
|
||||
finished = 1;
|
||||
}
|
||||
|
||||
#define MD_CALL_STATIC_FUNCTION(section, func) \
|
||||
void __call_##func(void); \
|
||||
void __call_##func(void) \
|
||||
{ \
|
||||
asm volatile (".section " #section); \
|
||||
func(); \
|
||||
asm volatile (".previous"); \
|
||||
}
|
||||
|
||||
MD_CALL_STATIC_FUNCTION(.init, __do_global_ctors_aux)
|
||||
MD_CALL_STATIC_FUNCTION(.fini, __do_global_dtors_aux)
|
||||
|
||||
IDENT("Id: crtbegin.c,v 1.6 2009/08/16 23:07:07 gmcgarry Exp ");
|
||||
IDENT("$NetBSD: crtbegin.c,v 1.1.1.3 2010/06/03 18:58:04 plunky Exp $");
|
||||
@ -1,38 +0,0 @@
|
||||
/* Id: crtend.c,v 1.3 2009/08/16 23:07:07 gmcgarry Exp */
|
||||
/* $NetBSD: crtend.c,v 1.1.1.3 2010/06/03 18:58:04 plunky Exp $ */
|
||||
/*-
|
||||
* Copyright (c) 2008 Gregory McGarry <g.mcgarry@ieee.org>
|
||||
*
|
||||
* Permission to use, copy, modify, and distribute this software for any
|
||||
* purpose with or without fee is hereby granted, provided that the above
|
||||
* copyright notice and this permission notice appear in all copies.
|
||||
*
|
||||
* THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
|
||||
* WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
|
||||
* MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
|
||||
* ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
|
||||
* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
|
||||
* ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
|
||||
* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
||||
*/
|
||||
|
||||
#include "common.h"
|
||||
|
||||
asm( " .section .ctors\n"
|
||||
#ifdef __x86_64__
|
||||
" .quad 0\n"
|
||||
#else
|
||||
" .long 0\n"
|
||||
#endif
|
||||
);
|
||||
|
||||
asm( " .section .dtors\n"
|
||||
#ifdef __x86_64__
|
||||
" .quad 0\n"
|
||||
#else
|
||||
" .long 0\n"
|
||||
#endif
|
||||
);
|
||||
|
||||
IDENT("Id: crtend.c,v 1.3 2009/08/16 23:07:07 gmcgarry Exp ");
|
||||
IDENT("$NetBSD: crtend.c,v 1.1.1.3 2010/06/03 18:58:04 plunky Exp $");
|
||||
@ -1,59 +0,0 @@
|
||||
/* Id: crt0.c,v 1.4 2009/02/14 23:49:40 gmcgarry Exp */
|
||||
/* $NetBSD: crt0.c,v 1.1.1.3 2010/06/03 18:58:05 plunky Exp $ */
|
||||
/*-
|
||||
* Copyright (c) 2008 Gregory McGarry <g.mcgarry@ieee.org>
|
||||
*
|
||||
* Permission to use, copy, modify, and distribute this software for any
|
||||
* purpose with or without fee is hereby granted, provided that the above
|
||||
* copyright notice and this permission notice appear in all copies.
|
||||
*
|
||||
* THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
|
||||
* WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
|
||||
* MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
|
||||
* ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
|
||||
* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
|
||||
* ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
|
||||
* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
||||
*/
|
||||
|
||||
#include "common.h"
|
||||
|
||||
void __start(int, char **, char **);
|
||||
|
||||
asm(" .text \n"
|
||||
" .align 4 \n"
|
||||
" .globl _start \n"
|
||||
"_start: \n"
|
||||
" xorl %ebp,%ebp \n"
|
||||
" popl %ebx \n"
|
||||
" movl %esp,%ecx \n"
|
||||
" subl $16,%esp \n"
|
||||
" andl $-16,%esp \n"
|
||||
" movl %ebx,(%esp) \n"
|
||||
" movl %ecx,4(%esp) \n"
|
||||
" addl $1,%ebx \n"
|
||||
" shll $2,%ebx \n"
|
||||
" addl %ebx,%ecx \n"
|
||||
" movl %ecx,8(%esp) \n"
|
||||
" call __start \n"
|
||||
" hlt \n");
|
||||
|
||||
void
|
||||
__start(int argc, char *argv[], char *envp[])
|
||||
{
|
||||
|
||||
#ifdef PROFILE
|
||||
atexit(_mcleanup);
|
||||
monstartup((unsigned long)&_eprol, (unsigned long)&_etext);
|
||||
#endif
|
||||
|
||||
_init();
|
||||
atexit(_fini);
|
||||
|
||||
exit(main(argc, argv, envp));
|
||||
}
|
||||
|
||||
#include "common.c"
|
||||
|
||||
IDENT("Id: crt0.c,v 1.4 2009/02/14 23:49:40 gmcgarry Exp ");
|
||||
IDENT("$NetBSD: crt0.c,v 1.1.1.3 2010/06/03 18:58:05 plunky Exp $");
|
||||
@ -1,38 +0,0 @@
|
||||
/* Id: crti.c,v 1.2 2008/07/02 00:19:20 gmcgarry Exp */
|
||||
/* $NetBSD: crti.c,v 1.1.1.2 2010/06/03 18:58:05 plunky Exp $ */
|
||||
/*-
|
||||
* Copyright (c) 2008 Gregory McGarry <g.mcgarry@ieee.org>
|
||||
*
|
||||
* Permission to use, copy, modify, and distribute this software for any
|
||||
* purpose with or without fee is hereby granted, provided that the above
|
||||
* copyright notice and this permission notice appear in all copies.
|
||||
*
|
||||
* THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
|
||||
* WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
|
||||
* MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
|
||||
* ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
|
||||
* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
|
||||
* ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
|
||||
* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
||||
*/
|
||||
|
||||
#include "common.h"
|
||||
|
||||
asm( " .section .init \n"
|
||||
" .globl _init \n"
|
||||
" .align 16 \n"
|
||||
"_init: \n"
|
||||
" push %ebp \n"
|
||||
" mov %esp,%ebp \n"
|
||||
" .previous \n");
|
||||
|
||||
asm( " .section .fini \n"
|
||||
" .globl _fini \n"
|
||||
" .align 16 \n"
|
||||
"_fini: \n"
|
||||
" push %ebp \n"
|
||||
" mov %esp,%ebp \n"
|
||||
" .previous \n");
|
||||
|
||||
IDENT("Id: crti.c,v 1.2 2008/07/02 00:19:20 gmcgarry Exp ");
|
||||
IDENT("$NetBSD: crti.c,v 1.1.1.2 2010/06/03 18:58:05 plunky Exp $");
|
||||
@ -1,32 +0,0 @@
|
||||
/* Id: crtn.c,v 1.2 2008/07/02 00:19:20 gmcgarry Exp */
|
||||
/* $NetBSD: crtn.c,v 1.1.1.2 2010/06/03 18:58:05 plunky Exp $ */
|
||||
/*-
|
||||
* Copyright (c) 2008 Gregory McGarry <g.mcgarry@ieee.org>
|
||||
*
|
||||
* Permission to use, copy, modify, and distribute this software for any
|
||||
* purpose with or without fee is hereby granted, provided that the above
|
||||
* copyright notice and this permission notice appear in all copies.
|
||||
*
|
||||
* THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
|
||||
* WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
|
||||
* MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
|
||||
* ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
|
||||
* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
|
||||
* ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
|
||||
* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
||||
*/
|
||||
|
||||
#include "common.h"
|
||||
|
||||
asm( " .section .init \n"
|
||||
" leave \n"
|
||||
" ret \n"
|
||||
" .previous \n");
|
||||
|
||||
asm( " .section .fini \n"
|
||||
" leave \n"
|
||||
" ret \n"
|
||||
" .previous \n");
|
||||
|
||||
IDENT("Id: crtn.c,v 1.2 2008/07/02 00:19:20 gmcgarry Exp ");
|
||||
IDENT("$NetBSD: crtn.c,v 1.1.1.2 2010/06/03 18:58:05 plunky Exp $");
|
||||
@ -1,24 +0,0 @@
|
||||
MACH ?= i386
|
||||
TARGET ?= $(MACH)-netbsd
|
||||
VERSION ?= 0.9.9
|
||||
PCCLIBDIR ?= /usr/local/lib/pcc/$(TARGET)/$(VERSION)/lib
|
||||
SRCDIR ?= .
|
||||
|
||||
CFLAGS = -I$SRCDIR/$(MACH) -I$(SRCDIR) -Wall -Wstrict-prototypes -Wmissing-prototypes
|
||||
|
||||
OBJS = crtbegin.o crtend.o
|
||||
|
||||
all: $(OBJS)
|
||||
|
||||
crtbegin.o: crtbegin.c
|
||||
$(CC) -O $(CFLAGS) -c -o $@ $<
|
||||
|
||||
crtend.o: crtend.c
|
||||
$(CC) -O $(CFLAGS) -c -o $@ $<
|
||||
|
||||
install:
|
||||
mkdir -p ${DESTDIR}$(PCCLIBDIR)
|
||||
cp $(OBJS) ${DESTDIR}$(PCCLIBDIR)
|
||||
|
||||
clean:
|
||||
rm -f $(OBJS)
|
||||
@ -1,24 +0,0 @@
|
||||
/* Id: common.h,v 1.1 2008/08/24 05:19:10 gmcgarry Exp */
|
||||
/* $NetBSD: common.h,v 1.1.1.2 2010/06/03 18:58:05 plunky Exp $ */
|
||||
/*-
|
||||
* Copyright (c) 2008 Gregory McGarry <g.mcgarry@ieee.org>
|
||||
*
|
||||
* Permission to use, copy, modify, and distribute this software for any
|
||||
* purpose with or without fee is hereby granted, provided that the above
|
||||
* copyright notice and this permission notice appear in all copies.
|
||||
*
|
||||
* THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
|
||||
* WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
|
||||
* MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
|
||||
* ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
|
||||
* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
|
||||
* ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
|
||||
* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
||||
*/
|
||||
|
||||
#define IDENT(x) asm(".ident\t\"" x "\"")
|
||||
|
||||
#define NULL (void *)0
|
||||
|
||||
extern void _init(void);
|
||||
extern void _fini(void);
|
||||
121
external/bsd/pcc/dist/pcc-libs/csu/netbsd/crtbegin.c
vendored
121
external/bsd/pcc/dist/pcc-libs/csu/netbsd/crtbegin.c
vendored
@ -1,121 +0,0 @@
|
||||
/* Id: crtbegin.c,v 1.3 2009/08/16 23:07:08 gmcgarry Exp */
|
||||
/* $NetBSD: crtbegin.c,v 1.1.1.3 2010/06/03 18:58:05 plunky Exp $ */
|
||||
/*-
|
||||
* Copyright (c) 1998, 2001, 2002 The NetBSD Foundation, Inc.
|
||||
* All rights reserved.
|
||||
*
|
||||
* This code is derived from software contributed to The NetBSD Foundation
|
||||
* by Paul Kranenburg, Ross Harvey, and Jason R. Thorpe.
|
||||
*
|
||||
* Redistribution and use in source and binary forms, with or without
|
||||
* modification, are permitted provided that the following conditions
|
||||
* are met:
|
||||
* 1. Redistributions of source code must retain the above copyright
|
||||
* notice, this list of conditions and the following disclaimer.
|
||||
* 2. Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditions and the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
*
|
||||
* THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. 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 FOUNDATION 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.
|
||||
*/
|
||||
|
||||
/*
|
||||
* Run-time module which handles constructors and destructors.
|
||||
*/
|
||||
|
||||
#include "common.h"
|
||||
|
||||
extern void (*__CTOR_LIST__[1])(void);
|
||||
extern void (*__DTOR_LIST__[1])(void);
|
||||
|
||||
asm( " .section .ctors\n"
|
||||
" .align 2\n"
|
||||
"__CTOR_LIST__:\n"
|
||||
#if defined(__x86_64__) || (__sparc64__)
|
||||
" .quad -1\n"
|
||||
#else
|
||||
" .long -1\n"
|
||||
#endif
|
||||
" .section .dtors\n"
|
||||
" .align 2\n"
|
||||
"__DTOR_LIST__:\n"
|
||||
#if defined(__x86_64__) || (__sparc64__)
|
||||
" .quad -1\n"
|
||||
#else
|
||||
" .long -1\n"
|
||||
#endif
|
||||
);
|
||||
|
||||
static void
|
||||
__ctors(void)
|
||||
{
|
||||
unsigned long i = (unsigned long) __CTOR_LIST__[0];
|
||||
void (**p)(void);
|
||||
|
||||
if (i == (unsigned long) -1) {
|
||||
for (i = 1; __CTOR_LIST__[i]; i++)
|
||||
;
|
||||
i--;
|
||||
}
|
||||
p = __CTOR_LIST__ + i;
|
||||
while (i--)
|
||||
(**p--)();
|
||||
}
|
||||
|
||||
static void
|
||||
__dtors(void)
|
||||
{
|
||||
void (**p)(void) = __DTOR_LIST__ + 1;
|
||||
|
||||
while (*p)
|
||||
(**p++)();
|
||||
}
|
||||
|
||||
void
|
||||
__do_global_ctors_aux(void)
|
||||
{
|
||||
static int initialized;
|
||||
|
||||
if (!initialized) {
|
||||
initialized = 1;
|
||||
__ctors();
|
||||
}
|
||||
}
|
||||
|
||||
void
|
||||
__do_global_dtors_aux(void)
|
||||
{
|
||||
static int finished;
|
||||
|
||||
if (finished)
|
||||
return;
|
||||
|
||||
__dtors();
|
||||
|
||||
finished = 1;
|
||||
}
|
||||
|
||||
#define MD_CALL_STATIC_FUNCTION(section, func) \
|
||||
void __call_##func(void); \
|
||||
void __call_##func(void) \
|
||||
{ \
|
||||
asm volatile (".section " #section); \
|
||||
func(); \
|
||||
asm volatile (".previous"); \
|
||||
}
|
||||
|
||||
MD_CALL_STATIC_FUNCTION(.init, __do_global_ctors_aux)
|
||||
MD_CALL_STATIC_FUNCTION(.fini, __do_global_dtors_aux)
|
||||
|
||||
IDENT("Id: crtbegin.c,v 1.3 2009/08/16 23:07:08 gmcgarry Exp ");
|
||||
IDENT("$NetBSD: crtbegin.c,v 1.1.1.3 2010/06/03 18:58:05 plunky Exp $");
|
||||
@ -1,38 +0,0 @@
|
||||
/* Id: crtend.c,v 1.2 2009/08/16 23:07:08 gmcgarry Exp */
|
||||
/* $NetBSD: crtend.c,v 1.1.1.3 2010/06/03 18:58:05 plunky Exp $ */
|
||||
/*-
|
||||
* Copyright (c) 2008 Gregory McGarry <g.mcgarry@ieee.org>
|
||||
*
|
||||
* Permission to use, copy, modify, and distribute this software for any
|
||||
* purpose with or without fee is hereby granted, provided that the above
|
||||
* copyright notice and this permission notice appear in all copies.
|
||||
*
|
||||
* THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
|
||||
* WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
|
||||
* MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
|
||||
* ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
|
||||
* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
|
||||
* ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
|
||||
* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
||||
*/
|
||||
|
||||
#include "common.h"
|
||||
|
||||
asm( " .section .ctors\n"
|
||||
#if defined(__x86_64__) || defined(__sparc64__)
|
||||
" .quad 0\n"
|
||||
#else
|
||||
" .long 0\n"
|
||||
#endif
|
||||
);
|
||||
|
||||
asm( " .section .dtors\n"
|
||||
#if defined(__x86_64__) || defined(__sparc64__)
|
||||
" .quad 0\n"
|
||||
#else
|
||||
" .long 0\n"
|
||||
#endif
|
||||
);
|
||||
|
||||
IDENT("Id: crtend.c,v 1.2 2009/08/16 23:07:08 gmcgarry Exp ");
|
||||
IDENT("$NetBSD: crtend.c,v 1.1.1.3 2010/06/03 18:58:05 plunky Exp $");
|
||||
294
external/bsd/pcc/dist/pcc-libs/install-sh
vendored
294
external/bsd/pcc/dist/pcc-libs/install-sh
vendored
@ -1,294 +0,0 @@
|
||||
#!/bin/sh
|
||||
#
|
||||
# install - install a program, script, or datafile
|
||||
#
|
||||
# This originates from X11R5 (mit/util/scripts/install.sh), which was
|
||||
# later released in X11R6 (xc/config/util/install.sh) with the
|
||||
# following copyright and license.
|
||||
#
|
||||
# Copyright (C) 1994 X Consortium
|
||||
#
|
||||
# Permission is hereby granted, free of charge, to any person obtaining a copy
|
||||
# of this software and associated documentation files (the "Software"), to
|
||||
# deal in the Software without restriction, including without limitation the
|
||||
# rights to use, copy, modify, merge, publish, distribute, sublicense, and/or
|
||||
# sell copies of the Software, and to permit persons to whom the Software is
|
||||
# furnished to do so, subject to the following conditions:
|
||||
#
|
||||
# The above copyright notice and this permission notice shall be included in
|
||||
# all copies or substantial portions of the Software.
|
||||
#
|
||||
# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
||||
# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
||||
# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
|
||||
# X CONSORTIUM BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
|
||||
# AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNEC-
|
||||
# TION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
|
||||
#
|
||||
# Except as contained in this notice, the name of the X Consortium shall not
|
||||
# be used in advertising or otherwise to promote the sale, use or other deal-
|
||||
# ings in this Software without prior written authorization from the X Consor-
|
||||
# tium.
|
||||
#
|
||||
#
|
||||
# FSF changes to this file are in the public domain.
|
||||
#
|
||||
# Calling this script install-sh is preferred over install.sh, to prevent
|
||||
# `make' implicit rules from creating a file called install from it
|
||||
# when there is no Makefile.
|
||||
#
|
||||
# This script is compatible with the BSD install script, but was written
|
||||
# from scratch. It can only install one file at a time, a restriction
|
||||
# shared with many OS's install programs.
|
||||
|
||||
|
||||
# set DOITPROG to echo to test this script
|
||||
|
||||
# Don't use :- since 4.3BSD and earlier shells don't like it.
|
||||
doit="${DOITPROG-}"
|
||||
|
||||
|
||||
# put in absolute paths if you don't have them in your path; or use env. vars.
|
||||
|
||||
mvprog="${MVPROG-mv}"
|
||||
cpprog="${CPPROG-cp}"
|
||||
chmodprog="${CHMODPROG-chmod}"
|
||||
chownprog="${CHOWNPROG-chown}"
|
||||
chgrpprog="${CHGRPPROG-chgrp}"
|
||||
stripprog="${STRIPPROG-strip}"
|
||||
rmprog="${RMPROG-rm}"
|
||||
mkdirprog="${MKDIRPROG-mkdir}"
|
||||
|
||||
transformbasename=""
|
||||
transform_arg=""
|
||||
instcmd="$mvprog"
|
||||
chmodcmd="$chmodprog 0755"
|
||||
chowncmd=""
|
||||
chgrpcmd=""
|
||||
stripcmd=""
|
||||
rmcmd="$rmprog -f"
|
||||
mvcmd="$mvprog"
|
||||
src=""
|
||||
dst=""
|
||||
dir_arg=""
|
||||
|
||||
while [ x"$1" != x ]; do
|
||||
case $1 in
|
||||
-c) instcmd=$cpprog
|
||||
shift
|
||||
continue;;
|
||||
|
||||
-d) dir_arg=true
|
||||
shift
|
||||
continue;;
|
||||
|
||||
-m) chmodcmd="$chmodprog $2"
|
||||
shift
|
||||
shift
|
||||
continue;;
|
||||
|
||||
-o) chowncmd="$chownprog $2"
|
||||
shift
|
||||
shift
|
||||
continue;;
|
||||
|
||||
-g) chgrpcmd="$chgrpprog $2"
|
||||
shift
|
||||
shift
|
||||
continue;;
|
||||
|
||||
-s) stripcmd=$stripprog
|
||||
shift
|
||||
continue;;
|
||||
|
||||
-t=*) transformarg=`echo $1 | sed 's/-t=//'`
|
||||
shift
|
||||
continue;;
|
||||
|
||||
-b=*) transformbasename=`echo $1 | sed 's/-b=//'`
|
||||
shift
|
||||
continue;;
|
||||
|
||||
*) if [ x"$src" = x ]
|
||||
then
|
||||
src=$1
|
||||
else
|
||||
# this colon is to work around a 386BSD /bin/sh bug
|
||||
:
|
||||
dst=$1
|
||||
fi
|
||||
shift
|
||||
continue;;
|
||||
esac
|
||||
done
|
||||
|
||||
if [ x"$src" = x ]
|
||||
then
|
||||
echo "$0: no input file specified" >&2
|
||||
exit 1
|
||||
else
|
||||
:
|
||||
fi
|
||||
|
||||
if [ x"$dir_arg" != x ]; then
|
||||
dst=$src
|
||||
src=""
|
||||
|
||||
if [ -d "$dst" ]; then
|
||||
instcmd=:
|
||||
chmodcmd=""
|
||||
else
|
||||
instcmd=$mkdirprog
|
||||
fi
|
||||
else
|
||||
|
||||
# Waiting for this to be detected by the "$instcmd $src $dsttmp" command
|
||||
# might cause directories to be created, which would be especially bad
|
||||
# if $src (and thus $dsttmp) contains '*'.
|
||||
|
||||
if [ -f "$src" ] || [ -d "$src" ]
|
||||
then
|
||||
:
|
||||
else
|
||||
echo "$0: $src does not exist" >&2
|
||||
exit 1
|
||||
fi
|
||||
|
||||
if [ x"$dst" = x ]
|
||||
then
|
||||
echo "$0: no destination specified" >&2
|
||||
exit 1
|
||||
else
|
||||
:
|
||||
fi
|
||||
|
||||
# If destination is a directory, append the input filename; if your system
|
||||
# does not like double slashes in filenames, you may need to add some logic
|
||||
|
||||
if [ -d "$dst" ]
|
||||
then
|
||||
dst=$dst/`basename "$src"`
|
||||
else
|
||||
:
|
||||
fi
|
||||
fi
|
||||
|
||||
## this sed command emulates the dirname command
|
||||
dstdir=`echo "$dst" | sed -e 's,[^/]*$,,;s,/$,,;s,^$,.,'`
|
||||
|
||||
# Make sure that the destination directory exists.
|
||||
# this part is taken from Noah Friedman's mkinstalldirs script
|
||||
|
||||
# Skip lots of stat calls in the usual case.
|
||||
if [ ! -d "$dstdir" ]; then
|
||||
defaultIFS='
|
||||
'
|
||||
IFS="${IFS-$defaultIFS}"
|
||||
|
||||
oIFS=$IFS
|
||||
# Some sh's can't handle IFS=/ for some reason.
|
||||
IFS='%'
|
||||
set - `echo "$dstdir" | sed -e 's@/@%@g' -e 's@^%@/@'`
|
||||
IFS=$oIFS
|
||||
|
||||
pathcomp=''
|
||||
|
||||
while [ $# -ne 0 ] ; do
|
||||
pathcomp=$pathcomp$1
|
||||
shift
|
||||
|
||||
if [ ! -d "$pathcomp" ] ;
|
||||
then
|
||||
$mkdirprog "$pathcomp"
|
||||
else
|
||||
:
|
||||
fi
|
||||
|
||||
pathcomp=$pathcomp/
|
||||
done
|
||||
fi
|
||||
|
||||
if [ x"$dir_arg" != x ]
|
||||
then
|
||||
$doit $instcmd "$dst" &&
|
||||
|
||||
if [ x"$chowncmd" != x ]; then $doit $chowncmd "$dst"; else : ; fi &&
|
||||
if [ x"$chgrpcmd" != x ]; then $doit $chgrpcmd "$dst"; else : ; fi &&
|
||||
if [ x"$stripcmd" != x ]; then $doit $stripcmd "$dst"; else : ; fi &&
|
||||
if [ x"$chmodcmd" != x ]; then $doit $chmodcmd "$dst"; else : ; fi
|
||||
else
|
||||
|
||||
# If we're going to rename the final executable, determine the name now.
|
||||
|
||||
if [ x"$transformarg" = x ]
|
||||
then
|
||||
dstfile=`basename "$dst"`
|
||||
else
|
||||
dstfile=`basename "$dst" $transformbasename |
|
||||
sed $transformarg`$transformbasename
|
||||
fi
|
||||
|
||||
# don't allow the sed command to completely eliminate the filename
|
||||
|
||||
if [ x"$dstfile" = x ]
|
||||
then
|
||||
dstfile=`basename "$dst"`
|
||||
else
|
||||
:
|
||||
fi
|
||||
|
||||
# Make a couple of temp file names in the proper directory.
|
||||
|
||||
dsttmp=$dstdir/#inst.$$#
|
||||
rmtmp=$dstdir/#rm.$$#
|
||||
|
||||
# Trap to clean up temp files at exit.
|
||||
|
||||
trap 'status=$?; rm -f "$dsttmp" "$rmtmp" && exit $status' 0
|
||||
trap '(exit $?); exit' 1 2 13 15
|
||||
|
||||
# Move or copy the file name to the temp name
|
||||
|
||||
$doit $instcmd "$src" "$dsttmp" &&
|
||||
|
||||
# and set any options; do chmod last to preserve setuid bits
|
||||
|
||||
# If any of these fail, we abort the whole thing. If we want to
|
||||
# ignore errors from any of these, just make sure not to ignore
|
||||
# errors from the above "$doit $instcmd $src $dsttmp" command.
|
||||
|
||||
if [ x"$chowncmd" != x ]; then $doit $chowncmd "$dsttmp"; else :;fi &&
|
||||
if [ x"$chgrpcmd" != x ]; then $doit $chgrpcmd "$dsttmp"; else :;fi &&
|
||||
if [ x"$stripcmd" != x ]; then $doit $stripcmd "$dsttmp"; else :;fi &&
|
||||
if [ x"$chmodcmd" != x ]; then $doit $chmodcmd "$dsttmp"; else :;fi &&
|
||||
|
||||
# Now remove or move aside any old file at destination location. We try this
|
||||
# two ways since rm can't unlink itself on some systems and the destination
|
||||
# file might be busy for other reasons. In this case, the final cleanup
|
||||
# might fail but the new file should still install successfully.
|
||||
|
||||
{
|
||||
if [ -f "$dstdir/$dstfile" ]
|
||||
then
|
||||
$doit $rmcmd -f "$dstdir/$dstfile" 2>/dev/null ||
|
||||
$doit $mvcmd -f "$dstdir/$dstfile" "$rmtmp" 2>/dev/null ||
|
||||
{
|
||||
echo "$0: cannot unlink or rename $dstdir/$dstfile" >&2
|
||||
(exit 1); exit
|
||||
}
|
||||
else
|
||||
:
|
||||
fi
|
||||
} &&
|
||||
|
||||
# Now rename the file to the real destination.
|
||||
|
||||
$doit $mvcmd "$dsttmp" "$dstdir/$dstfile"
|
||||
|
||||
fi &&
|
||||
|
||||
# The final little trick to "correctly" pass the exit status to the exit trap.
|
||||
|
||||
{
|
||||
(exit 0); exit
|
||||
}
|
||||
33
external/bsd/pcc/dist/pcc-libs/libF77/Makefile
vendored
33
external/bsd/pcc/dist/pcc-libs/libF77/Makefile
vendored
@ -1,33 +0,0 @@
|
||||
# compile, then strip unnecessary symbols
|
||||
|
||||
CFLAGS=-Wall -Werror -Wstrict-prototypes -Wmissing-prototypes
|
||||
|
||||
.c.o :
|
||||
cc -O $(CFLAGS) -c $<
|
||||
-ld -r -x $*.o
|
||||
mv a.out $*.o
|
||||
|
||||
MISC = main.o s_rnge.o abort_.o getarg_.o iargc_.o signal_.o s_stop.o s_paus.o
|
||||
POW = pow_ci.o pow_dd.o pow_di.o pow_hh.o pow_ii.o pow_ri.o pow_zi.o pow_zz.o
|
||||
CX = c_abs.o c_cos.o c_div.o c_exp.o c_log.o c_sin.o c_sqrt.o
|
||||
DCX = z_abs.o z_cos.o z_div.o z_exp.o z_log.o z_sin.o z_sqrt.o
|
||||
REAL = r_abs.o r_acos.o r_asin.o r_atan.o r_atn2.o r_cnjg.o r_cos.o\
|
||||
r_cosh.o r_dim.o r_exp.o r_imag.o r_int.o\
|
||||
r_lg10.o r_log.o r_mod.o r_nint.o r_sign.o\
|
||||
r_sin.o r_sinh.o r_sqrt.o r_tan.o r_tanh.o
|
||||
DBL = d_abs.o d_acos.o d_asin.o d_atan.o d_atn2.o\
|
||||
d_cnjg.o d_cos.o d_cosh.o d_dim.o d_exp.o\
|
||||
d_imag.o d_int.o d_lg10.o d_log.o d_mod.o\
|
||||
d_nint.o d_prod.o d_sign.o d_sin.o d_sinh.o\
|
||||
d_sqrt.o d_tan.o d_tanh.o
|
||||
INT = i_abs.o i_dim.o i_dnnt.o i_indx.o i_len.o i_mod.o i_nint.o i_sign.o
|
||||
HALF = h_abs.o h_dim.o h_dnnt.o h_indx.o h_len.o h_mod.o h_nint.o h_sign.o
|
||||
CMP = l_ge.o l_gt.o l_le.o l_lt.o hl_ge.o hl_gt.o hl_le.o hl_lt.o
|
||||
CHAR = s_cat.o s_cmp.o s_copy.o
|
||||
|
||||
libF77.a : $(MISC) $(POW) $(CX) $(DCX) $(REAL) $(DBL) $(INT) $(HALF) $(CMP) $(CHAR) cabs.o
|
||||
ar r libF77.a $?
|
||||
|
||||
clean:
|
||||
rm -f $(MISC) $(POW) $(CX) $(DCX) $(REAL) $(DBL) $(INT) $(HALF) \
|
||||
$(CMP) $(CHAR) cabs.o libF77.a
|
||||
46
external/bsd/pcc/dist/pcc-libs/libF77/abort_.c
vendored
46
external/bsd/pcc/dist/pcc-libs/libF77/abort_.c
vendored
@ -1,46 +0,0 @@
|
||||
/* Id: abort_.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: abort_.c,v 1.1.1.2 2010/06/03 18:58:05 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
#include <stdio.h>
|
||||
#include <stdlib.h>
|
||||
|
||||
#include "f77lib.h"
|
||||
|
||||
void
|
||||
abort_(void)
|
||||
{
|
||||
fprintf(stderr, "Fortran abort routine called\n");
|
||||
abort();
|
||||
}
|
||||
44
external/bsd/pcc/dist/pcc-libs/libF77/c_abs.c
vendored
44
external/bsd/pcc/dist/pcc-libs/libF77/c_abs.c
vendored
@ -1,44 +0,0 @@
|
||||
/* Id: c_abs.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: c_abs.c,v 1.1.1.2 2010/06/03 18:58:05 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
#include <math.h>
|
||||
|
||||
#include "f77lib.h"
|
||||
|
||||
float
|
||||
c_abs(complex *z)
|
||||
{
|
||||
return( fcabs( z->real, z->imag ) );
|
||||
}
|
||||
45
external/bsd/pcc/dist/pcc-libs/libF77/c_cos.c
vendored
45
external/bsd/pcc/dist/pcc-libs/libF77/c_cos.c
vendored
@ -1,45 +0,0 @@
|
||||
/* Id: c_cos.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: c_cos.c,v 1.1.1.2 2010/06/03 18:58:05 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
#include <math.h>
|
||||
|
||||
#include "f77lib.h"
|
||||
|
||||
void
|
||||
c_cos(complex *r, complex *z)
|
||||
{
|
||||
r->real = cos(z->real) * cosh(z->imag);
|
||||
r->imag = - sin(z->real) * sinh(z->imag);
|
||||
}
|
||||
64
external/bsd/pcc/dist/pcc-libs/libF77/c_div.c
vendored
64
external/bsd/pcc/dist/pcc-libs/libF77/c_div.c
vendored
@ -1,64 +0,0 @@
|
||||
/* Id: c_div.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: c_div.c,v 1.1.1.2 2010/06/03 18:58:05 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
#include <stdlib.h>
|
||||
|
||||
#include "f77lib.h"
|
||||
|
||||
void
|
||||
c_div(complex *c, complex *a, complex *b)
|
||||
{
|
||||
double ratio, den;
|
||||
double abr, abi;
|
||||
|
||||
if( (abr = b->real) < 0.)
|
||||
abr = - abr;
|
||||
if( (abi = b->imag) < 0.)
|
||||
abi = - abi;
|
||||
if( abr <= abi ) {
|
||||
if(abi == 0)
|
||||
abort(); /* fatal("complex division by zero"); */
|
||||
ratio = b->real / b->imag ;
|
||||
den = b->imag * (1 + ratio*ratio);
|
||||
c->real = (a->real*ratio + a->imag) / den;
|
||||
c->imag = (a->imag*ratio - a->real) / den;
|
||||
} else {
|
||||
ratio = b->imag / b->real ;
|
||||
den = b->real * (1 + ratio*ratio);
|
||||
c->real = (a->real + a->imag*ratio) / den;
|
||||
c->imag = (a->imag - a->real*ratio) / den;
|
||||
}
|
||||
|
||||
}
|
||||
48
external/bsd/pcc/dist/pcc-libs/libF77/c_exp.c
vendored
48
external/bsd/pcc/dist/pcc-libs/libF77/c_exp.c
vendored
@ -1,48 +0,0 @@
|
||||
/* Id: c_exp.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: c_exp.c,v 1.1.1.2 2010/06/03 18:58:05 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
#include <math.h>
|
||||
|
||||
#include "f77lib.h"
|
||||
|
||||
void
|
||||
c_exp(complex *r, complex *z)
|
||||
{
|
||||
double expx;
|
||||
|
||||
expx = exp(z->real);
|
||||
r->real = expx * cos(z->imag);
|
||||
r->imag = expx * sin(z->imag);
|
||||
}
|
||||
46
external/bsd/pcc/dist/pcc-libs/libF77/c_log.c
vendored
46
external/bsd/pcc/dist/pcc-libs/libF77/c_log.c
vendored
@ -1,46 +0,0 @@
|
||||
/* Id: c_log.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: c_log.c,v 1.1.1.2 2010/06/03 18:58:05 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
#include <math.h>
|
||||
|
||||
#include "f77lib.h"
|
||||
|
||||
void
|
||||
c_log(complex *r, complex *z)
|
||||
{
|
||||
|
||||
r->imag = atan2(z->imag, z->real);
|
||||
r->real = log( fcabs(z->real, z->imag) );
|
||||
}
|
||||
46
external/bsd/pcc/dist/pcc-libs/libF77/c_sin.c
vendored
46
external/bsd/pcc/dist/pcc-libs/libF77/c_sin.c
vendored
@ -1,46 +0,0 @@
|
||||
/* Id: c_sin.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: c_sin.c,v 1.1.1.2 2010/06/03 18:58:05 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
#include <math.h>
|
||||
|
||||
#include "f77lib.h"
|
||||
|
||||
void
|
||||
c_sin(complex *r, complex *z)
|
||||
{
|
||||
|
||||
r->real = sin(z->real) * cosh(z->imag);
|
||||
r->imag = cos(z->real) * sinh(z->imag);
|
||||
}
|
||||
56
external/bsd/pcc/dist/pcc-libs/libF77/c_sqrt.c
vendored
56
external/bsd/pcc/dist/pcc-libs/libF77/c_sqrt.c
vendored
@ -1,56 +0,0 @@
|
||||
/* Id: c_sqrt.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: c_sqrt.c,v 1.1.1.2 2010/06/03 18:58:05 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
#include <math.h>
|
||||
|
||||
#include "f77lib.h"
|
||||
|
||||
void
|
||||
c_sqrt(complex *r, complex *z)
|
||||
{
|
||||
double mag;
|
||||
|
||||
if( (mag = fcabs(z->real, z->imag)) == 0.)
|
||||
r->real = r->imag = 0.;
|
||||
else if(z->real > 0) {
|
||||
r->real = sqrt(0.5 * (mag + z->real) );
|
||||
r->imag = z->imag / r->real / 2;
|
||||
} else {
|
||||
r->imag = sqrt(0.5 * (mag - z->real) );
|
||||
if(z->imag < 0)
|
||||
r->imag = - r->imag;
|
||||
r->real = z->imag / r->imag /2;
|
||||
}
|
||||
}
|
||||
60
external/bsd/pcc/dist/pcc-libs/libF77/cabs.c
vendored
60
external/bsd/pcc/dist/pcc-libs/libF77/cabs.c
vendored
@ -1,60 +0,0 @@
|
||||
/* Id: cabs.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: cabs.c,v 1.1.1.2 2010/06/03 18:58:05 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
#include <math.h>
|
||||
|
||||
#include "f77lib.h"
|
||||
|
||||
double
|
||||
fcabs(double real, double imag)
|
||||
{
|
||||
double temp;
|
||||
|
||||
if(real < 0)
|
||||
real = -real;
|
||||
if(imag < 0)
|
||||
imag = -imag;
|
||||
if(imag > real){
|
||||
temp = real;
|
||||
real = imag;
|
||||
imag = temp;
|
||||
}
|
||||
if((real+imag) == real)
|
||||
return(real);
|
||||
|
||||
temp = imag/real;
|
||||
temp = real*sqrt(1.0 + temp*temp); /*overflow!!*/
|
||||
return(temp);
|
||||
}
|
||||
37
external/bsd/pcc/dist/pcc-libs/libF77/complex
vendored
37
external/bsd/pcc/dist/pcc-libs/libF77/complex
vendored
@ -1,37 +0,0 @@
|
||||
/* Id: complex,v 1.2 2008/02/26 19:54:41 ragge Exp */
|
||||
/* $NetBSD: complex,v 1.1.1.2 2010/06/03 18:58:05 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
typedef struct { float real, imag; } complex;
|
||||
typedef struct { double dreal, dimag; } dcomplex;
|
||||
44
external/bsd/pcc/dist/pcc-libs/libF77/d_abs.c
vendored
44
external/bsd/pcc/dist/pcc-libs/libF77/d_abs.c
vendored
@ -1,44 +0,0 @@
|
||||
/* Id: d_abs.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: d_abs.c,v 1.1.1.2 2010/06/03 18:58:06 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
#include "f77lib.h"
|
||||
|
||||
double
|
||||
d_abs(double *x)
|
||||
{
|
||||
if(*x >= 0)
|
||||
return(*x);
|
||||
return(- *x);
|
||||
}
|
||||
44
external/bsd/pcc/dist/pcc-libs/libF77/d_acos.c
vendored
44
external/bsd/pcc/dist/pcc-libs/libF77/d_acos.c
vendored
@ -1,44 +0,0 @@
|
||||
/* Id: d_acos.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: d_acos.c,v 1.1.1.2 2010/06/03 18:58:06 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
#include <math.h>
|
||||
|
||||
#include "f77lib.h"
|
||||
|
||||
double
|
||||
d_acos(double *x)
|
||||
{
|
||||
return( acos(*x) );
|
||||
}
|
||||
44
external/bsd/pcc/dist/pcc-libs/libF77/d_asin.c
vendored
44
external/bsd/pcc/dist/pcc-libs/libF77/d_asin.c
vendored
@ -1,44 +0,0 @@
|
||||
/* Id: d_asin.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: d_asin.c,v 1.1.1.2 2010/06/03 18:58:06 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
#include <math.h>
|
||||
|
||||
#include "f77lib.h"
|
||||
|
||||
double
|
||||
d_asin(double *x)
|
||||
{
|
||||
return( asin(*x) );
|
||||
}
|
||||
44
external/bsd/pcc/dist/pcc-libs/libF77/d_atan.c
vendored
44
external/bsd/pcc/dist/pcc-libs/libF77/d_atan.c
vendored
@ -1,44 +0,0 @@
|
||||
/* Id: d_atan.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: d_atan.c,v 1.1.1.2 2010/06/03 18:58:06 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
#include <math.h>
|
||||
|
||||
#include "f77lib.h"
|
||||
|
||||
double
|
||||
d_atan(double *x)
|
||||
{
|
||||
return( atan(*x) );
|
||||
}
|
||||
44
external/bsd/pcc/dist/pcc-libs/libF77/d_atn2.c
vendored
44
external/bsd/pcc/dist/pcc-libs/libF77/d_atn2.c
vendored
@ -1,44 +0,0 @@
|
||||
/* Id: d_atn2.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: d_atn2.c,v 1.1.1.2 2010/06/03 18:58:06 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
#include <math.h>
|
||||
|
||||
#include "f77lib.h"
|
||||
|
||||
double
|
||||
d_atn2(double *x,double *y)
|
||||
{
|
||||
return( atan2(*x,*y) );
|
||||
}
|
||||
43
external/bsd/pcc/dist/pcc-libs/libF77/d_cnjg.c
vendored
43
external/bsd/pcc/dist/pcc-libs/libF77/d_cnjg.c
vendored
@ -1,43 +0,0 @@
|
||||
/* Id: d_cnjg.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: d_cnjg.c,v 1.1.1.2 2010/06/03 18:58:06 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
#include "f77lib.h"
|
||||
|
||||
void
|
||||
d_cnjg(dcomplex *r, dcomplex *z)
|
||||
{
|
||||
r->dreal = z->dreal;
|
||||
r->dimag = - z->dimag;
|
||||
}
|
||||
44
external/bsd/pcc/dist/pcc-libs/libF77/d_cos.c
vendored
44
external/bsd/pcc/dist/pcc-libs/libF77/d_cos.c
vendored
@ -1,44 +0,0 @@
|
||||
/* Id: d_cos.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: d_cos.c,v 1.1.1.2 2010/06/03 18:58:06 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
#include <math.h>
|
||||
|
||||
#include "f77lib.h"
|
||||
|
||||
double
|
||||
d_cos(double *x)
|
||||
{
|
||||
return( cos(*x) );
|
||||
}
|
||||
44
external/bsd/pcc/dist/pcc-libs/libF77/d_cosh.c
vendored
44
external/bsd/pcc/dist/pcc-libs/libF77/d_cosh.c
vendored
@ -1,44 +0,0 @@
|
||||
/* Id: d_cosh.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: d_cosh.c,v 1.1.1.2 2010/06/03 18:58:06 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
#include <math.h>
|
||||
|
||||
#include "f77lib.h"
|
||||
|
||||
double
|
||||
d_cosh(double *x)
|
||||
{
|
||||
return( cosh(*x) );
|
||||
}
|
||||
42
external/bsd/pcc/dist/pcc-libs/libF77/d_dim.c
vendored
42
external/bsd/pcc/dist/pcc-libs/libF77/d_dim.c
vendored
@ -1,42 +0,0 @@
|
||||
/* Id: d_dim.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: d_dim.c,v 1.1.1.2 2010/06/03 18:58:06 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
#include "f77lib.h"
|
||||
|
||||
double
|
||||
d_dim(double *a,double *b)
|
||||
{
|
||||
return( *a > *b ? *a - *b : 0);
|
||||
}
|
||||
44
external/bsd/pcc/dist/pcc-libs/libF77/d_erf.c
vendored
44
external/bsd/pcc/dist/pcc-libs/libF77/d_erf.c
vendored
@ -1,44 +0,0 @@
|
||||
/* Id: d_erf.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: d_erf.c,v 1.1.1.2 2010/06/03 18:58:06 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
#include <math.h>
|
||||
|
||||
#include "f77lib.h"
|
||||
|
||||
double
|
||||
derf_(double *x)
|
||||
{
|
||||
return( erf(*x) );
|
||||
}
|
||||
44
external/bsd/pcc/dist/pcc-libs/libF77/d_erfc.c
vendored
44
external/bsd/pcc/dist/pcc-libs/libF77/d_erfc.c
vendored
@ -1,44 +0,0 @@
|
||||
/* Id: d_erfc.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: d_erfc.c,v 1.1.1.2 2010/06/03 18:58:06 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
#include <math.h>
|
||||
|
||||
#include "f77lib.h"
|
||||
|
||||
double
|
||||
derfc_(double *x)
|
||||
{
|
||||
return( erfc(*x) );
|
||||
}
|
||||
44
external/bsd/pcc/dist/pcc-libs/libF77/d_exp.c
vendored
44
external/bsd/pcc/dist/pcc-libs/libF77/d_exp.c
vendored
@ -1,44 +0,0 @@
|
||||
/* Id: d_exp.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: d_exp.c,v 1.1.1.2 2010/06/03 18:58:06 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
#include <math.h>
|
||||
|
||||
#include "f77lib.h"
|
||||
|
||||
double
|
||||
d_exp(double *x)
|
||||
{
|
||||
return( exp(*x) );
|
||||
}
|
||||
42
external/bsd/pcc/dist/pcc-libs/libF77/d_imag.c
vendored
42
external/bsd/pcc/dist/pcc-libs/libF77/d_imag.c
vendored
@ -1,42 +0,0 @@
|
||||
/* Id: d_imag.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: d_imag.c,v 1.1.1.2 2010/06/03 18:58:06 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
#include "f77lib.h"
|
||||
|
||||
double
|
||||
d_imag(dcomplex *z)
|
||||
{
|
||||
return(z->dimag);
|
||||
}
|
||||
42
external/bsd/pcc/dist/pcc-libs/libF77/d_int.c
vendored
42
external/bsd/pcc/dist/pcc-libs/libF77/d_int.c
vendored
@ -1,42 +0,0 @@
|
||||
/* Id: d_int.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: d_int.c,v 1.1.1.2 2010/06/03 18:58:06 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
#include "f77lib.h"
|
||||
|
||||
double
|
||||
d_int(double *x)
|
||||
{
|
||||
return( (long int) (*x) );
|
||||
}
|
||||
45
external/bsd/pcc/dist/pcc-libs/libF77/d_lg10.c
vendored
45
external/bsd/pcc/dist/pcc-libs/libF77/d_lg10.c
vendored
@ -1,45 +0,0 @@
|
||||
/* Id: d_lg10.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: d_lg10.c,v 1.1.1.2 2010/06/03 18:58:06 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
#include <math.h>
|
||||
|
||||
#include "f77lib.h"
|
||||
|
||||
double
|
||||
d_lg10(double *x)
|
||||
{
|
||||
|
||||
return( M_LOG10E * log(*x) );
|
||||
}
|
||||
44
external/bsd/pcc/dist/pcc-libs/libF77/d_log.c
vendored
44
external/bsd/pcc/dist/pcc-libs/libF77/d_log.c
vendored
@ -1,44 +0,0 @@
|
||||
/* Id: d_log.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: d_log.c,v 1.1.1.2 2010/06/03 18:58:06 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
#include <math.h>
|
||||
|
||||
#include "f77lib.h"
|
||||
|
||||
double
|
||||
d_log(double *x)
|
||||
{
|
||||
return( log(*x) );
|
||||
}
|
||||
42
external/bsd/pcc/dist/pcc-libs/libF77/d_mod.c
vendored
42
external/bsd/pcc/dist/pcc-libs/libF77/d_mod.c
vendored
@ -1,42 +0,0 @@
|
||||
/* Id: d_mod.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: d_mod.c,v 1.1.1.2 2010/06/03 18:58:06 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
#include "f77lib.h"
|
||||
|
||||
double
|
||||
d_mod(double *x,double *y)
|
||||
{
|
||||
return(*x - (*y) * ( (long int) (*x / *y)) );
|
||||
}
|
||||
43
external/bsd/pcc/dist/pcc-libs/libF77/d_nint.c
vendored
43
external/bsd/pcc/dist/pcc-libs/libF77/d_nint.c
vendored
@ -1,43 +0,0 @@
|
||||
/* Id: d_nint.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: d_nint.c,v 1.1.1.2 2010/06/03 18:58:06 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
#include "f77lib.h"
|
||||
|
||||
double
|
||||
d_nint(double *x)
|
||||
{
|
||||
return( (*x)>=0 ?
|
||||
(long int) (*x + .5) : (long int) (*x - .5) );
|
||||
}
|
||||
42
external/bsd/pcc/dist/pcc-libs/libF77/d_prod.c
vendored
42
external/bsd/pcc/dist/pcc-libs/libF77/d_prod.c
vendored
@ -1,42 +0,0 @@
|
||||
/* Id: d_prod.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: d_prod.c,v 1.1.1.2 2010/06/03 18:58:06 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
#include "f77lib.h"
|
||||
|
||||
double
|
||||
d_prod(float *x,float *y)
|
||||
{
|
||||
return( (*x) * (*y) );
|
||||
}
|
||||
45
external/bsd/pcc/dist/pcc-libs/libF77/d_sign.c
vendored
45
external/bsd/pcc/dist/pcc-libs/libF77/d_sign.c
vendored
@ -1,45 +0,0 @@
|
||||
/* Id: d_sign.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: d_sign.c,v 1.1.1.2 2010/06/03 18:58:06 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
#include "f77lib.h"
|
||||
|
||||
double
|
||||
d_sign(double *a,double *b)
|
||||
{
|
||||
double x;
|
||||
|
||||
x = (*a >= 0 ? *a : - *a);
|
||||
return( *b >= 0 ? x : -x);
|
||||
}
|
||||
44
external/bsd/pcc/dist/pcc-libs/libF77/d_sin.c
vendored
44
external/bsd/pcc/dist/pcc-libs/libF77/d_sin.c
vendored
@ -1,44 +0,0 @@
|
||||
/* Id: d_sin.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: d_sin.c,v 1.1.1.2 2010/06/03 18:58:06 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
#include <math.h>
|
||||
|
||||
#include "f77lib.h"
|
||||
|
||||
double
|
||||
d_sin(double *x)
|
||||
{
|
||||
return( sin(*x) );
|
||||
}
|
||||
44
external/bsd/pcc/dist/pcc-libs/libF77/d_sinh.c
vendored
44
external/bsd/pcc/dist/pcc-libs/libF77/d_sinh.c
vendored
@ -1,44 +0,0 @@
|
||||
/* Id: d_sinh.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: d_sinh.c,v 1.1.1.2 2010/06/03 18:58:06 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
#include <math.h>
|
||||
|
||||
#include "f77lib.h"
|
||||
|
||||
double
|
||||
d_sinh(double *x)
|
||||
{
|
||||
return( sinh(*x) );
|
||||
}
|
||||
44
external/bsd/pcc/dist/pcc-libs/libF77/d_sqrt.c
vendored
44
external/bsd/pcc/dist/pcc-libs/libF77/d_sqrt.c
vendored
@ -1,44 +0,0 @@
|
||||
/* Id: d_sqrt.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: d_sqrt.c,v 1.1.1.2 2010/06/03 18:58:06 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
#include <math.h>
|
||||
|
||||
#include "f77lib.h"
|
||||
|
||||
double
|
||||
d_sqrt(double *x)
|
||||
{
|
||||
return( sqrt(*x) );
|
||||
}
|
||||
44
external/bsd/pcc/dist/pcc-libs/libF77/d_tan.c
vendored
44
external/bsd/pcc/dist/pcc-libs/libF77/d_tan.c
vendored
@ -1,44 +0,0 @@
|
||||
/* Id: d_tan.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: d_tan.c,v 1.1.1.2 2010/06/03 18:58:06 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
#include <math.h>
|
||||
|
||||
#include "f77lib.h"
|
||||
|
||||
double
|
||||
d_tan(double *x)
|
||||
{
|
||||
return( tan(*x) );
|
||||
}
|
||||
43
external/bsd/pcc/dist/pcc-libs/libF77/d_tanh.c
vendored
43
external/bsd/pcc/dist/pcc-libs/libF77/d_tanh.c
vendored
@ -1,43 +0,0 @@
|
||||
/* Id: d_tanh.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: d_tanh.c,v 1.1.1.2 2010/06/03 18:58:06 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
#include <math.h>
|
||||
|
||||
#include "f77lib.h"
|
||||
|
||||
double d_tanh(double *x)
|
||||
{
|
||||
return( tanh(*x) );
|
||||
}
|
||||
151
external/bsd/pcc/dist/pcc-libs/libF77/erf.c
vendored
151
external/bsd/pcc/dist/pcc-libs/libF77/erf.c
vendored
@ -1,151 +0,0 @@
|
||||
/* Id: erf.c,v 1.2 2008/02/26 19:54:41 ragge Exp */
|
||||
/* $NetBSD: erf.c,v 1.1.1.2 2010/06/03 18:58:07 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
/*
|
||||
C program for floating point error function
|
||||
|
||||
erf(x) returns the error function of its argument
|
||||
erfc(x) returns 1.0-erf(x)
|
||||
|
||||
erf(x) is defined by
|
||||
${2 over sqrt(pi)} int from 0 to x e sup {-t sup 2} dt$
|
||||
|
||||
the entry for erfc is provided because of the
|
||||
extreme loss of relative accuracy if erf(x) is
|
||||
called for large x and the result subtracted
|
||||
from 1. (e.g. for x= 10, 12 places are lost).
|
||||
|
||||
There are no error returns.
|
||||
|
||||
Calls exp.
|
||||
|
||||
Coefficients for large x are #5667 from Hart & Cheney (18.72D).
|
||||
*/
|
||||
|
||||
#define M 7
|
||||
#define N 9
|
||||
int errno;
|
||||
static double torp = 1.1283791670955125738961589031;
|
||||
static double p1[] = {
|
||||
0.804373630960840172832162e5,
|
||||
0.740407142710151470082064e4,
|
||||
0.301782788536507577809226e4,
|
||||
0.380140318123903008244444e2,
|
||||
0.143383842191748205576712e2,
|
||||
-.288805137207594084924010e0,
|
||||
0.007547728033418631287834e0,
|
||||
};
|
||||
static double q1[] = {
|
||||
0.804373630960840172826266e5,
|
||||
0.342165257924628539769006e5,
|
||||
0.637960017324428279487120e4,
|
||||
0.658070155459240506326937e3,
|
||||
0.380190713951939403753468e2,
|
||||
0.100000000000000000000000e1,
|
||||
0.0,
|
||||
};
|
||||
static double p2[] = {
|
||||
0.18263348842295112592168999e4,
|
||||
0.28980293292167655611275846e4,
|
||||
0.2320439590251635247384768711e4,
|
||||
0.1143262070703886173606073338e4,
|
||||
0.3685196154710010637133875746e3,
|
||||
0.7708161730368428609781633646e2,
|
||||
0.9675807882987265400604202961e1,
|
||||
0.5641877825507397413087057563e0,
|
||||
0.0,
|
||||
};
|
||||
static double q2[] = {
|
||||
0.18263348842295112595576438e4,
|
||||
0.495882756472114071495438422e4,
|
||||
0.60895424232724435504633068e4,
|
||||
0.4429612803883682726711528526e4,
|
||||
0.2094384367789539593790281779e4,
|
||||
0.6617361207107653469211984771e3,
|
||||
0.1371255960500622202878443578e3,
|
||||
0.1714980943627607849376131193e2,
|
||||
1.0,
|
||||
};
|
||||
|
||||
double
|
||||
erf(arg) double arg;{
|
||||
double erfc();
|
||||
int sign;
|
||||
double argsq;
|
||||
double d, n;
|
||||
int i;
|
||||
|
||||
errno = 0;
|
||||
sign = 1;
|
||||
if(arg < 0.){
|
||||
arg = -arg;
|
||||
sign = -1;
|
||||
}
|
||||
if(arg < 0.5){
|
||||
argsq = arg*arg;
|
||||
for(n=0,d=0,i=M-1; i>=0; i--){
|
||||
n = n*argsq + p1[i];
|
||||
d = d*argsq + q1[i];
|
||||
}
|
||||
return(sign*torp*arg*n/d);
|
||||
}
|
||||
if(arg >= 10.)
|
||||
return(sign*1.);
|
||||
return(sign*(1. - erfc(arg)));
|
||||
}
|
||||
|
||||
double
|
||||
erfc(arg) double arg;{
|
||||
double erf();
|
||||
double exp();
|
||||
double n, d;
|
||||
int i;
|
||||
|
||||
errno = 0;
|
||||
if(arg < 0.)
|
||||
return(2. - erfc(-arg));
|
||||
/*
|
||||
if(arg < 0.5)
|
||||
return(1. - erf(arg));
|
||||
*/
|
||||
if(arg >= 10.)
|
||||
return(0.);
|
||||
|
||||
for(n=0,d=0,i=N-1; i>=0; i--){
|
||||
n = n*arg + p2[i];
|
||||
d = d*arg + q2[i];
|
||||
}
|
||||
return(exp(-arg*arg)*n/d);
|
||||
}
|
||||
113
external/bsd/pcc/dist/pcc-libs/libF77/f77lib.h
vendored
113
external/bsd/pcc/dist/pcc-libs/libF77/f77lib.h
vendored
@ -1,113 +0,0 @@
|
||||
/* declarations */
|
||||
typedef struct { float real, imag; } complex;
|
||||
typedef struct { double dreal, dimag; } dcomplex;
|
||||
|
||||
/* prototypes */
|
||||
void s_rnge(char *varn, long int offset, char *procn, int line);
|
||||
void abort_(void);
|
||||
void getarg_(long int *n, char *s, long int ls);
|
||||
long int iargc_(void);
|
||||
void (*signal_(int *sigp, void (**procp)(int)))(int);
|
||||
void s_stop(char *s, long int n);
|
||||
void f_exit(void);
|
||||
void s_paus(char *s, long int n);
|
||||
void pow_ci(complex *p, complex *a, long int *b);
|
||||
void pow_zi(dcomplex *p, dcomplex *a, long int *b);
|
||||
double pow_dd(double *ap, double *bp);
|
||||
double pow_di(double *ap, long int *bp);
|
||||
short pow_hh(short *ap, short *bp);
|
||||
long int pow_ii(long int *ap, long int *bp);
|
||||
float pow_ri(float *ap, long int *bp);
|
||||
void z_div(dcomplex *c, dcomplex *a, dcomplex *b);
|
||||
void pow_zz(dcomplex *r,dcomplex *a,dcomplex *b);
|
||||
float c_abs(complex *z);
|
||||
void c_cos(complex *r, complex *z);
|
||||
void c_div(complex *c, complex *a, complex *b);
|
||||
void c_exp(complex *r, complex *z);
|
||||
void c_log(complex *r, complex *z);
|
||||
void c_sin(complex *r, complex *z);
|
||||
void c_sqrt(complex *r, complex *z);
|
||||
double z_abs(dcomplex *z);
|
||||
void z_cos(dcomplex *r, dcomplex *z);
|
||||
void z_exp(dcomplex *r, dcomplex *z);
|
||||
void z_log(dcomplex *r, dcomplex *z);
|
||||
void z_sin(dcomplex *r, dcomplex *z);
|
||||
void z_sqrt(dcomplex *r, dcomplex *z);
|
||||
double r_abs(float *x);
|
||||
double r_acos(float *x);
|
||||
double r_asin(float *x);
|
||||
double r_atan(float *x);
|
||||
double r_atn2(float *x,float *y);
|
||||
void r_cnjg(complex *r, complex *z);
|
||||
double r_cos(float *x);
|
||||
double r_cosh(float *x);
|
||||
double r_dim(float *a,float *b);
|
||||
double r_exp(float *x);
|
||||
double r_imag(complex *z);
|
||||
double r_int(float *x);
|
||||
double r_lg10(float *x);
|
||||
double r_log(float *x);
|
||||
double r_mod(float *x,float *y);
|
||||
double r_nint(float *x);
|
||||
double r_sign(float *a,float *b);
|
||||
double r_sin(float *x);
|
||||
double r_sinh(float *x);
|
||||
double r_sqrt(float *x);
|
||||
double r_tan(float *x);
|
||||
double r_tanh(float *x);
|
||||
double d_abs(double *x);
|
||||
double d_acos(double *x);
|
||||
double d_asin(double *x);
|
||||
double d_atan(double *x);
|
||||
double d_atn2(double *x,double *y);
|
||||
void d_cnjg(dcomplex *r, dcomplex *z);
|
||||
double d_cos(double *x);
|
||||
double d_cosh(double *x);
|
||||
double d_dim(double *a,double *b);
|
||||
double derf_(double *x);
|
||||
double derfc_(double *x);
|
||||
double d_exp(double *x);
|
||||
double d_imag(dcomplex *z);
|
||||
double d_int(double *x);
|
||||
double d_lg10(double *x);
|
||||
double d_log(double *x);
|
||||
double d_mod(double *x,double *y);
|
||||
double d_nint(double *x);
|
||||
double d_prod(float *x,float *y);
|
||||
double d_sign(double *a,double *b);
|
||||
double d_sin(double *x);
|
||||
double d_sinh(double *x);
|
||||
double d_sqrt(double *x);
|
||||
double d_tan(double *x);
|
||||
double d_tanh(double *x);
|
||||
long int i_abs(long int *x);
|
||||
long int i_dim(long int *a,long int *b);
|
||||
long int i_dnnt(double *x);
|
||||
long int i_indx(char *a, char *b, long int la, long int lb);
|
||||
long int i_len(char *s, long int n);
|
||||
long int i_mod(long int *a,long int *b);
|
||||
long int i_nint(float *x);
|
||||
long int i_sign(long int *a,long int *b);
|
||||
short h_abs(short *x);
|
||||
short h_dim(short *a,short *b);
|
||||
short h_dnnt(double *x);
|
||||
short h_indx(char *a, char *b, long int la, long int lb);
|
||||
short h_len(char *s, long int n);
|
||||
short h_mod(short *a,short *b);
|
||||
short h_nint(float *x);
|
||||
short h_sign(short *a,short *b);
|
||||
long int l_ge(char *a,char *b,long int la,long int lb);
|
||||
long int l_gt(char *a,char *b,long int la,long int lb);
|
||||
long int l_le(char *a,char *b,long int la,long int lb);
|
||||
long int l_lt(char *a,char *b,long int la,long int lb);
|
||||
int s_cmp(char *a, char *b, long int la, long int lb);
|
||||
short hl_ge(char *a,char *b,long int la,long int lb);
|
||||
short hl_gt(char *a,char *b,long int la,long int lb);
|
||||
short hl_le(char *a,char *b,long int la,long int lb);
|
||||
short hl_lt(char *a,char *b,long int la,long int lb);
|
||||
void s_cat(char *lp, char *rpp[], long int rnp[], long int *np, long int ll);
|
||||
void s_copy(char *a, char *b, long int la, long int lb);
|
||||
double fcabs(double real, double imag);
|
||||
|
||||
|
||||
|
||||
59
external/bsd/pcc/dist/pcc-libs/libF77/getarg_.c
vendored
59
external/bsd/pcc/dist/pcc-libs/libF77/getarg_.c
vendored
@ -1,59 +0,0 @@
|
||||
/* Id: getarg_.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: getarg_.c,v 1.1.1.2 2010/06/03 18:58:07 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
/*
|
||||
* subroutine getarg(k, c)
|
||||
* returns the kth unix command argument in fortran character
|
||||
* variable argument c
|
||||
*/
|
||||
#include "f77lib.h"
|
||||
|
||||
void
|
||||
getarg_(long int *n, char *s, long int ls)
|
||||
{
|
||||
extern int xargc;
|
||||
extern char **xargv;
|
||||
char *t;
|
||||
int i;
|
||||
|
||||
if(*n>0 && *n<xargc)
|
||||
t = xargv[*n];
|
||||
else
|
||||
t = "";
|
||||
for(i = 0; i<ls && *t!='\0' ; ++i)
|
||||
*s++ = *t++;
|
||||
for( ; i<ls ; ++i)
|
||||
*s++ = ' ';
|
||||
}
|
||||
44
external/bsd/pcc/dist/pcc-libs/libF77/h_abs.c
vendored
44
external/bsd/pcc/dist/pcc-libs/libF77/h_abs.c
vendored
@ -1,44 +0,0 @@
|
||||
/* Id: h_abs.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: h_abs.c,v 1.1.1.2 2010/06/03 18:58:07 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
#include "f77lib.h"
|
||||
|
||||
short
|
||||
h_abs(short *x)
|
||||
{
|
||||
if(*x >= 0)
|
||||
return(*x);
|
||||
return(- *x);
|
||||
}
|
||||
42
external/bsd/pcc/dist/pcc-libs/libF77/h_dim.c
vendored
42
external/bsd/pcc/dist/pcc-libs/libF77/h_dim.c
vendored
@ -1,42 +0,0 @@
|
||||
/* Id: h_dim.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: h_dim.c,v 1.1.1.2 2010/06/03 18:58:07 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
#include "f77lib.h"
|
||||
|
||||
short
|
||||
h_dim(short *a,short *b)
|
||||
{
|
||||
return( *a > *b ? *a - *b : 0);
|
||||
}
|
||||
43
external/bsd/pcc/dist/pcc-libs/libF77/h_dnnt.c
vendored
43
external/bsd/pcc/dist/pcc-libs/libF77/h_dnnt.c
vendored
@ -1,43 +0,0 @@
|
||||
/* Id: h_dnnt.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: h_dnnt.c,v 1.1.1.2 2010/06/03 18:58:07 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
#include "f77lib.h"
|
||||
|
||||
short
|
||||
h_dnnt(double *x)
|
||||
{
|
||||
return( (*x)>=0 ?
|
||||
(short) (*x + .5) : (short) (*x - .5) );
|
||||
}
|
||||
57
external/bsd/pcc/dist/pcc-libs/libF77/h_indx.c
vendored
57
external/bsd/pcc/dist/pcc-libs/libF77/h_indx.c
vendored
@ -1,57 +0,0 @@
|
||||
/* Id: h_indx.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: h_indx.c,v 1.1.1.2 2010/06/03 18:58:07 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
#include "f77lib.h"
|
||||
|
||||
short
|
||||
h_indx(char *a, char *b, long int la, long int lb)
|
||||
{
|
||||
int i, n;
|
||||
char *s, *t, *bend;
|
||||
|
||||
n = la - lb + 1;
|
||||
bend = b + lb;
|
||||
|
||||
for(i = 0 ; i < n ; ++i) {
|
||||
s = a + i;
|
||||
t = b;
|
||||
while(t < bend)
|
||||
if(*s++ != *t++)
|
||||
goto no;
|
||||
return(i+1);
|
||||
no: ;
|
||||
}
|
||||
return(0);
|
||||
}
|
||||
42
external/bsd/pcc/dist/pcc-libs/libF77/h_len.c
vendored
42
external/bsd/pcc/dist/pcc-libs/libF77/h_len.c
vendored
@ -1,42 +0,0 @@
|
||||
/* Id: h_len.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: h_len.c,v 1.1.1.2 2010/06/03 18:58:07 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
#include "f77lib.h"
|
||||
|
||||
short
|
||||
h_len(char *s, long int n)
|
||||
{
|
||||
return(n);
|
||||
}
|
||||
42
external/bsd/pcc/dist/pcc-libs/libF77/h_mod.c
vendored
42
external/bsd/pcc/dist/pcc-libs/libF77/h_mod.c
vendored
@ -1,42 +0,0 @@
|
||||
/* Id: h_mod.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: h_mod.c,v 1.1.1.2 2010/06/03 18:58:07 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
#include "f77lib.h"
|
||||
|
||||
short
|
||||
h_mod(short *a,short *b)
|
||||
{
|
||||
return( *a % *b);
|
||||
}
|
||||
43
external/bsd/pcc/dist/pcc-libs/libF77/h_nint.c
vendored
43
external/bsd/pcc/dist/pcc-libs/libF77/h_nint.c
vendored
@ -1,43 +0,0 @@
|
||||
/* Id: h_nint.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: h_nint.c,v 1.1.1.2 2010/06/03 18:58:07 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
#include "f77lib.h"
|
||||
|
||||
short
|
||||
h_nint(float *x)
|
||||
{
|
||||
return( (*x)>=0 ?
|
||||
(short) (*x + .5) : (short) (*x - .5) );
|
||||
}
|
||||
45
external/bsd/pcc/dist/pcc-libs/libF77/h_sign.c
vendored
45
external/bsd/pcc/dist/pcc-libs/libF77/h_sign.c
vendored
@ -1,45 +0,0 @@
|
||||
/* Id: h_sign.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: h_sign.c,v 1.1.1.2 2010/06/03 18:58:07 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
#include "f77lib.h"
|
||||
|
||||
short
|
||||
h_sign(short *a,short *b)
|
||||
{
|
||||
short x;
|
||||
|
||||
x = (*a >= 0 ? *a : - *a);
|
||||
return( *b >= 0 ? x : -x);
|
||||
}
|
||||
42
external/bsd/pcc/dist/pcc-libs/libF77/hl_ge.c
vendored
42
external/bsd/pcc/dist/pcc-libs/libF77/hl_ge.c
vendored
@ -1,42 +0,0 @@
|
||||
/* Id: hl_ge.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: hl_ge.c,v 1.1.1.2 2010/06/03 18:58:07 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
#include "f77lib.h"
|
||||
|
||||
short
|
||||
hl_ge(char *a,char *b,long int la,long int lb)
|
||||
{
|
||||
return(s_cmp(a,b,la,lb) >= 0);
|
||||
}
|
||||
42
external/bsd/pcc/dist/pcc-libs/libF77/hl_gt.c
vendored
42
external/bsd/pcc/dist/pcc-libs/libF77/hl_gt.c
vendored
@ -1,42 +0,0 @@
|
||||
/* Id: hl_gt.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: hl_gt.c,v 1.1.1.2 2010/06/03 18:58:07 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
#include "f77lib.h"
|
||||
|
||||
short
|
||||
hl_gt(char *a,char *b,long int la,long int lb)
|
||||
{
|
||||
return(s_cmp(a,b,la,lb) > 0);
|
||||
}
|
||||
42
external/bsd/pcc/dist/pcc-libs/libF77/hl_le.c
vendored
42
external/bsd/pcc/dist/pcc-libs/libF77/hl_le.c
vendored
@ -1,42 +0,0 @@
|
||||
/* Id: hl_le.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: hl_le.c,v 1.1.1.2 2010/06/03 18:58:07 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
#include "f77lib.h"
|
||||
|
||||
short
|
||||
hl_le(char *a,char *b,long int la,long int lb)
|
||||
{
|
||||
return(s_cmp(a,b,la,lb) <= 0);
|
||||
}
|
||||
42
external/bsd/pcc/dist/pcc-libs/libF77/hl_lt.c
vendored
42
external/bsd/pcc/dist/pcc-libs/libF77/hl_lt.c
vendored
@ -1,42 +0,0 @@
|
||||
/* Id: hl_lt.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: hl_lt.c,v 1.1.1.2 2010/06/03 18:58:07 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
#include "f77lib.h"
|
||||
|
||||
short
|
||||
hl_lt(char *a,char *b,long int la,long int lb)
|
||||
{
|
||||
return(s_cmp(a,b,la,lb) < 0);
|
||||
}
|
||||
44
external/bsd/pcc/dist/pcc-libs/libF77/i_abs.c
vendored
44
external/bsd/pcc/dist/pcc-libs/libF77/i_abs.c
vendored
@ -1,44 +0,0 @@
|
||||
/* Id: i_abs.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: i_abs.c,v 1.1.1.2 2010/06/03 18:58:07 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
#include "f77lib.h"
|
||||
|
||||
long int
|
||||
i_abs(long int *x)
|
||||
{
|
||||
if(*x >= 0)
|
||||
return(*x);
|
||||
return(- *x);
|
||||
}
|
||||
42
external/bsd/pcc/dist/pcc-libs/libF77/i_dim.c
vendored
42
external/bsd/pcc/dist/pcc-libs/libF77/i_dim.c
vendored
@ -1,42 +0,0 @@
|
||||
/* Id: i_dim.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: i_dim.c,v 1.1.1.2 2010/06/03 18:58:07 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
#include "f77lib.h"
|
||||
|
||||
long int
|
||||
i_dim(long int *a,long int *b)
|
||||
{
|
||||
return( *a > *b ? *a - *b : 0);
|
||||
}
|
||||
43
external/bsd/pcc/dist/pcc-libs/libF77/i_dnnt.c
vendored
43
external/bsd/pcc/dist/pcc-libs/libF77/i_dnnt.c
vendored
@ -1,43 +0,0 @@
|
||||
/* Id: i_dnnt.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: i_dnnt.c,v 1.1.1.2 2010/06/03 18:58:07 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
#include "f77lib.h"
|
||||
|
||||
long int
|
||||
i_dnnt(double *x)
|
||||
{
|
||||
return( (*x)>=0 ?
|
||||
(long int) (*x + .5) : (long int) (*x - .5) );
|
||||
}
|
||||
57
external/bsd/pcc/dist/pcc-libs/libF77/i_indx.c
vendored
57
external/bsd/pcc/dist/pcc-libs/libF77/i_indx.c
vendored
@ -1,57 +0,0 @@
|
||||
/* Id: i_indx.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: i_indx.c,v 1.1.1.2 2010/06/03 18:58:07 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
#include "f77lib.h"
|
||||
|
||||
long int
|
||||
i_indx(char *a, char *b, long int la, long int lb)
|
||||
{
|
||||
long int i, n;
|
||||
char *s, *t, *bend;
|
||||
|
||||
n = la - lb + 1;
|
||||
bend = b + lb;
|
||||
|
||||
for(i = 0 ; i < n ; ++i) {
|
||||
s = a + i;
|
||||
t = b;
|
||||
while(t < bend)
|
||||
if(*s++ != *t++)
|
||||
goto no;
|
||||
return(i+1);
|
||||
no: ;
|
||||
}
|
||||
return(0);
|
||||
}
|
||||
42
external/bsd/pcc/dist/pcc-libs/libF77/i_len.c
vendored
42
external/bsd/pcc/dist/pcc-libs/libF77/i_len.c
vendored
@ -1,42 +0,0 @@
|
||||
/* Id: i_len.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: i_len.c,v 1.1.1.2 2010/06/03 18:58:07 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
#include "f77lib.h"
|
||||
|
||||
long int
|
||||
i_len(char *s, long int n)
|
||||
{
|
||||
return(n);
|
||||
}
|
||||
42
external/bsd/pcc/dist/pcc-libs/libF77/i_mod.c
vendored
42
external/bsd/pcc/dist/pcc-libs/libF77/i_mod.c
vendored
@ -1,42 +0,0 @@
|
||||
/* Id: i_mod.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: i_mod.c,v 1.1.1.2 2010/06/03 18:58:07 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
#include "f77lib.h"
|
||||
|
||||
long int
|
||||
i_mod(long int *a,long int *b)
|
||||
{
|
||||
return( *a % *b);
|
||||
}
|
||||
43
external/bsd/pcc/dist/pcc-libs/libF77/i_nint.c
vendored
43
external/bsd/pcc/dist/pcc-libs/libF77/i_nint.c
vendored
@ -1,43 +0,0 @@
|
||||
/* Id: i_nint.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: i_nint.c,v 1.1.1.2 2010/06/03 18:58:07 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
#include "f77lib.h"
|
||||
|
||||
long int
|
||||
i_nint(float *x)
|
||||
{
|
||||
return( (*x)>=0 ?
|
||||
(long int) (*x + .5) : (long int) (*x - .5) );
|
||||
}
|
||||
45
external/bsd/pcc/dist/pcc-libs/libF77/i_sign.c
vendored
45
external/bsd/pcc/dist/pcc-libs/libF77/i_sign.c
vendored
@ -1,45 +0,0 @@
|
||||
/* Id: i_sign.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: i_sign.c,v 1.1.1.2 2010/06/03 18:58:07 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
#include "f77lib.h"
|
||||
|
||||
long int
|
||||
i_sign(long int *a,long int *b)
|
||||
{
|
||||
long int x;
|
||||
|
||||
x = (*a >= 0 ? *a : - *a);
|
||||
return( *b >= 0 ? x : -x);
|
||||
}
|
||||
43
external/bsd/pcc/dist/pcc-libs/libF77/iargc_.c
vendored
43
external/bsd/pcc/dist/pcc-libs/libF77/iargc_.c
vendored
@ -1,43 +0,0 @@
|
||||
/* Id: iargc_.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: iargc_.c,v 1.1.1.2 2010/06/03 18:58:08 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
#include "f77lib.h"
|
||||
|
||||
long int
|
||||
iargc_()
|
||||
{
|
||||
extern int xargc;
|
||||
return ( xargc - 1 );
|
||||
}
|
||||
42
external/bsd/pcc/dist/pcc-libs/libF77/l_ge.c
vendored
42
external/bsd/pcc/dist/pcc-libs/libF77/l_ge.c
vendored
@ -1,42 +0,0 @@
|
||||
/* Id: l_ge.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: l_ge.c,v 1.1.1.2 2010/06/03 18:58:08 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
#include "f77lib.h"
|
||||
|
||||
long int
|
||||
l_ge(char *a,char *b,long int la,long int lb)
|
||||
{
|
||||
return(s_cmp(a,b,la,lb) >= 0);
|
||||
}
|
||||
42
external/bsd/pcc/dist/pcc-libs/libF77/l_gt.c
vendored
42
external/bsd/pcc/dist/pcc-libs/libF77/l_gt.c
vendored
@ -1,42 +0,0 @@
|
||||
/* Id: l_gt.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: l_gt.c,v 1.1.1.2 2010/06/03 18:58:08 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
#include "f77lib.h"
|
||||
|
||||
long int
|
||||
l_gt(char *a,char *b,long int la,long int lb)
|
||||
{
|
||||
return(s_cmp(a,b,la,lb) > 0);
|
||||
}
|
||||
42
external/bsd/pcc/dist/pcc-libs/libF77/l_le.c
vendored
42
external/bsd/pcc/dist/pcc-libs/libF77/l_le.c
vendored
@ -1,42 +0,0 @@
|
||||
/* Id: l_le.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: l_le.c,v 1.1.1.2 2010/06/03 18:58:08 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
#include "f77lib.h"
|
||||
|
||||
long int
|
||||
l_le(char *a,char *b,long int la,long int lb)
|
||||
{
|
||||
return(s_cmp(a,b,la,lb) <= 0);
|
||||
}
|
||||
42
external/bsd/pcc/dist/pcc-libs/libF77/l_lt.c
vendored
42
external/bsd/pcc/dist/pcc-libs/libF77/l_lt.c
vendored
@ -1,42 +0,0 @@
|
||||
/* Id: l_lt.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: l_lt.c,v 1.1.1.2 2010/06/03 18:58:08 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
#include "f77lib.h"
|
||||
|
||||
long int
|
||||
l_lt(char *a,char *b,long int la,long int lb)
|
||||
{
|
||||
return(s_cmp(a,b,la,lb) < 0);
|
||||
}
|
||||
87
external/bsd/pcc/dist/pcc-libs/libF77/main.c
vendored
87
external/bsd/pcc/dist/pcc-libs/libF77/main.c
vendored
@ -1,87 +0,0 @@
|
||||
/* Id: main.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: main.c,v 1.1.1.2 2010/06/03 18:58:08 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
/* STARTUP PROCEDURE FOR UNIX FORTRAN PROGRAMS */
|
||||
|
||||
#include <stdio.h>
|
||||
#include <signal.h>
|
||||
#include <stdlib.h>
|
||||
|
||||
static void sigfdie(int), sigidie(int);
|
||||
static void sigdie(char *s);
|
||||
void MAIN__(void);
|
||||
void f_exit(void);
|
||||
|
||||
int xargc;
|
||||
char **xargv;
|
||||
|
||||
int
|
||||
main(int argc, char **argv, char **arge)
|
||||
{
|
||||
|
||||
xargc = argc;
|
||||
xargv = argv;
|
||||
signal(SIGFPE, sigfdie); /* ignore underflow, enable overflow */
|
||||
signal(SIGIOT, sigidie);
|
||||
MAIN__();
|
||||
f_exit();
|
||||
return 0;
|
||||
}
|
||||
|
||||
static void
|
||||
sigfdie(int a)
|
||||
{
|
||||
sigdie("Floating Exception");
|
||||
}
|
||||
|
||||
static void
|
||||
sigidie(int a)
|
||||
{
|
||||
sigdie("IOT Trap");
|
||||
}
|
||||
|
||||
static void
|
||||
sigdie(char *s)
|
||||
{
|
||||
/* print error message, then clear buffers */
|
||||
fflush(stderr);
|
||||
fprintf(stderr, "%s\n", s);
|
||||
f_exit();
|
||||
fflush(stderr);
|
||||
|
||||
/* now get a core */
|
||||
signal(SIGIOT, 0);
|
||||
abort();
|
||||
}
|
||||
50
external/bsd/pcc/dist/pcc-libs/libF77/pow_ci.c
vendored
50
external/bsd/pcc/dist/pcc-libs/libF77/pow_ci.c
vendored
@ -1,50 +0,0 @@
|
||||
/* Id: pow_ci.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: pow_ci.c,v 1.1.1.2 2010/06/03 18:58:08 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
#include "f77lib.h"
|
||||
|
||||
void
|
||||
pow_ci(complex *p, complex *a, long int *b) /* p = a**b */
|
||||
{
|
||||
dcomplex p1, a1;
|
||||
|
||||
a1.dreal = a->real;
|
||||
a1.dimag = a->imag;
|
||||
|
||||
pow_zi(&p1, &a1, b);
|
||||
|
||||
p->real = p1.dreal;
|
||||
p->imag = p1.dimag;
|
||||
}
|
||||
44
external/bsd/pcc/dist/pcc-libs/libF77/pow_dd.c
vendored
44
external/bsd/pcc/dist/pcc-libs/libF77/pow_dd.c
vendored
@ -1,44 +0,0 @@
|
||||
/* Id: pow_dd.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: pow_dd.c,v 1.1.1.2 2010/06/03 18:58:08 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
#include <math.h>
|
||||
|
||||
#include "f77lib.h"
|
||||
|
||||
double
|
||||
pow_dd(double *ap, double *bp)
|
||||
{
|
||||
return(pow(*ap, *bp) );
|
||||
}
|
||||
66
external/bsd/pcc/dist/pcc-libs/libF77/pow_di.c
vendored
66
external/bsd/pcc/dist/pcc-libs/libF77/pow_di.c
vendored
@ -1,66 +0,0 @@
|
||||
/* Id: pow_di.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: pow_di.c,v 1.1.1.2 2010/06/03 18:58:08 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
#include "f77lib.h"
|
||||
|
||||
double
|
||||
pow_di(double *ap, long int *bp)
|
||||
{
|
||||
double pow, x;
|
||||
long int n;
|
||||
|
||||
pow = 1;
|
||||
x = *ap;
|
||||
n = *bp;
|
||||
|
||||
if(n != 0) {
|
||||
if(n < 0) {
|
||||
if(x == 0) {
|
||||
return(pow);
|
||||
}
|
||||
n = -n;
|
||||
x = 1/x;
|
||||
}
|
||||
for( ; ; ) {
|
||||
if(n & 01)
|
||||
pow *= x;
|
||||
if(n >>= 1)
|
||||
x *= x;
|
||||
else
|
||||
break;
|
||||
}
|
||||
}
|
||||
return(pow);
|
||||
}
|
||||
60
external/bsd/pcc/dist/pcc-libs/libF77/pow_hh.c
vendored
60
external/bsd/pcc/dist/pcc-libs/libF77/pow_hh.c
vendored
@ -1,60 +0,0 @@
|
||||
/* Id: pow_hh.c,v 1.3 2008/02/28 16:48:50 ragge Exp */
|
||||
/* $NetBSD: pow_hh.c,v 1.1.1.2 2010/06/03 18:58:08 plunky Exp $ */
|
||||
/*
|
||||
* Copyright(C) Caldera International Inc. 2001-2002. 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 and documentation must retain the above
|
||||
* copyright notice, this list of conditions and the following disclaimer.
|
||||
* Redistributions in binary form must reproduce the above copyright
|
||||
* notice, this list of conditionsand the following disclaimer in the
|
||||
* documentation and/or other materials provided with the distribution.
|
||||
* All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed or owned by Caldera
|
||||
* International, Inc.
|
||||
* Neither the name of Caldera International, Inc. nor the names of other
|
||||
* contributors may be used to endorse or promote products derived from
|
||||
* this software without specific prior written permission.
|
||||
*
|
||||
* USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
||||
* INTERNATIONAL, INC. 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 CALDERA INTERNATIONAL, INC. 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 OFLIABILITY, 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.
|
||||
*/
|
||||
#include "f77lib.h"
|
||||
|
||||
short
|
||||
pow_hh(short *ap, short *bp)
|
||||
{
|
||||
short pow, x, n;
|
||||
|
||||
pow = 1;
|
||||
x = *ap;
|
||||
n = *bp;
|
||||
|
||||
if(n < 0) {
|
||||
;
|
||||
} else if(n > 0) {
|
||||
for( ; ; ) {
|
||||
if(n & 01)
|
||||
pow *= x;
|
||||
if(n >>= 1)
|
||||
x *= x;
|
||||
else
|
||||
break;
|
||||
}
|
||||
}
|
||||
return(pow);
|
||||
}
|
||||
Some files were not shown because too many files have changed in this diff Show More
Loading…
Reference in New Issue
Block a user