mariadb/mit-pthreads/machdep/engine-i386-linux-1.0.c
bk@work.mysql.com f4c589ff6c Import changeset
2000-07-31 21:29:14 +02:00

503 lines
12 KiB
C

/* ==== machdep.c ============================================================
* Copyright (c) 1993, 1994 Chris Provenzano, proven@athena.mit.edu
*
* Description : Machine dependent functions for Linux-1.0 on i386
*
* 1.00 93/08/04 proven
* -Started coding this file.
*/
#ifndef lint
static const char rcsid[] = "$Id$";
#endif
#include <pthread.h>
#include <errno.h>
#include <stdlib.h>
#include <sys/uio.h>
#include <sys/types.h>
#include <sys/param.h> /* for OPEN_MAX */
#include <sys/socket.h>
#include <sys/socketcall.h>
/* ==========================================================================
* machdep_save_state()
*/
int machdep_save_state(void)
{
return(_setjmp(pthread_run->machdep_data.machdep_state));
}
/* ==========================================================================
* machdep_restore_state()
*/
void machdep_restore_state(void)
{
longjmp(pthread_run->machdep_data.machdep_state, 1);
}
/* ==========================================================================
* machdep_save_float_state()
*/
int machdep_save_float_state(struct pthread * pthread)
{
char * fdata = (char *)pthread->machdep_data.machdep_float_state;
__asm__ ("fsave %0"::"m" (*fdata));
}
/* ==========================================================================
* machdep_restore_float_state()
*/
int machdep_restore_float_state(void)
{
char * fdata = (char *)pthread_run->machdep_data.machdep_float_state;
__asm__ ("frstor %0"::"m" (*fdata));
}
/* ==========================================================================
* machdep_set_thread_timer()
*/
void machdep_set_thread_timer(struct machdep_pthread *machdep_pthread)
{
if (setitimer(ITIMER_VIRTUAL, &(machdep_pthread->machdep_timer), NULL)) {
PANIC();
}
}
/* ==========================================================================
* machdep_unset_thread_timer()
*/
void machdep_unset_thread_timer(struct machdep_pthread *machdep_pthread)
{
struct itimerval zeroval = { { 0, 0 }, { 0, 0} };
if (setitimer(ITIMER_VIRTUAL, &zeroval, NULL)) {
PANIC();
}
}
/* ==========================================================================
* machdep_pthread_cleanup()
*/
void *machdep_pthread_cleanup(struct machdep_pthread *machdep_pthread)
{
return(machdep_pthread->machdep_stack);
}
/* ==========================================================================
* machdep_pthread_start()
*/
void machdep_pthread_start(void)
{
context_switch_done();
pthread_sched_resume();
/* Run current threads start routine with argument */
pthread_exit(pthread_run->machdep_data.start_routine
(pthread_run->machdep_data.start_argument));
/* should never reach here */
PANIC();
}
/* ==========================================================================
* __machdep_stack_free()
*/
void __machdep_stack_free(void * stack)
{
free(stack);
}
/* ==========================================================================
* __machdep_stack_alloc()
*/
void * __machdep_stack_alloc(size_t size)
{
void * stack;
return(malloc(size));
}
/* ==========================================================================
* __machdep_pthread_create()
*/
void __machdep_pthread_create(struct machdep_pthread *machdep_pthread,
void *(* start_routine)(), void *start_argument,
long stack_size, long nsec, long flag)
{
machdep_pthread->start_routine = start_routine;
machdep_pthread->start_argument = start_argument;
machdep_pthread->machdep_timer.it_value.tv_sec = 0;
machdep_pthread->machdep_timer.it_interval.tv_sec = 0;
machdep_pthread->machdep_timer.it_interval.tv_usec = 0;
machdep_pthread->machdep_timer.it_value.tv_usec = nsec / 1000;
setjmp(machdep_pthread->machdep_state);
/*
* Set up new stact frame so that it looks like it
* returned from a longjmp() to the beginning of
* machdep_pthread_start().
*/
machdep_pthread->machdep_state->__pc = (char *)machdep_pthread_start;
machdep_pthread->machdep_state->__bp = (char *)0;/* So the backtrace
* is sensible (mevans) *
/* Stack starts high and builds down. */
machdep_pthread->machdep_state->__sp =
(char *)machdep_pthread->machdep_stack + stack_size;
}
/* ==========================================================================
* Linux Socket calls are a bit different
* ==========================================================================
* machdep_sys_socket()
*/
int machdep_sys_socket(int a, int b, int c)
{
int array[3];
array[0] = (int)a;
array[1] = (int)b;
array[2] = (int)c;
return(machdep_sys_socketcall(SYS_SOCKET, array));
}
/* ==========================================================================
* machdep_sys_accept()
*/
int machdep_sys_accept(int a, struct sockaddr * b, int * c)
{
int array[3];
array[0] = (int)a;
array[1] = (int)b;
array[2] = (int)c;
return(machdep_sys_socketcall(SYS_ACCEPT, array));
}
/* ==========================================================================
* machdep_sys_bind()
*/
int machdep_sys_bind(int a, const struct sockaddr * b, int c)
{
int array[3];
array[0] = (int)a;
array[1] = (int)b;
array[2] = (int)c;
return(machdep_sys_socketcall(SYS_BIND, array));
}
/* ==========================================================================
* machdep_sys_connect()
*/
int machdep_sys_connect(int a, const struct sockaddr * b, int c)
{
int array[3];
array[0] = (int)a;
array[1] = (int)b;
array[2] = (int)c;
return(machdep_sys_socketcall(SYS_CONNECT, array));
}
/* ==========================================================================
* machdep_sys_listen()
*/
int machdep_sys_listen(int a, const struct sockaddr * b, int c)
{
int array[3];
array[0] = (int)a;
array[1] = (int)b;
array[2] = (int)c;
return(machdep_sys_socketcall(SYS_LISTEN, array));
}
/* ==========================================================================
* machdep_sys_shutdown()
*/
int machdep_sys_shutdown(int a, int b)
{
int array[2];
array[0] = (int)a;
array[1] = (int)b;
return(machdep_sys_socketcall(SYS_SHUTDOWN, array));
}
/* ==========================================================================
* machdep_sys_getsockopt()
*/
int machdep_sys_getsockopt(int a, int b, int c, char *d, int *e)
{
int array[5];
array[0] = (int)a;
array[1] = (int)b;
array[2] = (int)c;
array[3] = (int)d;
array[4] = (int)e;
return(machdep_sys_socketcall(SYS_GETSOCKOPT, array));
}
/* ==========================================================================
* machdep_sys_setsockopt()
*/
int machdep_sys_setsockopt(int a, int b, int c, char *d, int e)
{
int array[5];
array[0] = (int)a;
array[1] = (int)b;
array[2] = (int)c;
array[3] = (int)d;
array[4] = (int)e;
return(machdep_sys_socketcall(SYS_SETSOCKOPT, array));
}
/* ==========================================================================
* machdep_sys_getpeername()
*/
int machdep_sys_getpeername(int a, struct sockaddr *b, int *c)
{
int array[3];
array[0] = (int)a;
array[1] = (int)b;
array[2] = (int)c;
return(machdep_sys_socketcall(SYS_GETPEERNAME, array));
}
/* ==========================================================================
* machdep_sys_send()
*/
int machdep_sys_send(int a, char *b, int c, int d)
{
int array[4];
array[0] = (int)a;
array[1] = (int)b;
array[2] = (int)c;
array[3] = (int)d;
return(machdep_sys_socketcall(SYS_SEND, array));
}
/* ==========================================================================
* machdep_sys_sendto()
*/
int machdep_sys_sendto(int a, char *b, int c, int d,
struct sockaddr *e, int f)
{
int array[6];
array[0] = (int)a;
array[1] = (int)b;
array[2] = (int)c;
array[3] = (int)d;
array[4] = (int)e;
array[5] = (int)f;
return(machdep_sys_socketcall(SYS_SENDTO, array));
}
/* ==========================================================================
* machdep_sys_recv()
*/
int machdep_sys_recv(int a, char *b, int c, int d)
{
int array[4];
array[0] = (int)a;
array[1] = (int)b;
array[2] = (int)c;
array[3] = (int)d;
return(machdep_sys_socketcall(SYS_RECV, array));
}
/* ==========================================================================
* machdep_sys_recvfrom()
*/
int machdep_sys_recvfrom(int a, char *b, int c, int d,
struct sockaddr *e, int *f)
{
int array[6];
array[0] = (int)a;
array[1] = (int)b;
array[2] = (int)c;
array[3] = (int)d;
array[4] = (int)e;
array[5] = (int)f;
return(machdep_sys_socketcall(SYS_RECVFROM, array));
}
/* ==========================================================================
* machdep_sys_socketpair()
*/
int machdep_sys_socketpair(int a, int b, int c, int d[2])
{
int array[4];
array[0] = (int)a;
array[1] = (int)b;
array[2] = (int)c;
array[3] = (int)d;
return(machdep_sys_socketcall(SYS_SOCKETPAIR, array));
}
/* ==========================================================================
* machdep_sys_getsockname()
*/
int machdep_sys_getsockname(int a, char * b, int * c)
{
int array[3];
array[0] = (int)a;
array[1] = (int)b;
array[2] = (int)c;
return(machdep_sys_socketcall(SYS_GETSOCKNAME, array));
}
/* ==========================================================================
* machdep_sys_sendmsg()
*/
int machdep_sys_sendmsg(int a, char * b, int c)
{
#ifdef SYS_SENDMSG
int array[3];
array[0] = (int)a;
array[1] = (int)b;
array[2] = (int)c;
return(machdep_sys_socketcall(SYS_SENDMSG, array));
#else
return(-ENOSYS);
#endif
}
/* ==========================================================================
* machdep_sys_recvmsg()
*/
int machdep_sys_recvmsg(int a, char * b, int c)
{
#ifdef SYS_RECVMSG
int array[3];
array[0] = (int)a;
array[1] = (int)b;
array[2] = (int)c;
return(machdep_sys_socketcall(SYS_RECVMSG, array));
#else
return(-ENOSYS);
#endif
}
/* ==========================================================================
* machdep_sys_getdirentries()
*/
int machdep_sys_getdirentries(int fd, char * buf, int len, int * seek)
{
int ret;
if ((ret = machdep_sys_readdir(fd, buf, 1)) > 0) {
return(1);
}
return(ret);
}
/* ==========================================================================
* machdep_sys_wait3()
*/
machdep_sys_wait3(int * b, int c, int * d)
{
return(machdep_sys_wait4(0, b, c, d));
}
/* ==========================================================================
* machdep_sys_waitpid()
*/
machdep_sys_waitpid(int a, int * b, int c)
{
return(machdep_sys_wait4(a, b, c, NULL));
}
/* getdtablesize */
machdep_sys_getdtablesize ()
{
return OPEN_MAX;
}
struct stat;
/* ==========================================================================
* _fxstat()
*/
int _fxstat(int __ver, int fd, struct stat *buf)
{
int ret;
if ((ret = fd_lock(fd, FD_READ, NULL)) == OK) {
ret = machdep_sys_fstat(fd_table[fd]->fd.i, buf);
fd_unlock(fd, FD_READ);
}
return(ret);
}
/* ==========================================================================
* _lxstat()
*/
int _lxstat(int __ver, const char * path, struct stat * buf)
{
int ret;
if ((ret = machdep_sys_lstat(path, buf)) < OK) {
SET_ERRNO(-ret);
}
return(ret);
}
/* ==========================================================================
* _xstat()
*/
int _xstat(int __ver, const char * path, struct stat * buf)
{
int ret;
if ((ret = machdep_sys_stat(path, buf)) < OK) {
SET_ERRNO(-ret);
}
return(ret);
}
/* ==========================================================================
* strtol()
*/
__strtol_internal(char * a, char ** b, int c)
{
return(strtol(a, b, c));
}