sys/src/exception_init.c

Go to the documentation of this file.

// _Id: exception_init.c,v 1.22 2009-05-09 13:31:09 roart Exp $
// _Locker:  $

// Author. Roar Thronæs.
/**
   \file exception_init.c
   \brief misc important hairy system routines
   \author Roar Thronæs
 */

#include <ssdef.h>
#include <starlet.h>
#include <iosbdef.h>
#include <exe_routines.h>
#include <misc_routines.h>

#include<linux/linkage.h>
#include<asm/unistd.h>
#include "../../starlet/src/sysdep.h"

/**
   \brief wait until event flag set and eventual iosb flag too - see 5.2 6.3.6.3
   \param efn event flag number
   \param iosb io status block
*/

int exe_synch(unsigned int efn, struct _iosb *iosb) {
  if (!iosb) {
    sys_waitfr(efn);
    return SS__NORMAL;
  }
  if (iosb->iosb_w_status) {
    return SS__NORMAL;
  }
 again:
  sys_waitfr(efn);
  if (iosb->iosb_w_status & 0xff)
    return iosb->iosb_w_status;
  exe_clref(efn);
  goto again;
}

/**
   \brief to be executed after lower mode asts
*/

int exe_clrast(void) {
  return cmod_astexit(); // check. should be system call?
#if 0
  printk("this does not work yet (how to implement?), and is strongly discouraged in real VMS too\n");
#endif
}

extern asmlinkage int exe_qio(unsigned int efn, unsigned short int chan,unsigned int func, struct _iosb *iosb, void(*astadr)(__unknown_params), long  astprm, void*p1, long p2, long  p3, long p4, long p5, long p6);
extern asmlinkage int exe_qiow(unsigned int efn, unsigned short int chan,unsigned int func, struct _iosb *iosb, void(*astadr)(__unknown_params), long  astprm, void*p1, long p2, long  p3, long p4, long p5, long p6);

#ifdef __x86_64__
void __set_errno(){}
#endif

#ifdef __x86_64__
static int syscall_struct() {}
#endif

#if (defined __i386__) || (defined __x86_64__)
int sys_qio(unsigned int efn, unsigned short int chan,unsigned int func, struct _iosb *iosb, void(*astadr)(__unknown_params), long astprm, void*p1, long p2, long p3, long p4, long p5, long p6) {
  struct struct_qio s;
  s.efn=efn;
  s.chan=chan;
  s.func=func;
  s.iosb=iosb;
  s.astadr=astadr;
  s.astprm=astprm;
  s.p1=p1;
  s.p2=p2;
  s.p3=p3;
  s.p4=p4;
  s.p5=p5;
  s.p6=p6;
  //  return ({ unsigned int resultvar; asm volatile ( "bpushl .L__X'%k2, %k2\n\t" "bmovl .L__X'%k2, %k2\n\t" "movl %1, %%eax\n\t" "int _0x81\n\t" "bpopl .L__X'%k2, %k2\n\t" : "=a" (resultvar) : "i" (__NR_$qio) , "acdSD" (&s) : "memory", "cc"); if (resultvar >= 0xfffff001) { errno= (-resultvar); resultvar = 0xffffffff; } (int) resultvar; });
#ifdef __x86_64__
  syscall_struct();
#endif
  return INLINE_SYSCALL(_qio,1,&s);
}

