need time.h if no user.h

[unix-history] / usr / src / sys / tahoe / align / Adivl3.c

/*      Adivl3.c        1.1     86/07/20        */

#include "../tahoealign/align.h" 
divl3(infop)    process_info *infop;
/*
/*      Arithmetic division, 3 operands.
/*
/**************************************/
{
       register        long    Register_12;    /* Has to be first reg ! */
       register        long    divident, divisor, result;

       divisor = operand(infop,0)->data;
       divident = operand(infop,1)->data;
       if (divisor == 0) {
               exception (infop, ARITHMETIC, 2);
       } else {
               Register_12=psl;
               Set_psl(r12);   /* restore the user psl */
               result = divident / divisor;
               asm ("  movpsl  r12");
               New_cc (Register_12);
       }
       write_back (infop,result, operand(infop,2));
}