/* ==== machdep.c ============================================================
 * Copyright (c) 1993 Chris Provenzano, proven@athena.mit.edu
 *
 * Description : Machine dependent functions for HP-UX 9.03 on hppa
 *
 *	1.00 93/12/14 proven
 *      -Started coding this file.
 */

#include "pthread.h"
#include <unistd.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()
 */
void machdep_save_float_state(struct pthread * pthread)
{
	double *save_area;

    save_area = &pthread->machdep_data.machdep_float_state[0];
    asm volatile (" fstds,ma 0,8(%0)\n  fstds,ma 1,8(%0)\n \
                    fstds,ma 2,8(%0)\n  fstds,ma 3,8(%0)\n \
                    fstds,ma 4,8(%0)\n  fstds,ma 5,8(%0)\n \
                    fstds,ma 6,8(%0)\n  fstds,ma 7,8(%0)\n \
                    fstds,ma 8,8(%0)\n  fstds,ma 9,8(%0)\n \
                    fstds,ma 10,8(%0)\n fstds,ma 11,8(%0)\n \
                    fstds,ma 12,8(%0)\n fstds,ma 13,8(%0)\n \
                    fstds,ma 14,8(%0)\n fstds,ma 15,8(%0)\n \
                    fstds,ma 16,8(%0)\n fstds,ma 17,8(%0)\n \
                    fstds,ma 18,8(%0)\n fstds,ma 19,8(%0)\n \
                    fstds,ma 20,8(%0)\n fstds,ma 21,8(%0)\n \
                    fstds,ma 22,8(%0)\n fstds,ma 23,8(%0)\n \
                    fstds,ma 24,8(%0)\n fstds,ma 25,8(%0)\n \
                    fstds,ma 26,8(%0)\n fstds,ma 27,8(%0)\n \
                    fstds,ma 28,8(%0)\n fstds,ma 29,8(%0)\n \
                    fstds,ma 30,8(%0)\n fstds 31,0(%0)" \
                    : /* no output */ \
                    : "g" (save_area) );
	return;
}

/* ==========================================================================
 * machdep_restore_float_state()
 */
void machdep_restore_float_state()
{
double *save_area;

    save_area = &pthread_run->machdep_data.machdep_float_state[0];
    asm volatile (" fldds 0(%0),31\n     fldds,mb -8(%0),30\n \
                    fldds,mb -8(%0),29\n fldds,mb -8(%0),28\n \
                    fldds,mb -8(%0),27\n fldds,mb -8(%0),26\n \
                    fldds,mb -8(%0),25\n fldds,mb -8(%0),24\n \
                    fldds,mb -8(%0),23\n fldds,mb -8(%0),22\n \
                    fldds,mb -8(%0),21\n fldds,mb -8(%0),20\n \
                    fldds,mb -8(%0),19\n fldds,mb -8(%0),18\n \
                    fldds,mb -8(%0),17\n fldds,mb -8(%0),16\n \
                    fldds,mb -8(%0),15\n fldds,mb -8(%0),14\n \
                    fldds,mb -8(%0),13\n fldds,mb -8(%0),12\n \
                    fldds,mb -8(%0),11\n fldds,mb -8(%0),10\n \
                    fldds,mb -8(%0),9\n  fldds,mb -8(%0),8\n \
                    fldds,mb -8(%0),7\n  fldds,mb -8(%0),6\n \
                    fldds,mb -8(%0),5\n  fldds,mb -8(%0),4\n \
                    fldds,mb -8(%0),3\n  fldds,mb -8(%0),2\n \
                    fldds,mb -8(%0),1\n  fldds,mb -8(%0),0" \
                    : /* no output */ \
                    : "g" (save_area) );
  	return;
}

/* ==========================================================================
 * 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_pthread_create()
 */
void machdep_pthread_create(struct machdep_pthread *machdep_pthread,
  void *(* start_routine)(), void *start_argument, long stack_size,
  void *stack_start, long nsec)
{
    machdep_pthread->machdep_stack = stack_start;

    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_guts[0] = (int)machdep_pthread_start;

    /* Stack starts low and builds up, but needs two start frames */
    machdep_pthread->machdep_state_guts[1] =
      (int)machdep_pthread->machdep_stack + (64 * 2);

	for (i = 0; i < sizeof(machdep_pthread->machdep_float_state); i++)
		machdep_pthread->machdep_float_state[i] = 0;
}

int machdep_sys_getdtablesize()
{
	return sysconf(_SC_OPEN_MAX);
}

void sig_check_and_resume()
{
 	return;
}