Subversion Repositories shark

Rev

Rev 301 | Rev 1618 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

/* Project:     OSLib
 * Description: The OS Construction Kit
 * Date:                1.6.2000
 * Idea by:             Luca Abeni & Gerardo Lamastra
 *
 * OSLib is an SO project aimed at developing a common, easy-to-use
 * low-level infrastructure for developing OS kernels and Embedded
 * Applications; it partially derives from the HARTIK project but it
 * currently is independently developed.
 *
 * OSLib is distributed under GPL License, and some of its code has
 * been derived from the Linux kernel source; also some important
 * ideas come from studying the DJGPP go32 extender.
 *
 * We acknowledge the Linux Community, Free Software Foundation,
 * D.J. Delorie and all the other developers who believe in the
 * freedom of software and ideas.
 *
 * For legalese, check out the included GPL license.
 */


/* KL initialization code       */

#include <ll/i386/stdlib.h>
#include <ll/i386/x-bios.h>
#include <ll/i386/mem.h>
#include <ll/i386/cons.h>
#include <ll/i386/mb-info.h>
#include <ll/i386/error.h>
#include <ll/i386/pit.h>
#include <ll/i386/pic.h>
#include <ll/i386/advtimer.h>

#include <ll/i386/tss-ctx.h>
#include <ll/i386/hw-arch.h>
#include <ll/sys/ll/ll-func.h>
#include <ll/sys/ll/ll-mem.h>
#include <ll/sys/ll/ll-instr.h>
#include <ll/sys/ll/event.h>      /* for irq_bind() & irq_init() */
#include <ll/sys/ll/exc.h>        /* These are the HW exceptions */

FILE(LL-Init);

/* These are declared in llCx32b.C */
TSS  TSS_table[TSSMax];
WORD TSS_control[TSSMax];
BYTE ll_FPU_stdctx[FPU_CONTEXT_SIZE];

void debug_info(void) {
  static DWORD fault_ip;
  static DWORD fault_cs;
  static DWORD error_code;
  static DWORD fault_eflag;
  static DWORD sp;
  static DWORD fault_sp;
  static DWORD data0;
  static DWORD data1;
  static DWORD data2;
  static DWORD sdata4;
  static DWORD sdata8;

  asm (" movl %%esp,%0\n\t":"=r"(sp));
  asm (" movl -8(%%ebp),%0\n\t":"=r"(sdata8));
  asm (" movl -4(%%ebp),%0\n\t":"=r"(sdata4));
  asm (" movl 0(%%ebp),%0\n\t":"=r"(data0));
  asm (" movl 4(%%ebp),%0\n\t":"=r"(error_code));
  asm (" movl 8(%%ebp),%0\n\t":"=r"(fault_ip));    
  asm (" movl 12(%%ebp),%0\n\t":"=r"(fault_cs));        
  asm (" movl 16(%%ebp),%0\n\t":"=r"(fault_eflag));
  asm (" movl 20(%%ebp),%0\n\t":"=r"(fault_sp));
  asm (" movl 24(%%ebp),%0\n\t":"=r"(data1));
  message(":F -8: %lx:", sdata8);  
  message(":F -4: %lx:", sdata4);  
  message(":F 0: %lx:", data0);
  message(":F ec/4: %lx:", error_code);
  message(":F ip/8: %lx:", fault_ip);
  message(":F cs/12 : %lx:", fault_cs);
  message(":F eflag/16 : %lx:", fault_eflag);
  message(":F sp/20    : %lx:", fault_sp);
  message(":F 24    : %lx:", data1);

}