int sys_qiow(unsigned int efn, unsigned short int chan,unsigned int func, struct _iosb *iosb, void(*astadr)(__unknown_params), long astprm, void*p1, long p2, long p3, long p4, long p5, long p6) {
  struct struct_qio s;
  s.efn=efn;
  s.chan=chan;
  s.func=func;
  s.iosb=iosb;
  s.astadr=astadr;
  s.astprm=astprm;
  s.p1=p1;
  s.p2=p2;
  s.p3=p3;
  s.p4=p4;
  s.p5=p5;
  s.p6=p6;
  //  return ({ unsigned int resultvar; asm volatile ( "bpushl .L__X'%k2, %k2\n\t" "bmovl .L__X'%k2, %k2\n\t" "movl %1, %%eax\n\t" "int _0x81\n\t" "bpopl .L__X'%k2, %k2\n\t" : "=a" (resultvar) : "i" (__NR_$qio) , "acdSD" (&s) : "memory", "cc"); if (resultvar >= 0xfffff001) { errno= (-resultvar); resultvar = 0xffffffff; } (int) resultvar; });
#ifdef __x86_64__
  syscall_struct();
#endif
  return INLINE_SYSCALL(_qiow,1,&s);
}

int sys_waitfr(unsigned int efn) {
  return INLINE_SYSCALL(_waitfr,1,efn);
}

int sys_hiber(void) {
  return INLINE_SYSCALL(_hiber,0);
}

int sys_dclast(void (*astadr)(__unknown_params), unsigned long astprm, unsigned int acmode) {
  return INLINE_SYSCALL(_dclast,3,astadr,astprm,acmode);
}

int sys_setast(char enbflg) {
  return INLINE_SYSCALL(_setast,1,((unsigned long)enbflg));
}

int sys_dassgn(unsigned short int chan) {
  return INLINE_SYSCALL(_dassgn,1,chan); 
}

int sys_clrast() {
  return INLINE_SYSCALL(_clrast,0); 
}

int sys_assign(void *devnam, unsigned short int *chan,unsigned int acmode, void *mbxnam,int flags) {
  return INLINE_SYSCALL(_assign,5,devnam,chan,acmode,mbxnam,flags);
}

int sys_trnlnm  (unsigned int *attr, void *tabnam, void
                 *lognam, unsigned char *acmode, void *itmlst) {
  return INLINE_SYSCALL(_trnlnm,5,attr,tabnam,lognam,acmode,itmlst);
}

int sys_cmkrnl(int (*routin)(), unsigned int *arglst) {
  return INLINE_SYSCALL(_cmkrnl,2,routin,arglst);
}

int sys_enq  (unsigned int efn, unsigned int lkmode, struct _lksb *lksb, unsigned int flags, void *resnam, unsigned int parid, void (*astadr)(), unsigned long astprm, void (*blkastadr)(), unsigned int acmode, unsigned int rsdm_id) {
  struct struct_args s;
  s.s1=efn;
  s.s2=lkmode;
  s.s3=lksb;
  s.s4=flags;
  s.s5=resnam;
  s.s6=parid;
  s.s7=astadr;
  s.s8=astprm;
  s.s9=blkastadr;
  s.s10=acmode;
  s.s11=rsdm_id;
  //  s.null_arg=null_arg;
#ifdef __x86_64__
  syscall_struct();
#endif
  return INLINE_SYSCALL(_enq,1,&s);
}

int sys_enqw  (unsigned int efn, unsigned int lkmode, struct _lksb *lksb, unsigned int flags, void *resnam, unsigned int parid, void (*astadr)(), unsigned long astprm, void (*blkastadr)(), unsigned int acmode, unsigned int rsdm_id) {
  struct struct_args s;
  s.s1=efn;
  s.s2=lkmode;
  s.s3=lksb;
  s.s4=flags;
  s.s5=resnam;
  s.s6=parid;
  s.s7=astadr;
  s.s8=astprm;
  s.s9=blkastadr;
  s.s10=acmode;
  s.s11=rsdm_id;
  //  s.null_arg=null_arg;
#ifdef __x86_64__
  syscall_struct();
#endif
  return INLINE_SYSCALL(_enqw,1,&s);
}

int sys_deq(unsigned int lkid, void *valblk, unsigned int acmode, unsigned int flags) {
  return INLINE_SYSCALL(_deq,4,lkid,valblk,acmode,flags);
}
#endif