void ll_exc_hook(int i)
{

  static char *exc_mess[] = {
        "#Division by 0",
        "#Debug fault",
        "#NMI detected",
        "#Breakpoint trap",
        "#Overflow detected on INTO",
        "#BOUND limit exceeded",
        "*Unvalid opcode",
        "1FPU context switch", /* Handled in the llCtx.Asm/S File */
        "*Double defect",
        "#INTEL reserved",
        "*Unvalid TSS",
        "*Segment not present",
        "*Stack exception",
        "*General protection fault",
        "#Page fault",
        "#INTEL reserved",
        "2Coprocessor error"
        };

        static int exc_code[] = {
        DIV_BY_0, NMI_EXC, DEBUG_EXC, BREAKPOINT_EXC,
        HW_FAULT, HW_FAULT, HW_FAULT,
        0,              /* This is the FPU ctx Switch */
        HW_FAULT, HW_FAULT, HW_FAULT, HW_FAULT,
        HW_FAULT, HW_FAULT, HW_FAULT, HW_FAULT,
        MATH_EXC
        };

        char code = *exc_mess[i];
        #ifdef __LL_DEBUG__
        extern long int ndp_called,ndp_switched;
        extern wu_called;
        extern ai_called;
        extern DWORD *smain;
        #endif

       

        /* Math error! FPU has to be acknowledgded */
        if (code == '2') ll_out(0x0F0,0);
       
        message("Exception %d occurred\n", i);
        message("%s\n", &exc_mess[i][1]);
       
       
        #ifdef __LL_DEBUG__
        if (code == '*') {
                /* Dump additional info */
                message("DS:%nx CS:%nx\n",get_DS(),get_CS());
                /* message("WU : %d AI : %d\n",wu_called,ai_called); */
                message("Actual stack : %x\n",get_SP());
                /* message("Main stack : %p\n",smain); */
                dump_TSS(get_TR());
        }
        #endif
        /* halt(); */

        message("Actual stack : %x\n",get_SP());

        dump_TSS(get_TR());              

        ll_abort(exc_code[i]);
}

void *ll_init(void)
{
        void *p;
        int i;
        LIN_ADDR b;
/*
        DWORD s;
        BYTE *base;
*/

  TSS dummy_tss;      /* Very dirty, but we need it, in order to
                         get an initial value for the FPU
                         context...
                      */

 
 
        p = l1_init();
        /* First of all, init the exc and irq tables... */
        irq_init();
        for(i = 0; i < 32; i++) {

/* Warning!!! The hw exceptions should be 32.... Fix it!!! */
               
/*
                ll_irq_table[i] = (DWORD)act_int;
                ll_exc_table[i] = (DWORD)ll_exc_hook;
*/

                l1_exc_bind(i, ll_exc_hook);
        }
        for(i = 0; i < 16; i++) {
                void act_int(int i);
                l1_irq_bind(i, act_int);
        }


  /* Init TSS table & put the corrispondent selectors into GDT */
  TSS_control[TSSMain] |= TSS_USED;
  for (i = 0; i < TSSMax; i++) {
    /* b = appl2linear(&TSS_table[i]); */
    b = (LIN_ADDR)(&TSS_table[i]);
    GDT_place(TSSindex2sel(i),(DWORD)b,sizeof(TSS),FREE_TSS386, GRAN_16);
  }

#if 0
  ll_FPU_save();
  memcpy(ll_FPU_stdctx,ll_FPU_savearea,FPU_CONTEXT_SIZE);
#else
  save_fpu(&dummy_tss); /* OK???*/
  memcpy(ll_FPU_stdctx, dummy_tss.ctx_FPU, FPU_CONTEXT_SIZE);
#endif
  init_fpu();

       
        /* ll_mem_init must be explicitelly called by program... */
#if 0
        /* Get info about extended memory! We suppose that X has loaded */
        /* there the application; if you switch to DOS memory, then you */
        /* have to change the stuff in order it works; check X_...  for */
        /* details.                                                     */
        X_meminfo(&b,&s,NULL,NULL);
        base = (BYTE *)b;
        #ifdef __MEM_DEBUG__
        message("PM Free Mem Base         : %lx\n",b);
        message("PM null addr (0L)        : %lx\n",appl2linear((void *)0L));
        message("PM Free Mem Base (Cnvrtd): %lp\n",base);
        #endif
        ll_mem_init(base,s);
        #ifdef __MEM_DEBUG__
        ll_mem_dump();
        #endif
#endif


        return p;
}

void abort_tail(int code)
{
        message("ABORT %d !!!",code);
        ll_restore_adv();
        l1_end();
        sti();
        l1_exit(1);
}

void ll_end(void)
{
        ll_restore_adv();
        l1_end();
}