#ifdef __arch_um__
int sys_qio(unsigned int efn, unsigned short int chan,unsigned int func, struct
             _iosb *iosb, void(*astadr)(__unknown_params), long  astprm, void*p1, long p2, long  p3, long p4, long p5, long p6) {
  int sts;
  struct struct_qio s;
  s.efn=efn;
  s.chan=chan;
  s.func=func;
  s.iosb=iosb;
  s.astadr=astadr;
  s.astprm=astprm;
  s.p1=p1;
  s.p2=p2;
  s.p3=p3;
  s.p4=p4;
  s.p5=p5;
  s.p6=p6;
  //  return ({     unsigned int resultvar; asm volatile (  "bpushl .L__X'%k2, %k2\n\t"     "bmovl .L__X'%k2, %k2\n\t"      "movl %1, %%eax\n\t"    "int _0x80\n\t" "bpopl .L__X'%k2, %k2\n\t"      : "=a" (resultvar)      : "i" (__NR_$qio  ) , "acdSD" (  &s  )  : "memory", "cc");    if (resultvar >= 0xfffff001) {       errno= (-resultvar);    resultvar = 0xffffffff; }       (int) resultvar; }) ;
  //  return INLINE_SYSCALL(_qio,1,&s); // did not work?
  pushpsl();
  sts=exe_qio(efn,chan,func,iosb,astadr,astprm,p1,p2,p3,p4,p5,p6);
  myrei();
  return sts;
}

int sys_qiow(unsigned int efn, unsigned short int chan,unsigned int func, struct
             _iosb *iosb, void(*astadr)(__unknown_params), long  astprm, void*p1, long p2, long  p3, long p4, long p5, long p6) {
  int sts;
  struct struct_qio s;
  s.efn=efn;
  s.chan=chan;
  s.func=func;
  s.iosb=iosb;
  s.astadr=astadr;
  s.astprm=astprm;
  s.p1=p1;
  s.p2=p2;
  s.p3=p3;
  s.p4=p4;
  s.p5=p5;
  s.p6=p6;
  //  return ({     unsigned int resultvar; asm volatile (  "bpushl .L__X'%k2, %k2\n\t"     "bmovl .L__X'%k2, %k2\n\t"      "movl %1, %%eax\n\t"    "int _0x80\n\t" "bpopl .L__X'%k2, %k2\n\t"      : "=a" (resultvar)      : "i" (__NR_$qio  ) , "acdSD" (  &s  )  : "memory", "cc");    if (resultvar >= 0xfffff001) {       errno= (-resultvar);    resultvar = 0xffffffff; }       (int) resultvar; }) ;
  //  return INLINE_SYSCALL(_qio,1,&s); // did not work?
  pushpsl();
  sts=exe_qiow(efn,chan,func,iosb,astadr,astprm,p1,p2,p3,p4,p5,p6);
  myrei();
  return sts;
}

int sys_waitfr(unsigned int efn) {
  int sts;
  pushpsl();
  sts=exe_waitfr(efn);
  myrei();
  return sts;
}

int sys_hiber(void) {
  int sts;
  pushpsl();
  sts=exe_hiber();
  myrei();
  return sts;
}

int sys_dclast(void (*astadr)(__unknown_params), unsigned long astprm, unsigned int acmode) {
  int sts;
  pushpsl();
  sts=exe_dclast(astadr,astprm,acmode);
  myrei();
  return sts;
}
#endif

// not the right place, but the closest I could find

asmlinkage void exe_cmkrnl_not(int (*routine)(),int * args) {
  //basically check privs
  //if ok, do an int 0x85 (new one) with routine and args as params
  //at int 0x85 I suppose privs must be checked again
  //then routine with args will be executed
  //I suppose a stupid cpu can do this
}

asmlinkage void exe_cmexec_not(int (*routine)(),int * args) {
  //basically check privs
  //if ok, do an int 0x85 (new one) with routine and args as params
  //at int 0x85 I suppose privs must be checked again
  //then routine with args will be executed
  //I suppose a stupid cpu can do this
}

---