diff --git a/alpha/include/ape/float.h b/alpha/include/ape/float.h deleted file mode 100644 index 26d1fe76b..000000000 --- a/alpha/include/ape/float.h +++ /dev/null @@ -1,76 +0,0 @@ -#ifndef __FLOAT -#define __FLOAT -/* IEEE, default rounding */ - -#define FLT_ROUNDS 1 -#define FLT_RADIX 2 - -#define FLT_DIG 6 -#define FLT_EPSILON 1.19209290e-07 -#define FLT_MANT_DIG 24 -#define FLT_MAX 3.40282347e+38 -#define FLT_MAX_10_EXP 38 -#define FLT_MAX_EXP 128 -#define FLT_MIN 1.17549435e-38 -#define FLT_MIN_10_EXP -37 -#define FLT_MIN_EXP -125 - -#define DBL_DIG 15 -#define DBL_EPSILON 2.2204460492503131e-16 -#define DBL_MANT_DIG 53 -#define DBL_MAX 1.797693134862315708145e+308 -#define DBL_MAX_10_EXP 308 -#define DBL_MAX_EXP 1024 -#define DBL_MIN 2.225073858507201383090233e-308 -#define DBL_MIN_10_EXP -307 -#define DBL_MIN_EXP -1021 -#define LDBL_MANT_DIG DBL_MANT_DIG -#define LDBL_EPSILON DBL_EPSILON -#define LDBL_DIG DBL_DIG -#define LDBL_MIN_EXP DBL_MIN_EXP -#define LDBL_MIN DBL_MIN -#define LDBL_MIN_10_EXP DBL_MIN_10_EXP -#define LDBL_MAX_EXP DBL_MAX_EXP -#define LDBL_MAX DBL_MAX -#define LDBL_MAX_10_EXP DBL_MAX_10_EXP - -typedef union FPdbleword FPdbleword; -union FPdbleword -{ - double x; - struct { /* little endian */ - long lo; - long hi; - }; -}; - -#ifdef _RESEARCH_SOURCE -/* define stuff needed for floating conversion */ -#define IEEE_8087 1 -#define Sudden_Underflow 1 -#endif -#ifdef _PLAN9_SOURCE -#define FPINEX (1<<30) -#define FPOVFL (1<<19) -#define FPUNFL ((1<<29)|(1<<28)) -#define FPZDIV (1<<18) -#define FPINVAL (1<<17) - -#define FPRNR (2<<26) -#define FPRZ (0<<26) -#define FPRPINF (3<<26) -#define FPRNINF (1<<26) -#define FPRMASK (3<<26) - -#define FPPEXT 0 -#define FPPSGL 0 -#define FPPDBL 0 -#define FPPMASK 0 -/* FSR */ -#define FPAINEX (1<<24) -#define FPAUNFL (1<<23) -#define FPAOVFL (1<<22) -#define FPAZDIV (1<<21) -#define FPAINVAL (1<<20) -#endif -#endif /* __FLOAT */ diff --git a/alpha/include/ape/math.h b/alpha/include/ape/math.h deleted file mode 100644 index 5fa374801..000000000 --- a/alpha/include/ape/math.h +++ /dev/null @@ -1,77 +0,0 @@ -#ifndef __MATH -#define __MATH -#pragma lib "/$M/lib/ape/libap.a" - -/* a HUGE_VAL appropriate for IEEE double-precision */ -/* the correct value, 1.797693134862316e+308, causes a ken overflow */ -#define HUGE_VAL 1.79769313486231e+308 - -#ifdef __cplusplus -extern "C" { -#endif - -extern double acos(double); -extern double asin(double); -extern double atan(double); -extern double atan2(double, double); -extern double cos(double); -extern double sin(double); -extern double tan(double); -extern double cosh(double); -extern double sinh(double); -extern double tanh(double); -extern double exp(double); -extern double frexp(double, int *); -extern double ldexp(double, int); -extern double log(double); -extern double log10(double); -extern double modf(double, double *); -extern double pow(double, double); -extern double sqrt(double); -extern double ceil(double); -extern double fabs(double); -extern double floor(double); -extern double fmod(double, double); -extern double NaN(void); -extern int isNaN(double); -extern double Inf(int); -extern int isInf(double, int); - -#ifdef _RESEARCH_SOURCE -/* does >> treat left operand as unsigned ? */ -#define Unsigned_Shifts 1 -#define M_E 2.7182818284590452354 /* e */ -#define M_LOG2E 1.4426950408889634074 /* log 2e */ -#define M_LOG10E 0.43429448190325182765 /* log 10e */ -#define M_LN2 0.69314718055994530942 /* log e2 */ -#define M_LN10 2.30258509299404568402 /* log e10 */ -#define M_PI 3.14159265358979323846 /* pi */ -#define M_PI_2 1.57079632679489661923 /* pi/2 */ -#define M_PI_4 0.78539816339744830962 /* pi/4 */ -#define M_1_PI 0.31830988618379067154 /* 1/pi */ -#define M_2_PI 0.63661977236758134308 /* 2/pi */ -#define M_2_SQRTPI 1.12837916709551257390 /* 2/sqrt(pi) */ -#define M_SQRT2 1.41421356237309504880 /* sqrt(2) */ -#define M_SQRT1_2 0.70710678118654752440 /* 1/sqrt(2) */ - -extern double hypot(double, double); -extern double erf(double); -extern double erfc(double); -extern double j0(double); -extern double y0(double); -extern double j1(double); -extern double y1(double); -extern double jn(int, double); -extern double yn(int, double); - -#endif - - -#ifdef __cplusplus -} -#endif - -#define isnan(x) isNaN(x) -#define isinf(x) isInf(x) - -#endif /* __MATH */ diff --git a/alpha/include/ape/stdarg.h b/alpha/include/ape/stdarg.h deleted file mode 100644 index f4ff6c734..000000000 --- a/alpha/include/ape/stdarg.h +++ /dev/null @@ -1,17 +0,0 @@ -#ifndef __STDARG -#define __STDARG - -typedef char *va_list; - -#define va_start(list, start) list = (char *)(&(start)+1) -#define va_end(list) -#define va_arg(list, mode)\ - (sizeof(mode)==1?\ - ((mode*)(list += 4))[-1]:\ - sizeof(mode)==2?\ - ((mode*)(list += 4))[-1]:\ - sizeof(mode)>4?\ - ((mode*)(list = (char*)((long)(list+7) & ~7) + sizeof(mode)))[-1]:\ - ((mode*)(list += sizeof(mode)))[-1]) - -#endif /* __STDARG */ diff --git a/alpha/include/ape/ureg.h b/alpha/include/ape/ureg.h deleted file mode 100644 index 58307aa16..000000000 --- a/alpha/include/ape/ureg.h +++ /dev/null @@ -1,57 +0,0 @@ -#ifndef __UREG_H -#define __UREG_H -#if !defined(_PLAN9_SOURCE) - This header file is an extension to ANSI/POSIX -#endif - -struct Ureg -{ - /* l.s saves 31 64-bit values: */ - unsigned long long type; - unsigned long long a0; - unsigned long long a1; - unsigned long long a2; - - unsigned long long r0; - unsigned long long r1; - unsigned long long r2; - unsigned long long r3; - unsigned long long r4; - unsigned long long r5; - unsigned long long r6; - unsigned long long r7; - unsigned long long r8; - unsigned long long r9; - unsigned long long r10; - unsigned long long r11; - unsigned long long r12; - unsigned long long r13; - unsigned long long r14; - unsigned long long r15; - - unsigned long long r19; - unsigned long long r20; - unsigned long long r21; - unsigned long long r22; - unsigned long long r23; - unsigned long long r24; - unsigned long long r25; - unsigned long long r26; - unsigned long long r27; - unsigned long long r28; - union { - unsigned long long r30; - unsigned long long usp; - unsigned long long sp; - }; - - /* OSF/1 PALcode frame: */ - unsigned long long status; /* PS */ - unsigned long long pc; - unsigned long long r29; /* GP */ - unsigned long long r16; /* a0 */ - unsigned long long r17; /* a1 */ - unsigned long long r18; /* a2 */ -}; - -#endif diff --git a/alpha/include/u.h b/alpha/include/u.h deleted file mode 100644 index 1be416584..000000000 --- a/alpha/include/u.h +++ /dev/null @@ -1,71 +0,0 @@ -#define nil ((void*)0) -typedef unsigned short ushort; -typedef unsigned char uchar; -typedef unsigned long ulong; -typedef unsigned int uint; -typedef signed char schar; -typedef long long vlong; -typedef unsigned long long uvlong; -typedef long intptr; -typedef unsigned long uintptr; -typedef unsigned long usize; -typedef uint Rune; -typedef union FPdbleword FPdbleword; -typedef long jmp_buf[2]; -#define JMPBUFSP 0 -#define JMPBUFPC 1 -#define JMPBUFDPC 0 -typedef unsigned int mpdigit; /* for /sys/include/mp.h */ -typedef unsigned char u8int; -typedef unsigned short u16int; -typedef unsigned int u32int; -typedef unsigned long long u64int; - -/* FCR */ -#define FPINEX (1<<30) -#define FPOVFL (1<<19) -#define FPUNFL ((1<<29)|(1<<28)) -#define FPZDIV (1<<18) -#define FPINVAL (1<<17) - -#define FPRNR (2<<26) -#define FPRZ (0<<26) -#define FPRPINF (3<<26) -#define FPRNINF (1<<26) -#define FPRMASK (3<<26) - -#define FPPEXT 0 -#define FPPSGL 0 -#define FPPDBL 0 -#define FPPMASK 0 -/* FSR */ -#define FPAINEX (1<<24) -#define FPAUNFL (1<<23) -#define FPAOVFL (1<<22) -#define FPAZDIV (1<<21) -#define FPAINVAL (1<<20) -union FPdbleword -{ - double x; - struct { /* little endian */ - ulong lo; - ulong hi; - }; -}; - -/* stdarg */ -typedef char* va_list; -#define va_start(list, start) list =\ - (sizeof(start) < 4?\ - (char*)((int*)&(start)+1):\ - (char*)(&(start)+1)) -#define va_end(list)\ - USED(list) -#define va_arg(list, mode)\ - ((sizeof(mode) == 1)?\ - ((list += 4), (mode*)list)[-4]:\ - (sizeof(mode) == 2)?\ - ((list += 4), (mode*)list)[-2]:\ - sizeof(mode)>4?\ - ((mode*)(list = (char*)((uintptr)(list+7) & ~7) + sizeof(mode)))[-1]:\ - ((list += sizeof(mode)), (mode*)list)[-1]) diff --git a/alpha/include/ureg.h b/alpha/include/ureg.h deleted file mode 100644 index 7772659be..000000000 --- a/alpha/include/ureg.h +++ /dev/null @@ -1,49 +0,0 @@ -struct Ureg -{ - /* l.s saves 31 64-bit values: */ - uvlong type; - uvlong a0; - uvlong a1; - uvlong a2; - - uvlong r0; - uvlong r1; - uvlong r2; - uvlong r3; - uvlong r4; - uvlong r5; - uvlong r6; - uvlong r7; - uvlong r8; - uvlong r9; - uvlong r10; - uvlong r11; - uvlong r12; - uvlong r13; - uvlong r14; - uvlong r15; - - uvlong r19; - uvlong r20; - uvlong r21; - uvlong r22; - uvlong r23; - uvlong r24; - uvlong r25; - uvlong r26; - uvlong r27; - uvlong r28; - union { - uvlong r30; - uvlong usp; - uvlong sp; - }; - - /* OSF/1 PALcode frame: */ - uvlong status; /* PS */ - uvlong pc; - uvlong r29; /* GP */ - uvlong r16; /* a0 */ - uvlong r17; /* a1 */ - uvlong r18; /* a2 */ -}; diff --git a/alpha/mkfile b/alpha/mkfile deleted file mode 100644 index 110f1fcff..000000000 --- a/alpha/mkfile +++ /dev/null @@ -1,6 +0,0 @@ - active proc if (objtype == "mips" || objtype == "mips2") then { kdir = "ch"; } - if objtype == "alpha" then { - map({"*data", KZERO, 0xffffffff, KZERO}); - kdir = "alpha"; - } needacid("proc"); needacid("chan"); needacid("segment"); diff --git a/sys/lib/acid/syscall b/sys/lib/acid/syscall index 1939ab323..4612f019a 100644 --- a/sys/lib/acid/syscall +++ b/sys/lib/acid/syscall @@ -160,8 +160,6 @@ defn UPCSPRET() { return { code(*(*PC-4) & 0xffff), code(*SP+4), code(*R1) }; if objtype == "arm" then return { code(*(*PC-4) & 0xffff), code(*SP+4), code(*R0) }; // untested - if objtype == "alpha" then - return { code(*(*PC-4) & 0xffff), code(*SP+4), code(*R0) }; // untested } defn trapoffset() { @@ -171,7 +169,6 @@ defn trapoffset() { if objtype == "mips" then return 8; if objtype == "mips2" then return 8; if objtype == "arm" then return 8; // untested - if objtype == "alpha" then return 8; // untested } defn trapreason() { @@ -181,7 +178,6 @@ defn trapreason() { if objtype == "mips" then return reason(*CAUSE); if objtype == "mips2" then return reason(*CAUSE); if objtype == "arm" then return "unknown trap"; // untested - if objtype == "alpha" then return reason(cause); // untested } diff --git a/sys/lib/acid/thread b/sys/lib/acid/thread index 528f166ea..f24f6207d 100644 --- a/sys/lib/acid/thread +++ b/sys/lib/acid/thread @@ -14,7 +14,7 @@ defn labsp(l) defn labstk(l) { - _stk(labpc(l), labsp(l), 0, 0); + _stk(labpc(l), labsp(l), 0, 1); } defn lablstk(l) @@ -250,7 +250,7 @@ defn threadstks(P){ ign = stkignore; stkignore = { "^/sys/src/libthread/", - "^/sys/src/libc/(386|arm|alpha|sparc|power|mips)/" + "^/sys/src/libc/(386|arm|sparc|power|mips)/" }; setproc(P.pid); Tq = (Tqueue)P.threads; @@ -315,7 +315,7 @@ defn threadstk(T){ setproc(P.pid); if T.state == Running then{ - stk(); + lstk(); } else { labstk(T.sched); } diff --git a/sys/lib/acid/trump b/sys/lib/acid/trump index 4b5b71300..e18d7c52a 100644 --- a/sys/lib/acid/trump +++ b/sys/lib/acid/trump @@ -116,11 +116,11 @@ defn trumpfninfo() { } defn trumpretval() { - if objtype=="386" then + if objtype=="386" || objtype=="amd64" then return *AX; if objtype=="mips" then return *R1; - if objtype=="power" || objtype=="alpha" then + if objtype=="power" || objtype=="arm" then return *R0; } diff --git a/sys/lib/acid/truss b/sys/lib/acid/truss index c11816bdc..788122aed 100644 --- a/sys/lib/acid/truss +++ b/sys/lib/acid/truss @@ -160,7 +160,7 @@ defn addressof(pattern) { // translate to ape system calls if we have an ape binary if _addressof("_EXITS") != 0 then pattern = trussapecalls[match(pattern, trusscalls)]; - if regexp("(seek|_SEEK)", pattern) && (objtype=="amd64" || objtype == "power64" || objtype == "alpha") then + if regexp("(seek|_SEEK)", pattern) && (objtype=="amd64" || objtype == "power64") then pattern = "_" + pattern; return _addressof(pattern); } diff --git a/sys/src/9/alphapc/apc b/sys/src/9/alphapc/apc deleted file mode 100644 index 83608e1cd..000000000 --- a/sys/src/9/alphapc/apc +++ /dev/null @@ -1,62 +0,0 @@ -dev - root - cons - arch - pnp pci - env - pipe - proc - mnt - srv - dup -# rtc - ssl - cap - kprof -# loopback - - ether netif - ip arp chandial inferno ip ipv6 ipaux iproute netlog nullmedium pktmedium ptclbsum - - draw screen vga vgax - mouse mouse - vga - - sd - floppy dma - - audio dma - uart - -link - ether2114x pci - ethermedium - -misc - arch164 - - sdata pci sdscsi -# sd53c8xx pci sdscsi - - uarti8250 - - vgargb524 =cur - vgas3 +cur - vgas3 +cur vgasavage - vgatvp3026 =cur - -ip - tcp - udp - ipifc - icmp - icmp6 - -port - int cpuserver = 0; - -bootdir - /$objtype/bin/paqfs - /$objtype/bin/auth/factotum - bootfs.paq - boot diff --git a/sys/src/9/alphapc/apccpu b/sys/src/9/alphapc/apccpu deleted file mode 100644 index 21b5b1110..000000000 --- a/sys/src/9/alphapc/apccpu +++ /dev/null @@ -1,56 +0,0 @@ -dev - root - cons - arch - pnp pci - env - pipe - proc - mnt - srv - dup -# rtc - ssl - cap - kprof -# loopback - - ether netif - ip arp chandial ip ipv6 ipaux iproute netlog nullmedium pktmedium ptclbsum inferno - - sd - floppy dma - - audio dma - uart - -link - ether2114x pci - ethermedium - loopbackmedium - -misc - arch164 - - sdata pci sdscsi -# sd53c8xx pci sdscsi - - uarti8250 - -ip - tcp - udp - ipifc - icmp - icmp6 - gre - ipmux - -port - int cpuserver = 1; - -bootdir - /$objtype/bin/paqfs - /$objtype/bin/auth/factotum - bootfs.paq - boot diff --git a/sys/src/9/alphapc/arch164.c b/sys/src/9/alphapc/arch164.c deleted file mode 100644 index 7860142bc..000000000 --- a/sys/src/9/alphapc/arch164.c +++ /dev/null @@ -1,363 +0,0 @@ -/* - * EB164 and similar - * CPU: 21164 - * Core Logic: 21172 CIA or 21174 PYXIS - */ -#include "u.h" -#include "../port/lib.h" -#include "mem.h" -#include "dat.h" -#include "fns.h" -#include "io.h" - -static ulong *core; -static ulong *wind; - -static ulong windsave[16]; -static ulong coresave[1]; - -ulong iobase0; -ulong iobase1; -#define iobase(p) (iobase0+(p)) - -static int -ident(void) -{ - return 0; /* bug! */ -} - -static uvlong* sgmap; - -static void -sginit(void) -{ - ulong pa; - uvlong *pte; - - sgmap = xspanalloc(BY2PG, BY2PG, 0); - memset(sgmap, 0, BY2PG); - - /* - * Prepare scatter-gather map for 0-8MB. - */ - pte = sgmap; - for(pa = 0; pa < 8*1024*1024; pa += BY2PG) - *pte++ = ((pa>>PGSHIFT)<<1)|1; - - /* - * Set up a map for ISA DMA accesses to physical memory. - * Addresses presented by an ISA device between ISAWINDOW - * and ISAWINDOW+8MB will be translated to between 0 and - * 0+8MB of physical memory. - */ - wind[0x400/4] = ISAWINDOW|2|1; /* window base */ - wind[0x440/4] = 0x00700000; /* window mask */ - wind[0x480/4] = PADDR(sgmap)>>2; /* <33:10> of sg map */ - - wind[0x100/4] = 3; /* invalidate tlb cache */ -} - -static void * -kmapio(ulong space, ulong offset, int size) -{ - return kmapv(((uvlong)space<<32LL)|offset, size); -} - -static void -coreinit(void) -{ - int i; - - core = kmapio(0x87, 0x40000000, 0x10000); - wind = kmapio(0x87, 0x60000000, 0x1000); - - iobase0 = (ulong)kmapio(0x89, 0, 0x20000); - - /* hae_io = core[0x440/4]; - iobase1 = (ulong)kmapio(0x89, hae_io, 0x10000); */ - - /* save critical parts of hardware memory mapping */ - for (i = 4; i < 8; i++) { - windsave[4*(i-4)+0] = wind[(i*0x100+0x00)/4]; - windsave[4*(i-4)+1] = wind[(i*0x100+0x40)/4]; - windsave[4*(i-4)+2] = wind[(i*0x100+0x80)/4]; - } - coresave[0] = core[0x140/4]; - - /* disable windows */ - wind[0x400/4] = 0; - wind[0x500/4] = 0; - wind[0x600/4] = 0; - wind[0x700/4] = 0; - - sginit(); - - /* - * Set up a map for PCI DMA accesses to physical memory. - * Addresses presented by a PCI device between PCIWINDOW - * and PCIWINDOW+1GB will be translated to between 0 and - * 0+1GB of physical memory. - */ - wind[0x500/4] = PCIWINDOW|1; - wind[0x540/4] = 0x3ff00000; - wind[0x580/4] = 0; - - /* clear error state */ - core[0x8200/4] = 0x7ff; - - /* set config: byte/word enable, no monster window, etc. */ - core[0x140/4] = 0x21; - - /* turn off mcheck on master abort. now we can probe PCI space. */ - core[0x8280/4] &= ~(1<<7); - - /* set up interrupts. */ - i8259init(); - cserve(52, 4); /* enable SIO interrupt */ -} - -void -ciaerror(void) -{ - print("cia error 0x%luX\n", core[0x8200/4]); -} - -static void -corehello(void) -{ - print("cpu%d: CIA revision %ld; cnfg %lux cntrl %lux\n", - 0, /* BUG */ - core[0x80/4] & 0x7f, core[0x140/4], core[0x100/4]); - print("cpu%d: HAE_IO %lux\n", 0, core[0x440/4]); - print("\n"); -} - -static void -coredetach(void) -{ - int i; - - for (i = 4; i < 8; i++) { - wind[(i*0x100+0x00)/4] = windsave[4*(i-4)+0]; - wind[(i*0x100+0x40)/4] = windsave[4*(i-4)+1]; - wind[(i*0x100+0x80)/4] = windsave[4*(i-4)+2]; - } - core[0x140/4] = coresave[0]; -/* for (i = 0; i < 4; i++) - if (i != 4) - cserve(53, i); /* disable interrupts */ -} - -static Lock pcicfgl; -static ulong pcimap[256]; - -static void* -pcicfg2117x(int tbdf, int rno) -{ - int space, bus; - ulong base; - - bus = BUSBNO(tbdf); - lock(&pcicfgl); - base = pcimap[bus]; - if (base == 0) { - if(bus) - space = 0x8B; - else - space = 0x8A; - pcimap[bus] = base = (ulong)kmapio(space, MKBUS(0, bus, 0, 0), (1<<16)); - } - unlock(&pcicfgl); - return (void*)(base + BUSDF(tbdf) + rno); -} - -static void* -pcimem2117x(int addr, int len) -{ - return kmapio(0x88, addr, len); -} - -static int -intrenable164(Vctl *v) -{ - int vec, irq; - - irq = v->irq; - if(irq > MaxIrqPIC) { - print("intrenable: irq %d out of range\n", v->irq); - return -1; - } - if(BUSTYPE(v->tbdf) == BusPCI) { - vec = irq+VectorPCI; - cserve(52, irq); - } - else { - vec = irq+VectorPIC; - if(i8259enable(irq, v->tbdf, v) == -1) - return -1; - } - return vec; -} - -/* - * I have a function pointer in PCArch for every one of these, because on - * some Alphas we have to use sparse mode, but on others we can use - * MOVB et al. Additionally, the PC164 documentation threatened us - * with the lie that the SIO is in region B, but everything else in region A. - * This turned out not to be the case. Given the cost of this solution, it - * may be better just to use sparse mode for I/O space on all platforms. - */ -int -inb2117x(int port) -{ - mb(); - return *(uchar*)(iobase(port)); -} - -ushort -ins2117x(int port) -{ - mb(); - return *(ushort*)(iobase(port)); -} - -ulong -inl2117x(int port) -{ - mb(); - return *(ulong*)(iobase(port)); -} - -void -outb2117x(int port, int val) -{ - mb(); - *(uchar*)(iobase(port)) = val; - mb(); -} - -void -outs2117x(int port, ushort val) -{ - mb(); - *(ushort*)(iobase(port)) = val; - mb(); -} - -void -outl2117x(int port, ulong val) -{ - mb(); - *(ulong*)(iobase(port)) = val; - mb(); -} - -void -insb2117x(int port, void *buf, int len) -{ - int i; - uchar *p, *q; - - p = (uchar*)iobase(port); - q = buf; - for(i = 0; i < len; i++){ - mb(); - *q++ = *p; - } -} - -void -inss2117x(int port, void *buf, int len) -{ - int i; - ushort *p, *q; - - p = (ushort*)iobase(port); - q = buf; - for(i = 0; i < len; i++){ - mb(); - *q++ = *p; - } -} - -void -insl2117x(int port, void *buf, int len) -{ - int i; - ulong *p, *q; - - p = (ulong*)iobase(port); - q = buf; - for(i = 0; i < len; i++){ - mb(); - *q++ = *p; - } -} - -void -outsb2117x(int port, void *buf, int len) -{ - int i; - uchar *p, *q; - - p = (uchar*)iobase(port); - q = buf; - for(i = 0; i < len; i++){ - mb(); - *p = *q++; - } -} - -void -outss2117x(int port, void *buf, int len) -{ - int i; - ushort *p, *q; - - p = (ushort*)iobase(port); - q = buf; - for(i = 0; i < len; i++){ - mb(); - *p = *q++; - } -} - -void -outsl2117x(int port, void *buf, int len) -{ - int i; - ulong *p, *q; - - p = (ulong*)iobase(port); - q = buf; - for(i = 0; i < len; i++){ - mb(); - *p = *q++; - } -} - -PCArch arch164 = { - "EB164", - ident, - coreinit, - corehello, - coredetach, - pcicfg2117x, - pcimem2117x, - intrenable164, - nil, - nil, - - inb2117x, - ins2117x, - inl2117x, - outb2117x, - outs2117x, - outl2117x, - insb2117x, - inss2117x, - insl2117x, - outsb2117x, - outss2117x, - outsl2117x, -}; diff --git a/sys/src/9/alphapc/audio.h b/sys/src/9/alphapc/audio.h deleted file mode 100644 index 53d5a8afb..000000000 --- a/sys/src/9/alphapc/audio.h +++ /dev/null @@ -1,16 +0,0 @@ -enum -{ - Bufsize = 16*1024, /* 92 ms each */ - Nbuf = 16, /* 1.5 seconds total */ - Dma = 5, - IrqAUDIO = 5, - SBswab = 0, -}; - -#define seteisadma(a, b) dmainit(a, Bufsize); -#define CACHELINESZ 128 -#define UNCACHED(type, v) (type*)((ulong)(v)) -#define dcflush(a, b) - -#define Int0vec -#define setvec(v, f, a) intrenable(v, f, a, BUSUNKNOWN, "audio") diff --git a/sys/src/9/alphapc/axp.h b/sys/src/9/alphapc/axp.h deleted file mode 100644 index 102a6b66d..000000000 --- a/sys/src/9/alphapc/axp.h +++ /dev/null @@ -1,71 +0,0 @@ -typedef struct Hwrpb Hwrpb; -typedef struct Hwcpu Hwcpu; -typedef struct Hwdsr Hwdsr; - -struct Hwrpb -{ - uvlong phys; - uvlong sign; - uvlong rev; - uvlong size; - uvlong cpu0; - uvlong by2pg; - uvlong pabits; - uvlong maxasn; - char ssn[16]; - uvlong systype; - uvlong sysvar; - uvlong sysrev; - uvlong ifreq; - uvlong cfreq; - uvlong vptb; - uvlong resv; - uvlong tbhint; - uvlong ncpu; - uvlong cpulen; - uvlong cpuoff; - uvlong nctb; - uvlong ctblen; - uvlong ctboff; - uvlong ccrboff; - uvlong memoff; - uvlong confoff; - uvlong fruoff; - uvlong termsaveva; - uvlong termsavex; - uvlong termrestva; - uvlong termrestx; - uvlong termresetva; - uvlong termresetx; - uvlong sysresv; - uvlong hardresv; - uvlong csum; - uvlong rxrdymsk; - uvlong txrdymsk; - uvlong dsroff; /* rev 6 or higher */ -}; - -extern Hwrpb* hwrpb; - -struct Hwcpu -{ - uvlong hwpcb[16]; - uvlong state; - uvlong palmainlen; - uvlong palscratchlen; - uvlong palmainpa; - uvlong palscratchpa; - uvlong palrev; - uvlong cputype; - uvlong cpuvar; - uvlong cpurev; - uvlong serial[2]; - /* more crap ... */ -}; - -struct Hwdsr -{ - vlong smm; - uvlong lurtoff; - uvlong sysnameoff; -}; diff --git a/sys/src/9/alphapc/cga.c b/sys/src/9/alphapc/cga.c deleted file mode 100644 index c216617b7..000000000 --- a/sys/src/9/alphapc/cga.c +++ /dev/null @@ -1,113 +0,0 @@ -#include "u.h" -#include "../port/lib.h" -#include "mem.h" -#include "dat.h" -#include "fns.h" -#include "../port/error.h" -#include "io.h" - -enum { - Width = 160, - Height = 25, - - Attr = 0x4f, /* white on blue */ -}; - -static ulong cgabase; -#define CGASCREENBASE ((uchar*)cgabase) - -static int cgapos; -static int screeninitdone; -static Lock cgascreenlock; - -static uchar -cgaregr(int index) -{ - outb(0x3D4, index); - return inb(0x3D4+1) & 0xFF; -} - -static void -cgaregw(int index, int data) -{ - outb(0x3D4, index); - outb(0x3D4+1, data); -} - -static void -movecursor(void) -{ - cgaregw(0x0E, (cgapos/2>>8) & 0xFF); - cgaregw(0x0F, cgapos/2 & 0xFF); - CGASCREENBASE[cgapos+1] = Attr; -} - -static void -cgascreenputc(int c) -{ - int i; - - if(c == '\n'){ - cgapos = cgapos/Width; - cgapos = (cgapos+1)*Width; - } - else if(c == '\t'){ - i = 8 - ((cgapos/2)&7); - while(i-->0) - cgascreenputc(' '); - } - else if(c == '\b'){ - if(cgapos >= 2) - cgapos -= 2; - cgascreenputc(' '); - cgapos -= 2; - } - else{ - CGASCREENBASE[cgapos++] = c; - CGASCREENBASE[cgapos++] = Attr; - } - if(cgapos >= Width*Height){ - memmove(CGASCREENBASE, &CGASCREENBASE[Width], Width*(Height-1)); - for (i = Width*(Height-1); i < Width*Height;) { - CGASCREENBASE[i++] = 0x20; - CGASCREENBASE[i++] = Attr; - } - cgapos = Width*(Height-1); - } - movecursor(); -} - -void -screeninit(void) -{ - cgabase = (ulong)arch->pcimem(0xB8000, 0x8000); - - cgapos = cgaregr(0x0E)<<8; - cgapos |= cgaregr(0x0F); - cgapos *= 2; - screeninitdone = 1; -} - -static void -cgascreenputs(char* s, int n) -{ - if(!screeninitdone) - return; - if(!islo()){ - /* - * Don't deadlock trying to - * print in an interrupt. - */ - if(!canlock(&cgascreenlock)) - return; - } - else - lock(&cgascreenlock); - - while(n-- > 0) - cgascreenputc(*s++); - - unlock(&cgascreenlock); -} - -void (*screenputs)(char*, int) = cgascreenputs; diff --git a/sys/src/9/alphapc/clock.c b/sys/src/9/alphapc/clock.c deleted file mode 100644 index 1300e9338..000000000 --- a/sys/src/9/alphapc/clock.c +++ /dev/null @@ -1,112 +0,0 @@ -#include "u.h" -#include "../port/lib.h" -#include "mem.h" -#include "dat.h" -#include "fns.h" -#include "io.h" -#include "axp.h" -#include "ureg.h" - -void -clockinit(void) -{ -} - -uvlong -cycletimer(void) -{ - ulong pcc; - vlong delta; - - pcc = rpcc(nil) & 0xFFFFFFFF; - if(m->cpuhz == 0){ - /* - * pcclast is needed to detect wraparound of - * the cycle timer which is only 32-bits. - * m->cpuhz is set from the info passed from - * the firmware. - * This could be in clockinit if can - * guarantee no wraparound between then and now. - * - * All the clock stuff needs work. - */ - m->cpuhz = hwrpb->cfreq; - m->pcclast = pcc; - } - delta = pcc - m->pcclast; - if(delta < 0) - delta += 0x100000000LL; - m->pcclast = pcc; - m->fastclock += delta; - - return MACHP(0)->fastclock; -} - -uvlong -fastticks(uvlong* hz) -{ - uvlong ticks; - int x; - - x = splhi(); - ticks = cycletimer(); - splx(x); - - if(hz) - *hz = m->cpuhz; - - return ticks; -} - -ulong -µs(void) -{ - return fastticks2us(cycletimer()); -} - -/* - * performance measurement ticks. must be low overhead. - * doesn't have to count over a second. - */ -ulong -perfticks(void) -{ - return rpcc(nil); -} - -void -timerset(Tval) -{ -} - -void -microdelay(int us) -{ - uvlong eot; - - eot = fastticks(nil) + (m->cpuhz/1000000)*us; - while(fastticks(nil) < eot) - ; -} - -void -delay(int millisecs) -{ - microdelay(millisecs*1000); -} - -void -clock(Ureg *ureg) -{ - static int count; - - cycletimer(); - - /* HZ == 100, timer == 1024Hz. error < 1ms */ - count += 100; - if (count < 1024) - return; - count -= 1024; - - timerintr(ureg, 0); -} diff --git a/sys/src/9/alphapc/cycintr.c b/sys/src/9/alphapc/cycintr.c deleted file mode 100644 index d56edba80..000000000 --- a/sys/src/9/alphapc/cycintr.c +++ /dev/null @@ -1,27 +0,0 @@ -#include "u.h" -#include "../port/lib.h" -#include "mem.h" -#include "dat.h" -#include "fns.h" -#include "io.h" - -int -havetimer(void) -{ - return 0; -} - -void -timeradd(Timer *) -{ -} - -void -timerdel(Timer *) -{ -} - -void -clockintrsched(void) -{ -} diff --git a/sys/src/9/alphapc/dat.h b/sys/src/9/alphapc/dat.h deleted file mode 100644 index 5af7a0fdc..000000000 --- a/sys/src/9/alphapc/dat.h +++ /dev/null @@ -1,265 +0,0 @@ -typedef struct Conf Conf; -typedef struct Confmem Confmem; -typedef struct FPsave FPsave; -typedef struct ISAConf ISAConf; -typedef struct Label Label; -typedef struct Lock Lock; -typedef struct Mach Mach; -typedef struct Notsave Notsave; -typedef struct Page Page; -typedef struct PCArch PCArch; -typedef struct PCB PCB; -typedef struct Pcidev Pcidev; -typedef struct PMMU PMMU; -typedef struct Proc Proc; -typedef struct Sys Sys; -typedef struct Ureg Ureg; -typedef struct Vctl Vctl; -typedef vlong Tval; - -#define MAXSYSARG 6 /* for mount(fd, mpt, flag, arg, srv) */ - -/* - * parameters for sysproc.c - */ -#define AOUT_MAGIC L_MAGIC - -/* - * machine dependent definitions used by ../port/dat.h - */ - -struct Lock -{ - ulong key; /* semaphore (non-zero = locked) */ - ulong sr; - ulong pc; - Proc *p; - Mach *m; - ulong pid; - ushort isilock; -}; - -struct Label -{ - ulong sp; - ulong pc; -}; - -/* - * Proc.fpstate - */ -enum -{ - /* floating point states */ - FPinit, - FPactive, - FPinactive, - - /* bit or'd with the state */ - FPillegal= 0x100, -}; - -struct FPsave -{ - long fpreg[2*32]; - long dummy; /* lower bits of FPCR, useless */ - long fpstatus; -}; - -struct Confmem -{ - ulong base; - ulong npage; - ulong kbase; - ulong klimit; -}; - -struct Conf -{ - ulong nmach; /* processors */ - ulong nproc; /* processes */ - Confmem mem[2]; - ulong npage; /* total physical pages of memory */ - ulong upages; /* user page pool */ - ulong nimage; /* number of page cache image headers */ - ulong nswap; /* number of swap pages */ - int nswppo; /* max # of pageouts per segment pass */ - ulong copymode; /* 0 is copy on write, 1 is copy on reference */ - int monitor; /* has display? */ - ulong ialloc; /* bytes available for interrupt time allocation */ - ulong pipeqsize; /* size in bytes of pipe queues */ -}; - -/* - * mmu goo in the Proc structure - */ -struct PMMU -{ - Page *mmutop; /* 1st level table */ - Page *mmulvl2; /* 2nd level table */ - Page *mmufree; /* unused page table pages */ - Page *mmuused; /* used page table pages, except for mmustk */ -}; - -/* - * things saved in the Proc structure during a notify - */ -struct Notsave -{ - ulong UNUSED; -}; - -#include "../port/portdat.h" - -/* - * machine dependent definitions not used by ../port/dat.h - */ -/* - * Fake kmap - */ -typedef void KMap; -#define VA(k) ((ulong)(k)) -#define kmap(p) (KMap*)((p)->pa|KZERO) -#define kunmap(k) - -/* - * Process Control Block, used by PALcode - */ -struct PCB { - uvlong ksp; - uvlong usp; - uvlong ptbr; - ulong asn; - ulong pcc; - uvlong unique; - ulong fen; - ulong dummy; - uvlong rsrv1; - uvlong rsrv2; -}; - -struct Mach -{ - /* OFFSETS OF THE FOLLOWING KNOWN BY l.s */ - int machno; /* physical id of processor */ - ulong splpc; /* pc that called splhi() */ - Proc *proc; /* current process on this processor */ - - /* ordering from here on irrelevant */ - - ulong ticks; /* of the clock since boot time */ - Label sched; /* scheduler wakeup */ - Lock alarmlock; /* access to alarm list */ - void *alarm; /* alarms bound to this clock */ - int inclockintr; - - Proc* readied; /* for runproc */ - ulong schedticks; /* next forced context switch */ - - vlong cpuhz; /* hwrpb->cfreq */ - uvlong cyclefreq; /* Frequency of user readable cycle counter */ - ulong pcclast; - uvlong fastclock; - Perf perf; /* performance counters */ - - int tlbfault; /* only used by devproc; no access to tlb */ - int tlbpurge; /* ... */ - int pfault; - int cs; - int syscall; - int load; - int intr; - int flushmmu; /* make current proc flush it's mmu state */ - int ilockdepth; - - ulong spuriousintr; - int lastintr; - - PCB; - - /* MUST BE LAST */ - int stack[1]; -}; - -struct -{ - Lock; - char machs[MAXMACH]; - int exiting; -}active; - -/* - * Implementation-dependant functions (outside of Alpha architecture proper). - * Called PCArch because that's what mkdevc calls it (for the PC). - */ -struct PCArch -{ - char* id; - int (*ident)(void); - - void (*coreinit)(void); /* set up core logic, PCI mappings etc */ - void (*corehello)(void); /* identify core logic to user */ - void (*coredetach)(void); /* restore core logic before return to console */ - void *(*pcicfg)(int, int); /* map and point to PCI cfg space */ - void *(*pcimem)(int, int); /* map and point to PCI memory space */ - int (*intrenable)(Vctl*); - int (*intrvecno)(int); - int (*intrdisable)(int); - - int (*_inb)(int); - ushort (*_ins)(int); - ulong (*_inl)(int); - void (*_outb)(int, int); - void (*_outs)(int, ushort); - void (*_outl)(int, ulong); - void (*_insb)(int, void*, int); - void (*_inss)(int, void*, int); - void (*_insl)(int, void*, int); - void (*_outsb)(int, void*, int); - void (*_outss)(int, void*, int); - void (*_outsl)(int, void*, int); -}; - -/* - * a parsed plan9.ini line - */ -#define NISAOPT 8 - -struct ISAConf { - char *type; - ulong port; - int irq; - ulong dma; - ulong mem; - ulong size; - ulong freq; - - int nopt; - char *opt[NISAOPT]; -}; - -extern PCArch *arch; - -#define MACHP(n) ((Mach *)((int)&mach0+n*BY2PG)) -extern Mach mach0; - -extern register Mach *m; -extern register Proc *up; - -/* - * hardware info about a device - */ -typedef struct { - ulong port; - int size; -} Devport; - -struct DevConf -{ - ulong intnum; /* interrupt number */ - char *type; /* card type, malloced */ - int nports; /* Number of ports */ - Devport *ports; /* The ports themselves */ -}; - -extern FPsave initfp; diff --git a/sys/src/9/alphapc/devarch.c b/sys/src/9/alphapc/devarch.c deleted file mode 100644 index 352e47c6f..000000000 --- a/sys/src/9/alphapc/devarch.c +++ /dev/null @@ -1,533 +0,0 @@ -#include "u.h" -#include "../port/lib.h" -#include "mem.h" -#include "dat.h" -#include "fns.h" -#include "io.h" -#include "../port/error.h" -#include "axp.h" - -typedef struct IOMap IOMap; -struct IOMap -{ - IOMap *next; - char tag[13]; - ulong start; - ulong end; -}; - -static struct -{ - Lock; - IOMap *m; - IOMap *free; - IOMap maps[32]; // some initial free maps - - QLock ql; // lock for reading map -} iomap; - -enum { - Qdir = 0, - Qioalloc = 1, - Qiob, - Qiow, - Qiol, - Qbase, - - Qmax = 16, -}; - -typedef long Rdwrfn(Chan*, void*, long, vlong); - -static Rdwrfn *readfn[Qmax]; -static Rdwrfn *writefn[Qmax]; - -static Dirtab archdir[] = { - ".", { Qdir, 0, QTDIR }, 0, 0555, - "ioalloc", { Qioalloc, 0 }, 0, 0444, - "iob", { Qiob, 0 }, 0, 0660, - "iow", { Qiow, 0 }, 0, 0660, - "iol", { Qiol, 0 }, 0, 0660, -}; -Lock archwlock; /* the lock is only for changing archdir */ -int narchdir = Qbase; -int (*_pcmspecial)(char *, ISAConf *); -void (*_pcmspecialclose)(int); - -/* - * Add a file to the #P listing. Once added, you can't delete it. - * You can't add a file with the same name as one already there, - * and you get a pointer to the Dirtab entry so you can do things - * like change the Qid version. Changing the Qid path is disallowed. - */ -Dirtab* -addarchfile(char *name, int perm, Rdwrfn *rdfn, Rdwrfn *wrfn) -{ - int i; - Dirtab d; - Dirtab *dp; - - memset(&d, 0, sizeof d); - strcpy(d.name, name); - d.perm = perm; - - lock(&archwlock); - if(narchdir >= Qmax){ - unlock(&archwlock); - return nil; - } - - for(i=0; inext){ - m = *l; - i = m->start - port; - if(i > size) - break; - if(align > 0) - port = ((port+align-1)/align)*align; - else - port = m->end; - } - if(*l == nil){ - unlock(&iomap); - return -1; - } - } else { - // see if the space clashes with previously allocated ports - for(l = &iomap.m; *l; l = &(*l)->next){ - m = *l; - if(m->end <= port) - continue; - if(m->start >= port+size) - break; - unlock(&iomap); - return -1; - } - } - m = iomap.free; - if(m == nil){ - print("ioalloc: out of maps"); - unlock(&iomap); - return port; - } - iomap.free = m->next; - m->next = *l; - m->start = port; - m->end = port + size; - strncpy(m->tag, tag, sizeof(m->tag)); - m->tag[sizeof(m->tag)-1] = 0; - *l = m; - - archdir[0].qid.vers++; - - unlock(&iomap); - return m->start; -} - -void -iofree(int port) -{ - IOMap *m, **l; - - lock(&iomap); - for(l = &iomap.m; *l; l = &(*l)->next){ - if((*l)->start == port){ - m = *l; - *l = m->next; - m->next = iomap.free; - iomap.free = m; - break; - } - if((*l)->start > port) - break; - } - archdir[0].qid.vers++; - unlock(&iomap); -} - -int -iounused(int start, int end) -{ - IOMap *m; - - for(m = iomap.m; m; m = m->next){ - if(start >= m->start && start < m->end - || start <= m->start && end > m->start) - return 0; - } - return 1; -} - -static void -checkport(int start, int end) -{ - /* standard vga regs are OK */ - if(start >= 0x2b0 && end <= 0x2df+1) - return; - if(start >= 0x3c0 && end <= 0x3da+1) - return; - - if(iounused(start, end)) - return; - error(Eperm); -} - -static Chan* -archattach(char* spec) -{ - return devattach('P', spec); -} - -Walkqid* -archwalk(Chan* c, Chan *nc, char** name, int nname) -{ - return devwalk(c, nc, name, nname, archdir, narchdir, devgen); -} - -static int -archstat(Chan* c, uchar* dp, int n) -{ - return devstat(c, dp, n, archdir, narchdir, devgen); -} - -static Chan* -archopen(Chan* c, int omode) -{ - return devopen(c, omode, archdir, nelem(archdir), devgen); -} - -static void -archclose(Chan*) -{ -} - -enum -{ - Linelen= 31, -}; - -static long -archread(Chan *c, void *a, long n, vlong offset) -{ - char buf[Linelen+1], *p; - int port; - ushort *sp; - ulong *lp; - IOMap *m; - Rdwrfn *fn; - - switch((ulong)c->qid.path){ - - case Qdir: - return devdirread(c, a, n, archdir, nelem(archdir), devgen); - - case Qiob: - port = offset; - checkport(offset, offset+n); - for(p = a; port < offset+n; port++) - *p++ = inb(port); - return n; - - case Qiow: - if((n & 0x01) || (offset & 0x01)) - error(Ebadarg); - checkport(offset, offset+n+1); - n /= 2; - sp = a; - for(port = offset; port < offset+n; port += 2) - *sp++ = ins(port); - return n*2; - - case Qiol: - if((n & 0x03) || (offset & 0x03)) - error(Ebadarg); - checkport(offset, offset+n+3); - n /= 4; - lp = a; - for(port = offset; port < offset+n; port += 4) - *lp++ = inl(port); - return n*4; - - case Qioalloc: - break; - - default: - if(c->qid.path < narchdir && (fn = readfn[c->qid.path])) - return fn(c, a, n, offset); - error(Eperm); - break; - } - - offset = offset/Linelen; - n = n/Linelen; - p = a; - lock(&iomap); - for(m = iomap.m; n > 0 && m != nil; m = m->next){ - if(offset-- > 0) - continue; - if(strcmp(m->tag, "dummy") == 0) - break; - sprint(buf, "%8lux %8lux %-12.12s\n", m->start, m->end-1, m->tag); - memmove(p, buf, Linelen); - p += Linelen; - n--; - } - unlock(&iomap); - - return p - (char*)a; -} - -static long -archwrite(Chan *c, void *a, long n, vlong offset) -{ - char *p; - int port; - ushort *sp; - ulong *lp; - Rdwrfn *fn; - - switch((ulong)c->qid.path){ - - case Qiob: - p = a; - checkport(offset, offset+n); - for(port = offset; port < offset+n; port++) - outb(port, *p++); - return n; - - case Qiow: - if((n & 01) || (offset & 01)) - error(Ebadarg); - checkport(offset, offset+n+1); - n /= 2; - sp = a; - for(port = offset; port < offset+n; port += 2) - outs(port, *sp++); - return n*2; - - case Qiol: - if((n & 0x03) || (offset & 0x03)) - error(Ebadarg); - checkport(offset, offset+n+3); - n /= 4; - lp = a; - for(port = offset; port < offset+n; port += 4) - outl(port, *lp++); - return n*4; - - default: - if(c->qid.path < narchdir && (fn = writefn[c->qid.path])) - return fn(c, a, n, offset); - error(Eperm); - break; - } - return 0; -} - -Dev archdevtab = { - 'P', - "arch", - - devreset, - devinit, - devshutdown, - archattach, - archwalk, - archstat, - archopen, - devcreate, - archclose, - archread, - devbread, - archwrite, - devbwrite, - devremove, - devwstat, -}; - -PCArch* arch; -extern PCArch* knownarch[]; - -PCArch archgeneric = { - "generic", /* id */ - 0, /* ident */ - - 0, /* coreinit */ - 0, /* coredetach */ -}; - -static char *sysnames[] = -{ -[1] "Alpha Demo. Unit", -[2] "DEC 4000; Cobra", -[3] "DEC 7000; Ruby", -[4] "DEC 3000/500; Flamingo family (TC)", -[6] "DEC 2000/300; Jensen (EISA/ISA)", -[7] "DEC 3000/300; Pelican (TC)", -[8] "Avalon A12; Avalon Multicomputer", -[9] "DEC 2100/A500; Sable", -[10] "DEC APXVME/64; AXPvme (VME?)", -[11] "DEC AXPPCI/33; NoName (PCI/ISA)", -[12] "DEC 21000; TurboLaser (PCI/EISA)", -[13] "DEC 2100/A50; Avanti (PCI/ISA)", -[14] "DEC MUSTANG; Mustang", -[15] "DEC KN20AA; kn20aa (PCI/EISA)", -[17] "DEC 1000; Mikasa (PCI/ISA?)", -[19] "EB66; EB66 (PCI/ISA?)", // DEC? -[20] "EB64P; EB64+ (PCI/ISA?)", // DEC? -[21] "Alphabook1; Alphabook", -[22] "DEC 4100; Rawhide (PCI/EISA)", -[23] "DEC EV45/PBP; Lego", -[24] "DEC 2100A/A500; Lynx", -[26] "DEC AlphaPC 164", // only supported one: "EB164 (PCI/ISA)" -[27] "DEC 1000A; Noritake", -[28] "DEC AlphaVME/224; Cortex", -[30] "DEC 550; Miata (PCI/ISA)", -[32] "DEC EV56/PBP; Takara", -[33] "DEC AlphaVME/320; Yukon (VME?)", -[34] "DEC 6600; MonetGoldrush", -// 200 and up is Alpha Processor Inc. machines -// [201] "API UP1000; Nautilus", -}; - -static char *cpunames[] = -{ -[1] "EV3", -[2] "EV4: 21064", -[3] "Simulation", -[4] "LCA4: 2106[68]", -[5] "EV5: 21164", -[6] "EV45: 21064A", -[7] "21164A", /* only supported one: EV56 */ -[8] "EV6: 21264", -[9] "PCA256: 21164PC", -}; - -void -cpuidprint(void) -{ - int i, maj, min; - Hwcpu *cpu; - Hwdsr *dsr; - char *s; - - print("\n"); - - if (hwrpb->rev >= 6) { - dsr = (Hwdsr*)((ulong)hwrpb + hwrpb->dsroff); - - s = (char*)dsr + dsr->sysnameoff + 8; - print("%s\n", s); - } - else { - s = ""; - if (hwrpb->systype < nelem(sysnames)) - s = sysnames[hwrpb->systype]; - print("%s (%llux, %llux, %llux)\n", s, hwrpb->systype, hwrpb->sysvar, hwrpb->sysrev); - } - - for (i = 0; i < hwrpb->ncpu; i++) { - cpu = (Hwcpu*) ((ulong)hwrpb + hwrpb->cpuoff + i*hwrpb->cpulen); - s = ""; - maj = (ulong)cpu->cputype; - min = (ulong)(cpu->cputype>>32); - if (maj < nelem(cpunames)) - s = cpunames[maj]; - print("cpu%d: %s-%d (%d.%d, %llux, %llux)\n", - i, s, min, maj, min, cpu->cpuvar, cpu->cpurev); - } - - print("\n"); -} - -static long -cputyperead(Chan*, void *a, long n, vlong offset) -{ - char str[32], *cputype; - ulong mhz, maj; - Hwcpu *cpu; - - mhz = (m->cpuhz+999999)/1000000; - cpu = (Hwcpu*) ((ulong)hwrpb + hwrpb->cpuoff); /* NB CPU 0 */ - cputype = "unknown"; - maj = (ulong)cpu->cputype; - if (maj < nelem(cpunames)) - cputype = cpunames[maj]; - - snprint(str, sizeof(str), "%s %lud\n", cputype, mhz); - return readstr(offset, a, n, str); -} - -void -archinit(void) -{ - PCArch **p; - - arch = 0; - for(p = knownarch; *p; p++){ - if((*p)->ident && (*p)->ident() == 0){ - arch = *p; - break; - } - } - if(arch == 0) - arch = &archgeneric; - - addarchfile("cputype", 0444, cputyperead, nil); -} - -int -pcmspecial(char *idstr, ISAConf *isa) -{ - return (_pcmspecial != nil)? _pcmspecial(idstr, isa): -1; -} - -void -pcmspecialclose(int a) -{ - if (_pcmspecialclose != nil) - _pcmspecialclose(a); -} diff --git a/sys/src/9/alphapc/devvga.c b/sys/src/9/alphapc/devvga.c deleted file mode 100644 index 551a19797..000000000 --- a/sys/src/9/alphapc/devvga.c +++ /dev/null @@ -1,407 +0,0 @@ -/* - * VGA controller - */ -#include "u.h" -#include "../port/lib.h" -#include "mem.h" -#include "dat.h" -#include "fns.h" -#include "io.h" -#include "../port/error.h" - -#define Image IMAGE -#include -#include -#include -#include "screen.h" - -extern uchar *vgabios; - -enum { - Qdir, - Qvgactl, - Qvgabios, -}; - -static Dirtab vgadir[] = { - ".", { Qdir, 0, QTDIR }, 0, 0550, - "vgactl", { Qvgactl, 0 }, 0, 0660, - "vgabios", { Qvgabios, 0 }, 0x10000, 0440, -}; - -static void -vgareset(void) -{ - /* reserve the 'standard' vga registers */ - if(ioalloc(0x2b0, 0x2df-0x2b0+1, 0, "vga") < 0) - panic("vga ports already allocated"); - if(ioalloc(0x3c0, 0x3da-0x3c0+1, 0, "vga") < 0) - panic("vga ports already allocated"); - conf.monitor = 1; -} - -static Chan* -vgaattach(char* spec) -{ - if(*spec && strcmp(spec, "0")) - error(Eio); - return devattach('v', spec); -} - -Walkqid* -vgawalk(Chan* c, Chan *nc, char** name, int nname) -{ - return devwalk(c, nc, name, nname, vgadir, nelem(vgadir), devgen); -} - -static int -vgastat(Chan* c, uchar* dp, int n) -{ - return devstat(c, dp, n, vgadir, nelem(vgadir), devgen); -} - -static Chan* -vgaopen(Chan* c, int omode) -{ - return devopen(c, omode, vgadir, nelem(vgadir), devgen); -} - -static void -vgaclose(Chan*) -{ -} - -static void -checkport(int start, int end) -{ - /* standard vga regs are OK */ - if(start >= 0x2b0 && end <= 0x2df+1) - return; - if(start >= 0x3c0 && end <= 0x3da+1) - return; - - if(iounused(start, end)) - return; - error(Eperm); -} - -static long -vgaread(Chan* c, void* a, long n, vlong off) -{ - int len; - char *p, *s; - VGAscr *scr; - ulong offset = off; - char chbuf[30]; - - switch((ulong)c->qid.path){ - - case Qdir: - return devdirread(c, a, n, vgadir, nelem(vgadir), devgen); - - case Qvgactl: - scr = &vgascreen[0]; - - p = malloc(READSTR); - if(waserror()){ - free(p); - nexterror(); - } - - len = 0; - - if(scr->dev) - s = scr->dev->name; - else - s = "cga"; - len += snprint(p+len, READSTR-len, "type %s\n", s); - - if(scr->gscreen) { - len += snprint(p+len, READSTR-len, "size %dx%dx%d %s\n", - scr->gscreen->r.max.x, scr->gscreen->r.max.y, - scr->gscreen->depth, chantostr(chbuf, scr->gscreen->chan)); - - if(Dx(scr->gscreen->r) != Dx(physgscreenr) - || Dy(scr->gscreen->r) != Dy(physgscreenr)) - len += snprint(p+len, READSTR-len, "actualsize %dx%d\n", - physgscreenr.max.x, physgscreenr.max.y); - } - - len += snprint(p+len, READSTR-len, "blanktime %lud\n", blanktime); - len += snprint(p+len, READSTR-len, "hwaccel %s\n", hwaccel ? "on" : "off"); - len += snprint(p+len, READSTR-len, "hwblank %s\n", hwblank ? "on" : "off"); - snprint(p+len, READSTR-len, "addr 0x%lux\n", scr->paddr); - n = readstr(offset, a, n, p); - poperror(); - free(p); - - return n; - - case Qvgabios: - if(vgabios == nil) - error(Egreg); - if(offset&0x80000000) - offset &= ~0x800E0000; - if(offset+n > 0x10000) - n = 0x10000-offset; - if(n < 0) - return 0; - memmove(a, vgabios+offset, n); - return n; - - default: - error(Egreg); - break; - } - - return 0; -} - -static char Ebusy[] = "vga already configured"; - -static void -vgactl(char* a) -{ - int align, i, n, size, x, y, z; - char *chanstr, *field[6], *p; - ulong chan; - VGAscr *scr; - extern VGAdev *vgadev[]; - extern VGAcur *vgacur[]; - Rectangle r; - - n = tokenize(a, field, nelem(field)); - if(n < 1) - error(Ebadarg); - - scr = &vgascreen[0]; - if(strcmp(field[0], "hwgc") == 0){ - if(n < 2) - error(Ebadarg); - - if(strcmp(field[1], "off") == 0){ - lock(&cursor); - if(scr->cur){ - if(scr->cur->disable) - scr->cur->disable(scr); - scr->cur = nil; - } - unlock(&cursor); - return; - } - - for(i = 0; vgacur[i]; i++){ - if(strcmp(field[1], vgacur[i]->name)) - continue; - lock(&cursor); - if(scr->cur && scr->cur->disable) - scr->cur->disable(scr); - scr->cur = vgacur[i]; - if(scr->cur->enable) - scr->cur->enable(scr); - unlock(&cursor); - return; - } - } - else if(strcmp(field[0], "type") == 0){ - if(n < 2) - error(Ebadarg); - - for(i = 0; vgadev[i]; i++){ - if(strcmp(field[1], vgadev[i]->name)) - continue; - if(scr->dev && scr->dev->disable) - scr->dev->disable(scr); - scr->dev = vgadev[i]; - if(scr->dev->enable) - scr->dev->enable(scr); - return; - } - } - else if(strcmp(field[0], "size") == 0){ - if(n < 3) - error(Ebadarg); - if(drawhasclients()) - error(Ebusy); - - x = strtoul(field[1], &p, 0); - if(x == 0 || x > 2048) - error(Ebadarg); - if(*p) - p++; - - y = strtoul(p, &p, 0); - if(y == 0 || y > 2048) - error(Ebadarg); - if(*p) - p++; - - z = strtoul(p, &p, 0); - - chanstr = field[2]; - if((chan = strtochan(chanstr)) == 0) - error("bad channel"); - - if(chantodepth(chan) != z) - error("depth, channel do not match"); - - cursoroff(1); - deletescreenimage(); - if(screensize(x, y, z, chan)) - error(Egreg); - vgascreenwin(scr); - cursoron(1); - return; - } - else if(strcmp(field[0], "actualsize") == 0){ - if(scr->gscreen == nil) - error("set the screen size first"); - - if(n < 2) - error(Ebadarg); - x = strtoul(field[1], &p, 0); - if(x == 0 || x > 2048) - error(Ebadarg); - if(*p) - p++; - - y = strtoul(p, nil, 0); - if(y == 0 || y > 2048) - error(Ebadarg); - - if(x > scr->gscreen->r.max.x || y > scr->gscreen->r.max.y) - error("physical screen bigger than virtual"); - - r = Rect(0,0,x,y); - if(!eqrect(r, scr->gscreen->r)){ - if(scr->cur == nil || scr->cur->doespanning == 0) - error("virtual screen not supported"); - } - - physgscreenr = r; - return; - } - else if(strcmp(field[0], "palettedepth") == 0){ - if(n < 2) - error(Ebadarg); - - x = strtoul(field[1], &p, 0); - if(x != 8 && x != 6) - error(Ebadarg); - - scr->palettedepth = x; - return; - } - else if(strcmp(field[0], "drawinit") == 0){ - if(scr && scr->dev && scr->dev->drawinit) - scr->dev->drawinit(scr); - return; - } - else if(strcmp(field[0], "linear") == 0){ - if(n < 2) - error(Ebadarg); - - size = strtoul(field[1], 0, 0); - if(n < 3) - align = 0; - else - align = strtoul(field[2], 0, 0); - if(screenaperture(size, align)) - error("not enough free address space"); - return; - } -/* else if(strcmp(field[0], "memset") == 0){ - if(n < 4) - error(Ebadarg); - memset((void*)strtoul(field[1], 0, 0), atoi(field[2]), atoi(field[3])); - return; - } -*/ - else if(strcmp(field[0], "blank") == 0){ - if(n < 1) - error(Ebadarg); - drawblankscreen(1); - return; - } - else if(strcmp(field[0], "blanktime") == 0){ - if(n < 2) - error(Ebadarg); - blanktime = strtoul(field[1], 0, 0); - return; - } - else if(strcmp(field[0], "hwaccel") == 0){ - if(n < 2) - error(Ebadarg); - if(strcmp(field[1], "on") == 0) - hwaccel = 1; - else if(strcmp(field[1], "off") == 0) - hwaccel = 0; - return; - } - else if(strcmp(field[0], "hwblank") == 0){ - if(n < 2) - error(Ebadarg); - if(strcmp(field[1], "on") == 0) - hwblank = 1; - else if(strcmp(field[1], "off") == 0) - hwblank = 0; - return; - } - - error(Ebadarg); -} - -static long -vgawrite(Chan* c, void* a, long n, vlong off) -{ - char *p; - ulong offset = off; - - switch((ulong)c->qid.path){ - - case Qdir: - error(Eperm); - - case Qvgactl: - if(offset || n >= READSTR) - error(Ebadarg); - p = malloc(READSTR); - if(waserror()){ - free(p); - nexterror(); - } - memmove(p, a, n); - p[n] = 0; - vgactl(p); - poperror(); - free(p); - return n; - - default: - error(Egreg); - break; - } - - return 0; -} - -Dev vgadevtab = { - 'v', - "vga", - - vgareset, - devinit, - devshutdown, - vgaattach, - vgawalk, - vgastat, - vgaopen, - devcreate, - vgaclose, - vgaread, - devbread, - vgawrite, - devbwrite, - devremove, - devwstat, -}; diff --git a/sys/src/9/alphapc/dma.c b/sys/src/9/alphapc/dma.c deleted file mode 100644 index 6382c1beb..000000000 --- a/sys/src/9/alphapc/dma.c +++ /dev/null @@ -1,331 +0,0 @@ -#include "u.h" -#include "../port/lib.h" -#include "mem.h" -#include "dat.h" -#include "fns.h" - -#include "io.h" - -typedef struct DMAport DMAport; -typedef struct DMA DMA; -typedef struct DMAxfer DMAxfer; - -/* - * state of a dma transfer - */ -struct DMAxfer -{ - ulong bpa; /* bounce buffer physical address */ - void* bva; /* bounce buffer virtual address */ - int blen; /* bounce buffer length */ - void* va; /* virtual address destination/src */ - long len; /* bytes to be transferred */ - int isread; -}; - -/* - * the dma controllers. the first half of this structure specifies - * the I/O ports used by the DMA controllers. - */ -struct DMAport -{ - uchar addr[4]; /* current address (4 channels) */ - uchar count[4]; /* current count (4 channels) */ - uchar page[4]; /* page registers (4 channels) */ - uchar cmd; /* command status register */ - uchar req; /* request registers */ - uchar sbm; /* single bit mask register */ - uchar mode; /* mode register */ - uchar cbp; /* clear byte pointer */ - uchar mc; /* master clear */ - uchar cmask; /* clear mask register */ - uchar wam; /* write all mask register bit */ -}; - -struct DMA -{ - DMAport; - int shift; - Lock; - DMAxfer x[4]; -}; - -DMA dma[2] = { - { 0x00, 0x02, 0x04, 0x06, - 0x01, 0x03, 0x05, 0x07, - 0x87, 0x83, 0x81, 0x82, - 0x08, 0x09, 0x0a, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f, - 0 }, - - { 0xc0, 0xc4, 0xc8, 0xcc, - 0xc2, 0xc6, 0xca, 0xce, - 0x8f, 0x8b, 0x89, 0x8a, - 0xd0, 0xd2, 0xd4, 0xd6, 0xd8, 0xda, 0xdc, 0xde, - 1 }, -}; - -extern int i8237dma; -static void* i8237bva[2]; -static int i8237used; - -/* - * DMA must be in the first 16MB. This gets called early by the - * initialisation routines of any devices which require DMA to ensure - * the allocated bounce buffers are below the 16MB limit. - */ -void -_i8237alloc(void) -{ - void* bva; - - if(i8237dma <= 0) - return; - if(i8237dma > 2) - i8237dma = 2; - - bva = xspanalloc(64*1024*i8237dma, BY2PG, 64*1024); - if(bva == nil || PADDR(bva)+64*1024*i8237dma > 16*MB){ - /* - * This will panic with the current - * implementation of xspanalloc(). - if(bva != nil) - xfree(bva); - */ - return; - } - - i8237bva[0] = bva; - if(i8237dma == 2) - i8237bva[1] = ((uchar*)i8237bva[0])+64*1024; -} - -static void -dmastatus(DMA *dp, int chan, char c) -{ - int a, l, s; - - ilock(dp); - outb(dp->cbp, 0); - a = inb(dp->addr[chan]); - a |= inb(dp->addr[chan])<<8; - a |= inb(dp->page[chan])<<16; - a |= inb(0x400|dp->page[chan])<<24; - outb(dp->cbp, 0); - l = inb(dp->count[chan]); - l |= inb(dp->count[chan])<<8; - s = inb(dp->cmd); - iunlock(dp); - print("%c: addr %uX len %uX stat %uX\n", c, a, l, s); -} - -int -dmainit(int chan, int maxtransfer) -{ - DMA *dp; - DMAxfer *xp; - static int once; - - if(once == 0){ - if(ioalloc(0x00, 0x10, 0, "dma") < 0 - || ioalloc(0x80, 0x10, 0, "dma") < 0 - || ioalloc(0xd0, 0x10, 0, "dma") < 0) - panic("dmainit"); - outb(dma[0].mc, 0); - outb(dma[1].mc, 0); - outb(dma[0].cmask, 0); - outb(dma[1].cmask, 0); - outb(dma[1].mode, 0xC0); - once = 1; - } - - if(maxtransfer > 64*1024) - maxtransfer = 64*1024; - - dp = &dma[(chan>>2)&1]; - chan = chan & 3; - xp = &dp->x[chan]; - if(xp->bva != nil){ - if(xp->blen < maxtransfer) - return 1; - return 0; - } -//dmastatus(dp, chan, 'I'); - - if(i8237used >= i8237dma || i8237bva[i8237used] == nil){ - print("no i8237 DMA bounce buffer < 16MB\n"); - return 1; - } - xp->bva = i8237bva[i8237used++]; - xp->bpa = PADDR(xp->bva); - xp->blen = maxtransfer; - xp->len = 0; - xp->isread = 0; - - return 0; -} - -void -xdmastatus(int chan) -{ - DMA *dp; - - dp = &dma[(chan>>2)&1]; - chan = chan & 3; - - dmastatus(dp, chan, 'X'); -} - -/* - * setup a dma transfer. if the destination is not in kernel - * memory, allocate a page for the transfer. - * - * we assume BIOS has set up the command register before we - * are booted. - * - * return the updated transfer length (we can't transfer across 64k - * boundaries) - */ -long -dmasetup(int chan, void *va, long len, int isread) -{ - DMA *dp; - ulong pa; - uchar mode; - DMAxfer *xp; - - dp = &dma[(chan>>2)&1]; - chan = chan & 3; - xp = &dp->x[chan]; -//print("va%lux+", va); -#define tryPCI -#ifndef PCIWADDR -#define PCIWADDR(va) PADDR(va) -#endif /* PCIWADDR */ -#ifdef notdef - - /* - * if this isn't kernel memory or crossing 64k boundary or above 16 meg - * use the bounce buffer. - */ - pa = PADDR(va); - if((((ulong)va)&0xF0000000) != KZERO - || (pa&0xFFFF0000) != ((pa+len)&0xFFFF0000) - || pa >= 16*MB) { - if(xp->bva == nil) - return -1; - if(len > xp->blen) - len = xp->blen; - if(!isread) - memmove(xp->bva, va, len); - xp->va = va; - xp->len = len; - xp->isread = isread; - pa = xp->bpa; - } - else - xp->len = 0; -#endif /* notdef */ -#ifdef tryISA - pa = ISAWADDR(va); -#endif /* tryISA */ -#ifdef tryPCI - pa = PCIWADDR(va); - if((((ulong)va)&0xF0000000) != KZERO){ - if(xp->bva == nil) - return -1; - if(len > xp->blen) - len = xp->blen; - if(!isread) - memmove(xp->bva, va, len); - xp->va = va; - xp->len = len; - xp->isread = isread; - pa = PCIWADDR(xp->bva); - } - else - xp->len = 0; -#endif /* tryPCI */ - - /* - * this setup must be atomic - */ - mode = (isread ? 0x44 : 0x48) | chan; - ilock(dp); - outb(dp->cbp, 0); /* set count & address to their first byte */ - outb(dp->mode, mode); /* single mode dma (give CPU a chance at mem) */ - outb(dp->addr[chan], pa>>dp->shift); /* set address */ - outb(dp->addr[chan], pa>>(8+dp->shift)); - outb(dp->page[chan], pa>>16); -#ifdef tryPCI - outb(0x400|dp->page[chan], pa>>24); -#endif /* tryPCI */ - outb(dp->cbp, 0); /* set count & address to their first byte */ - outb(dp->count[chan], (len>>dp->shift)-1); /* set count */ - outb(dp->count[chan], ((len>>dp->shift)-1)>>8); - outb(dp->sbm, chan); /* enable the channel */ - iunlock(dp); -//dmastatus(dp, chan, 'S'); - - return len; -} - -int -dmadone(int chan) -{ - DMA *dp; - - dp = &dma[(chan>>2)&1]; - chan = chan & 3; - - return inb(dp->cmd) & (1<>2)&1]; - chan = chan & 3; - -//dmastatus(dp, chan, 'E'); - /* - * disable the channel - */ - ilock(dp); - outb(dp->sbm, 4|chan); - iunlock(dp); - - xp = &dp->x[chan]; - if(xp->len == 0 || !xp->isread) - return; - - /* - * copy out of temporary page - */ - memmove(xp->va, xp->bva, xp->len); - xp->len = 0; -} - -/* -int -dmacount(int chan) -{ - int retval; - DMA *dp; - - dp = &dma[(chan>>2)&1]; - outb(dp->cbp, 0); - retval = inb(dp->count[chan]); - retval |= inb(dp->count[chan]) << 8; - return((retval<shift)+1); -} - */ diff --git a/sys/src/9/alphapc/etherif.h b/sys/src/9/alphapc/etherif.h deleted file mode 100644 index c044e75ef..000000000 --- a/sys/src/9/alphapc/etherif.h +++ /dev/null @@ -1,41 +0,0 @@ -enum { - MaxEther = 24, - Ntypes = 8, -}; - -typedef struct Ether Ether; -struct Ether { - ISAConf; /* hardware info */ - - int ctlrno; - int tbdf; /* type+busno+devno+funcno */ - int minmtu; - int maxmtu; - uchar ea[Eaddrlen]; - - void (*attach)(Ether*); /* filled in by reset routine */ - void (*detach)(Ether*); /* NEW, from ../pc */ - void (*transmit)(Ether*); - void (*interrupt)(Ureg*, void*); - long (*ifstat)(Ether*, void*, long, ulong); - long (*ctl)(Ether*, void*, long); /* custom ctl messages */ -/* START NEW, from ../pc */ - void (*power)(Ether*, int); /* power on/off */ - void (*shutdown)(Ether*); /* shutdown hardware before reboot */ -/* END NEW */ - void *ctlr; - - Queue* oq; - - Netif; -}; - -extern Block* etheriq(Ether*, Block*, int); -extern void addethercard(char*, int(*)(Ether*)); -extern ulong ethercrc(uchar*, int); -extern int parseether(uchar*, char*); - -#define NEXT(x, l) (((x)+1)%(l)) -#define PREV(x, l) (((x) == 0) ? (l)-1: (x)-1) -#define HOWMANY(x, y) (((x)+((y)-1))/(y)) -#define ROUNDUP(x, y) (HOWMANY((x), (y))*(y)) diff --git a/sys/src/9/alphapc/faultalpha.c b/sys/src/9/alphapc/faultalpha.c deleted file mode 100644 index c2d646905..000000000 --- a/sys/src/9/alphapc/faultalpha.c +++ /dev/null @@ -1,62 +0,0 @@ -#include "u.h" -#include "../port/lib.h" -#include "mem.h" -#include "dat.h" -#include "fns.h" -#include "ureg.h" -#include "../port/error.h" - -/* - * find out fault address and type of access. - * Call common fault handler. - */ -void -faultalpha(Ureg *ur) -{ - ulong addr, cause; - int read, user; - char buf[ERRMAX]; - uvlong x; - - x = ur->a0&0xffffffff80000000LL; - if (x != 0LL && x != 0xffffffff80000000LL) - iprint("faultalpha bad addr %llux pc %llux\n", ur->a0, ur->pc); - - addr = (ulong)ur->a0; - cause = (ulong)ur->a2; - addr &= ~(BY2PG-1); - read = (cause !=1); - user = (ulong)ur->status&UMODE; - -/* print("fault %s pc=0x%lux addr=0x%lux 0x%lux\n", - read? (cause != 0) ? "ifetch" : "read" : "write", (ulong)ur->pc, addr, (ulong)ur->a1); /**/ - - if(fault(addr, read) == 0) - return; - - if(user){ - sprint(buf, "sys: trap: fault %s addr=0x%lux", - read? (cause != 0) ? "ifetch" : "read" : "write", (ulong)ur->a0); - postnote(up, 1, buf, NDebug); - return; - } - - iprint("kernel %s vaddr=0x%lux\n", read? (cause != 0) ? "ifetch" : "read" : "write", (ulong)ur->a0); - if(0) - mmudump(); - dumpregs(ur); - _dumpstack(ur); - exit(1); -} - -/* - * called in sysfile.c - */ -void -evenaddr(ulong addr) -{ - if(addr & 3){ - postnote(up, 1, "sys: odd address", NDebug); - error(Ebadarg); - } -} diff --git a/sys/src/9/alphapc/fdc37c93x.c b/sys/src/9/alphapc/fdc37c93x.c deleted file mode 100644 index ce2a63963..000000000 --- a/sys/src/9/alphapc/fdc37c93x.c +++ /dev/null @@ -1,66 +0,0 @@ -#include "u.h" -#include "../port/lib.h" -#include "mem.h" -#include "dat.h" -#include "fns.h" -#include "io.h" - -/* - * SMC FDC37C93x Plug and Play Compatible Ultra I/O Controller. - */ -enum { /* I/O Ports */ - Config = 0x370, /* could also be 0x3F0 */ - - Index = 0, - Data = 1, -}; - -static int fddregs[] = { - 0x30, - 0x60, 0x61, - 0x70, - 0x74, - 0xF0, - 0xF1, - 0xF2, - 0xF4, - 0xF5, - 0, -}; - -#define OUTB(p, d) outb(p, d); microdelay(10); - -void -fdc37c93xdump(void) -{ - int config, i, x; - - config = Config; - - OUTB(config, 0x55); - OUTB(config, 0x55); - - OUTB(config+Index, 0x20); - x = inb(config+Data); - print("fdc37c93x: Device ID 0x%2.2uX\n", x); - OUTB(config+Index, 0x22); - x = inb(config+Data); - print("fdc37c93x: Power/Control 0x%2.2uX\n", x); - - OUTB(config+Index, 0x07); - OUTB(config+Data, 0); - for(i = 0; fddregs[i]; i++){ - OUTB(config+Index, fddregs[i]); - x = inb(config+Data); - print("FDD%2.2uX: 0x%2.2uX\n", fddregs[i], x); - } - - OUTB(config+Index, 0x70); - OUTB(config+Data, 0x06); - OUTB(config+Index, 0x74); - OUTB(config+Data, 0x02); - OUTB(config+Index, 0x30); - OUTB(config+Data, 0x01); - - OUTB(config, 0xAA); -} diff --git a/sys/src/9/alphapc/floppy.h b/sys/src/9/alphapc/floppy.h deleted file mode 100644 index 08dc1dd67..000000000 --- a/sys/src/9/alphapc/floppy.h +++ /dev/null @@ -1,181 +0,0 @@ -typedef struct FController FController; -typedef struct FDrive FDrive; -typedef struct FType FType; - -static void floppyintr(Ureg*); -static int floppyon(FDrive*); -static void floppyoff(FDrive*); -static void floppysetdef(FDrive*); - -/* - * a floppy drive - */ -struct FDrive -{ - FType *t; /* floppy type */ - int dt; /* drive type */ - int dev; - - ulong lasttouched; /* time last touched */ - int cyl; /* current arm position */ - int confused; /* needs to be recalibrated */ - int vers; - int maxtries; /* max read attempts before Eio */ - - int tcyl; /* target cylinder */ - int thead; /* target head */ - int tsec; /* target sector */ - long len; /* size of xfer */ - - uchar *cache; /* track cache */ - int ccyl; - int chead; - - Rendez r; /* waiting here for motor to spin up */ -}; - -/* - * controller for 4 floppys - */ -struct FController -{ - QLock; /* exclusive access to the contoller */ - - int ndrive; - FDrive *d; /* the floppy drives */ - FDrive *selected; - int rate; /* current rate selected */ - uchar cmd[14]; /* command */ - int ncmd; /* # command bytes */ - uchar stat[14]; /* command status */ - int nstat; /* # status bytes */ - int confused; /* controler needs to be reset */ - Rendez r; /* wait here for command termination */ - int motor; /* bit mask of spinning disks */ - Rendez kr; /* for motor watcher */ -}; - -/* - * floppy types (all MFM encoding) - */ -struct FType -{ - char *name; - int dt; /* compatible drive type */ - int bytes; /* bytes/sector */ - int sectors; /* sectors/track */ - int heads; /* number of heads */ - int steps; /* steps per cylinder */ - int tracks; /* tracks/disk */ - int gpl; /* intersector gap length for read/write */ - int fgpl; /* intersector gap length for format */ - int rate; /* rate code */ - - /* - * these depend on previous entries and are set filled in - * by floppyinit - */ - int bcode; /* coded version of bytes for the controller */ - long cap; /* drive capacity in bytes */ - long tsize; /* track size in bytes */ -}; -/* bits in the registers */ -enum -{ - /* status registers a & b */ - Psra= 0x3f0, - Psrb= 0x3f1, - - /* digital output register */ - Pdor= 0x3f2, - Fintena= 0x8, /* enable floppy interrupt */ - Fena= 0x4, /* 0 == reset controller */ - - /* main status register */ - Pmsr= 0x3f4, - Fready= 0x80, /* ready to be touched */ - Ffrom= 0x40, /* data from controller */ - Ffloppybusy= 0x10, /* operation not over */ - - /* data register */ - Pfdata= 0x3f5, - Frecal= 0x07, /* recalibrate cmd */ - Fseek= 0x0f, /* seek cmd */ - Fsense= 0x08, /* sense cmd */ - Fread= 0x66, /* read cmd */ - Freadid= 0x4a, /* read track id */ - Fspec= 0x03, /* set hold times */ - Fwrite= 0x45, /* write cmd */ - Fformat= 0x4d, /* format cmd */ - Fmulti= 0x80, /* or'd with Fread or Fwrite for multi-head */ - Fdumpreg= 0x0e, /* dump internal registers */ - - /* digital input register */ - Pdir= 0x3F7, /* disk changed port (read only) */ - Pdsr= 0x3F7, /* data rate select port (write only) */ - Fchange= 0x80, /* disk has changed */ - - /* status 0 byte */ - Drivemask= 3<<0, - Seekend= 1<<5, - Codemask= (3<<6)|(3<<3), - Cmdexec= 1<<6, - - /* status 1 byte */ - Overrun= 0x10, -}; - - -static void -pcfloppyintr(Ureg *ur, void *a) -{ - USED(a); - - floppyintr(ur); -} - -void -floppysetup0(FController *fl) -{ - fl->ndrive = 0; - if(ioalloc(Psra, 6, 0, "floppy") < 0) - return; - if(ioalloc(Pdir, 1, 0, "floppy") < 0){ - iofree(Psra); - return; - } - fl->ndrive = 1; -} - -void -floppysetup1(FController *fl) -{ - if(fl->ndrive > 0){ - fl->d[0].dt = 4; - floppysetdef(&fl->d[0]); - } - if(fl->ndrive > 1){ - fl->d[1].dt = 4; - floppysetdef(&fl->d[1]); - } - - intrenable(IrqFLOPPY, pcfloppyintr, fl, BUSUNKNOWN, "floppy"); -} - -/* - * eject disk - */ -void -floppyeject(FDrive *dp) -{ - floppyon(dp); - dp->vers++; - floppyoff(dp); -} - -int -floppyexec(char *a, long b, int c) -{ - USED(a, b, c); - return b; -} diff --git a/sys/src/9/alphapc/fns.h b/sys/src/9/alphapc/fns.h deleted file mode 100644 index 6470d40c9..000000000 --- a/sys/src/9/alphapc/fns.h +++ /dev/null @@ -1,128 +0,0 @@ -#include "../port/portfns.h" - -Dirtab* addarchfile(char*, int, long(*)(Chan*,void*,long,vlong), long(*)(Chan*,void*,long,vlong)); -void archinit(void); -void arginit(void); -void arith(void); -ulong cankaddr(ulong); -void clock(Ureg*); -void clockinit(void); -void clockintrsched(void); -#define coherence mb -int cistrcmp(char*, char*); -int cistrncmp(char*, char*, int); -int cmpswap(long*, long, long); -void cpuidprint(void); -void cserve(ulong, ulong); -#define cycles(x) do{}while(0) -void timeradd(Timer *); -void timerdel(Timer *); -int dmacount(int); -int dmadone(int); -void dmaend(int); -int dmainit(int, int); -long dmasetup(int, void*, long, int); -void _dumpstack(Ureg *); -void evenaddr(ulong); -void fataltrap(Ureg *, char *); -void fault0(void); -void faultalpha(Ureg*); -ulong fcr31(void); -void firmware(void); -void fpenab(int); -void fptrap(Ureg*); -int getcfields(char*, char**, int, char*); -char *getconf(char*); -int havetimer(void); -int i8042auxcmd(int); -void i8042auxenable(void (*)(int, int)); -void i8042reset(void); -void i8250console(void); -void i8250mouse(char*, int(*)(Queue*,int), int); -void i8250setmouseputc(char*, int (*)(Queue*, int)); -void i8259init(void); -int i8259enable(int, int, Vctl*); -#define idlehands() /* nothing to do in the runproc */ -void icflush(void); -void illegal0(void); -void intr0(void); -void intrenable(int, void (*)(Ureg*, void*), void*, int, char*); -int intrdisable(int, void (*)(Ureg *, void *), void*, int, char*); -int ioalloc(int, int, int, char*); -void iofree(int); -void ioinit(void); -int iounused(int, int); -int irqallocread(char*, long, vlong); -int isaconfig(char*, int, ISAConf*); -#define kexit(a) -#define kmapinval() -void *kmapv(uvlong, int); -int kprint(char*, ...); -void links(void); -void mb(void); -void memholes(void); -ulong meminit(void); -void mmudump(void); -void mmuinit(void); -void mmupark(void); -#define mtrr(a, b, c) -ulong pcibarsize(Pcidev*, int); -int pcicfgr8(Pcidev*, int); -int pcicfgr16(Pcidev*, int); -int pcicfgr32(Pcidev*, int); -void pcicfgw8(Pcidev*, int, int); -void pcicfgw16(Pcidev*, int, int); -void pcicfgw32(Pcidev*, int, int); -void pciclrbme(Pcidev*); -void pcihinv(Pcidev*); -Pcidev* pcimatch(Pcidev*, int, int); -Pcidev* pcimatchtbdf(int); -void pcireset(void); -void pcisetbme(Pcidev*); -int pcmspecial(char*, ISAConf*); -int (*_pcmspecial)(char *, ISAConf *); -void pcmspecialclose(int); -void (*_pcmspecialclose)(int); -void prflush(void); -void printinit(void); -#define procrestore(p) -void procsave(Proc*); -void procsetup(Proc*); -void procfork(Proc*); -void restfpregs(FPsave*); -uvlong rpcc(uvlong*); -void screeninit(void); -void (*screenputs)(char*, int); -void setpcb(PCB *); -PCB *swpctx(PCB *); -void syscall0(void); -int tas(ulong*); -void tlbflush(int, ulong); -void touser(void*); -void trapinit(void); -void unaligned(void); -ulong upaalloc(int, int); -void upafree(ulong, int); -#define userureg(ur) ((ur)->status & UMODE) -void* vmap(ulong, int); -void wrent(int, void*); -void wrvptptr(uvlong); -void vunmap(void*, int); - -#define waserror() (up->nerrlab++, setlabel(&up->errlab[up->nerrlab-1])) -#define KADDR(a) ((void*)((ulong)(a)|KZERO)) -#define PADDR(a) ((ulong)(a)&~KZERO) - -#define inb(p) (arch->_inb)(p) -#define ins(p) (arch->_ins)(p) -#define inl(p) (arch->_inl)(p) -#define outb(p, x) (arch->_outb)((p), (x)) -#define outs(p, x) (arch->_outs)((p), (x)) -#define outl(p, x) (arch->_outl)((p), (x)) - -#define insb(p, buf, len) (arch->_insb)((p), (buf), (len)) -#define inss(p, buf, len) (arch->_inss)((p), (buf), (len)) -#define insl(p, buf, len) (arch->_insl)((p), (buf), (len)) -#define outsb(p, buf, len) (arch->_outsb)((p), (buf), (len)) -#define outss(p, buf, len) (arch->_outss)((p), (buf), (len)) -#define outsl(p, buf, len) (arch->_outsl)((p), (buf), (len)) diff --git a/sys/src/9/alphapc/fptrap.c b/sys/src/9/alphapc/fptrap.c deleted file mode 100644 index 7b3c5a868..000000000 --- a/sys/src/9/alphapc/fptrap.c +++ /dev/null @@ -1,46 +0,0 @@ -#include "u.h" -#include "../port/lib.h" -#include "mem.h" -#include "dat.h" -#include "fns.h" -#include "ureg.h" -#include "io.h" -#include "../port/error.h" - -char *fpcause[] = -{ - "invalid operation", - "division by zero", - "overflow", - "underflow", - "inexact operation", - "integer overflow", -}; -char *fpexcname(Ureg*, ulong, char*); - -void -fptrap(Ureg *ur) -{ - char buf[ERRMAX]; - int i; - ulong reason; - - ur->pc &= ~2; - reason = (ulong)ur->a0; - for (i = 1; i < 6; i++) - if (reason & (1<= VectorPIC && v <= MaxVectorPIC){ - isr = inb(Int0ctl); - outb(Int0ctl, EOI); - if(v >= VectorPIC+8){ - isr |= inb(Int1ctl)<<8; - outb(Int1ctl, EOI); - } - } - - return isr & (1<<(v-VectorPIC)); -} - -int -i8259enable(int v, int, Vctl* vctl) -{ - if(v > MaxIrqPIC){ - print("i8259enable: vector %d out of range\n", v); - return -1; - } - - /* - * enable corresponding interrupt in 8259 - */ - if(v < 8){ - int0mask &= ~(1<eoi = i8259isr; - else - vctl->isr = i8259isr; - vctl->isintr = 1; - - return v; -} diff --git a/sys/src/9/alphapc/initcode b/sys/src/9/alphapc/initcode deleted file mode 100644 index a43139dea..000000000 --- a/sys/src/9/alphapc/initcode +++ /dev/null @@ -1,47 +0,0 @@ -#include "/sys/src/libc/9syscall/sys.h" - -/* - * we pass in the argument of the exec parameters as 0(FP) - */ - -TEXT main(SB),$16 - - MOVQ $setSB(SB), R29 - MOVQ $boot(SB), R0 - ADDQ $24, R30, R1 /* get a pointer to 0(FP) */ - MOVL R0, 8(R30) - MOVL R1, 12(R30) - JSR exec(SB) - - MOVQ $(1<<4), R0 - MOVL R0, 8(R30) - MOVQ $RFORK, R0 - CALL_PAL $0x83 - MOVQ $RFORK, R0 - CALL_PAL $0x83 - MOVQ $RFORK, R0 - CALL_PAL $0x83 -again: - ADDL $1, R1 - MOVQ $0, R0 /* print r1 */ - CALL_PAL $0x83 - MOVQ $100000000, R2 -foo: - SUBQ $1, R2 - BNE R2, foo - MOVQ $1000, R0 - MOVL R0, 8(R30) - MOVQ $SLEEP, R0 - CALL_PAL $0x83 - JMP again - -TEXT exec(SB), $0 - MOVQ $EXEC, R0 - CALL_PAL $0x83 - RET - -DATA boot+0(SB)/5,$"/boot" -DATA boot+5(SB)/5,$"/boot" -DATA bootv+0(SB)/4,$boot+6(SB) -GLOBL boot+0(SB),$11 -GLOBL bootv+0(SB),$8 diff --git a/sys/src/9/alphapc/io.h b/sys/src/9/alphapc/io.h deleted file mode 100644 index 51ce7e228..000000000 --- a/sys/src/9/alphapc/io.h +++ /dev/null @@ -1,176 +0,0 @@ -enum { - IrqCLOCK = 0, - IrqKBD = 1, - IrqUART1 = 3, - IrqUART0 = 4, - IrqPCMCIA = 5, - IrqFLOPPY = 6, - IrqLPT = 7, - IrqIRQ7 = 7, - IrqAUX = 12, /* PS/2 port */ - IrqIRQ13 = 13, /* coprocessor on 386 */ - IrqATA0 = 14, - IrqATA1 = 15, - MaxIrqPIC = 15, - - VectorPIC = 64, - MaxVectorPIC = VectorPIC+MaxIrqPIC, - VectorPCI = 16, /* PCI bus (PLD) */ -}; - -typedef struct Vctl { - Vctl* next; /* handlers on this vector */ - - char name[KNAMELEN]; /* of driver */ - int isintr; /* interrupt or fault/trap */ - int irq; - int tbdf; - int (*isr)(int); /* get isr bit for this irq */ - int (*eoi)(int); /* eoi */ - - void (*f)(Ureg*, void*); /* handler to call */ - void* a; /* argument to call it with */ -} Vctl; - -enum { - BusCBUS = 0, /* Corollary CBUS */ - BusCBUSII, /* Corollary CBUS II */ - BusEISA, /* Extended ISA */ - BusFUTURE, /* IEEE Futurebus */ - BusINTERN, /* Internal bus */ - BusISA, /* Industry Standard Architecture */ - BusMBI, /* Multibus I */ - BusMBII, /* Multibus II */ - BusMCA, /* Micro Channel Architecture */ - BusMPI, /* MPI */ - BusMPSA, /* MPSA */ - BusNUBUS, /* Apple Macintosh NuBus */ - BusPCI, /* Peripheral Component Interconnect */ - BusPCMCIA, /* PC Memory Card International Association */ - BusTC, /* DEC TurboChannel */ - BusVL, /* VESA Local bus */ - BusVME, /* VMEbus */ - BusXPRESS, /* Express System Bus */ -}; - -#define MKBUS(t,b,d,f) (((t)<<24)|(((b)&0xFF)<<16)|(((d)&0x1F)<<11)|(((f)&0x07)<<8)) -#define BUSFNO(tbdf) (((tbdf)>>8)&0x07) -#define BUSDNO(tbdf) (((tbdf)>>11)&0x1F) -#define BUSBNO(tbdf) (((tbdf)>>16)&0xFF) -#define BUSTYPE(tbdf) ((tbdf)>>24) -#define BUSDF(tbdf) ((tbdf)&0x000FF00) -#define BUSBDF(tbdf) ((tbdf)&0x0FFFF00) -#define BUSUNKNOWN (-1) - -enum { - MaxEISA = 16, - EISAconfig = 0xC80, -}; - -/* - * PCI support code. - */ -enum { /* type 0 and type 1 pre-defined header */ - PciVID = 0x00, /* vendor ID */ - PciDID = 0x02, /* device ID */ - PciPCR = 0x04, /* command */ - PciPSR = 0x06, /* status */ - PciRID = 0x08, /* revision ID */ - PciCCRp = 0x09, /* programming interface class code */ - PciCCRu = 0x0A, /* sub-class code */ - PciCCRb = 0x0B, /* base class code */ - PciCLS = 0x0C, /* cache line size */ - PciLTR = 0x0D, /* latency timer */ - PciHDT = 0x0E, /* header type */ - PciBST = 0x0F, /* BIST */ - - PciBAR0 = 0x10, /* base address */ - PciBAR1 = 0x14, - PciROM = 0x30, - - PciINTL = 0x3C, /* interrupt line */ - PciINTP = 0x3D, /* interrupt pin */ -}; - -enum { /* type 0 pre-defined header */ - PciCIS = 0x28, /* cardbus CIS pointer */ - PciSVID = 0x2C, /* subsystem vendor ID */ - PciSID = 0x2E, /* subsystem ID */ - PciEBAR0 = 0x30, /* xpansion ROM base address */ - PciMGNT = 0x3E, /* burst period length */ - PciMLT = 0x3F, /* maximum latency between bursts */ -}; - -enum { /* type 1 pre-defined header */ - PciPBN = 0x18, /* primary bus number */ - PciSBN = 0x19, /* secondary bus number */ - PciUBN = 0x1A, /* subordinate bus number */ - PciSLTR = 0x1B, /* secondary latency timer */ - PciIBR = 0x1C, /* I/O base */ - PciILR = 0x1D, /* I/O limit */ - PciSPSR = 0x1E, /* secondary status */ - PciMBR = 0x20, /* memory base */ - PciMLR = 0x22, /* memory limit */ - PciPMBR = 0x24, /* prefetchable memory base */ - PciPMLR = 0x26, /* prefetchable memory limit */ - PciPUBR = 0x28, /* prefetchable base upper 32 bits */ - PciPULR = 0x2C, /* prefetchable limit upper 32 bits */ - PciIUBR = 0x30, /* I/O base upper 16 bits */ - PciIULR = 0x32, /* I/O limit upper 16 bits */ - PciEBAR1 = 0x28, /* expansion ROM base address */ - PciBCR = 0x3E, /* bridge control register */ -}; - -typedef struct Pcidev Pcidev; -typedef struct Pcidev { - int tbdf; /* type+bus+device+function */ - ushort vid; /* vendor ID */ - ushort did; /* device ID */ - - ushort pcr; - - uchar rid; - uchar ccrp; - uchar ccru; - uchar ccrb; - uchar cls; - uchar ltr; - - struct { - ulong bar; /* base address */ - int size; - } mem[6]; - - uchar intl; /* interrupt line */ - - Pcidev* list; - Pcidev* link; /* next device on this bno */ - - Pcidev* bridge; /* down a bus */ - struct { - ulong bar; - int size; - } ioa, mema; - - int pmrb; /* power management register block */ -}; - -#define PCIWINDOW 0x40000000 -#define PCIWADDR(va) (PADDR(va)+PCIWINDOW) -#define ISAWINDOW 0x00800000 -#define ISAWADDR(va) (PADDR(va)+ISAWINDOW) - -/* - * PCMCIA support code. - */ -/* - * Map between ISA memory space and PCMCIA card memory space. - */ -struct PCMmap { - ulong ca; /* card address */ - ulong cea; /* card end address */ - ulong isa; /* ISA address */ - int len; /* length of the ISA area */ - int attr; /* attribute memory */ - int ref; -}; diff --git a/sys/src/9/alphapc/l.s b/sys/src/9/alphapc/l.s deleted file mode 100644 index 7c6562306..000000000 --- a/sys/src/9/alphapc/l.s +++ /dev/null @@ -1,438 +0,0 @@ -#include "mem.h" -#include "osf1pal.h" - -#define SP R30 - -#define HI_IPL 6 /* use 7 to disable mchecks */ - -TEXT _main(SB), $-8 - MOVQ $setSB(SB), R29 - MOVQ R29, R16 - CALL_PAL $PALwrkgp - MOVQ $mach0(SB), R(MACH) - MOVQ $(BY2PG-8)(R(MACH)), R30 - MOVQ R31, R(USER) - MOVQ R31, 0(R(MACH)) - - MOVQ $edata(SB), R1 - MOVQ $end(SB), R2 -clrbss: - MOVQ R31, (R1) - ADDQ $8, R1 - CMPUGT R1, R2, R3 - BEQ R3, clrbss - - MOVL R0, bootconf(SB) /* passed in from boot loader */ - -_fpinit: - MOVQ $1, R16 - CALL_PAL $PALwrfen - - MOVQ initfpcr(SB), R1 /* MOVQ $0x2800800000000000, R1 */ - MOVQ R1, (R30) - MOVT (R30), F1 - MOVT F1, FPCR - - MOVT $0.5, F28 - ADDT F28, F28, F29 - ADDT F29, F29, F30 - - MOVT F31, F1 - MOVT F31, F2 - MOVT F31, F3 - MOVT F31, F4 - MOVT F31, F5 - MOVT F31, F6 - MOVT F31, F7 - MOVT F31, F8 - MOVT F31, F9 - MOVT F31, F10 - MOVT F31, F11 - MOVT F31, F12 - MOVT F31, F13 - MOVT F31, F14 - MOVT F31, F15 - MOVT F31, F16 - MOVT F31, F17 - MOVT F31, F18 - MOVT F31, F19 - MOVT F31, F20 - MOVT F31, F21 - MOVT F31, F22 - MOVT F31, F23 - MOVT F31, F24 - MOVT F31, F25 - MOVT F31, F26 - MOVT F31, F27 - - JSR main(SB) - MOVQ $_divq(SB), R31 /* touch _divq etc.; doesn't need to execute */ - MOVQ $_divl(SB), R31 /* touch _divl etc.; doesn't need to execute */ - RET - -TEXT setpcb(SB), $-8 - MOVQ R30, (R0) - AND $0x7FFFFFFF, R0, R16 /* make address physical */ - CALL_PAL $PALswpctx - RET - -GLOBL mach0(SB), $(MAXMACH*BY2PG) -GLOBL init_ptbr(SB), $8 - -TEXT firmware(SB), $-8 - CALL_PAL $PALhalt - -TEXT xxfirmware(SB), $-8 - CALL_PAL $PALhalt - -TEXT splhi(SB), $0 - - MOVL R26, 4(R(MACH)) /* save PC in m->splpc */ - MOVQ $HI_IPL, R16 - CALL_PAL $PALswpipl - RET - -TEXT spllo(SB), $0 - MOVQ R31, R16 - CALL_PAL $PALswpipl - RET - -TEXT splx(SB), $0 - MOVL R26, 4(R(MACH)) /* save PC in m->splpc */ - -TEXT splxpc(SB), $0 /* for iunlock */ - MOVQ R0, R16 - CALL_PAL $PALswpipl - RET - -TEXT spldone(SB), $0 - RET - -TEXT islo(SB), $0 - CALL_PAL $PALrdps - AND $IPL, R0 - XOR $HI_IPL, R0 - RET - -TEXT mb(SB), $-8 - MB - RET - -TEXT icflush(SB), $-8 - CALL_PAL $PALimb - RET - -TEXT tlbflush(SB), $-8 - MOVQ R0, R16 - MOVL 4(FP), R17 - CALL_PAL $PALtbi - RET - -TEXT swpctx(SB), $-8 - MOVQ R0, R16 - AND $0x7FFFFFFF, R16 /* make address physical */ - CALL_PAL $PALswpctx - RET - -TEXT wrent(SB), $-8 - MOVQ R0, R17 - MOVL 4(FP), R16 - CALL_PAL $PALwrent - RET - -TEXT wrvptptr(SB), $-8 - MOVQ R0, R16 - CALL_PAL $PALwrvptptr - RET - -TEXT cserve(SB), $-8 - MOVQ R0, R16 - MOVL 4(FP), R17 - CALL_PAL $PALcserve - RET - -TEXT setlabel(SB), $-8 - MOVL R30, 0(R0) - MOVL R26, 4(R0) - MOVQ $0, R0 - RET - -TEXT gotolabel(SB), $-8 - MOVL 0(R0), R30 - MOVL 4(R0), R26 - MOVQ $1, R0 - RET - -TEXT tas(SB), $-8 - MOVQ R0, R1 /* l */ -tas1: - MOVLL (R1), R0 /* l->key */ - BNE R0, tas2 - MOVQ $1, R2 - MOVLC R2, (R1) /* l->key = 1 */ - BEQ R2, tas1 /* write failed, try again? */ -tas2: - RET - -TEXT cmpswap(SB), $-8 - MOVQ R0, R1 /* p */ - MOVL old+4(FP), R2 - MOVL new+8(FP), R3 - MOVLL (R1), R0 - CMPEQ R0, R2, R4 - BEQ R4, fail /* if R0 != [sic] R2, goto fail */ - MOVQ R3, R0 - MOVLC R0, (R1) - RET -fail: - MOVL $0, R0 - RET - -TEXT fpenab(SB), $-8 - MOVQ R0, R16 - CALL_PAL $PALwrfen - RET - -TEXT rpcc(SB), $0 - MOVL R0, R1 - MOVL $0, R0 - WORD $0x6000C000 /* RPCC R0 */ - BEQ R1, _ret - MOVQ R0, (R1) -_ret: - RET - -/* - * Exception handlers. The stack frame looks like this: - * - * R30+0: (unused) link reg storage (R26) (32 bits) - * R30+4: padding for alignment (32 bits) - * R30+8: trap()'s first arg storage (R0) (32 bits -- type Ureg*) - * R30+12: padding for alignment (32 bits) - * R30+16: first 31 fields of Ureg, saved here (31*64 bits) - * R30+264: other 6 fields of Ureg, saved by PALcode (6*64 bits) - * R30+312: previous value of KSP before trap - */ - -TEXT arith(SB), $-8 - SUBQ $(4*BY2WD+31*BY2V), R30 - MOVQ R0, (4*BY2WD+4*BY2V)(R30) - MOVQ $1, R0 - JMP trapcommon - -TEXT illegal0(SB), $-8 - SUBQ $(4*BY2WD+31*BY2V), R30 - MOVQ R0, (4*BY2WD+4*BY2V)(R30) - MOVQ $2, R0 - JMP trapcommon - -TEXT fault0(SB), $-8 - SUBQ $(4*BY2WD+31*BY2V), R30 - MOVQ R0, (4*BY2WD+4*BY2V)(R30) - MOVQ $4, R0 - JMP trapcommon - -TEXT unaligned(SB), $-8 - SUBQ $(4*BY2WD+31*BY2V), R30 - MOVQ R0, (4*BY2WD+4*BY2V)(R30) - MOVQ $6, R0 - JMP trapcommon - -TEXT intr0(SB), $-8 - SUBQ $(4*BY2WD+31*BY2V), R30 - MOVQ R0, (4*BY2WD+4*BY2V)(R30) - MOVQ $3, R0 - -trapcommon: - MOVQ R0, (4*BY2WD+0*BY2V)(R30) - MOVQ R16, (4*BY2WD+1*BY2V)(R30) - MOVQ R17, (4*BY2WD+2*BY2V)(R30) - MOVQ R18, (4*BY2WD+3*BY2V)(R30) - - /* R0 already saved, (4*BY2WD+4*BY2V)(R30) */ - MOVQ R1, (4*BY2WD+5*BY2V)(R30) - MOVQ R2, (4*BY2WD+6*BY2V)(R30) - MOVQ R3, (4*BY2WD+7*BY2V)(R30) - MOVQ R4, (4*BY2WD+8*BY2V)(R30) - MOVQ R5, (4*BY2WD+9*BY2V)(R30) - MOVQ R6, (4*BY2WD+10*BY2V)(R30) - MOVQ R7, (4*BY2WD+11*BY2V)(R30) - MOVQ R8, (4*BY2WD+12*BY2V)(R30) - MOVQ R9, (4*BY2WD+13*BY2V)(R30) - MOVQ R10, (4*BY2WD+14*BY2V)(R30) - MOVQ R11, (4*BY2WD+15*BY2V)(R30) - MOVQ R12, (4*BY2WD+16*BY2V)(R30) - MOVQ R13, (4*BY2WD+17*BY2V)(R30) - MOVQ R14, (4*BY2WD+18*BY2V)(R30) - MOVQ R15, (4*BY2WD+19*BY2V)(R30) - MOVQ R19, (4*BY2WD+20*BY2V)(R30) - MOVQ R20, (4*BY2WD+21*BY2V)(R30) - MOVQ R21, (4*BY2WD+22*BY2V)(R30) - MOVQ R22, (4*BY2WD+23*BY2V)(R30) - MOVQ R23, (4*BY2WD+24*BY2V)(R30) - MOVQ R24, (4*BY2WD+25*BY2V)(R30) - MOVQ R25, (4*BY2WD+26*BY2V)(R30) - MOVQ R26, (4*BY2WD+27*BY2V)(R30) - MOVQ R27, (4*BY2WD+28*BY2V)(R30) - MOVQ R28, (4*BY2WD+29*BY2V)(R30) - - MOVQ $HI_IPL, R16 - CALL_PAL $PALswpipl - - CALL_PAL $PALrdusp - MOVQ R0, (4*BY2WD+30*BY2V)(R30) /* save USP */ - - MOVQ $mach0(SB), R(MACH) - MOVQ $(4*BY2WD)(R30), R0 - JSR trap(SB) -trapret: - MOVQ (4*BY2WD+30*BY2V)(R30), R16 /* USP */ - CALL_PAL $PALwrusp /* ... */ - MOVQ (4*BY2WD+4*BY2V)(R30), R0 - MOVQ (4*BY2WD+5*BY2V)(R30), R1 - MOVQ (4*BY2WD+6*BY2V)(R30), R2 - MOVQ (4*BY2WD+7*BY2V)(R30), R3 - MOVQ (4*BY2WD+8*BY2V)(R30), R4 - MOVQ (4*BY2WD+9*BY2V)(R30), R5 - MOVQ (4*BY2WD+10*BY2V)(R30), R6 - MOVQ (4*BY2WD+11*BY2V)(R30), R7 - MOVQ (4*BY2WD+12*BY2V)(R30), R8 - MOVQ (4*BY2WD+13*BY2V)(R30), R9 - MOVQ (4*BY2WD+14*BY2V)(R30), R10 - MOVQ (4*BY2WD+15*BY2V)(R30), R11 - MOVQ (4*BY2WD+16*BY2V)(R30), R12 - MOVQ (4*BY2WD+17*BY2V)(R30), R13 - MOVQ (4*BY2WD+18*BY2V)(R30), R14 - MOVQ (4*BY2WD+19*BY2V)(R30), R15 - MOVQ (4*BY2WD+20*BY2V)(R30), R19 - MOVQ (4*BY2WD+21*BY2V)(R30), R20 - MOVQ (4*BY2WD+22*BY2V)(R30), R21 - MOVQ (4*BY2WD+23*BY2V)(R30), R22 - MOVQ (4*BY2WD+24*BY2V)(R30), R23 - MOVQ (4*BY2WD+25*BY2V)(R30), R24 - MOVQ (4*BY2WD+26*BY2V)(R30), R25 - MOVQ (4*BY2WD+27*BY2V)(R30), R26 - MOVQ (4*BY2WD+28*BY2V)(R30), R27 - MOVQ (4*BY2WD+29*BY2V)(R30), R28 - /* USP already restored from (4*BY2WD+30*BY2V)(R30) */ - ADDQ $(4*BY2WD+31*BY2V), R30 - CALL_PAL $PALrti - -TEXT forkret(SB), $0 - MOVQ R31, R0 /* Fake out system call return */ - JMP systrapret - -TEXT syscall0(SB), $-8 - SUBQ $(4*BY2WD+31*BY2V), R30 - MOVQ R0, (4*BY2WD+4*BY2V)(R30) /* save scallnr in R0 */ - MOVQ $HI_IPL, R16 - CALL_PAL $PALswpipl - MOVQ $mach0(SB), R(MACH) - CALL_PAL $PALrdusp - MOVQ R0, (4*BY2WD+30*BY2V)(R30) /* save USP */ - MOVQ R26, (4*BY2WD+27*BY2V)(R30) /* save last return address */ - MOVQ $(4*BY2WD)(R30), R0 /* pass address of Ureg */ - JSR syscall(SB) -systrapret: - MOVQ (4*BY2WD+30*BY2V)(R30), R16 /* USP */ - CALL_PAL $PALwrusp /* consider doing this in execregs... */ - MOVQ (4*BY2WD+27*BY2V)(R30), R26 /* restore last return address */ - ADDQ $(4*BY2WD+31*BY2V), R30 - CALL_PAL $PALretsys - -/* - * Take first processor into user mode - * - argument is stack pointer to user - */ - -TEXT touser(SB), $-8 - MOVQ R0, R16 - CALL_PAL $PALwrusp /* set USP to value passed */ - SUBQ $(6*BY2V), R30 /* create frame for retsys */ - MOVQ $(UTZERO+32), R26 /* header appears in text */ - MOVQ R26, (1*BY2V)(R30) /* PC -- only reg that matters */ - CALL_PAL $PALretsys - -TEXT rfnote(SB), $0 - SUBL $(2*BY2WD), R0, SP - JMP trapret - -TEXT savefpregs(SB), $-8 - MOVT F0, 0x00(R0) - MOVT F1, 0x08(R0) - MOVT F2, 0x10(R0) - MOVT F3, 0x18(R0) - MOVT F4, 0x20(R0) - MOVT F5, 0x28(R0) - MOVT F6, 0x30(R0) - MOVT F7, 0x38(R0) - MOVT F8, 0x40(R0) - MOVT F9, 0x48(R0) - MOVT F10, 0x50(R0) - MOVT F11, 0x58(R0) - MOVT F12, 0x60(R0) - MOVT F13, 0x68(R0) - MOVT F14, 0x70(R0) - MOVT F15, 0x78(R0) - MOVT F16, 0x80(R0) - MOVT F17, 0x88(R0) - MOVT F18, 0x90(R0) - MOVT F19, 0x98(R0) - MOVT F20, 0xA0(R0) - MOVT F21, 0xA8(R0) - MOVT F22, 0xB0(R0) - MOVT F23, 0xB8(R0) - MOVT F24, 0xC0(R0) - MOVT F25, 0xC8(R0) - MOVT F26, 0xD0(R0) - MOVT F27, 0xD8(R0) - MOVT F28, 0xE0(R0) - MOVT F29, 0xE8(R0) - MOVT F30, 0xF0(R0) - MOVT F31, 0xF8(R0) - MOVT FPCR, F0 - MOVT F0, 0x100(R0) - - MOVQ $0, R16 - CALL_PAL $PALwrfen /* disable */ - RET - -TEXT restfpregs(SB), $-8 - MOVQ $1, R16 - CALL_PAL $PALwrfen /* enable */ - - MOVT 0x100(R0), F0 - MOVT F0, FPCR - MOVT 0x00(R0), F0 - MOVT 0x08(R0), F1 - MOVT 0x10(R0), F2 - MOVT 0x18(R0), F3 - MOVT 0x20(R0), F4 - MOVT 0x28(R0), F5 - MOVT 0x30(R0), F6 - MOVT 0x38(R0), F7 - MOVT 0x40(R0), F8 - MOVT 0x48(R0), F9 - MOVT 0x50(R0), F10 - MOVT 0x58(R0), F11 - MOVT 0x60(R0), F12 - MOVT 0x68(R0), F13 - MOVT 0x70(R0), F14 - MOVT 0x78(R0), F15 - MOVT 0x80(R0), F16 - MOVT 0x88(R0), F17 - MOVT 0x90(R0), F18 - MOVT 0x98(R0), F19 - MOVT 0xA0(R0), F20 - MOVT 0xA8(R0), F21 - MOVT 0xB0(R0), F22 - MOVT 0xB8(R0), F23 - MOVT 0xC0(R0), F24 - MOVT 0xC8(R0), F25 - MOVT 0xD0(R0), F26 - MOVT 0xD8(R0), F27 - MOVT 0xE0(R0), F28 - MOVT 0xE8(R0), F29 - MOVT 0xF0(R0), F30 - MOVT 0xF8(R0), F31 - RET diff --git a/sys/src/9/alphapc/main.c b/sys/src/9/alphapc/main.c deleted file mode 100644 index c9d10faee..000000000 --- a/sys/src/9/alphapc/main.c +++ /dev/null @@ -1,604 +0,0 @@ -#include "u.h" -#include "../port/lib.h" -#include "mem.h" -#include "dat.h" -#include "fns.h" -#include "io.h" -#include "init.h" -#include "pool.h" -#include "/sys/src/boot/alphapc/conf.h" -#include "axp.h" - -char argbuf[128]; /* arguments passed to initcode and /boot */ - -Hwrpb *hwrpb; -Bootconf *bootconf; -Conf conf; -FPsave initfp; - /* setfcr(FPPDBL|FPRNR|FPINVAL|FPZDIV|FPOVFL) */ -uvlong initfpcr = (1LL<62)|(1LL<61)|(1LL<60)|(2LL<<58)|(1LL<48); - -char bootargs[BOOTARGSLEN]; -char *confname[MAXCONF]; -char *confval[MAXCONF]; -int nconf; - -static void -options(void) -{ - long i, n; - char *cp, *line[MAXCONF], *p, *q; - - cp = bootargs; - strncpy(cp, bootconf->bootargs, BOOTARGSLEN); - cp[BOOTARGSLEN-1] = 0; - /* can't print in this routine, see below in main() */ - - /* - * Strip out '\r', change '\t' -> ' '. - */ - p = cp; - for(q = cp; *q; q++){ - if(*q == '\r') - continue; - if(*q == '\t') - *q = ' '; - *p++ = *q; - } - *p = 0; - - n = getfields(cp, line, MAXCONF, 1, "\n"); - for(i = 0; i < n; i++){ - if(*line[i] == '#') - continue; - cp = strchr(line[i], '='); - if(cp == nil) - continue; - *cp++ = '\0'; - confname[nconf] = line[i]; - confval[nconf] = cp; - nconf++; - } -} - -/* debugging only */ -static void -dumpopts(void) -{ - int i; - - print("dumpopts: found /alpha/conf options at %#p\n", - bootconf->bootargs); - for(i = 0; i < nconf; i++) - print("dumpopts: read %s=%s\n", confname[i], confval[i]); -} - -extern void (*i8237alloc)(void); - -void -main(void) -{ - hwrpb = (Hwrpb*)0x10000000; - hwrpb = (Hwrpb*)(KZERO|hwrpb->phys); - arginit(); - machinit(); - options(); - ioinit(); - clockinit(); - confinit(); - archinit(); - xinit(); - memholes(); - if(i8237alloc != nil) - i8237alloc(); - mmuinit(); - if(arch->coreinit) - arch->coreinit(); - trapinit(); - screeninit(); - printinit(); - /* it's now safe to print */ - /* dumpopts(); /* DEBUG */ - i8250console(); - quotefmtinstall(); - print("\nPlan 9\n"); - - cpuidprint(); - if(arch->corehello) - arch->corehello(); - - procinit0(); - initseg(); - timersinit(); - links(); - chandevreset(); - pageinit(); - swapinit(); - savefpregs(&initfp); -initfp.fpstatus = 0x68028000; - userinit(); - schedinit(); -} - -/* cpu->state bits */ -enum { - Cpubootinprog = 1, /* boot in progress */ - Cpucanrestart = 2, /* restart possible */ - Cpuavail = 4, /* processor available */ - Cpuexists = 8, /* processor present */ - Cpuuserhalted = 0x10, /* user halted */ - Cpuctxtokay = 0x20, /* context valid */ - Cpupalokay = 0x40, /* PALcode valid */ - Cpupalmemokay = 0x80, /* PALcode memory valid */ - Cpupalloaded = 0x100, /* PALcode loaded */ - Cpuhaltmask = 0xff0000, /* halt request mask */ - Cpuhaltdflt = 0, - Cpuhaltsaveexit = 0x10000, - Cpuhaltcoldboot = 0x20000, - Cpuhaltwarmboot = 0x30000, - Cpuhaltstayhalted = 0x40000, - Cpumustbezero = 0xffffffffff000000ULL, /* 24:63 -- must be zero */ -}; - -/* - * initialize a processor's mach structure. each processor does this - * for itself. - */ -void -machinit(void) -{ - int n; - Hwcpu *cpu; - - icflush(); - n = m->machno; - memset(m, 0, sizeof(Mach)); - m->machno = n; - - active.exiting = 0; - active.machs[0] = 1; - - cpu = (Hwcpu*) ((ulong)hwrpb + hwrpb->cpuoff + n*hwrpb->cpulen); - cpu->state &= ~Cpubootinprog; - if (0) - cpu->state |= Cpuhaltstayhalted; -} - -void -init0(void) -{ - int i; - char buf[2*KNAMELEN]; - - up->nerrlab = 0; - - spllo(); - - /* - * These are o.k. because rootinit is null. - * Then early kproc's will have a root and dot. - */ - up->slash = namec("#/", Atodir, 0, 0); - pathclose(up->slash->path); - up->slash->path = newpath("/"); - up->dot = cclone(up->slash); - - chandevinit(); - - if(!waserror()){ - snprint(buf, sizeof(buf), "alpha %s alphapc", conffile); - ksetenv("terminal", buf, 0); - ksetenv("cputype", "alpha", 0); - if(cpuserver) - ksetenv("service", "cpu", 0); - else - ksetenv("service", "terminal", 0); - for(i = 0; i < nconf; i++) - if(confname[i]){ - if(confname[i][0] != '*') - ksetenv(confname[i], confval[i], 0); - ksetenv(confname[i], confval[i], 1); - } - poperror(); - } - - kproc("alarm", alarmkproc, 0); - touser((uchar*)(USTKTOP - sizeof(argbuf))); -} - -void -userinit(void) -{ - Proc *p; - Segment *s; - KMap *k; - char **av; - Page *pg; - - p = newproc(); - p->pgrp = newpgrp(); - p->egrp = smalloc(sizeof(Egrp)); - p->egrp->ref = 1; - p->fgrp = dupfgrp(nil); - p->rgrp = newrgrp(); - p->procmode = 0640; - - kstrdup(&eve, ""); - kstrdup(&p->text, "*init*"); - kstrdup(&p->user, eve); - - procsetup(p); - - /* - * Kernel Stack - */ - p->sched.pc = (ulong)init0; - p->sched.sp = (ulong)p->kstack+KSTACK-MAXSYSARG*BY2WD; - /* - * User Stack, pass input arguments to boot process - */ - s = newseg(SG_STACK, USTKTOP-USTKSIZE, USTKSIZE/BY2PG); - p->seg[SSEG] = s; - pg = newpage(1, 0, USTKTOP-BY2PG); - segpage(s, pg); - k = kmap(pg); - for(av = (char**)argbuf; *av; av++) - *av += (USTKTOP - sizeof(argbuf)) - (ulong)argbuf; - - memmove((uchar*)VA(k) + BY2PG - sizeof(argbuf), argbuf, sizeof argbuf); - kunmap(k); - - /* - * Text - */ - s = newseg(SG_TEXT, UTZERO, 1); - s->flushme++; - p->seg[TSEG] = s; - pg = newpage(1, 0, UTZERO); - pg->txtflush = ~0; - segpage(s, pg); - k = kmap(s->map[0]->pages[0]); - memmove((uchar*)VA(k), initcode, sizeof initcode); - kunmap(k); - - ready(p); -} - -void -procsetup(Proc *p) -{ - p->fpstate = FPinit; - fpenab(0); -} - -void -procfork(Proc *) -{ -} - -void -procsave(Proc *p) -{ - if(p->fpstate == FPactive){ - if(p->state == Moribund) - fpenab(0); - else - savefpregs(&up->fpsave); - p->fpstate = FPinactive; - } - - /* - * Switch to the prototype page tables for this processor. - * While this processor is in the scheduler, the process could run - * on another processor and exit, returning the page tables to - * the free list where they could be reallocated and overwritten. - * When this processor eventually has to get an entry from the - * trashed page tables it will crash. - */ - mmupark(); -} - -void -setupboot(int halt) -{ - int n = 0; // cpu id of primary cpu, not just m->machno - Hwcpu *cpu = (Hwcpu*)((ulong)hwrpb + hwrpb->cpuoff + n*hwrpb->cpulen); - - cpu->state &= ~(Cpucanrestart | Cpuhaltmask); - cpu->state |= (halt? Cpuhaltstayhalted: Cpuhaltwarmboot); -} - -void -reboot(void *, void *, ulong) -{ -} - -void -exit(int) -{ - cpushutdown(); - splhi(); - if(arch->coredetach) - arch->coredetach(); - setupboot(1); // set up to halt - for (;;) - firmware(); -} - -void -confinit(void) -{ - ulong ktop, kpages; - Bank *b, *eb; - extern void _main(void); - int userpcnt; - char *p; - - if(p = getconf("*kernelpercent")) - userpcnt = 100 - strtol(p, 0, 0); - else - userpcnt = 0; - - /* - * The console firmware divides memory into 1 or more banks. - * FInd the bank with the kernel in it. - */ - b = bootconf->bank; - eb = b+bootconf->nbank; - ktop = PGROUND((ulong)end); - ktop = PADDR(ktop); - while(b < eb) { - if(b->min < ktop && ktop < b->max) - break; - b++; - } - if(b == eb) - panic("confinit"); - - /* - * Split the bank of memory into 2 banks to fool the allocator into - * allocating low memory pages from bank 0 for any peripherals - * which only have a 24bit address counter. - */ - conf.mem[0].npage = (8*1024*1024)/BY2PG; - conf.mem[0].base = 0; - - conf.mem[1].npage = (b->max-8*1024*1024)/BY2PG; - conf.mem[1].base = 8*1024*1024; - - conf.npage = conf.mem[0].npage+conf.mem[1].npage; - conf.upages = (conf.npage*70)/100; - - conf.mem[0].npage -= ktop/BY2PG; - conf.mem[0].base += ktop; - conf.ialloc = ((conf.npage-conf.upages)/2)*BY2PG; - - /* - * Fix up the bank we found to be the remnant, below the kernel. - * This, and the other banks, will be passed to xhole() later. - * BUG: conf.upages needs to be adjusted, but how? In practice, - * we only have 1 bank, and the remnant is small. - */ - b->max = (uvlong)_main & ~(BY2PG-1); - - conf.nmach = 1; - conf.nproc = 100 + ((conf.npage*BY2PG)/MB)*5; - if(cpuserver) - conf.nproc *= 3; - if(conf.nproc > 2000) - conf.nproc = 2000; - conf.nimage = 200; - conf.nswap = conf.nproc*80; - conf.nswppo = 4096; - conf.copymode = 0; /* copy on write */ - - if(cpuserver) { - if(userpcnt < 10) - userpcnt = 70; - kpages = conf.npage - (conf.npage*userpcnt)/100; - - /* - * Hack for the big boys. Only good while physmem < 4GB. - * Give the kernel a max. of 16MB + enough to allocate the - * page pool. - * This is an overestimate as conf.upages < conf.npages. - * The patch of nimage is a band-aid, scanning the whole - * page list in imagereclaim just takes too long. - */ - if(kpages > (16*MB + conf.npage*sizeof(Page))/BY2PG){ - kpages = (16*MB + conf.npage*sizeof(Page))/BY2PG; - conf.nimage = 2000; - kpages += (conf.nproc*KSTACK)/BY2PG; - } - } else { - if(userpcnt < 10) { - if(conf.npage*BY2PG < 16*MB) - userpcnt = 40; - else - userpcnt = 60; - } - kpages = conf.npage - (conf.npage*userpcnt)/100; - - /* - * Make sure terminals with low memory get at least - * 4MB on the first Image chunk allocation. - */ - if(conf.npage*BY2PG < 16*MB) - imagmem->minarena = 4*1024*1024; - } - conf.upages = conf.npage - kpages; - conf.ialloc = (kpages/2)*BY2PG; - - /* - * Guess how much is taken by the large permanent - * datastructures. Mntcache and Mntrpc are not accounted for. - */ - kpages *= BY2PG; - kpages -= conf.upages*sizeof(Page) - + conf.nproc*sizeof(Proc) - + conf.nimage*sizeof(Image) - + conf.nswap - + conf.nswppo*sizeof(Page*); - mainmem->maxsize = kpages; - if(!cpuserver){ - /* - * give terminals lots of image memory, too; the dynamic - * allocation will balance the load properly, hopefully. - * be careful with 32-bit overflow. - */ - imagmem->maxsize = kpages; - } - -// conf.monitor = 1; /* BUG */ -} - -void -memholes(void) -{ - Bank *b, *eb; - - b = bootconf->bank; - eb = b+bootconf->nbank; - while(b < eb) { - if(b->min < (1LL<<32) && b->max < (1LL<<32)) - xhole(b->min, b->max-b->min); - b++; - } -} - -char *sp; - -char * -pusharg(char *p) -{ - int n; - - n = strlen(p)+1; - sp -= n; - memmove(sp, p, n); - return sp; -} - -void -arginit(void) -{ - char **av; - - av = (char**)argbuf; - sp = argbuf + sizeof(argbuf); - *av++ = pusharg("boot"); - *av = 0; -} - -char * -getconf(char *name) -{ - int n; - - for(n = 0; n < nconf; n++) - if(cistrcmp(confname[n], name) == 0) { - return confval[n]; - } - return 0; -} - -int -isaconfig(char *class, int ctlrno, ISAConf *isa) -{ - char cc[32], *p; - int i, n; - - snprint(cc, sizeof cc, "%s%d", class, ctlrno); - for(n = 0; n < nconf; n++){ - if(cistrcmp(confname[n], cc) != 0) - continue; - isa->nopt = tokenize(confval[n], isa->opt, NISAOPT); - for(i = 0; i < isa->nopt; i++){ - p = isa->opt[i]; - if(cistrncmp(p, "type=", 5) == 0) - isa->type = p + 5; - else if(cistrncmp(p, "port=", 5) == 0) - isa->port = strtoul(p+5, &p, 0); - else if(cistrncmp(p, "irq=", 4) == 0) - isa->irq = strtoul(p+4, &p, 0); - else if(cistrncmp(p, "dma=", 4) == 0) - isa->dma = strtoul(p+4, &p, 0); - else if(cistrncmp(p, "mem=", 4) == 0) - isa->mem = strtoul(p+4, &p, 0); - else if(cistrncmp(p, "size=", 5) == 0) - isa->size = strtoul(p+5, &p, 0); - else if(cistrncmp(p, "freq=", 5) == 0) - isa->freq = strtoul(p+5, &p, 0); - } - return 1; - } - return 0; -} - -int -cistrcmp(char *a, char *b) -{ - int ac, bc; - - for(;;){ - ac = *a++; - bc = *b++; - - if(ac >= 'A' && ac <= 'Z') - ac = 'a' + (ac - 'A'); - if(bc >= 'A' && bc <= 'Z') - bc = 'a' + (bc - 'A'); - ac -= bc; - if(ac) - return ac; - if(bc == 0) - break; - } - return 0; -} - -int -cistrncmp(char *a, char *b, int n) -{ - unsigned ac, bc; - - while(n > 0){ - ac = *a++; - bc = *b++; - n--; - - if(ac >= 'A' && ac <= 'Z') - ac = 'a' + (ac - 'A'); - if(bc >= 'A' && bc <= 'Z') - bc = 'a' + (bc - 'A'); - - ac -= bc; - if(ac) - return ac; - if(bc == 0) - break; - } - - return 0; -} - -int -getcfields(char* lp, char** fields, int n, char* sep) -{ - int i; - - for(i = 0; lp && *lp && i < n; i++){ - while(*lp && strchr(sep, *lp) != 0) - *lp++ = 0; - if(*lp == 0) - break; - fields[i] = lp; - while(*lp && strchr(sep, *lp) == 0){ - if(*lp == '\\' && *(lp+1) == '\n') - *lp++ = ' '; - lp++; - } - } - - return i; -} diff --git a/sys/src/9/alphapc/mem.h b/sys/src/9/alphapc/mem.h deleted file mode 100644 index 67faa92bb..000000000 --- a/sys/src/9/alphapc/mem.h +++ /dev/null @@ -1,87 +0,0 @@ -/* - * Memory and machine-specific definitions. Used in C and assembler. - */ - -/* - * Sizes - */ -#define BI2BY 8 /* bits per byte */ -#define BI2WD 32 /* bits per word */ -#define BY2WD 4 /* bytes per word */ -#define BY2V 8 /* bytes per vlong */ -#define BY2PG 8192 /* bytes per page */ -#define WD2PG (BY2PG/BY2WD) /* words per page */ -#define PGSHIFT 13 /* log(BY2PG) */ -#define ROUND(s, sz) (((s)+((sz)-1))&~((sz)-1)) -#define PGROUND(s) ROUND(s, BY2PG) -#define BLOCKALIGN 8 - -#define BY2PTE 8 /* bytes per pte entry */ -#define PTE2PG (BY2PG/BY2PTE) /* pte entries per page */ - -#define MAXMACH 1 /* max # cpus system can run */ -#define KSTACK 4096 /* Size of kernel stack */ - -/* - * Time - */ -#define HZ 100 /* clock frequency */ -#define MS2HZ (1000/HZ) -#define TK2SEC(t) ((t)/HZ) /* ticks to seconds */ - -/* - * Magic registers - */ -#define MACH 15 /* R15 is m-> */ -#define USER 14 /* R14 is up-> */ - - -/* - * Fundamental addresses - */ -/* XXX MACHADDR, MACHP(n) */ - -/* - * MMU - * - * A PTE is 64 bits, but a ulong is 32! Hence we encode - * the PTEs specially for fault.c, and decode them in putmmu(). - * This means that we can only map the first 2G of physical - * space via putmmu() - ie only physical memory, not devices. - */ -#define PTEVALID 0x3301 -#define PTEKVALID 0x1101 -#define PTEASM 0x0010 -#define PTEGH(s) ((s)<<5) -#define PTEWRITE 0 -#define PTERONLY 0x4 -#define PTEUNCACHED 0 -#define PPN(n) (((n)>>PGSHIFT)<<14) -#define FIXPTE(x) ((((uvlong)(x)>>14)<<32)|((x) & 0x3fff)) -#define PTEPFN(pa) (((uvlong)(pa)>>PGSHIFT)<<32) -#define NCOLOR 1 -#define getpgcolor(a) 0 - -#define PTEMAPMEM (1024*1024) -#define PTEPERTAB (PTEMAPMEM/BY2PG) -#define SEGMAPSIZE 512 -#define SSEGMAPSIZE 16 - -/* - * Address spaces - */ -#define UZERO 0 /* base of user address space */ -#define UTZERO (UZERO+BY2PG) /* first address in user text */ -#define KZERO 0x80000000 /* base of kernel address space */ -#define KTZERO (KZERO+0x400000) /* first address in kernel text */ -#define USTKTOP KZERO /* byte just beyond user stack */ -#define USTKSIZE (4*1024*1024) /* size of user stack */ - -/* - * Processor Status (as returned by rdps) - */ -#define UMODE 0x8 -#define IPL 0x7 - - -#define isphys(x) (((ulong)x&KZERO)!=0) diff --git a/sys/src/9/alphapc/memmove.s b/sys/src/9/alphapc/memmove.s deleted file mode 100644 index 0fafb752d..000000000 --- a/sys/src/9/alphapc/memmove.s +++ /dev/null @@ -1,197 +0,0 @@ -#define QUAD 8 -#define ALIGN 64 -#define BLOCK 64 - -TEXT memmove(SB), $0 - MOVL from+4(FP), R7 - MOVL n+8(FP), R10 - MOVQ R0, R6 - - CMPUGE R7, R0, R5 - BNE R5, _forward - - MOVQ R6, R8 /* end to address */ - ADDL R10, R6, R6 /* to+n */ - ADDL R10, R7, R7 /* from+n */ - - CMPUGE $ALIGN, R10, R1 /* need at least ALIGN bytes */ - BNE R1, _b1tail - -_balign: - AND $(ALIGN-1), R6, R1 - BEQ R1, _baligned - - MOVBU -1(R7), R2 - ADDL $-1, R6, R6 - MOVB R2, (R6) - ADDL $-1, R7, R7 - JMP _balign - -_baligned: - AND $(QUAD-1), R7, R1 /* is the source quad-aligned */ - BNE R1, _bunaligned - - ADDL $(BLOCK-1), R8, R9 -_bblock: - CMPUGE R9, R6, R1 - BNE R1, _b8tail - - MOVQ -64(R7), R22 - MOVQ -56(R7), R23 - MOVQ -48(R7), R24 - MOVQ -40(R7), R25 - MOVQ -32(R7), R2 - MOVQ -24(R7), R3 - MOVQ -16(R7), R4 - MOVQ -8(R7), R5 - - SUBL $64, R6, R6 - SUBL $64, R7, R7 - - MOVQ R22, (R6) - MOVQ R23, 8(R6) - MOVQ R24, 16(R6) - MOVQ R25, 24(R6) - MOVQ R2, 32(R6) - MOVQ R3, 40(R6) - MOVQ R4, 48(R6) - MOVQ R5, 56(R6) - JMP _bblock - -_b8tail: - ADDL $(QUAD-1), R8, R9 -_b8block: - CMPUGE R9, R6, R1 - BNE R1, _b1tail - - MOVQ -8(R7), R2 - SUBL $8, R6 - MOVQ R2, (R6) - SUBL $8, R7 - JMP _b8block - -_b1tail: - CMPUGE R8, R6, R1 - BNE R1, _ret - - MOVBU -1(R7), R2 - SUBL $1, R6, R6 - MOVB R2, (R6) - SUBL $1, R7, R7 - JMP _b1tail -_ret: - RET - -_bunaligned: - ADDL $(16-1), R8, R9 - -_bu8block: - CMPUGE R9, R6, R1 - BNE R1, _b1tail - - MOVQU -16(R7), R4 - MOVQU -8(R7), R3 - MOVQU (R7), R2 - SUBL $16, R6 - EXTQH R7, R2, R2 - EXTQL R7, R3, R5 - OR R5, R2, R11 - EXTQH R7, R3, R3 - EXTQL R7, R4, R4 - OR R3, R4, R13 - MOVQ R11, 8(R6) - MOVQ R13, (R6) - SUBL $16, R7 - JMP _bu8block - -_forward: - ADDL R10, R6, R8 /* end to address */ - - CMPUGE $ALIGN, R10, R1 /* need at least ALIGN bytes */ - BNE R1, _f1tail - -_falign: - AND $(ALIGN-1), R6, R1 - BEQ R1, _faligned - - MOVBU (R7), R2 - ADDL $1, R6, R6 - ADDL $1, R7, R7 - MOVB R2, -1(R6) - JMP _falign - -_faligned: - AND $(QUAD-1), R7, R1 /* is the source quad-aligned */ - BNE R1, _funaligned - - SUBL $(BLOCK-1), R8, R9 -_fblock: - CMPUGT R9, R6, R1 - BEQ R1, _f8tail - - MOVQ (R7), R2 - MOVQ 8(R7), R3 - MOVQ 16(R7), R4 - MOVQ 24(R7), R5 - MOVQ 32(R7), R22 - MOVQ 40(R7), R23 - MOVQ 48(R7), R24 - MOVQ 56(R7), R25 - - ADDL $64, R6, R6 - ADDL $64, R7, R7 - - MOVQ R2, -64(R6) - MOVQ R3, -56(R6) - MOVQ R4, -48(R6) - MOVQ R5, -40(R6) - MOVQ R22, -32(R6) - MOVQ R23, -24(R6) - MOVQ R24, -16(R6) - MOVQ R25, -8(R6) - JMP _fblock - -_f8tail: - SUBL $(QUAD-1), R8, R9 -_f8block: - CMPUGT R9, R6, R1 - BEQ R1, _f1tail - - MOVQ (R7), R2 - ADDL $8, R6 - ADDL $8, R7 - MOVQ R2, -8(R6) - JMP _f8block - -_f1tail: - CMPUGT R8, R6, R1 - BEQ R1, _fret - MOVBU (R7), R2 - ADDL $1, R6, R6 - ADDL $1, R7, R7 - MOVB R2, -1(R6) - JMP _f1tail - -_fret: - RET - -_funaligned: - SUBL $(16-1), R8, R9 -_fu8block: - CMPUGT R9, R6, R1 - BEQ R1, _f1tail - - MOVQU (R7), R2 - MOVQU 8(R7), R3 - MOVQU 16(R7), R4 - EXTQL R7, R2, R2 - EXTQH R7, R3, R5 - OR R5, R2, R11 - EXTQL R7, R3, R3 - MOVQ R11, (R6) - EXTQH R7, R4, R4 - OR R3, R4, R11 - MOVQ R11, 8(R6) - ADDL $16, R6 - ADDL $16, R7 - JMP _fu8block diff --git a/sys/src/9/alphapc/memset.s b/sys/src/9/alphapc/memset.s deleted file mode 100644 index e3cfd468b..000000000 --- a/sys/src/9/alphapc/memset.s +++ /dev/null @@ -1,61 +0,0 @@ -TEXT memset(SB), $0 - MOVL R0, R6 - MOVBU data+4(FP), R2 - MOVL n+8(FP), R10 - - ADDL R10, R0, R8 - - CMPUGE $8, R10, R1 /* need at least 8 bytes */ - BNE R1, _1loop - - SLLQ $8, R2, R1 /* replicate the byte */ - OR R1, R2 - SLLQ $16, R2, R1 - OR R1, R2 - SLLQ $32, R2, R1 - OR R1, R2 - -_align: - AND $(8-1), R6, R1 - BEQ R1, _aligned - - MOVB R2, (R6) - ADDL $1, R6, R6 - JMP _align - -_aligned: - SUBL $(64-1), R8, R9 /* end pointer minus slop */ -_64loop: - CMPUGT R9, R6, R1 - BEQ R1, _8tail - - MOVQ R2, (R6) - MOVQ R2, 8(R6) - MOVQ R2, 16(R6) - MOVQ R2, 24(R6) - MOVQ R2, 32(R6) - MOVQ R2, 40(R6) - MOVQ R2, 48(R6) - MOVQ R2, 56(R6) - ADDL $64, R6, R6 - JMP _64loop - -_8tail: - SUBL $(8-1), R8, R9 -_8loop: - CMPUGT R9, R6, R1 - BEQ R1, _1loop - - MOVQ R2, (R6) - ADDL $8, R6 - JMP _8loop - -_1loop: - CMPUGT R8, R6, R1 - BEQ R1, _ret - MOVB R2, (R6) - ADDL $1, R6 - JMP _1loop - -_ret: - RET diff --git a/sys/src/9/alphapc/mkfile b/sys/src/9/alphapc/mkfile deleted file mode 100644 index 77071544a..000000000 --- a/sys/src/9/alphapc/mkfile +++ /dev/null @@ -1,106 +0,0 @@ -CONF=apc -CONFLIST=apc apccpu - -objtype=alpha - init.h - -clock.$O: /$objtype/include/ureg.h axp.h -devarch.$O: axp.h -faultalpha.$O: /$objtype/include/ureg.h -fptrap.$O: /$objtype/include/ureg.h -l.$O: osf1pal.h -main.$O: /$objtype/include/ureg.h errstr.h init.h -mmu.$O: /sys/src/boot/alphapc/conf.h -sd53c8xx.$O: /$objtype/include/ureg.h ../port/sd.h sd53c8xx.i -trap.$O: /$objtype/include/ureg.h ../port/error.h ../port/systab.h - -sd53c8xx.i: ../pc/sd53c8xx.n - aux/na $prereq > $target - -acid:V: - $CC -a -w -I. ../port/qio.c>acid diff --git a/sys/src/9/alphapc/mmu.c b/sys/src/9/alphapc/mmu.c deleted file mode 100644 index 21e1b74d7..000000000 --- a/sys/src/9/alphapc/mmu.c +++ /dev/null @@ -1,299 +0,0 @@ -#include "u.h" -#include "../port/lib.h" -#include "mem.h" -#include "dat.h" -#include "fns.h" -#include "/sys/src/boot/alphapc/conf.h" - -static uvlong origlvl1; /* physical address */ -static uvlong klvl2; /* physical, as created by boot loader */ -static uchar *nextio; /* next virtual address to be allocated by kmapv */ -extern Bootconf *bootconf; - -#define LVL2OFF(v) ((((long)(v))>>(2*PGSHIFT-3))&(PTE2PG-1)) -#define LVL3OFF(v) ((((long)(v))>>(PGSHIFT))&(PTE2PG-1)) - -static void -setptb(ulong pa) -{ - m->ptbr = (uvlong)pa>>PGSHIFT; - swpctx(m); -} - -void -mmuinit(void) -{ - uvlong *plvl2; - - /* set PCB to new one in mach structure before stomping on old one */ - m->usp = 0; - m->fen = 1; - m->ptbr = bootconf->pcb->ptbr; - origlvl1 = (m->ptbr << PGSHIFT); - setpcb(m); - - plvl2 = (uvlong*) (KZERO|origlvl1|(BY2PG-8)); - klvl2 = (*plvl2 >> 32)<maxphys); -} - -static void -mmuptefree(Proc* proc) -{ - uvlong *lvl2; - Page **last, *page; - - if(proc->mmutop && proc->mmuused){ - lvl2 = (uvlong*)proc->mmulvl2->va; - last = &proc->mmuused; - for(page = *last; page; page = page->next){ - lvl2[page->daddr] = 0; - last = &page->next; - } - *last = proc->mmufree; - proc->mmufree = proc->mmuused; - proc->mmuused = 0; - } -} - -void -mmuswitch(Proc *proc) -{ - if(proc->newtlb){ - mmuptefree(proc); - proc->newtlb = 0; - } - - /* tell processor about new page table and flush cached entries */ - if(proc->mmutop == 0) - setptb(origlvl1); - else - setptb(proc->mmutop->pa); - tlbflush(-1, 0); - icflush(); -} - -/* point to protoype page map */ -void -mmupark(void) -{ - setptb(origlvl1); - icflush(); -} - -/* - * give all page table pages back to the free pool. This is called in sched() - * with palloc locked. - */ -void -mmurelease(Proc *proc) -{ - Page *page, *next; - - mmupark(); - mmuptefree(proc); - proc->mmuused = 0; - if(proc->mmutop) { - proc->mmutop->next = proc->mmufree; - proc->mmufree = proc->mmutop; - proc->mmutop = 0; - } - if(proc->mmulvl2) { - proc->mmulvl2->next = proc->mmufree; - proc->mmufree = proc->mmulvl2; - proc->mmulvl2 = 0; - } - for(page = proc->mmufree; page; page = next){ - next = page->next; - if(--page->ref) - panic("mmurelease: page->ref %d\n", page->ref); - pagechainhead(page); - } - if(proc->mmufree) - pagechaindone(); - proc->mmufree = 0; -} - -void -mmunewtop(void) -{ - Page *top, *lvl2; - uvlong *ppte; - - top = newpage(1, 0, 0); - top->va = VA(kmap(top)); - lvl2 = newpage(1, 0, 0); - lvl2->va = VA(kmap(lvl2)); - - ppte = (uvlong *)top->va; - ppte[0] = PTEPFN(lvl2->pa) | PTEKVALID; - ppte[PTE2PG-2] = PTEPFN(top->pa) | PTEKVALID; - ppte[PTE2PG-1] = PTEPFN(klvl2) | PTEKVALID; - - up->mmutop = top; - up->mmulvl2 = lvl2; - setptb(top->pa); - tlbflush(-1, 0); - icflush(); -} - -void -putmmu(uintptr va, uintptr pa, Page *pg) -{ - int lvl2off; - uvlong *lvl2, *pt; - int s; - - if(up->mmutop == 0) - mmunewtop(); - - lvl2 = (uvlong*)up->mmulvl2->va; - lvl2off = LVL2OFF(va); - - /* - * if bottom level page table missing, allocate one - * and point the top level page at it. - */ - s = splhi(); - if(lvl2[lvl2off] == 0){ - if(up->mmufree == 0){ - spllo(); - pg = newpage(1, 0, 0); - pg->va = VA(kmap(pg)); - splhi(); - } else { - pg = up->mmufree; - up->mmufree = pg->next; - memset((void*)pg->va, 0, BY2PG); - } - lvl2[lvl2off] = PTEPFN(pg->pa) | PTEVALID; - pg->daddr = lvl2off; - pg->next = up->mmuused; - up->mmuused = pg; - } - - /* - * put in new mmu entry - */ - pt = (uvlong*)(((lvl2[lvl2off] >> 32)<>PGSHIFT); - - va = nextio+offset; - lvl2 = (uvlong*)(KZERO|klvl2); - for (i = 0; i < npage; i++) { - lvl2off = LVL2OFF(nextio); - if (lvl2[lvl2off] == 0) { - new = xspanalloc(BY2PG, BY2PG, 0); - memset(new, 0, BY2PG); - lvl2[lvl2off] = PTEPFN(PADDR(new)) | PTEKVALID | PTEASM; - } - pt = (uvlong*)(((lvl2[lvl2off] >> 32)<newtlb = 1; - mmuswitch(up); - splx(s); - -} - -void* -vmap(ulong pa, int size) -{ - void *va; - - /* - * Viability hack. Only for PCI framebuffers. - */ - if(pa == 0) - return 0; - va = kmapv(((uvlong)0x88<<32LL)|pa, size); - if(va == nil) - return 0; - return (void*)va; -} - -void -vunmap(void*, int) -{ - print("vunmap: virtual mapping not freed\n"); -} - -void -mmudump(void) -{ - Page *top, *lvl2; - - iprint("ptbr %lux up %#p\n", (ulong)m->ptbr, up); - if(up) { - top = up->mmutop; - if(top != nil) - iprint("top %lux top[N-1] %llux\n", top->va, ((uvlong *)top->va)[PTE2PG-1]); - lvl2 = up->mmulvl2; - if(lvl2 != nil) - iprint("lvl2 %lux\n", lvl2->va); - } -} - -ulong -upaalloc(int, int) -{ - return 0; -} - -void -upafree(ulong, int) -{ -} - -void -checkmmu(uintptr, uintptr) -{ -} - -void -countpagerefs(ulong*, int) -{ -} - -/* - * Return the number of bytes that can be accessed via KADDR(pa). - * If pa is not a valid argument to KADDR, return 0. - */ -ulong -cankaddr(ulong pa) -{ - ulong kzero; - - kzero = -KZERO; - if(pa >= kzero) - return 0; - return kzero - pa; -} diff --git a/sys/src/9/alphapc/osf1pal.h b/sys/src/9/alphapc/osf1pal.h deleted file mode 100644 index 0ee9e67ee..000000000 --- a/sys/src/9/alphapc/osf1pal.h +++ /dev/null @@ -1,78 +0,0 @@ -/* - * OSF/1 PALcode instructions, in numerical order. - * Values are from Digital EBSDK and FreeBSD/Alpha. - */ - -/* Privilaged PAL functions */ -#define PALhalt 0x00 /* required per Alpha architecture */ -#define PALcflush 0x01 -#define PALdraina 0x02 /* required per Alpha architecture */ -/* - * ... 0x03 to 0x08 ? - */ -#define PALcserve 0x09 -#define PALswppal 0x0a -/* - * ... 0x0b to 0x0c ? - */ -#define PALwripir 0x0d -/* - * ... 0x0e to 0x0f ? - */ -#define PALrdmces 0x10 -#define PALwrmces 0x11 -/* - * ... 0x12 to 0x2a ? - */ -#define PALwrfen 0x2b - /* 0x2c OSF/1 ? */ -#define PALwrvptptr 0x2d -/* - * ... 0x2e to 0x2f ? - */ -#define PALswpctx 0x30 -#define PALwrval 0x31 -#define PALrdval 0x32 -#define PALtbi 0x33 -#define PALwrent 0x34 -#define PALswpipl 0x35 -#define PALrdps 0x36 -#define PALwrkgp 0x37 -#define PALwrusp 0x38 -#define PALwrperfmon 0x39 -#define PALrdusp 0x3a - /* 0x3b OSF/1 ? */ -#define PALwhami 0x3c -#define PALretsys 0x3d -#define PALwtint 0x3e -#define PALrti 0x3f - -/* Unprivileged PAL functions */ -#define PALbpt 0x80 -#define PALbugchk 0x81 -#define PALcallsys 0x83 -#define PALimb 0x86 /* required per Alpha architecture */ -/* - * ... 0x89 to 0x91 ? - */ -#define PALurti 0x92 -/* - * ... 0x93 to 0x9d ? - */ -#define PALrdunique 0x9e -#define PALwrunique 0x9f -/* - * ... 0xa0 to 0xa9 ? - */ -#define PALgentrap 0xaa -/* - * ... 0xab to 0xac ? - */ -#define PALdbgstop 0xad -#define PALclrfen 0xae -/* - * ... 0xaf to 0xbd ? - */ -#define PALnphalt 0xbe -#define PALcopypal 0xbf - diff --git a/sys/src/9/alphapc/pci.c b/sys/src/9/alphapc/pci.c deleted file mode 100644 index 13d431c1a..000000000 --- a/sys/src/9/alphapc/pci.c +++ /dev/null @@ -1,412 +0,0 @@ -/* - * PCI support code. - * To do: - * initialise bridge mappings if the PCI BIOS didn't. - */ -#include "u.h" -#include "../port/lib.h" -#include "mem.h" -#include "dat.h" -#include "fns.h" -#include "io.h" -#include "../port/error.h" - -enum { - MaxFNO = 7, - MaxUBN = 255, -}; - -enum -{ /* command register */ - IOen = (1<<0), - MEMen = (1<<1), - MASen = (1<<2), - MemWrInv = (1<<4), - PErrEn = (1<<6), - SErrEn = (1<<8), -}; - -static Lock pcicfglock; -static Lock pcicfginitlock; -static int pcicfgmode = -1; -static int pcimaxdno; -static Pcidev* pciroot; -static Pcidev* pcilist; -static Pcidev* pcitail; - -static int pcicfgrw32(int, int, int, int); - -uchar *vgabios; - -static int -pciscan(int bno, Pcidev** list) -{ - ulong v; - Pcidev *p, *head, *tail; - int dno, fno, i, hdt, l, maxfno, maxubn, rno, sbn, tbdf, ubn; - - maxubn = bno; - head = nil; - tail = nil; - for(dno = 0; dno <= pcimaxdno; dno++){ - maxfno = 0; - for(fno = 0; fno <= maxfno; fno++){ - /* - * For this possible device, form the - * bus+device+function triplet needed to address it - * and try to read the vendor and device ID. - * If successful, allocate a device struct and - * start to fill it in with some useful information - * from the device's configuration space. - */ - tbdf = MKBUS(BusPCI, bno, dno, fno); - l = pcicfgrw32(tbdf, PciVID, 0, 1); - if(l == 0xFFFFFFFF || l == 0) - continue; -/* optional safety checks: - if(l == pcicfgrw32(tbdf, PciPCR, 0, 1)) - continue; - if(l != pcicfgrw32(tbdf, PciVID, 0, 1)) - continue; - if(l == pcicfgrw32(tbdf, PciPCR, 0, 1)) - continue; -*/ - p = malloc(sizeof(*p)); - p->tbdf = tbdf; - p->vid = l; - p->did = l>>16; - - if(pcilist != nil) - pcitail->list = p; - else - pcilist = p; - pcitail = p; - - p->rid = pcicfgr8(p, PciRID); - p->ccrp = pcicfgr8(p, PciCCRp); - p->ccru = pcicfgr8(p, PciCCRu); - p->ccrb = pcicfgr8(p, PciCCRb); - p->pcr = pcicfgr32(p, PciPCR); - - p->intl = pcicfgr8(p, PciINTL); - - /* - * If the device is a multi-function device adjust the - * loop count so all possible functions are checked. - */ - hdt = pcicfgr8(p, PciHDT); - if(hdt & 0x80) - maxfno = MaxFNO; - - /* - * If appropriate, read the base address registers - * and work out the sizes. - */ - switch(p->ccrb){ - - case 0x03: /* display controller */ - if(vgabios == nil) { - v = pcicfgr32(p, PciROM); - pcicfgw32(p, PciROM, v|1); /* enable decode */ - vgabios = kmapv(((uvlong)0x88<<32LL)|(v&~0xffff), 0x10000); - // print("VGA BIOS %lux -> %lux\n", v, vgabios); - } - /* fall through */ - case 0x01: /* mass storage controller */ - case 0x02: /* network controller */ - case 0x04: /* multimedia device */ - case 0x07: /* simple communication controllers */ - case 0x08: /* base system peripherals */ - case 0x09: /* input devices */ - case 0x0A: /* docking stations */ - case 0x0B: /* processors */ - case 0x0C: /* serial bus controllers */ - if((hdt & 0x7F) != 0) - break; - rno = PciBAR0 - 4; - for(i = 0; i < nelem(p->mem); i++){ - rno += 4; - p->mem[i].bar = pcicfgr32(p, rno); - pcicfgw32(p, rno, -1); - v = pcicfgr32(p, rno); - pcicfgw32(p, rno, p->mem[i].bar); - p->mem[i].size = -(v & ~0xF); - } - break; - - case 0x00: - case 0x05: /* memory controller */ - case 0x06: /* bridge device */ - default: - break; - } - - if(head != nil) - tail->link = p; - else - head = p; - tail = p; - } - } - - *list = head; - for(p = head; p != nil; p = p->link){ - /* - * Find PCI-PCI bridges and recursively descend the tree. - */ - if(p->ccrb != 0x06 || p->ccru != 0x04) - continue; - - /* - * If the secondary or subordinate bus number is not initialised - * try to do what the PCI BIOS should have done and fill in the - * numbers as the tree is descended. On the way down the subordinate - * bus number is set to the maximum as it's not known how many - * buses are behind this one; the final value is set on the way - * back up. - */ - sbn = pcicfgr8(p, PciSBN); - ubn = pcicfgr8(p, PciUBN); - if(sbn == 0 || ubn == 0){ - sbn = maxubn+1; - /* - * Make sure memory, I/O and master enables are off, - * set the primary, secondary and subordinate bus numbers - * and clear the secondary status before attempting to - * scan the secondary bus. - * - * Initialisation of the bridge should be done here. - */ - pcicfgw32(p, PciPCR, 0xFFFF0000); - l = (MaxUBN<<16)|(sbn<<8)|bno; - pcicfgw32(p, PciPBN, l); - pcicfgw16(p, PciSPSR, 0xFFFF); - maxubn = pciscan(sbn, &p->bridge); - l = (maxubn<<16)|(sbn<<8)|bno; - pcicfgw32(p, PciPBN, l); - } - else{ - maxubn = ubn; - pciscan(sbn, &p->bridge); - } - } - - return maxubn; -} - -static void -pcicfginit(void) -{ - char *p; - - lock(&pcicfginitlock); - if(pcicfgmode == -1){ - pcicfgmode = 0; - pcimaxdno = 15; /* was 20; what is correct value??? */ - if(p = getconf("*pcimaxdno")) - pcimaxdno = strtoul(p, 0, 0); - pciscan(0, &pciroot); - } - unlock(&pcicfginitlock); -} - -static int -pcicfgrw8(int tbdf, int rno, int data, int read) -{ - int x; - uchar *p; - - if(pcicfgmode == -1) - pcicfginit(); - x = -1; - if(BUSDNO(tbdf) > pcimaxdno) - return x; - - p = (uchar*)arch->pcicfg(tbdf, rno); - if(read) - x = *p; - else - *p = data; - - return x; -} - -int -pcicfgr8(Pcidev* pcidev, int rno) -{ - return pcicfgrw8(pcidev->tbdf, rno, 0, 1); -} - -void -pcicfgw8(Pcidev* pcidev, int rno, int data) -{ - pcicfgrw8(pcidev->tbdf, rno, data, 0); -} - -static int -pcicfgrw16(int tbdf, int rno, int data, int read) -{ - int x; - ushort *p; - - if(pcicfgmode == -1) - pcicfginit(); - x = -1; - if(BUSDNO(tbdf) > pcimaxdno) - return x; - - p = (ushort*)arch->pcicfg(tbdf, rno); - if(read) - x = *p; - else - *p = data; - - return x; -} - -int -pcicfgr16(Pcidev* pcidev, int rno) -{ - return pcicfgrw16(pcidev->tbdf, rno, 0, 1); -} - -void -pcicfgw16(Pcidev* pcidev, int rno, int data) -{ - pcicfgrw16(pcidev->tbdf, rno, data, 0); -} - -static int -pcicfgrw32(int tbdf, int rno, int data, int read) -{ - int x; - ulong *p; - - if(pcicfgmode == -1) - pcicfginit(); - x = -1; - if(BUSDNO(tbdf) > pcimaxdno) - return x; - - p = (ulong*)arch->pcicfg(tbdf, rno); - if(read) - x = *p; - else - *p = data; - - return x; -} - -int -pcicfgr32(Pcidev* pcidev, int rno) -{ - return pcicfgrw32(pcidev->tbdf, rno, 0, 1); -} - -void -pcicfgw32(Pcidev* pcidev, int rno, int data) -{ - pcicfgrw32(pcidev->tbdf, rno, data, 0); -} - -Pcidev* -pcimatch(Pcidev* prev, int vid, int did) -{ - if(pcicfgmode == -1) - pcicfginit(); - - if(prev == nil) - prev = pcilist; - else - prev = prev->list; - - while(prev != nil) { - if((vid == 0 || prev->vid == vid) - && (did == 0 || prev->did == did)) - break; - prev = prev->list; - } - return prev; -} - -Pcidev* -pcimatchtbdf(int tbdf) -{ - Pcidev *pcidev; - - if(pcicfgmode == -1) - pcicfginit(); - - for(pcidev = pcilist; pcidev != nil; pcidev = pcidev->list) { - if(pcidev->tbdf == tbdf) - break; - } - return pcidev; -} - -void -pcihinv(Pcidev* p) -{ - int i; - Pcidev *t; - - if(pcicfgmode == -1) - pcicfginit(); - if(p == nil) { - p = pciroot; - print("bus dev type vid did intl memory\n"); - } - for(t = p; t != nil; t = t->link) { - print("%d %2d/%d %.2ux %.2ux %.2ux %.4ux %.4ux %2d ", - BUSBNO(t->tbdf), BUSDNO(t->tbdf), BUSFNO(t->tbdf), - t->ccrb, t->ccru, t->ccrp, t->vid, t->did, t->intl); - - for(i = 0; i < nelem(p->mem); i++) { - if(t->mem[i].size == 0) - continue; - print("%d:%.8lux %d ", i, - t->mem[i].bar, t->mem[i].size); - } - print("\n"); - } - while(p != nil) { - if(p->bridge != nil) - pcihinv(p->bridge); - p = p->link; - } -} - -void -pcireset(void) -{ - Pcidev *p; - int pcr; - - if(pcicfgmode == -1) - pcicfginit(); - - for(p = pcilist; p != nil; p = p->list){ - pcr = pcicfgr16(p, PciPSR); - pcicfgw16(p, PciPSR, pcr & ~0x04); - } -} - -void -pcisetbme(Pcidev* p) -{ - int pcr; - - pcr = pcicfgr16(p, PciPCR); - pcr |= MASen; - pcicfgw16(p, PciPCR, pcr); -} - -void -pciclrbme(Pcidev* p) -{ - int pcr; - - pcr = pcicfgr16(p, PciPCR); - pcr &= ~MASen; - pcicfgw16(p, PciPCR, pcr); -} diff --git a/sys/src/9/alphapc/screen.h b/sys/src/9/alphapc/screen.h deleted file mode 100644 index b73284a64..000000000 --- a/sys/src/9/alphapc/screen.h +++ /dev/null @@ -1,172 +0,0 @@ -typedef struct Cursor Cursor; -typedef struct Cursorinfo Cursorinfo; -struct Cursorinfo { - Cursor; - Lock; -}; - -/* devmouse.c */ -extern void mousetrack(int, int, int, int); -extern void absmousetrack(int, int, int, int); -extern Point mousexy(void); - -extern void mouseaccelerate(int); -extern int m3mouseputc(Queue*, int); -extern int m5mouseputc(Queue*, int); -extern int mouseputc(Queue*, int); - -extern Cursorinfo cursor; -extern Cursor arrow; - -/* - * Generic VGA registers. - */ -enum { - MiscW = 0x03C2, /* Miscellaneous Output (W) */ - MiscR = 0x03CC, /* Miscellaneous Output (R) */ - Status0 = 0x03C2, /* Input status 0 (R) */ - Status1 = 0x03DA, /* Input Status 1 (R) */ - FeatureR = 0x03CA, /* Feature Control (R) */ - FeatureW = 0x03DA, /* Feature Control (W) */ - - Seqx = 0x03C4, /* Sequencer Index, Data at Seqx+1 */ - Crtx = 0x03D4, /* CRT Controller Index, Data at Crtx+1 */ - Grx = 0x03CE, /* Graphics Controller Index, Data at Grx+1 */ - Attrx = 0x03C0, /* Attribute Controller Index and Data */ - - PaddrW = 0x03C8, /* Palette Address Register, write */ - Pdata = 0x03C9, /* Palette Data Register */ - Pixmask = 0x03C6, /* Pixel Mask Register */ - PaddrR = 0x03C7, /* Palette Address Register, read */ - Pstatus = 0x03C7, /* DAC Status (RO) */ - - Pcolours = 256, /* Palette */ - Pred = 0, - Pgreen = 1, - Pblue = 2, - - Pblack = 0x00, - Pwhite = 0xFF, -}; - -#define VGAMEM() PADDR(arch->pcimem(0xA0000, 1<<16)) - -#define vgai(port) inb(port) -#define vgao(port, data) outb(port, data) - -extern int vgaxi(long, uchar); -extern int vgaxo(long, uchar, uchar); - -/* - */ -typedef struct VGAdev VGAdev; -typedef struct VGAcur VGAcur; -typedef struct VGAscr VGAscr; - -struct VGAdev { - char* name; - - void (*enable)(VGAscr*); - void (*disable)(VGAscr*); - void (*page)(VGAscr*, int); - void (*linear)(VGAscr*, int, int); - void (*drawinit)(VGAscr*); - int (*fill)(VGAscr*, Rectangle, ulong); - void (*flush)(VGAscr*, Rectangle); - -}; - -struct VGAcur { - char* name; - - void (*enable)(VGAscr*); - void (*disable)(VGAscr*); - void (*load)(VGAscr*, Cursor*); - int (*move)(VGAscr*, Point); - - int doespanning; -}; - -/* - */ -struct VGAscr { - Lock devlock; - VGAdev* dev; - Pcidev* pci; - - VGAcur* cur; - ulong storage; - Cursor; - - int useflush; - - ulong paddr; /* frame buffer */ - void* vaddr; - int apsize; - - ulong io; /* device specific registers */ - ulong *mmio; - - ulong colormap[Pcolours][3]; - int palettedepth; - - Memimage* gscreen; - Memdata* gscreendata; - Memsubfont* memdefont; - - int (*fill)(VGAscr*, Rectangle, ulong); - int (*scroll)(VGAscr*, Rectangle, Rectangle); - void (*blank)(VGAscr*, int); - ulong id; /* internal identifier for driver use */ -}; - -extern VGAscr vgascreen[]; - -enum { - Backgnd = 0, /* black */ -}; - -/* mouse.c */ -extern void mousectl(Cmdbuf*); - -/* screen.c */ -extern int hwaccel; /* use hw acceleration; default on */ -extern int hwblank; /* use hw blanking; default on */ -extern void addvgaseg(char*, ulong, ulong); -extern uchar* attachscreen(Rectangle*, ulong*, int*, int*, int*); -extern void flushmemscreen(Rectangle); -extern int cursoron(int); -extern void cursoroff(int); -extern void setcursor(Cursor*); -extern int screensize(int, int, int, ulong); -extern int screenaperture(int, int); -extern Rectangle physgscreenr; /* actual monitor size */ -extern void blankscreen(int); - -extern VGAcur swcursor; -extern void swcursorinit(void); -extern void swcursorhide(void); -extern void swcursoravoid(Rectangle); -extern void swcursorunhide(void); - -/* devdraw.c */ -extern void deletescreenimage(void); -extern int drawhasclients(void); -extern ulong blanktime; -extern QLock drawlock; - -/* vga.c */ -extern void vgascreenwin(VGAscr*); -extern void vgaimageinit(ulong); -extern void vgalinearpciid(VGAscr*, int, int); -extern void vgalinearpci(VGAscr*); -extern void vgalinearaddr(VGAscr*, ulong, int); - -extern void drawblankscreen(int); -extern void vgablank(VGAscr*, int); - -extern Lock vgascreenlock; - -#define ishwimage(i) (vgascreen[0].gscreendata && (i)->data->bdata == vgascreen[0].gscreendata->bdata) - - diff --git a/sys/src/9/alphapc/sd53c8xx.c b/sys/src/9/alphapc/sd53c8xx.c deleted file mode 100644 index b16c0a0a9..000000000 --- a/sys/src/9/alphapc/sd53c8xx.c +++ /dev/null @@ -1,2261 +0,0 @@ -/* - * NCR/Symbios/LSI Logic 53c8xx driver for Plan 9 - * Nigel Roles (nigel@9fs.org) - * - * 27/5/02 Fixed problems with transfers >= 256 * 512 - * - * 13/3/01 Fixed microcode to support targets > 7 - * - * 01/12/00 Removed previous comments. Fixed a small problem in - * mismatch recovery for targets with synchronous offsets of >=16 - * connected to >=875s. Thanks, Jean. - * - * Known problems - * - * Read/write mismatch recovery may fail on 53c1010s. Really need to get a manual. - */ - -#define MAXTARGET 16 /* can be 8 or 16 */ - -#include "u.h" -#include "../port/lib.h" -#include "mem.h" -#include "dat.h" -#include "fns.h" -#include "io.h" - -#include "../port/sd.h" -extern SDifc sd53c8xxifc; - -/**********************************/ -/* Portable configuration macros */ -/**********************************/ - -//#define BOOTDEBUG -//#define ASYNC_ONLY -//#define INTERNAL_SCLK -//#define ALWAYS_DO_WDTR -#define WMR_DEBUG - -/**********************************/ -/* CPU specific macros */ -/**********************************/ - -#define PRINTPREFIX "sd53c8xx: " - -#ifdef BOOTDEBUG - -#define KPRINT oprint -#define IPRINT intrprint -#define DEBUG(n) 1 -#define IFLUSH() iflush() - -#else - -static int idebug = 1; -#define KPRINT if(0) iprint -#define IPRINT if(idebug) iprint -#define DEBUG(n) (0) -#define IFLUSH() - -#endif /* BOOTDEBUG */ - -/*******************************/ -/* General */ -/*******************************/ - -#ifndef DMASEG -#define DMASEG(x) PCIWADDR(x) -#define legetl(x) (*(ulong*)(x)) -#define lesetl(x,v) (*(ulong*)(x) = (v)) -#define swabl(a,b,c) -#else -#endif /*DMASEG */ -#define DMASEG_TO_KADDR(x) KADDR((x)-PCIWINDOW) -#define KPTR(x) ((x) == 0 ? 0 : DMASEG_TO_KADDR(x)) - -#define MEGA 1000000L -#ifdef INTERNAL_SCLK -#define SCLK (33 * MEGA) -#else -#define SCLK (40 * MEGA) -#endif /* INTERNAL_SCLK */ -#define ULTRA_NOCLOCKDOUBLE_SCLK (80 * MEGA) - -#define MAXSYNCSCSIRATE (5 * MEGA) -#define MAXFASTSYNCSCSIRATE (10 * MEGA) -#define MAXULTRASYNCSCSIRATE (20 * MEGA) -#define MAXULTRA2SYNCSCSIRATE (40 * MEGA) -#define MAXASYNCCORERATE (25 * MEGA) -#define MAXSYNCCORERATE (25 * MEGA) -#define MAXFASTSYNCCORERATE (50 * MEGA) -#define MAXULTRASYNCCORERATE (80 * MEGA) -#define MAXULTRA2SYNCCORERATE (160 * MEGA) - - -#define X_MSG 1 -#define X_MSG_SDTR 1 -#define X_MSG_WDTR 3 - -struct na_patch { - unsigned lwoff; - unsigned char type; -}; - -typedef struct Ncr { - uchar scntl0; /* 00 */ - uchar scntl1; - uchar scntl2; - uchar scntl3; - - uchar scid; /* 04 */ - uchar sxfer; - uchar sdid; - uchar gpreg; - - uchar sfbr; /* 08 */ - uchar socl; - uchar ssid; - uchar sbcl; - - uchar dstat; /* 0c */ - uchar sstat0; - uchar sstat1; - uchar sstat2; - - uchar dsa[4]; /* 10 */ - - uchar istat; /* 14 */ - uchar istatpad[3]; - - uchar ctest0; /* 18 */ - uchar ctest1; - uchar ctest2; - uchar ctest3; - - uchar temp[4]; /* 1c */ - - uchar dfifo; /* 20 */ - uchar ctest4; - uchar ctest5; - uchar ctest6; - - uchar dbc[3]; /* 24 */ - uchar dcmd; /* 27 */ - - uchar dnad[4]; /* 28 */ - uchar dsp[4]; /* 2c */ - uchar dsps[4]; /* 30 */ - - uchar scratcha[4]; /* 34 */ - - uchar dmode; /* 38 */ - uchar dien; - uchar dwt; - uchar dcntl; - - uchar adder[4]; /* 3c */ - - uchar sien0; /* 40 */ - uchar sien1; - uchar sist0; - uchar sist1; - - uchar slpar; /* 44 */ - uchar slparpad0; - uchar macntl; - uchar gpcntl; - - uchar stime0; /* 48 */ - uchar stime1; - uchar respid; - uchar respidpad0; - - uchar stest0; /* 4c */ - uchar stest1; - uchar stest2; - uchar stest3; - - uchar sidl; /* 50 */ - uchar sidlpad[3]; - - uchar sodl; /* 54 */ - uchar sodlpad[3]; - - uchar sbdl; /* 58 */ - uchar sbdlpad[3]; - - uchar scratchb[4]; /* 5c */ -} Ncr; - -typedef struct Movedata { - uchar dbc[4]; - uchar pa[4]; -} Movedata; - -typedef enum NegoState { - NeitherDone, WideInit, WideResponse, WideDone, - SyncInit, SyncResponse, BothDone -} NegoState; - -typedef enum State { - Allocated, Queued, Active, Done -} State; - -typedef struct Dsa { - uchar stateb; - uchar result; - uchar dmablks; - uchar flag; /* setbyte(state,3,...) */ - - union { - ulong dmancr; /* For block transfer: NCR order (little-endian) */ - uchar dmaaddr[4]; - }; - - uchar target; /* Target */ - uchar pad0[3]; - - uchar lun; /* Logical Unit Number */ - uchar pad1[3]; - - uchar scntl3; - uchar sxfer; - uchar pad2[2]; - - uchar next[4]; /* chaining for SCRIPT (NCR byte order) */ - struct Dsa *freechain; /* chaining for freelist */ - Rendez; - uchar scsi_id_buf[4]; - Movedata msg_out_buf; - Movedata cmd_buf; - Movedata data_buf; - Movedata status_buf; - uchar msg_out[10]; /* enough to include SDTR */ - uchar status; - int p9status; - uchar parityerror; -} Dsa; - -typedef enum Feature { - BigFifo = 1, /* 536 byte fifo */ - BurstOpCodeFetch = 2, /* burst fetch opcodes */ - Prefetch = 4, /* prefetch 8 longwords */ - LocalRAM = 8, /* 4K longwords of local RAM */ - Differential = 16, /* Differential support */ - Wide = 32, /* Wide capable */ - Ultra = 64, /* Ultra capable */ - ClockDouble = 128, /* Has clock doubler */ - ClockQuad = 256, /* Has clock quadrupler (same as Ultra2) */ - Ultra2 = 256, -} Feature; - -typedef enum Burst { - Burst2 = 0, - Burst4 = 1, - Burst8 = 2, - Burst16 = 3, - Burst32 = 4, - Burst64 = 5, - Burst128 = 6 -} Burst; - -typedef struct Variant { - ushort did; - uchar maxrid; /* maximum allowed revision ID */ - char *name; - Burst burst; /* codings for max burst */ - uchar maxsyncoff; /* max synchronous offset */ - uchar registers; /* number of 32 bit registers */ - unsigned feature; -} Variant; - -static unsigned char cf2[] = { 6, 2, 3, 4, 6, 8, 12, 16 }; -#define NULTRA2SCF (sizeof(cf2)/sizeof(cf2[0])) -#define NULTRASCF (NULTRA2SCF - 2) -#define NSCF (NULTRASCF - 1) - -typedef struct Controller { - Lock; - struct { - uchar scntl3; - uchar stest2; - } bios; - uchar synctab[NULTRA2SCF - 1][8];/* table of legal tpfs */ - NegoState s[MAXTARGET]; - uchar scntl3[MAXTARGET]; - uchar sxfer[MAXTARGET]; - uchar cap[MAXTARGET]; /* capabilities byte from Identify */ - ushort capvalid; /* bit per target for validity of cap[] */ - ushort wide; /* bit per target set if wide negotiated */ - ulong sclk; /* clock speed of controller */ - uchar clockmult; /* set by synctabinit */ - uchar ccf; /* CCF bits */ - uchar tpf; /* best tpf value for this controller */ - uchar feature; /* requested features */ - int running; /* is the script processor running? */ - int ssm; /* single step mode */ - Ncr *n; /* pointer to registers */ - Variant *v; /* pointer to variant type */ - ulong *script; /* where the real script is */ - ulong scriptpa; /* where the real script is */ - Pcidev* pcidev; - SDev* sdev; - - struct { - Lock; - uchar head[4]; /* head of free list (NCR byte order) */ - Dsa *freechain; - } dsalist; - - QLock q[MAXTARGET]; /* queues for each target */ -} Controller; - -#define SYNCOFFMASK(c) (((c)->v->maxsyncoff * 2) - 1) -#define SSIDMASK(c) (((c)->v->feature & Wide) ? 15 : 7) - -/* ISTAT */ -enum { Abrt = 0x80, Srst = 0x40, Sigp = 0x20, Sem = 0x10, Con = 0x08, Intf = 0x04, Sip = 0x02, Dip = 0x01 }; - -/* DSTAT */ -enum { Dfe = 0x80, Mdpe = 0x40, Bf = 0x20, Abrted = 0x10, Ssi = 0x08, Sir = 0x04, Iid = 0x01 }; - -/* SSTAT */ -enum { DataOut, DataIn, Cmd, Status, ReservedOut, ReservedIn, MessageOut, MessageIn }; - -static void setmovedata(Movedata*, ulong, ulong); -static void advancedata(Movedata*, long); -static int bios_set_differential(Controller *c); - -static char *phase[] = { - "data out", "data in", "command", "status", - "reserved out", "reserved in", "message out", "message in" -}; - -#ifdef BOOTDEBUG -#define DEBUGSIZE 10240 -char debugbuf[DEBUGSIZE]; -char *debuglast; - -static void -intrprint(char *format, ...) -{ - if (debuglast == 0) - debuglast = debugbuf; - debuglast = vseprint(debuglast, debugbuf + (DEBUGSIZE - 1), format, (&format + 1)); -} - -static void -iflush() -{ - int s; - char *endp; - s = splhi(); - if (debuglast == 0) - debuglast = debugbuf; - if (debuglast == debugbuf) { - splx(s); - return; - } - endp = debuglast; - splx(s); - screenputs(debugbuf, endp - debugbuf); - s = splhi(); - memmove(debugbuf, endp, debuglast - endp); - debuglast -= endp - debugbuf; - splx(s); -} - -static void -oprint(char *format, ...) -{ - int s; - - iflush(); - s = splhi(); - if (debuglast == 0) - debuglast = debugbuf; - debuglast = vseprint(debuglast, debugbuf + (DEBUGSIZE - 1), format, (&format + 1)); - splx(s); - iflush(); -} -#endif - -#include "sd53c8xx.i" - -/* - * We used to use a linked list of Dsas with nil as the terminator, - * but occasionally the 896 card seems not to notice that the 0 - * is really a 0, and then it tries to reference the Dsa at address 0. - * To address this, we use a sentinel dsa that links back to itself - * and has state A_STATE_END. If the card takes an iteration or - * two to notice that the state says A_STATE_END, that's no big - * deal. Clearly this isn't the right approach, but I'm just - * stumped. Even with this, we occasionally get prints about - * "WSR set", usually with about the same frequency that the - * card used to walk past 0. - */ -static Dsa *dsaend; - -static Dsa* -dsaallocnew(Controller *c) -{ - Dsa *d; - - /* c->dsalist must be ilocked */ - d = xalloc(sizeof *d); - lesetl(d->next, legetl(c->dsalist.head)); - lesetl(&d->stateb, A_STATE_FREE); - coherence(); - lesetl(c->dsalist.head, DMASEG(d)); - coherence(); - return d; -} - -static Dsa * -dsaalloc(Controller *c, int target, int lun) -{ - Dsa *d; - - ilock(&c->dsalist); - if ((d = c->dsalist.freechain) != 0) { - if (DEBUG(1)) - IPRINT(PRINTPREFIX "%d/%d: reused dsa %lux\n", target, lun, (ulong)d); - } else { - d = dsaallocnew(c); - if (DEBUG(1)) - IPRINT(PRINTPREFIX "%d/%d: allocated dsa %lux\n", target, lun, (ulong)d); - } - c->dsalist.freechain = d->freechain; - lesetl(&d->stateb, A_STATE_ALLOCATED); - iunlock(&c->dsalist); - d->target = target; - d->lun = lun; - return d; -} - -static void -dsafree(Controller *c, Dsa *d) -{ - ilock(&c->dsalist); - d->freechain = c->dsalist.freechain; - c->dsalist.freechain = d; - lesetl(&d->stateb, A_STATE_FREE); - iunlock(&c->dsalist); -} - -static void -dsadump(Controller *c) -{ - Dsa *d; - u32int *a; - - iprint("dsa controller list: c=%p head=%.8lux\n", c, legetl(c->dsalist.head)); - for(d=KPTR(legetl(c->dsalist.head)); d != dsaend; d=KPTR(legetl(d->next))){ - if(d == (void*)-1){ - iprint("\t dsa %p\n", d); - break; - } - a = (u32int*)d; - iprint("\tdsa %p %.8ux %.8ux %.8ux %.8ux %.8ux %.8ux\n", a, a[0], a[1], a[2], a[3], a[4], a[5]); - } - -/* - a = KPTR(c->scriptpa+E_dsa_addr); - iprint("dsa_addr: %.8ux %.8ux %.8ux %.8ux %.8ux\n", - a[0], a[1], a[2], a[3], a[4]); - a = KPTR(c->scriptpa+E_issue_addr); - iprint("issue_addr: %.8ux %.8ux %.8ux %.8ux %.8ux\n", - a[0], a[1], a[2], a[3], a[4]); - - a = KPTR(c->scriptpa+E_issue_test_begin); - e = KPTR(c->scriptpa+E_issue_test_end); - iprint("issue_test code (at offset %.8ux):\n", E_issue_test_begin); - - i = 0; - for(; adsalist.head)); d != dsaend; d = KPTR(legetl(d->next))) { - if (d->target != 0xff && d->target != target) - continue; - if (lun != 0xff && d->lun != lun) - continue; - if (state != 0xff && d->stateb != state) - continue; - break; - } - return d; -} - -static void -dumpncrregs(Controller *c, int intr) -{ - int i; - Ncr *n = c->n; - int depth = c->v->registers / 4; - - if (intr) { - IPRINT("sa = %.8lux\n", c->scriptpa); - } - else { - KPRINT("sa = %.8lux\n", c->scriptpa); - } - for (i = 0; i < depth; i++) { - int j; - for (j = 0; j < 4; j++) { - int k = j * depth + i; - uchar *p; - - /* display little-endian to make 32-bit values readable */ - p = (uchar*)n+k*4; - if (intr) { - IPRINT(" %.2x%.2x%.2x%.2x %.2x %.2x", p[3], p[2], p[1], p[0], k * 4, (k * 4) + 0x80); - } - else { - KPRINT(" %.2x%.2x%.2x%.2x %.2x %.2x", p[3], p[2], p[1], p[0], k * 4, (k * 4) + 0x80); - } - USED(p); - } - if (intr) { - IPRINT("\n"); - } - else { - KPRINT("\n"); - } - } -} - -static int -chooserate(Controller *c, int tpf, int *scfp, int *xferpp) -{ - /* find lowest entry >= tpf */ - int besttpf = 1000; - int bestscfi = 0; - int bestxferp = 0; - int scf, xferp; - int maxscf; - - if (c->v->feature & Ultra2) - maxscf = NULTRA2SCF; - else if (c->v->feature & Ultra) - maxscf = NULTRASCF; - else - maxscf = NSCF; - - /* - * search large clock factors first since this should - * result in more reliable transfers - */ - for (scf = maxscf; scf >= 1; scf--) { - for (xferp = 0; xferp < 8; xferp++) { - unsigned char v = c->synctab[scf - 1][xferp]; - if (v == 0) - continue; - if (v >= tpf && v < besttpf) { - besttpf = v; - bestscfi = scf; - bestxferp = xferp; - } - } - } - if (besttpf == 1000) - return 0; - if (scfp) - *scfp = bestscfi; - if (xferpp) - *xferpp = bestxferp; - return besttpf; -} - -static void -synctabinit(Controller *c) -{ - int scf; - unsigned long scsilimit; - int xferp; - unsigned long cr, sr; - int tpf; - int fast; - int maxscf; - - if (c->v->feature & Ultra2) - maxscf = NULTRA2SCF; - else if (c->v->feature & Ultra) - maxscf = NULTRASCF; - else - maxscf = NSCF; - - /* - * for chips with no clock doubler, but Ultra capable (e.g. 860, or interestingly the - * first spin of the 875), assume 80MHz - * otherwise use the internal (33 Mhz) or external (40MHz) default - */ - - if ((c->v->feature & Ultra) != 0 && (c->v->feature & (ClockDouble | ClockQuad)) == 0) - c->sclk = ULTRA_NOCLOCKDOUBLE_SCLK; - else - c->sclk = SCLK; - - /* - * otherwise, if the chip is Ultra capable, but has a slow(ish) clock, - * invoke the doubler - */ - - if (SCLK <= 40000000) { - if (c->v->feature & ClockDouble) { - c->sclk *= 2; - c->clockmult = 1; - } - else if (c->v->feature & ClockQuad) { - c->sclk *= 4; - c->clockmult = 1; - } - else - c->clockmult = 0; - } - else - c->clockmult = 0; - - /* derive CCF from sclk */ - /* woebetide anyone with SCLK < 16.7 or > 80MHz */ - if (c->sclk <= 25 * MEGA) - c->ccf = 1; - else if (c->sclk <= 3750000) - c->ccf = 2; - else if (c->sclk <= 50 * MEGA) - c->ccf = 3; - else if (c->sclk <= 75 * MEGA) - c->ccf = 4; - else if ((c->v->feature & ClockDouble) && c->sclk <= 80 * MEGA) - c->ccf = 5; - else if ((c->v->feature & ClockQuad) && c->sclk <= 120 * MEGA) - c->ccf = 6; - else if ((c->v->feature & ClockQuad) && c->sclk <= 160 * MEGA) - c->ccf = 7; - - for (scf = 1; scf < maxscf; scf++) { - /* check for legal core rate */ - /* round up so we run slower for safety */ - cr = (c->sclk * 2 + cf2[scf] - 1) / cf2[scf]; - if (cr <= MAXSYNCCORERATE) { - scsilimit = MAXSYNCSCSIRATE; - fast = 0; - } - else if (cr <= MAXFASTSYNCCORERATE) { - scsilimit = MAXFASTSYNCSCSIRATE; - fast = 1; - } - else if ((c->v->feature & Ultra) && cr <= MAXULTRASYNCCORERATE) { - scsilimit = MAXULTRASYNCSCSIRATE; - fast = 2; - } - else if ((c->v->feature & Ultra2) && cr <= MAXULTRA2SYNCCORERATE) { - scsilimit = MAXULTRA2SYNCSCSIRATE; - fast = 3; - } - else - continue; - for (xferp = 11; xferp >= 4; xferp--) { - int ok; - int tp; - /* calculate scsi rate - round up again */ - /* start from sclk for accuracy */ - int totaldivide = xferp * cf2[scf]; - sr = (c->sclk * 2 + totaldivide - 1) / totaldivide; - if (sr > scsilimit) - break; - /* - * now work out transfer period - * round down now so that period is pessimistic - */ - tp = (MEGA * 1000) / sr; - /* - * bounds check it - */ - if (tp < 25 || tp > 255 * 4) - continue; - /* - * spot stupid special case for Ultra or Ultra2 - * while working out factor - */ - if (tp == 25) - tpf = 10; - else if (tp == 50) - tpf = 12; - else if (tp < 52) - continue; - else - tpf = tp / 4; - /* - * now check tpf looks sensible - * given core rate - */ - switch (fast) { - case 0: - /* scf must be ccf for SCSI 1 */ - ok = tpf >= 50 && scf == c->ccf; - break; - case 1: - ok = tpf >= 25 && tpf < 50; - break; - case 2: - /* - * must use xferp of 4, or 5 at a pinch - * for an Ultra transfer - */ - ok = xferp <= 5 && tpf >= 12 && tpf < 25; - break; - case 3: - ok = xferp == 4 && (tpf == 10 || tpf == 11); - break; - default: - ok = 0; - } - if (!ok) - continue; - c->synctab[scf - 1][xferp - 4] = tpf; - } - } - -#ifndef NO_ULTRA2 - if (c->v->feature & Ultra2) - tpf = 10; - else -#endif - if (c->v->feature & Ultra) - tpf = 12; - else - tpf = 25; - for (; tpf < 256; tpf++) { - if (chooserate(c, tpf, &scf, &xferp) == tpf) { - unsigned tp = tpf == 10 ? 25 : (tpf == 12 ? 50 : tpf * 4); - unsigned long khz = (MEGA + tp - 1) / (tp); - KPRINT(PRINTPREFIX "tpf=%d scf=%d.%.1d xferp=%d mhz=%ld.%.3ld\n", - tpf, cf2[scf] / 2, (cf2[scf] & 1) ? 5 : 0, - xferp + 4, khz / 1000, khz % 1000); - USED(khz); - if (c->tpf == 0) - c->tpf = tpf; /* note lowest value for controller */ - } - } -} - -static void -synctodsa(Dsa *dsa, Controller *c) -{ -/* - KPRINT("synctodsa(dsa=%lux, target=%d, scntl3=%.2lx sxfer=%.2x)\n", - dsa, dsa->target, c->scntl3[dsa->target], c->sxfer[dsa->target]); -*/ - dsa->scntl3 = c->scntl3[dsa->target]; - dsa->sxfer = c->sxfer[dsa->target]; -} - -static void -setsync(Dsa *dsa, Controller *c, int target, uchar ultra, uchar scf, uchar xferp, uchar reqack) -{ - c->scntl3[target] = - (c->scntl3[target] & 0x08) | (((scf << 4) | c->ccf | (ultra << 7)) & ~0x08); - c->sxfer[target] = (xferp << 5) | reqack; - c->s[target] = BothDone; - if (dsa) { - synctodsa(dsa, c); - c->n->scntl3 = c->scntl3[target]; - c->n->sxfer = c->sxfer[target]; - } -} - -static void -setasync(Dsa *dsa, Controller *c, int target) -{ - setsync(dsa, c, target, 0, c->ccf, 0, 0); -} - -static void -setwide(Dsa *dsa, Controller *c, int target, uchar wide) -{ - c->scntl3[target] = wide ? (1 << 3) : 0; - setasync(dsa, c, target); - c->s[target] = WideDone; -} - -static int -buildsdtrmsg(uchar *buf, uchar tpf, uchar offset) -{ - *buf++ = X_MSG; - *buf++ = 3; - *buf++ = X_MSG_SDTR; - *buf++ = tpf; - *buf = offset; - return 5; -} - -static int -buildwdtrmsg(uchar *buf, uchar expo) -{ - *buf++ = X_MSG; - *buf++ = 2; - *buf++ = X_MSG_WDTR; - *buf = expo; - return 4; -} - -static void -start(Controller *c, long entry) -{ - ulong p; - - if (c->running) - panic(PRINTPREFIX "start called while running"); - c->running = 1; - p = c->scriptpa + entry; - lesetl(c->n->dsp, p); - coherence(); - if (c->ssm) - c->n->dcntl |= 0x4; /* start DMA in SSI mode */ -} - -static void -ncrcontinue(Controller *c) -{ - if (c->running) - panic(PRINTPREFIX "ncrcontinue called while running"); - /* set the start DMA bit to continue execution */ - c->running = 1; - coherence(); - c->n->dcntl |= 0x4; -} - -static void -softreset(Controller *c) -{ - Ncr *n = c->n; - - n->istat = Srst; /* software reset */ - n->istat = 0; - /* general initialisation */ - n->scid = (1 << 6) | 7; /* respond to reselect, ID 7 */ - n->respid = 1 << 7; /* response ID = 7 */ - -#ifdef INTERNAL_SCLK - n->stest1 = 0x80; /* disable external scsi clock */ -#else - n->stest1 = 0x00; -#endif - - n->stime0 = 0xdd; /* about 0.5 second timeout on each device */ - n->scntl0 |= 0x8; /* Enable parity checking */ - - /* continued setup */ - n->sien0 = 0x8f; - n->sien1 = 0x04; - n->dien = 0x7d; - n->stest3 = 0x80; /* TolerANT enable */ - c->running = 0; - - if (c->v->feature & BigFifo) - n->ctest5 = (1 << 5); - n->dmode = c->v->burst << 6; /* set burst length bits */ - if (c->v->burst & 4) - n->ctest5 |= (1 << 2); /* including overflow into ctest5 bit 2 */ - if (c->v->feature & Prefetch) - n->dcntl |= (1 << 5); /* prefetch enable */ - else if (c->v->feature & BurstOpCodeFetch) - n->dmode |= (1 << 1); /* burst opcode fetch */ - if (c->v->feature & Differential) { - /* chip capable */ - if ((c->feature & Differential) || bios_set_differential(c)) { - /* user enabled, or some evidence bios set differential */ - if (n->sstat2 & (1 << 2)) - print(PRINTPREFIX "can't go differential; wrong cable\n"); - else { - n->stest2 = (1 << 5); - print(PRINTPREFIX "differential mode set\n"); - } - } - } - if (c->clockmult) { - n->stest1 |= (1 << 3); /* power up doubler */ - delay(2); - n->stest3 |= (1 << 5); /* stop clock */ - n->stest1 |= (1 << 2); /* enable doubler */ - n->stest3 &= ~(1 << 5); /* start clock */ - /* pray */ - } -} - -static void -msgsm(Dsa *dsa, Controller *c, int msg, int *cont, int *wakeme) -{ - uchar histpf, hisreqack; - int tpf; - int scf, xferp; - int len; - - Ncr *n = c->n; - - switch (c->s[dsa->target]) { - case SyncInit: - switch (msg) { - case A_SIR_MSG_SDTR: - /* reply to my SDTR */ - histpf = n->scratcha[2]; - hisreqack = n->scratcha[3]; - KPRINT(PRINTPREFIX "%d: SDTN response %d %d\n", - dsa->target, histpf, hisreqack); - - if (hisreqack == 0) - setasync(dsa, c, dsa->target); - else { - /* hisreqack should be <= c->v->maxsyncoff */ - tpf = chooserate(c, histpf, &scf, &xferp); - KPRINT(PRINTPREFIX "%d: SDTN: using %d %d\n", - dsa->target, tpf, hisreqack); - setsync(dsa, c, dsa->target, tpf < 25, scf, xferp, hisreqack); - } - *cont = -2; - return; - case A_SIR_EV_PHASE_SWITCH_AFTER_ID: - /* target ignored ATN for message after IDENTIFY - not SCSI-II */ - KPRINT(PRINTPREFIX "%d: illegal phase switch after ID message - SCSI-1 device?\n", dsa->target); - KPRINT(PRINTPREFIX "%d: SDTN: async\n", dsa->target); - setasync(dsa, c, dsa->target); - *cont = E_to_decisions; - return; - case A_SIR_MSG_REJECT: - /* rejection of my SDTR */ - KPRINT(PRINTPREFIX "%d: SDTN: rejected SDTR\n", dsa->target); - //async: - KPRINT(PRINTPREFIX "%d: SDTN: async\n", dsa->target); - setasync(dsa, c, dsa->target); - *cont = -2; - return; - } - break; - case WideInit: - switch (msg) { - case A_SIR_MSG_WDTR: - /* reply to my WDTR */ - KPRINT(PRINTPREFIX "%d: WDTN: response %d\n", - dsa->target, n->scratcha[2]); - setwide(dsa, c, dsa->target, n->scratcha[2]); - *cont = -2; - return; - case A_SIR_EV_PHASE_SWITCH_AFTER_ID: - /* target ignored ATN for message after IDENTIFY - not SCSI-II */ - KPRINT(PRINTPREFIX "%d: illegal phase switch after ID message - SCSI-1 device?\n", dsa->target); - setwide(dsa, c, dsa->target, 0); - *cont = E_to_decisions; - return; - case A_SIR_MSG_REJECT: - /* rejection of my SDTR */ - KPRINT(PRINTPREFIX "%d: WDTN: rejected WDTR\n", dsa->target); - setwide(dsa, c, dsa->target, 0); - *cont = -2; - return; - } - break; - - case NeitherDone: - case WideDone: - case BothDone: - switch (msg) { - case A_SIR_MSG_WDTR: { - uchar hiswide, mywide; - hiswide = n->scratcha[2]; - mywide = (c->v->feature & Wide) != 0; - KPRINT(PRINTPREFIX "%d: WDTN: target init %d\n", - dsa->target, hiswide); - if (hiswide < mywide) - mywide = hiswide; - KPRINT(PRINTPREFIX "%d: WDTN: responding %d\n", - dsa->target, mywide); - setwide(dsa, c, dsa->target, mywide); - len = buildwdtrmsg(dsa->msg_out, mywide); - setmovedata(&dsa->msg_out_buf, DMASEG(dsa->msg_out), len); - *cont = E_response; - c->s[dsa->target] = WideResponse; - return; - } - case A_SIR_MSG_SDTR: -#ifdef ASYNC_ONLY - *cont = E_reject; - return; -#else - /* target decides to renegotiate */ - histpf = n->scratcha[2]; - hisreqack = n->scratcha[3]; - KPRINT(PRINTPREFIX "%d: SDTN: target init %d %d\n", - dsa->target, histpf, hisreqack); - if (hisreqack == 0) { - /* he wants asynchronous */ - setasync(dsa, c, dsa->target); - tpf = 0; - } - else { - /* he wants synchronous */ - tpf = chooserate(c, histpf, &scf, &xferp); - if (hisreqack > c->v->maxsyncoff) - hisreqack = c->v->maxsyncoff; - KPRINT(PRINTPREFIX "%d: using %d %d\n", - dsa->target, tpf, hisreqack); - setsync(dsa, c, dsa->target, tpf < 25, scf, xferp, hisreqack); - } - /* build my SDTR message */ - len = buildsdtrmsg(dsa->msg_out, tpf, hisreqack); - setmovedata(&dsa->msg_out_buf, DMASEG(dsa->msg_out), len); - *cont = E_response; - c->s[dsa->target] = SyncResponse; - return; -#endif - } - break; - case WideResponse: - switch (msg) { - case A_SIR_EV_RESPONSE_OK: - c->s[dsa->target] = WideDone; - KPRINT(PRINTPREFIX "%d: WDTN: response accepted\n", dsa->target); - *cont = -2; - return; - case A_SIR_MSG_REJECT: - setwide(dsa, c, dsa->target, 0); - KPRINT(PRINTPREFIX "%d: WDTN: response REJECTed\n", dsa->target); - *cont = -2; - return; - } - break; - case SyncResponse: - switch (msg) { - case A_SIR_EV_RESPONSE_OK: - c->s[dsa->target] = BothDone; - KPRINT(PRINTPREFIX "%d: SDTN: response accepted (%s)\n", - dsa->target, phase[n->sstat1 & 7]); - *cont = -2; - return; /* chf */ - case A_SIR_MSG_REJECT: - setasync(dsa, c, dsa->target); - KPRINT(PRINTPREFIX "%d: SDTN: response REJECTed\n", dsa->target); - *cont = -2; - return; - } - break; - } - KPRINT(PRINTPREFIX "%d: msgsm: state %d msg %d\n", - dsa->target, c->s[dsa->target], msg); - *wakeme = 1; - return; -} - -static void -calcblockdma(Dsa *d, ulong base, ulong count) -{ - ulong blocks; - if (DEBUG(3)) - blocks = 0; - else { - blocks = count / A_BSIZE; - if (blocks > 255) - blocks = 255; - } - d->dmablks = blocks; - d->dmaaddr[0] = base; - d->dmaaddr[1] = base >> 8; - d->dmaaddr[2] = base >> 16; - d->dmaaddr[3] = base >> 24; - setmovedata(&d->data_buf, base + blocks * A_BSIZE, count - blocks * A_BSIZE); - d->flag = legetl(d->data_buf.dbc) == 0; -} - -static ulong -read_mismatch_recover(Controller *c, Ncr *n, Dsa *dsa) -{ - ulong dbc; - uchar dfifo = n->dfifo; - int inchip; - - dbc = (n->dbc[2]<<16)|(n->dbc[1]<<8)|n->dbc[0]; - if (n->ctest5 & (1 << 5)) - inchip = ((dfifo | ((n->ctest5 & 3) << 8)) - (dbc & 0x3ff)) & 0x3ff; - else - inchip = ((dfifo & 0x7f) - (dbc & 0x7f)) & 0x7f; - if (inchip) { - IPRINT(PRINTPREFIX "%d/%d: read_mismatch_recover: DMA FIFO = %d\n", - dsa->target, dsa->lun, inchip); - } - if (n->sxfer & SYNCOFFMASK(c)) { - /* SCSI FIFO */ - uchar fifo = n->sstat1 >> 4; - if (c->v->maxsyncoff > 8) - fifo |= (n->sstat2 & (1 << 4)); - if (fifo) { - inchip += fifo; - IPRINT(PRINTPREFIX "%d/%d: read_mismatch_recover: SCSI FIFO = %d\n", - dsa->target, dsa->lun, fifo); - } - } - else { - if (n->sstat0 & (1 << 7)) { - inchip++; - IPRINT(PRINTPREFIX "%d/%d: read_mismatch_recover: SIDL full\n", - dsa->target, dsa->lun); - } - if (n->sstat2 & (1 << 7)) { - inchip++; - IPRINT(PRINTPREFIX "%d/%d: read_mismatch_recover: SIDL msb full\n", - dsa->target, dsa->lun); - } - } - USED(inchip); - return dbc; -} - -static ulong -write_mismatch_recover(Controller *c, Ncr *n, Dsa *dsa) -{ - ulong dbc; - uchar dfifo = n->dfifo; - int inchip; - - dbc = (n->dbc[2]<<16)|(n->dbc[1]<<8)|n->dbc[0]; - USED(dsa); - if (n->ctest5 & (1 << 5)) - inchip = ((dfifo | ((n->ctest5 & 3) << 8)) - (dbc & 0x3ff)) & 0x3ff; - else - inchip = ((dfifo & 0x7f) - (dbc & 0x7f)) & 0x7f; -#ifdef WMR_DEBUG - if (inchip) { - IPRINT(PRINTPREFIX "%d/%d: write_mismatch_recover: DMA FIFO = %d\n", - dsa->target, dsa->lun, inchip); - } -#endif - if (n->sstat0 & (1 << 5)) { - inchip++; -#ifdef WMR_DEBUG - IPRINT(PRINTPREFIX "%d/%d: write_mismatch_recover: SODL full\n", dsa->target, dsa->lun); -#endif - } - if (n->sstat2 & (1 << 5)) { - inchip++; -#ifdef WMR_DEBUG - IPRINT(PRINTPREFIX "%d/%d: write_mismatch_recover: SODL msb full\n", dsa->target, dsa->lun); -#endif - } - if (n->sxfer & SYNCOFFMASK(c)) { - /* synchronous SODR */ - if (n->sstat0 & (1 << 6)) { - inchip++; -#ifdef WMR_DEBUG - IPRINT(PRINTPREFIX "%d/%d: write_mismatch_recover: SODR full\n", - dsa->target, dsa->lun); -#endif - } - if (n->sstat2 & (1 << 6)) { - inchip++; -#ifdef WMR_DEBUG - IPRINT(PRINTPREFIX "%d/%d: write_mismatch_recover: SODR msb full\n", - dsa->target, dsa->lun); -#endif - } - } - /* clear the dma fifo */ - n->ctest3 |= (1 << 2); - /* wait till done */ - while ((n->dstat & Dfe) == 0) - ; - return dbc + inchip; -} - -static void -sd53c8xxinterrupt(Ureg *ur, void *a) -{ - uchar istat; - ushort sist; - uchar dstat; - int wakeme = 0; - int cont = -1; - Dsa *dsa; - ulong dsapa; - Controller *c = a; - Ncr *n = c->n; - - USED(ur); - if (DEBUG(1)) { - IPRINT(PRINTPREFIX "int\n"); - } - ilock(c); - istat = n->istat; - if (istat & Intf) { - Dsa *d; - int wokesomething = 0; - if (DEBUG(1)) { - IPRINT(PRINTPREFIX "Intfly\n"); - } - n->istat = Intf; - /* search for structures in A_STATE_DONE */ - for (d = KPTR(legetl(c->dsalist.head)); d != dsaend; d = KPTR(legetl(d->next))) { - if (d->stateb == A_STATE_DONE) { - d->p9status = d->status; - if (DEBUG(1)) { - IPRINT(PRINTPREFIX "waking up dsa %lux\n", (ulong)d); - } - wakeup(d); - wokesomething = 1; - } - } - if (!wokesomething) { - IPRINT(PRINTPREFIX "nothing to wake up\n"); - } - } - - if ((istat & (Sip | Dip)) == 0) { - if (DEBUG(1)) { - IPRINT(PRINTPREFIX "int end %x\n", istat); - } - iunlock(c); - return; - } - - sist = (n->sist1<<8)|n->sist0; /* BUG? can two-byte read be inconsistent? */ - dstat = n->dstat; - dsapa = legetl(n->dsa); - - /* - * Can't compute dsa until we know that dsapa is valid. - */ - if(dsapa < -KZERO) - dsa = (Dsa*)DMASEG_TO_KADDR(dsapa); - else{ - dsa = nil; - /* - * happens at startup on some cards but we - * don't actually deref dsa because none of the - * flags we are about are set. - * still, print in case that changes and we're - * about to dereference nil. - */ - iprint("sd53c8xxinterrupt: dsa=%.8lux istat=%ux sist=%ux dstat=%ux\n", dsapa, istat, sist, dstat); - } - - c->running = 0; - if (istat & Sip) { - if (DEBUG(1)) { - IPRINT("sist = %.4x\n", sist); - } - if (sist & 0x80) { - ulong addr; - ulong sa; - ulong dbc; - ulong tbc; - int dmablks; - ulong dmaaddr; - - addr = legetl(n->dsp); - sa = addr - c->scriptpa; - if (DEBUG(1) || DEBUG(2)) { - IPRINT(PRINTPREFIX "%d/%d: Phase Mismatch sa=%.8lux\n", - dsa->target, dsa->lun, sa); - } - /* - * now recover - */ - if (sa == E_data_in_mismatch) { - /* - * though this is a failure in the residue, there may have been blocks - * as well. if so, dmablks will not have been zeroed, since the state - * was not saved by the microcode. - */ - dbc = read_mismatch_recover(c, n, dsa); - tbc = legetl(dsa->data_buf.dbc) - dbc; - dsa->dmablks = 0; - n->scratcha[2] = 0; - advancedata(&dsa->data_buf, tbc); - if (DEBUG(1) || DEBUG(2)) { - IPRINT(PRINTPREFIX "%d/%d: transferred = %ld residue = %ld\n", - dsa->target, dsa->lun, tbc, legetl(dsa->data_buf.dbc)); - } - cont = E_data_mismatch_recover; - } - else if (sa == E_data_in_block_mismatch) { - dbc = read_mismatch_recover(c, n, dsa); - tbc = A_BSIZE - dbc; - /* recover current state from registers */ - dmablks = n->scratcha[2]; - dmaaddr = legetl(n->scratchb); - /* we have got to dmaaddr + tbc */ - /* we have dmablks * A_BSIZE - tbc + residue left to do */ - /* so remaining transfer is */ - IPRINT("in_block_mismatch: dmaaddr = 0x%lux tbc=%lud dmablks=%d\n", - dmaaddr, tbc, dmablks); - calcblockdma(dsa, dmaaddr + tbc, - dmablks * A_BSIZE - tbc + legetl(dsa->data_buf.dbc)); - /* copy changes into scratch registers */ - IPRINT("recalc: dmablks %d dmaaddr 0x%lx pa 0x%lx dbc %ld\n", - dsa->dmablks, legetl(dsa->dmaaddr), - legetl(dsa->data_buf.pa), legetl(dsa->data_buf.dbc)); - n->scratcha[2] = dsa->dmablks; - lesetl(n->scratchb, dsa->dmancr); - cont = E_data_block_mismatch_recover; - } - else if (sa == E_data_out_mismatch) { - dbc = write_mismatch_recover(c, n, dsa); - tbc = legetl(dsa->data_buf.dbc) - dbc; - dsa->dmablks = 0; - n->scratcha[2] = 0; - advancedata(&dsa->data_buf, tbc); - if (DEBUG(1) || DEBUG(2)) { - IPRINT(PRINTPREFIX "%d/%d: transferred = %ld residue = %ld\n", - dsa->target, dsa->lun, tbc, legetl(dsa->data_buf.dbc)); - } - cont = E_data_mismatch_recover; - } - else if (sa == E_data_out_block_mismatch) { - dbc = write_mismatch_recover(c, n, dsa); - tbc = legetl(dsa->data_buf.dbc) - dbc; - /* recover current state from registers */ - dmablks = n->scratcha[2]; - dmaaddr = legetl(n->scratchb); - /* we have got to dmaaddr + tbc */ - /* we have dmablks blocks - tbc + residue left to do */ - /* so remaining transfer is */ - IPRINT("out_block_mismatch: dmaaddr = %lux tbc=%lud dmablks=%d\n", - dmaaddr, tbc, dmablks); - calcblockdma(dsa, dmaaddr + tbc, - dmablks * A_BSIZE - tbc + legetl(dsa->data_buf.dbc)); - /* copy changes into scratch registers */ - n->scratcha[2] = dsa->dmablks; - lesetl(n->scratchb, dsa->dmancr); - cont = E_data_block_mismatch_recover; - } - else if (sa == E_id_out_mismatch) { - /* - * target switched phases while attention held during - * message out. The possibilities are: - * 1. It didn't like the last message. This is indicated - * by the new phase being message_in. Use script to recover - * - * 2. It's not SCSI-II compliant. The new phase will be other - * than message_in. We should also indicate that the device - * is asynchronous, if it's the SDTR that got ignored - * - * For now, if the phase switch is not to message_in, and - * and it happens after IDENTIFY and before SDTR, we - * notify the negotiation state machine. - */ - ulong lim = legetl(dsa->msg_out_buf.dbc); - uchar p = n->sstat1 & 7; - dbc = write_mismatch_recover(c, n, dsa); - tbc = lim - dbc; - IPRINT(PRINTPREFIX "%d/%d: msg_out_mismatch: %lud/%lud sent, phase %s\n", - dsa->target, dsa->lun, tbc, lim, phase[p]); - if (p != MessageIn && tbc == 1) { - msgsm(dsa, c, A_SIR_EV_PHASE_SWITCH_AFTER_ID, &cont, &wakeme); - } - else - cont = E_id_out_mismatch_recover; - } - else if (sa == E_cmd_out_mismatch) { - /* - * probably the command count is longer than the device wants ... - */ - ulong lim = legetl(dsa->cmd_buf.dbc); - uchar p = n->sstat1 & 7; - dbc = write_mismatch_recover(c, n, dsa); - tbc = lim - dbc; - IPRINT(PRINTPREFIX "%d/%d: cmd_out_mismatch: %lud/%lud sent, phase %s\n", - dsa->target, dsa->lun, tbc, lim, phase[p]); - USED(p, tbc); - cont = E_to_decisions; - } - else { - IPRINT(PRINTPREFIX "%d/%d: ma sa=%.8lux wanted=%s got=%s\n", - dsa->target, dsa->lun, sa, - phase[n->dcmd & 7], - phase[n->sstat1 & 7]); - dumpncrregs(c, 1); - dsa->p9status = SDeio; /* chf */ - wakeme = 1; - } - } - /*else*/ if (sist & 0x400) { - if (DEBUG(0)) { - IPRINT(PRINTPREFIX "%d/%d Sto\n", dsa->target, dsa->lun); - } - dsa->p9status = SDtimeout; - dsa->stateb = A_STATE_DONE; - coherence(); - softreset(c); - cont = E_issue_check; - wakeme = 1; - } - if (sist & 0x1) { - IPRINT(PRINTPREFIX "%d/%d: parity error\n", dsa->target, dsa->lun); - dsa->parityerror = 1; - } - if (sist & 0x4) { - IPRINT(PRINTPREFIX "%d/%d: unexpected disconnect\n", - dsa->target, dsa->lun); - dumpncrregs(c, 1); - //wakeme = 1; - dsa->p9status = SDeio; - } - } - if (istat & Dip) { - if (DEBUG(1)) { - IPRINT("dstat = %.2x\n", dstat); - } - /*else*/ if (dstat & Ssi) { - ulong w = legetl(n->dsp) - c->scriptpa; - IPRINT("[%lux]", w); - USED(w); - cont = -2; /* restart */ - } - if (dstat & Sir) { - switch (legetl(n->dsps)) { - case A_SIR_MSG_IO_COMPLETE: - dsa->p9status = dsa->status; - wakeme = 1; - break; - case A_SIR_MSG_SDTR: - case A_SIR_MSG_WDTR: - case A_SIR_MSG_REJECT: - case A_SIR_EV_RESPONSE_OK: - msgsm(dsa, c, legetl(n->dsps), &cont, &wakeme); - break; - case A_SIR_MSG_IGNORE_WIDE_RESIDUE: - /* back up one in the data transfer */ - IPRINT(PRINTPREFIX "%d/%d: ignore wide residue %d, WSR = %d\n", - dsa->target, dsa->lun, n->scratcha[1], n->scntl2 & 1); - if (dsa->flag == 2) { - IPRINT(PRINTPREFIX "%d/%d: transfer over; residue ignored\n", - dsa->target, dsa->lun); - } - else { - calcblockdma(dsa, legetl(dsa->dmaaddr) - 1, - dsa->dmablks * A_BSIZE + legetl(dsa->data_buf.dbc) + 1); - } - cont = -2; - break; - case A_SIR_ERROR_NOT_MSG_IN_AFTER_RESELECT: - IPRINT(PRINTPREFIX "%d: not msg_in after reselect (%s)", - n->ssid & SSIDMASK(c), phase[n->sstat1 & 7]); - dsa = dsafind(c, n->ssid & SSIDMASK(c), -1, A_STATE_DISCONNECTED); - dumpncrregs(c, 1); - wakeme = 1; - break; - case A_SIR_NOTIFY_LOAD_STATE: - IPRINT(PRINTPREFIX ": load_state dsa=%p\n", dsa); - if (dsa == (void*)KZERO || dsa == (void*)-1) { - dsadump(c); - dumpncrregs(c, 1); - panic("bad dsa in load_state"); - } - cont = -2; - break; - case A_SIR_NOTIFY_MSG_IN: - IPRINT(PRINTPREFIX "%d/%d: msg_in %d\n", - dsa->target, dsa->lun, n->sfbr); - cont = -2; - break; - case A_SIR_NOTIFY_DISC: - IPRINT(PRINTPREFIX "%d/%d: disconnect:", dsa->target, dsa->lun); - goto dsadump; - case A_SIR_NOTIFY_STATUS: - IPRINT(PRINTPREFIX "%d/%d: status\n", dsa->target, dsa->lun); - cont = -2; - break; - case A_SIR_NOTIFY_COMMAND: - IPRINT(PRINTPREFIX "%d/%d: commands\n", dsa->target, dsa->lun); - cont = -2; - break; - case A_SIR_NOTIFY_DATA_IN: - IPRINT(PRINTPREFIX "%d/%d: data in a %lx b %lx\n", - dsa->target, dsa->lun, legetl(n->scratcha), legetl(n->scratchb)); - cont = -2; - break; - case A_SIR_NOTIFY_BLOCK_DATA_IN: - IPRINT(PRINTPREFIX "%d/%d: block data in: a2 %x b %lx\n", - dsa->target, dsa->lun, n->scratcha[2], legetl(n->scratchb)); - cont = -2; - break; - case A_SIR_NOTIFY_DATA_OUT: - IPRINT(PRINTPREFIX "%d/%d: data out\n", dsa->target, dsa->lun); - cont = -2; - break; - case A_SIR_NOTIFY_DUMP: - IPRINT(PRINTPREFIX "%d/%d: dump\n", dsa->target, dsa->lun); - dumpncrregs(c, 1); - cont = -2; - break; - case A_SIR_NOTIFY_DUMP2: - IPRINT(PRINTPREFIX "%d/%d: dump2:", dsa->target, dsa->lun); - IPRINT(" sa %lux", legetl(n->dsp) - c->scriptpa); - IPRINT(" dsa %lux", legetl(n->dsa)); - IPRINT(" sfbr %ux", n->sfbr); - IPRINT(" a %lux", legetl(n->scratcha)); - IPRINT(" b %lux", legetl(n->scratchb)); - IPRINT(" ssid %ux", n->ssid); - IPRINT("\n"); - cont = -2; - break; - case A_SIR_NOTIFY_WAIT_RESELECT: - IPRINT(PRINTPREFIX "wait reselect\n"); - cont = -2; - break; - case A_SIR_NOTIFY_RESELECT: - IPRINT(PRINTPREFIX "reselect: ssid %.2x sfbr %.2x at %ld\n", - n->ssid, n->sfbr, TK2MS(m->ticks)); - cont = -2; - break; - case A_SIR_NOTIFY_ISSUE: - IPRINT(PRINTPREFIX "%d/%d: issue dsa=%p end=%p:", dsa->target, dsa->lun, dsa, dsaend); - dsadump: - IPRINT(" tgt=%d", dsa->target); - IPRINT(" time=%ld", TK2MS(m->ticks)); - IPRINT("\n"); - cont = -2; - break; - case A_SIR_NOTIFY_ISSUE_CHECK: - IPRINT(PRINTPREFIX "issue check\n"); - cont = -2; - break; - case A_SIR_NOTIFY_SIGP: - IPRINT(PRINTPREFIX "responded to SIGP\n"); - cont = -2; - break; - case A_SIR_NOTIFY_DUMP_NEXT_CODE: { - ulong *dsp = c->script + (legetl(n->dsp)-c->scriptpa)/4; - int x; - IPRINT(PRINTPREFIX "code at %lux", dsp - c->script); - for (x = 0; x < 6; x++) { - IPRINT(" %.8lux", dsp[x]); - } - IPRINT("\n"); - USED(dsp); - cont = -2; - break; - } - case A_SIR_NOTIFY_WSR: - IPRINT(PRINTPREFIX "%d/%d: WSR set\n", dsa->target, dsa->lun); - cont = -2; - break; - case A_SIR_NOTIFY_LOAD_SYNC: - IPRINT(PRINTPREFIX "%d/%d: scntl=%.2x sxfer=%.2x\n", - dsa->target, dsa->lun, n->scntl3, n->sxfer); - cont = -2; - break; - case A_SIR_NOTIFY_RESELECTED_ON_SELECT: - if (DEBUG(2)) { - IPRINT(PRINTPREFIX "%d/%d: reselected during select\n", - dsa->target, dsa->lun); - } - cont = -2; - break; - case A_error_reselected: /* dsa isn't valid here */ - iprint(PRINTPREFIX "reselection error\n"); - dumpncrregs(c, 1); - for (dsa = KPTR(legetl(c->dsalist.head)); dsa != dsaend; dsa = KPTR(legetl(dsa->next))) { - IPRINT(PRINTPREFIX "dsa target %d lun %d state %d\n", dsa->target, dsa->lun, dsa->stateb); - } - break; - default: - IPRINT(PRINTPREFIX "%d/%d: script error %ld\n", - dsa->target, dsa->lun, legetl(n->dsps)); - dumpncrregs(c, 1); - wakeme = 1; - } - } - /*else*/ if (dstat & Iid) { - int i, target, lun; - ulong addr, dbc, *v; - - addr = legetl(n->dsp); - if(dsa){ - target = dsa->target; - lun = dsa->lun; - }else{ - target = -1; - lun = -1; - } - dbc = (n->dbc[2]<<16)|(n->dbc[1]<<8)|n->dbc[0]; - - // if(dsa == nil) - idebug++; - IPRINT(PRINTPREFIX "%d/%d: Iid pa=%.8lux sa=%.8lux dbc=%lux\n", - target, lun, - addr, addr - c->scriptpa, dbc); - addr = (ulong)c->script + addr - c->scriptpa; - addr -= 64; - addr &= ~63; - v = (ulong*)addr; - for(i=0; i<8; i++){ - IPRINT("%.8lux: %.8lux %.8lux %.8lux %.8lux\n", - addr, v[0], v[1], v[2], v[3]); - addr += 4*4; - v += 4; - } - USED(addr, dbc); - if(dsa == nil){ - dsadump(c); - dumpncrregs(c, 1); - panic("bad dsa"); - } - dsa->p9status = SDeio; - wakeme = 1; - } - /*else*/ if (dstat & Bf) { - IPRINT(PRINTPREFIX "%d/%d: Bus Fault\n", dsa->target, dsa->lun); - dumpncrregs(c, 1); - dsa->p9status = SDeio; - wakeme = 1; - } - } - if (cont == -2) - ncrcontinue(c); - else if (cont >= 0) - start(c, cont); - if (wakeme){ - if(dsa->p9status == SDnostatus) - dsa->p9status = SDeio; - wakeup(dsa); - } - iunlock(c); - if (DEBUG(1)) { - IPRINT(PRINTPREFIX "int end 1\n"); - } -} - -static int -done(void *arg) -{ - return ((Dsa *)arg)->p9status != SDnostatus; -} - -static void -setmovedata(Movedata *d, ulong pa, ulong bc) -{ - d->pa[0] = pa; - d->pa[1] = pa>>8; - d->pa[2] = pa>>16; - d->pa[3] = pa>>24; - d->dbc[0] = bc; - d->dbc[1] = bc>>8; - d->dbc[2] = bc>>16; - d->dbc[3] = bc>>24; -} - -static void -advancedata(Movedata *d, long v) -{ - lesetl(d->pa, legetl(d->pa) + v); - lesetl(d->dbc, legetl(d->dbc) - v); -} - -static void -dumpwritedata(uchar *data, int datalen) -{ - int i; - uchar *bp; - if (!DEBUG(0)){ - USED(data, datalen); - return; - } - - if (datalen) { - KPRINT(PRINTPREFIX "write:"); - for (i = 0, bp = data; i < 50 && i < datalen; i++, bp++) { - KPRINT("%.2ux", *bp); - } - if (i < datalen) { - KPRINT("..."); - } - KPRINT("\n"); - } -} - -static void -dumpreaddata(uchar *data, int datalen) -{ - int i; - uchar *bp; - if (!DEBUG(0)){ - USED(data, datalen); - return; - } - - if (datalen) { - KPRINT(PRINTPREFIX "read:"); - for (i = 0, bp = data; i < 50 && i < datalen; i++, bp++) { - KPRINT("%.2ux", *bp); - } - if (i < datalen) { - KPRINT("..."); - } - KPRINT("\n"); - } -} - -static void -busreset(Controller *c) -{ - int x, ntarget; - - /* bus reset */ - c->n->scntl1 |= (1 << 3); - delay(500); - c->n->scntl1 &= ~(1 << 3); - if(!(c->v->feature & Wide)) - ntarget = 8; - else - ntarget = MAXTARGET; - for (x = 0; x < ntarget; x++) { - setwide(0, c, x, 0); -#ifndef ASYNC_ONLY - c->s[x] = NeitherDone; -#endif - } - c->capvalid = 0; -} - -static void -reset(Controller *c) -{ - /* should wakeup all pending tasks */ - softreset(c); - busreset(c); -} - -static int -sd53c8xxrio(SDreq* r) -{ - Dsa *d; - uchar *bp; - Controller *c; - uchar target_expo, my_expo; - int bc, check, i, status, target; - - if((target = r->unit->subno) == 0x07) - return r->status = SDtimeout; /* assign */ - - c = r->unit->dev->ctlr; - - check = 0; - d = dsaalloc(c, target, r->lun); - - qlock(&c->q[target]); /* obtain access to target */ -docheck: - /* load the transfer control stuff */ - d->scsi_id_buf[0] = 0; - d->scsi_id_buf[1] = c->sxfer[target]; - d->scsi_id_buf[2] = target; - d->scsi_id_buf[3] = c->scntl3[target]; - synctodsa(d, c); - - bc = 0; - - d->msg_out[bc] = 0x80 | r->lun; - -#ifndef NO_DISCONNECT - d->msg_out[bc] |= (1 << 6); -#endif - bc++; - - /* work out what to do about negotiation */ - switch (c->s[target]) { - default: - KPRINT(PRINTPREFIX "%d: strange nego state %d\n", target, c->s[target]); - c->s[target] = NeitherDone; - /* fall through */ - case NeitherDone: - if ((c->capvalid & (1 << target)) == 0) - break; - target_expo = (c->cap[target] >> 5) & 3; - my_expo = (c->v->feature & Wide) != 0; - if (target_expo < my_expo) - my_expo = target_expo; -#ifdef ALWAYS_DO_WDTR - bc += buildwdtrmsg(d->msg_out + bc, my_expo); - KPRINT(PRINTPREFIX "%d: WDTN: initiating expo %d\n", target, my_expo); - c->s[target] = WideInit; - break; -#else - if (my_expo) { - bc += buildwdtrmsg(d->msg_out + bc, (c->v->feature & Wide) ? 1 : 0); - KPRINT(PRINTPREFIX "%d: WDTN: initiating expo %d\n", target, my_expo); - c->s[target] = WideInit; - break; - } - KPRINT(PRINTPREFIX "%d: WDTN: narrow\n", target); - /* fall through */ -#endif - case WideDone: - if (c->cap[target] & (1 << 4)) { - KPRINT(PRINTPREFIX "%d: SDTN: initiating %d %d\n", target, c->tpf, c->v->maxsyncoff); - bc += buildsdtrmsg(d->msg_out + bc, c->tpf, c->v->maxsyncoff); - c->s[target] = SyncInit; - break; - } - KPRINT(PRINTPREFIX "%d: SDTN: async only\n", target); - c->s[target] = BothDone; - break; - - case BothDone: - break; - } - - setmovedata(&d->msg_out_buf, DMASEG(d->msg_out), bc); - setmovedata(&d->cmd_buf, DMASEG(r->cmd), r->clen); - calcblockdma(d, r->data ? DMASEG(r->data) : 0, r->dlen); - - if (DEBUG(0)) { - KPRINT(PRINTPREFIX "%d/%d: exec: ", target, r->lun); - for (bp = r->cmd; bp < &r->cmd[r->clen]; bp++) { - KPRINT("%.2ux", *bp); - } - KPRINT("\n"); - if (!r->write) { - KPRINT(PRINTPREFIX "%d/%d: exec: limit=(%d)%ld\n", - target, r->lun, d->dmablks, legetl(d->data_buf.dbc)); - } - else - dumpwritedata(r->data, r->dlen); - } - - setmovedata(&d->status_buf, DMASEG(&d->status), 1); - - d->p9status = SDnostatus; - d->parityerror = 0; - coherence(); - d->stateb = A_STATE_ISSUE; /* start operation */ - coherence(); - - ilock(c); - if (c->ssm) - c->n->dcntl |= 0x10; /* single step */ - if (c->running) { - c->n->istat = Sigp; - } - else { - start(c, E_issue_check); - } - iunlock(c); - - while(waserror()) - ; - tsleep(d, done, d, 600 * 1000); - poperror(); - - if (!done(d)) { - KPRINT(PRINTPREFIX "%d/%d: exec: Timed out\n", target, r->lun); - dumpncrregs(c, 0); - dsafree(c, d); - reset(c); - qunlock(&c->q[target]); - r->status = SDtimeout; - return r->status = SDtimeout; /* assign */ - } - - if((status = d->p9status) == SDeio) - c->s[target] = NeitherDone; - if (d->parityerror) { - status = SDeio; - } - - /* - * adjust datalen - */ - r->rlen = r->dlen; - if (DEBUG(0)) { - KPRINT(PRINTPREFIX "%d/%d: exec: before rlen adjust: dmablks %d flag %d dbc %lud\n", - target, r->lun, d->dmablks, d->flag, legetl(d->data_buf.dbc)); - } - r->rlen = r->dlen; - if (d->flag != 2) { - r->rlen -= d->dmablks * A_BSIZE; - r->rlen -= legetl(d->data_buf.dbc); - } - if(!r->write) - dumpreaddata(r->data, r->rlen); - if (DEBUG(0)) { - KPRINT(PRINTPREFIX "%d/%d: exec: p9status=%d status %d rlen %ld\n", - target, r->lun, d->p9status, status, r->rlen); - } - /* - * spot the identify - */ - if ((c->capvalid & (1 << target)) == 0 - && (status == SDok || status == SDcheck) - && r->cmd[0] == 0x12 && r->dlen >= 8) { - c->capvalid |= 1 << target; - bp = r->data; - c->cap[target] = bp[7]; - KPRINT(PRINTPREFIX "%d: capabilities %.2x\n", target, bp[7]); - } - if(!check && status == SDcheck && !(r->flags & SDnosense)){ - check = 1; - r->write = 0; - memset(r->cmd, 0, sizeof(r->cmd)); - r->cmd[0] = 0x03; - r->cmd[1] = r->lun<<5; - r->cmd[4] = sizeof(r->sense)-1; - r->clen = 6; - r->data = r->sense; - r->dlen = sizeof(r->sense)-1; - /* - * Clear out the microcode state - * so the Dsa can be re-used. - */ - lesetl(&d->stateb, A_STATE_ALLOCATED); - coherence(); - goto docheck; - } - qunlock(&c->q[target]); - dsafree(c, d); - - if(status == SDok && check){ - status = SDcheck; - r->flags |= SDvalidsense; - } - if(DEBUG(0)) - KPRINT(PRINTPREFIX "%d: r flags %8.8uX status %d rlen %ld\n", - target, r->flags, status, r->rlen); - if(r->flags & SDvalidsense){ - if(!DEBUG(0)) - KPRINT(PRINTPREFIX "%d: r flags %8.8uX status %d rlen %ld\n", - target, r->flags, status, r->rlen); - for(i = 0; i < r->rlen; i++) - KPRINT(" %2.2uX", r->sense[i]); - KPRINT("\n"); - } - return r->status = status; -} - -#define vpt ((ulong*)VPT) -#define VPTX(va) (((ulong)(va))>>12) -static void -cribbios(Controller *c) -{ - c->bios.scntl3 = c->n->scntl3; - c->bios.stest2 = c->n->stest2; - print(PRINTPREFIX "bios scntl3(%.2x) stest2(%.2x)\n", c->bios.scntl3, c->bios.stest2); -} - -static int -bios_set_differential(Controller *c) -{ - /* Concept lifted from FreeBSD - thanks Gerard */ - /* basically, if clock conversion factors are set, then there is - * evidence the bios had a go at the chip, and if so, it would - * have set the differential enable bit in stest2 - */ - return (c->bios.scntl3 & 7) != 0 && (c->bios.stest2 & 0x20) != 0; -} - -#define NCR_VID 0x1000 -#define NCR_810_DID 0x0001 -#define NCR_820_DID 0x0002 /* don't know enough about this one to support it */ -#define NCR_825_DID 0x0003 -#define NCR_815_DID 0x0004 -#define SYM_810AP_DID 0x0005 -#define SYM_860_DID 0x0006 -#define SYM_896_DID 0x000b -#define SYM_895_DID 0x000c -#define SYM_885_DID 0x000d /* ditto */ -#define SYM_875_DID 0x000f /* ditto */ -#define SYM_1010_DID 0x0020 -#define SYM_1011_DID 0x0021 -#define SYM_875J_DID 0x008f - -static Variant variant[] = { -{ NCR_810_DID, 0x0f, "NCR53C810", Burst16, 8, 24, 0 }, -{ NCR_810_DID, 0x1f, "SYM53C810ALV", Burst16, 8, 24, Prefetch }, -{ NCR_810_DID, 0xff, "SYM53C810A", Burst16, 8, 24, Prefetch }, -{ SYM_810AP_DID, 0xff, "SYM53C810AP", Burst16, 8, 24, Prefetch }, -{ NCR_815_DID, 0xff, "NCR53C815", Burst16, 8, 24, BurstOpCodeFetch }, -{ NCR_825_DID, 0x0f, "NCR53C825", Burst16, 8, 24, Wide|BurstOpCodeFetch|Differential }, -{ NCR_825_DID, 0xff, "SYM53C825A", Burst128, 16, 24, Prefetch|LocalRAM|BigFifo|Differential|Wide }, -{ SYM_860_DID, 0x0f, "SYM53C860", Burst16, 8, 24, Prefetch|Ultra }, -{ SYM_860_DID, 0xff, "SYM53C860LV", Burst16, 8, 24, Prefetch|Ultra }, -{ SYM_875_DID, 0x01, "SYM53C875r1", Burst128, 16, 24, Prefetch|LocalRAM|BigFifo|Differential|Wide|Ultra }, -{ SYM_875_DID, 0xff, "SYM53C875", Burst128, 16, 24, Prefetch|LocalRAM|BigFifo|Differential|Wide|Ultra|ClockDouble }, -{ SYM_875J_DID, 0xff, "SYM53C875j", Burst128, 16, 24, Prefetch|LocalRAM|BigFifo|Differential|Wide|Ultra|ClockDouble }, -{ SYM_885_DID, 0xff, "SYM53C885", Burst128, 16, 24, Prefetch|LocalRAM|BigFifo|Wide|Ultra|ClockDouble }, -{ SYM_895_DID, 0xff, "SYM53C895", Burst128, 16, 24, Prefetch|LocalRAM|BigFifo|Wide|Ultra|Ultra2 }, -{ SYM_896_DID, 0xff, "SYM53C896", Burst128, 16, 64, Prefetch|LocalRAM|BigFifo|Wide|Ultra|Ultra2 }, -{ SYM_1010_DID, 0xff, "SYM53C1010", Burst128, 16, 64, Prefetch|LocalRAM|BigFifo|Wide|Ultra|Ultra2 }, -{ SYM_1011_DID, 0xff, "SYM53C1010", Burst128, 16, 64, Prefetch|LocalRAM|BigFifo|Wide|Ultra|Ultra2 }, -}; - -static int -xfunc(Controller *c, enum na_external x, unsigned long *v) -{ - switch (x) - { - case X_scsi_id_buf: - *v = offsetof(Dsa, scsi_id_buf[0]); return 1; - case X_msg_out_buf: - *v = offsetof(Dsa, msg_out_buf); return 1; - case X_cmd_buf: - *v = offsetof(Dsa, cmd_buf); return 1; - case X_data_buf: - *v = offsetof(Dsa, data_buf); return 1; - case X_status_buf: - *v = offsetof(Dsa, status_buf); return 1; - case X_dsa_head: - *v = DMASEG(&c->dsalist.head[0]); return 1; - case X_ssid_mask: - *v = SSIDMASK(c); return 1; - default: - print("xfunc: can't find external %d\n", x); - return 0; - } - return 1; -} - -static int -na_fixup(Controller *c, ulong pa_reg, - struct na_patch *patch, int patches, - int (*externval)(Controller*, int, ulong*)) -{ - int p; - int v; - ulong *script, pa_script; - unsigned long lw, lv; - - script = c->script; - pa_script = c->scriptpa; - for (p = 0; p < patches; p++) { - switch (patch[p].type) { - case 1: - /* script relative */ - script[patch[p].lwoff] += pa_script; - break; - case 2: - /* register i/o relative */ - script[patch[p].lwoff] += pa_reg; - break; - case 3: - /* data external */ - lw = script[patch[p].lwoff]; - v = (lw >> 8) & 0xff; - if (!(*externval)(c, v, &lv)) - return 0; - v = lv & 0xff; - script[patch[p].lwoff] = (lw & 0xffff00ffL) | (v << 8); - break; - case 4: - /* 32 bit external */ - lw = script[patch[p].lwoff]; - if (!(*externval)(c, lw, &lv)) - return 0; - script[patch[p].lwoff] = lv; - break; - case 5: - /* 24 bit external */ - lw = script[patch[p].lwoff]; - if (!(*externval)(c, lw & 0xffffff, &lv)) - return 0; - script[patch[p].lwoff] = (lw & 0xff000000L) | (lv & 0xffffffL); - break; - } - } - return 1; -} - -static SDev* -sd53c8xxpnp(void) -{ - char *cp; - Pcidev *p; - Variant *v; - int ba, nctlr; - void *scriptma; - Controller *ctlr; - SDev *sdev, *head, *tail; - ulong regpa, *script, scriptpa; - void *regva, *scriptva; - - if(cp = getconf("*maxsd53c8xx")) - nctlr = strtoul(cp, 0, 0); - else - nctlr = 32; - - p = nil; - head = tail = nil; - while((p = pcimatch(p, NCR_VID, 0)) != nil && nctlr > 0){ - for(v = variant; v < &variant[nelem(variant)]; v++){ - if(p->did == v->did && p->rid <= v->maxrid) - break; - } - if(v >= &variant[nelem(variant)]) { - print("no match\n"); - continue; - } - print(PRINTPREFIX "%s rev. 0x%2.2x intr=%d command=%4.4uX\n", - v->name, p->rid, p->intl, p->pcr); - - regpa = p->mem[1].bar; - ba = 2; - if(regpa & 0x04){ - if(p->mem[2].bar) - continue; - ba++; - } - if(regpa == 0) - print("regpa 0\n"); - regpa &= ~0xF; - regva = vmap(regpa, p->mem[1].size); - if(regva == 0) - continue; - - script = nil; - scriptpa = 0; - scriptva = nil; - scriptma = nil; - if((v->feature & LocalRAM) && sizeof(na_script) <= 4096){ - scriptpa = p->mem[ba].bar; - if((scriptpa & 0x04) && p->mem[ba+1].bar){ - vunmap(regva, p->mem[1].size); - continue; - } - scriptpa &= ~0x0F; - scriptva = vmap(scriptpa, p->mem[ba].size); - if(scriptva) - script = scriptva; - } - if(scriptpa == 0){ - /* - * Either the map failed, or this chip does not have - * local RAM. It will need a copy of the microcode. - */ - scriptma = malloc(sizeof(na_script)); - if(scriptma == nil){ - vunmap(regva, p->mem[1].size); - continue; - } - scriptpa = DMASEG(scriptma); - script = scriptma; - } - - ctlr = malloc(sizeof(Controller)); - sdev = malloc(sizeof(SDev)); - if(ctlr == nil || sdev == nil){ -buggery: - if(ctlr) - free(ctlr); - if(sdev) - free(sdev); - if(scriptma) - free(scriptma); - else if(scriptva) - vunmap(scriptva, p->mem[ba].size); - if(regva) - vunmap(regva, p->mem[1].size); - continue; - } - - if(dsaend == nil) - dsaend = xalloc(sizeof *dsaend); - lesetl(&dsaend->stateb, A_STATE_END); - // lesetl(dsaend->next, DMASEG(dsaend)); - coherence(); - lesetl(ctlr->dsalist.head, DMASEG(dsaend)); - coherence(); - ctlr->dsalist.freechain = 0; - - ctlr->n = regva; - ctlr->v = v; - ctlr->script = script; - memmove(ctlr->script, na_script, sizeof(na_script)); - - /* - * Because we don't yet have an abstraction for the - * addresses as seen from the controller side (and on - * the 386 it doesn't matter), the following three lines - * are different between the 386 and alpha copies of - * this driver. - */ - USED(scriptpa); - ctlr->scriptpa = p->mem[ba].bar & ~0x0F; - if(!na_fixup(ctlr, p->mem[1].bar & ~0x0F, na_patches, NA_PATCHES, xfunc)){ - print("script fixup failed\n"); - goto buggery; - } - swabl(ctlr->script, ctlr->script, sizeof(na_script)); - - ctlr->pcidev = p; - - sdev->ifc = &sd53c8xxifc; - sdev->ctlr = ctlr; - sdev->idno = '0'; - if(!(v->feature & Wide)) - sdev->nunit = 8; - else - sdev->nunit = MAXTARGET; - ctlr->sdev = sdev; - - if(head != nil) - tail->next = sdev; - else - head = sdev; - tail = sdev; - - nctlr--; - } - - return head; -} - -static int -sd53c8xxenable(SDev* sdev) -{ - Pcidev *pcidev; - Controller *ctlr; - char name[32]; - - ctlr = sdev->ctlr; - pcidev = ctlr->pcidev; - - pcisetbme(pcidev); - - ilock(ctlr); - synctabinit(ctlr); - cribbios(ctlr); - reset(ctlr); - snprint(name, sizeof(name), "%s (%s)", sdev->name, sdev->ifc->name); - intrenable(pcidev->intl, sd53c8xxinterrupt, ctlr, pcidev->tbdf, name); - iunlock(ctlr); - - return 1; -} - -SDifc sd53c8xxifc = { - "53c8xx", /* name */ - - sd53c8xxpnp, /* pnp */ - nil, /* legacy */ - sd53c8xxenable, /* enable */ - nil, /* disable */ - - scsiverify, /* verify */ - scsionline, /* online */ - sd53c8xxrio, /* rio */ - nil, /* rctl */ - nil, /* wctl */ - - scsibio, /* bio */ - nil, /* probe */ - nil, /* clear */ - nil, /* stat */ -}; diff --git a/sys/src/9/alphapc/sio.c b/sys/src/9/alphapc/sio.c deleted file mode 100644 index 1b75fabad..000000000 --- a/sys/src/9/alphapc/sio.c +++ /dev/null @@ -1,18 +0,0 @@ -#include "u.h" -#include "../port/lib.h" -#include "mem.h" -#include "dat.h" -#include "fns.h" -#include "io.h" - -/* - * 82378ZB Saturn-I/O (SIO) PCI-to-ISA Bus Bridge. - */ -static Pcidev* siodev; - -void -siodump(void) -{ - if(siodev == nil && (siodev = pcimatch(nil, 0x8086, 0x0484)) == nil) - return; -} diff --git a/sys/src/9/alphapc/trap.c b/sys/src/9/alphapc/trap.c deleted file mode 100644 index 5f26c5393..000000000 --- a/sys/src/9/alphapc/trap.c +++ /dev/null @@ -1,902 +0,0 @@ -#include "u.h" -#include "../port/lib.h" -#include "mem.h" -#include "dat.h" -#include "fns.h" -#include "ureg.h" -#include "io.h" -#include "../port/error.h" - -void noted(Ureg*, Ureg**, ulong); -void rfnote(Ureg**); -void kernfault(Ureg*, int); -void illegal(Ureg *); -void fen(Ureg *); - -char *regname[]={ - "type", "a0", "a1", - "a2", "R0", "R1", - "R2", "R3", "R4", - "R5", "R6", "R7", - "R8", "R9", "R10", - "R11", "R12", "R13", - "R14", "R15", "R19", - "R20", "R21", "R22", - "R23", "R24", "R25", - "R26", "R27", "R28", - "R30", "status", "PC", - "R29", "R16", "R17", - "R18", -}; - -static Lock vctllock; -static Vctl *vctl[256]; - -void -intrenable(int irq, void (*f)(Ureg*, void*), void* a, int tbdf, char *name) -{ - int vno; - Vctl *v; - - if(f == nil){ - print("intrenable: nil handler for %d, tbdf 0x%uX for %s\n", - irq, tbdf, name); - return; - } - - v = xalloc(sizeof(Vctl)); - v->isintr = 1; - v->irq = irq; - v->tbdf = tbdf; - v->f = f; - v->a = a; - strncpy(v->name, name, KNAMELEN-1); - v->name[KNAMELEN-1] = 0; - - ilock(&vctllock); - vno = arch->intrenable(v); - if(vno == -1){ - iunlock(&vctllock); - print("intrenable: couldn't enable irq %d, tbdf 0x%uX for %s\n", - irq, tbdf, v->name); - xfree(v); - return; - } - if(vctl[vno]){ - if(vctl[vno]->isr != v->isr || vctl[vno]->eoi != v->eoi) - panic("intrenable: handler: %s %s %#p %#p %#p %#p", - vctl[vno]->name, v->name, - vctl[vno]->isr, v->isr, vctl[vno]->eoi, v->eoi); - v->next = vctl[vno]; - } - vctl[vno] = v; - iunlock(&vctllock); -} - -int -intrdisable(int irq, void (*f)(Ureg *, void *), void *a, int tbdf, char *name) -{ - Vctl **pv, *v; - int vno; - - /* - * For now, none of this will work with the APIC code, - * there is no mapping between irq and vector as the IRQ - * is pretty meaningless. - */ - if(arch->intrvecno == nil) - return -1; - vno = arch->intrvecno(irq); - ilock(&vctllock); - for(pv = &vctl[vno]; *pv != nil; pv = &((*pv)->next)){ - if((*pv)->irq != irq) - continue; - if((*pv)->tbdf != tbdf) - continue; - if((*pv)->f != f) - continue; - if((*pv)->a != a) - continue; - if(strcmp((*pv)->name, name) != 0) - continue; - break; - } - assert(*pv != nil); - - v = *pv; - *pv = (*pv)->next; /* Link out the entry */ - - if (vctl[vno] == nil && arch->intrdisable != nil) - arch->intrdisable(irq); - iunlock(&vctllock); - xfree(v); - return 0; -} - -int -irqallocread(char *buf, long n, vlong offset) -{ - int vno; - Vctl *v; - long oldn; - char str[11+1+KNAMELEN+1], *p; - int m; - - if(n < 0 || offset < 0) - error(Ebadarg); - - oldn = n; - for(vno=0; vnonext){ - m = snprint(str, sizeof str, "%11d %11d %.*s\n", vno, v->irq, KNAMELEN, v->name); - if(m <= offset) /* if do not want this, skip entry */ - offset -= m; - else{ - /* skip offset bytes */ - m -= offset; - p = str+offset; - offset = 0; - - /* write at most max(n,m) bytes */ - if(m > n) - m = n; - memmove(buf, p, m); - n -= m; - buf += m; - - if(n == 0) - return oldn; - } - } - } - return oldn - n; -} - -typedef struct Mcheck Mcheck; -struct Mcheck -{ - ulong len; - ulong inprogress; - ulong procoff; - ulong sysoff; - ulong code; -}; - -static char * -smcheck(ulong code) -{ - switch (code) { - case 0x80: return "tag parity error"; - case 0x82: return "tag control parity error"; - case 0x84: return "generic hard error"; - case 0x86: return "correctable ECC error"; - case 0x88: return "uncorrectable ECC error"; - case 0x8a: return "OS-specific PAL bugcheck"; - case 0x90: return "callsys in kernel mode"; - case 0x96: return "i-cache read retryable error"; - case 0x98: return "processor detected hard error"; - - case 0x203: return "system detected uncorrectable ECC error"; - case 0x205: return "parity error detected by CIA"; - case 0x207: return "non-existent memory error"; - case 0x209: return "PCI SERR detected"; - case 0x20b: return "PCI data parity error detected"; - case 0x20d: return "PCI address parity error detected"; - case 0x20f: return "PCI master abort error"; - case 0x211: return "PCI target abort error"; - case 0x213: return "scatter/gather PTE invalid error"; - case 0x215: return "flash ROM write error"; - case 0x217: return "IOA timeout detected"; - case 0x219: return "IOCHK#, EISA add-in board parity or other catastrophic error"; - case 0x21b: return "EISA fail-safe timer timeout"; - case 0x21d: return "EISA bus time-out"; - case 0x21f: return "EISA software generated NMI"; - case 0x221: return "unexpected ev5 IRQ[3] interrupt"; - default: return "unknown mcheck"; - } -} - -void -mcheck(Ureg *ur, void *x) -{ - Mcheck *m; - uvlong *data; - int i, col; - - m = x; - data = x; - iprint("panic: Machine Check @%#p: %s (%lux) len %lud\n", - m, smcheck(m->code), m->code, m->len); - iprint("proc offset %lux sys offset %lux\n", m->procoff, m->sysoff); - for (i = 0, col = 0; i < m->len/8; i++) { - iprint("%.3x: %.16llux%s", 8*i, data[i], (col == 2) ? "\n" : " "); - if (col++ == 2) - col = 0; - } - if(col != 2) - print("\n"); - print("\n"); - dumpregs(ur); - prflush(); - firmware(); -} - -void -intr(Ureg *ur) -{ - int i, vno; - Vctl *ctl, *v; - Mach *mach; - - vno = (ulong)ur->a1>>4; - vno -= 0x80; - if(vno < nelem(vctl) && (ctl = vctl[vno])){ - if(ctl->isintr){ - m->intr++; - if(vno >= VectorPIC && vno <= MaxVectorPIC) - m->lastintr = vno-VectorPIC; - } - - if(ctl->isr) - ctl->isr(vno); - for(v = ctl; v != nil; v = v->next) { - if(v->f) - v->f(ur, v->a); - } - - if(ctl->eoi) - ctl->eoi(vno); - - if(ctl->isintr && up) - preempted(); - } - else if(vno >= VectorPIC && vno <= MaxVectorPIC){ - /* - * An unknown interrupt. - * Check for a default IRQ7. This can happen when - * the IRQ input goes away before the acknowledge. - * In this case, a 'default IRQ7' is generated, but - * the corresponding bit in the ISR isn't set. - * In fact, just ignore all such interrupts. - */ - iprint("cpu%d: spurious interrupt %d, last %d", - m->machno, vno-VectorPIC, m->lastintr); - for(i = 0; i < MAXMACH; i++){ - if(active.machs[i] == 0) - continue; - mach = MACHP(i); - if(m->machno == mach->machno) - continue; - iprint(": cpu%d: last %d", mach->machno, mach->lastintr); - } - iprint("\n"); - m->spuriousintr++; - return; - } - else{ - dumpregs(ur); - print("unknown intr: %d\n", vno); /* */ - } -} - -void -trap(Ureg *ur) -{ - char buf[ERRMAX]; - int clockintr, user, x; - - user = ur->status&UMODE; - - if(user){ - up = m->proc; - up->dbgreg = ur; - } - clockintr = 0; - switch ((int)ur->type) { - case 1: /* arith */ - fptrap(ur); - break; - case 2: /* bad instr or FEN */ - illegal(ur); - break; - - case 3: /* intr */ - m->intr++; - switch ((int)ur->a0) { - case 0: /* interprocessor */ - panic("interprocessor intr"); - break; - case 1: /* clock */ - clockintr = 1; - clock(ur); - break; - case 2: /* machine check */ - mcheck(ur, (void*)(KZERO|(ulong)ur->a2)); - break; - case 3: /* device */ - intr(ur); - break; - case 4: /* perf counter */ - panic("perf count"); - break; - default: - panic("bad intr"); - break; - } - break; - - case 4: /* memory fault */ - if(up == 0) - kernfault(ur, (ulong)ur->a1); - - x = up->insyscall; - up->insyscall = 1; - spllo(); - faultalpha(ur); - up->insyscall = x; - break; - case 6: /* alignment fault */ - ur->pc -= 4; - sprint(buf, "trap: unaligned addr 0x%lux", (ulong)ur->a0); - fataltrap(ur, buf); - break; - default: /* cannot happen */ - panic("bad trap type %d", (int)ur->type); - break; - } - - splhi(); - - /* delaysched set because we held a lock or because our quantum ended */ - if(up && up->delaysched && clockintr){ - sched(); - splhi(); - } - - if(user){ - if(up->procctl || up->nnote) - notify(ur); - kexit(ur); - } -} - -void -trapinit(void) -{ - splhi(); - wrent(0, intr0); - wrent(1, arith); - wrent(2, fault0); - wrent(3, illegal0); - wrent(4, unaligned); - wrent(5, syscall0); -} - -void -fataltrap(Ureg *ur, char *reason) -{ - char buf[ERRMAX]; - - if(ur->status&UMODE) { - spllo(); - sprint(buf, "sys: %s", reason); - postnote(up, 1, buf, NDebug); - return; - } - print("kernel %s pc=%lux\n", reason, (ulong)ur->pc); - dumpregs(ur); - dumpstack(); - if(m->machno == 0) - spllo(); - exit(1); -} - -void -kernfault(Ureg *ur, int code) -{ - Label l; - char *s; - - splhi(); - if (code == 0) - s = "read"; - else if (code == 1) - s = "write"; - else - s = "ifetch"; - print("panic: kfault %s VA=0x%lux\n", s, (ulong)ur->a0); - print("u=%#p status=0x%lux pc=0x%lux sp=0x%lux\n", - up, (ulong)ur->status, (ulong)ur->pc, (ulong)ur->sp); - dumpregs(ur); - l.sp = ur->sp; - l.pc = ur->pc; - dumpstack(); - exit(1); -} - -void -dumpregs(Ureg *ur) -{ - int i, col; - uvlong *l; - - if(up) - print("registers for %s %ld\n", up->text, up->pid); - else - print("registers for kernel\n"); - - l = &ur->type; - col = 0; - for (i = 0; i < sizeof regname/sizeof(char*); i++, l++) { - print("%-7s%.16llux%s", regname[i], *l, col == 2 ? "\n" : " "); - if (col++ == 2) - col = 0; - } - print("\n"); -} - - -/* - * Fill in enough of Ureg to get a stack trace, and call a function. - * Used by debugging interface rdb. - */ -static void -getpcsp(ulong *pc, ulong *sp) -{ - *pc = getcallerpc(&pc); - *sp = (ulong)&pc-8; -} - -void -callwithureg(void (*fn)(Ureg*)) -{ - Ureg ureg; - - getpcsp((ulong*)&ureg.pc, (ulong*)&ureg.sp); - ureg.r26 = getcallerpc(&fn); - fn(&ureg); -} - -void -_dumpstack(Ureg *ureg) -{ - ulong l, sl, el, v, i, instr, op; - extern ulong etext; - - l=(ulong)&l; - if(l&4) - l += 4; - if(up == 0){ - el = (ulong)m+BY2PG; - sl = el-KSTACK; - } - else{ - sl = (ulong)up->kstack; - el = sl + KSTACK; - } - if(l > el || l < sl){ - el = (ulong)m+BY2PG; - sl = el-KSTACK; - } - if(l > el || l < sl) - return; - print("ktrace /kernel/path %.8lux %.8lux %.8lux\n", (ulong)ureg->pc, (ulong)ureg->sp, (ulong)ureg->r26); - - i = 0; - for(; l>26); - if(op == 26 || op == 52){ - print("%lux=%lux ", l, v); - i++; - } - } - if(i == 4){ - i = 0; - print("\n"); - } - } - if(i) - print("\n"); -} - -void -dumpstack(void) -{ - callwithureg(_dumpstack); -} - -int -notify(Ureg *ur) -{ - int l; - ulong sp; - Note *n; - - if(up->procctl) - procctl(); - if(up->nnote == 0) - return 0; - - if(up->fpstate == FPactive){ - savefpregs(&up->fpsave); - up->fpstate = FPinactive; - } - up->fpstate |= FPillegal; - - spllo(); - qlock(&up->debug); - up->notepending = 0; - - n = &up->note[0]; - if(strncmp(n->msg, "sys:", 4) == 0) { - l = strlen(n->msg); - if(l > ERRMAX-15) /* " pc=0x12345678\0" */ - l = ERRMAX-15; - - sprint(n->msg+l, " pc=0x%lux", (ulong)ur->pc); - } - - if(n->flag != NUser && (up->notified || up->notify==0)) { - qunlock(&up->debug); - if(n->flag == NDebug) - pprint("suicide: %s\n", n->msg); - pexit(n->msg, n->flag!=NDebug); - } - - if(up->notified) { - qunlock(&up->debug); - splhi(); - return 0; - } - - if(!up->notify) { - qunlock(&up->debug); - pexit(n->msg, n->flag!=NDebug); - } - sp = ur->usp & ~(BY2V-1); - sp -= sizeof(Ureg); - - if(!okaddr((uintptr)up->notify, BY2WD, 0) - || !okaddr(sp-ERRMAX-6*BY2WD, sizeof(Ureg)+ERRMAX-6*BY2WD, 1)) { - qunlock(&up->debug); - pprint("suicide: bad address or sp in notify\n"); - pexit("Suicide", 0); - } - - memmove((Ureg*)sp, ur, sizeof(Ureg)); - *(Ureg**)(sp-BY2WD) = up->ureg; /* word under Ureg is old up->ureg */ - up->ureg = (void*)sp; - sp -= 2*BY2WD+ERRMAX; - memmove((char*)sp, up->note[0].msg, ERRMAX); - sp -= 4*BY2WD; - *(ulong*)(sp+3*BY2WD) = sp+4*BY2WD; /* arg 2 is string */ - ur->r0 = (ulong)up->ureg; /* arg 1 (R0) is ureg* */ - *(ulong*)(sp+2*BY2WD) = (ulong)up->ureg; /* arg 1 0(FP) is ureg* */ - *(ulong*)(sp+0*BY2WD) = 0; /* arg 0 is pc */ - ur->usp = sp; - ur->pc = (ulong)up->notify; - up->notified = 1; - up->nnote--; - memmove(&up->lastnote, &up->note[0], sizeof(Note)); - memmove(&up->note[0], &up->note[1], up->nnote*sizeof(Note)); - - qunlock(&up->debug); - splhi(); - return 1; -} - -/* - * Check that status is OK to return from note. - */ -int -validstatus(ulong kstatus, ulong ustatus) -{ - if((kstatus & 7) != (ustatus & 7)) - return 0; - if((ustatus&UMODE) != UMODE) - return 0; - return 1; -} - -/* - * Return user to state before notify() - */ -void -noted(Ureg *kur, Ureg **urp, ulong arg0) -{ - Ureg *nur; - ulong oureg, sp; - - qlock(&up->debug); - if(arg0!=NRSTR && !up->notified) { - qunlock(&up->debug); - pprint("call to noted() when not notified\n"); - pexit("Suicide", 0); - } - up->notified = 0; - - up->fpstate &= ~FPillegal; - - nur = up->ureg; - - oureg = (ulong)nur; - if((oureg & (BY2V-1)) - || !okaddr(oureg-BY2WD, BY2WD+sizeof(Ureg), 0)){ - qunlock(&up->debug); - pprint("bad ureg in noted or call to noted() when not notified\n"); - pexit("Suicide", 0); - } - - if(!validstatus(kur->status, nur->status)) { - qunlock(&up->debug); - pprint("bad noted ureg status %lux\n", (ulong)nur->status); - pexit("Suicide", 0); - } - - memmove(*urp, up->ureg, sizeof(Ureg)); - switch(arg0) { - case NCONT: - case NRSTR: - if(!okaddr(nur->pc, BY2WD, 0) || !okaddr(nur->usp, BY2WD, 0)){ - qunlock(&up->debug); - pprint("suicide: trap in noted\n"); - pexit("Suicide", 0); - } - up->ureg = (Ureg*)(*(ulong*)(oureg-BY2WD)); - qunlock(&up->debug); - splhi(); - rfnote(urp); - break; - - case NSAVE: - if(!okaddr(nur->pc, BY2WD, 0) || !okaddr(nur->usp, BY2WD, 0)){ - qunlock(&up->debug); - pprint("suicide: trap in noted\n"); - pexit("Suicide", 0); - } - qunlock(&up->debug); - sp = oureg-4*BY2WD-ERRMAX; - splhi(); - (*urp)->sp = sp; - ((ulong*)sp)[1] = oureg; /* arg 1 0(FP) is ureg* */ - ((ulong*)sp)[0] = 0; /* arg 0 is pc */ - (*urp)->r0 = oureg; /* arg 1 is ureg* */ - rfnote(urp); - break; - - default: - up->lastnote.flag = NDebug; - /* fall through */ - - case NDFLT: - qunlock(&up->debug); - if(up->lastnote.flag == NDebug) - pprint("suicide: %s\n", up->lastnote.msg); - pexit(up->lastnote.msg, up->lastnote.flag!=NDebug); - } -} - -#include "../port/systab.h" - -long -syscall(Ureg *aur) -{ - int i; - char *e; - long ret; - ulong sp; - Ureg *ur; - ulong scallnr; - - m->syscall++; - up = m->proc; - up->insyscall = 1; - ur = aur; - up->pc = ur->pc; - up->dbgreg = aur; - ur->type = 5; /* for debugging */ - - scallnr = ur->r0; - up->scallnr = ur->r0; - spllo(); - - sp = ur->sp; - up->nerrlab = 0; - ret = -1; - if(!waserror()) { - if(scallnr >= nsyscall || systab[scallnr] == nil){ - pprint("bad sys call %d pc %lux\n", up->scallnr, (ulong)ur->pc); - postnote(up, 1, "sys: bad sys call", NDebug); - error(Ebadarg); - } - - if(sp & (BY2WD-1)){ /* XXX too weak? */ - pprint("odd sp in sys call pc %lux sp %lux\n", - (ulong)ur->pc, (ulong)ur->sp); - postnote(up, 1, "sys: odd stack", NDebug); - error(Ebadarg); - } - - if(sp<(USTKTOP-BY2PG) || sp>(USTKTOP-sizeof(Sargs))) - validaddr(sp, sizeof(Sargs), 0); - - up->s = *((Sargs*)(sp+2*BY2WD)); - up->psstate = sysctab[scallnr]; - ret = systab[scallnr]((va_list)up->s.args); - poperror(); - }else{ - /* failure: save the error buffer for errstr */ - e = up->syserrstr; - up->syserrstr = up->errstr; - up->errstr = e; - } - if(up->nerrlab){ - print("bad errstack [%uld]: %d extra\n", scallnr, up->nerrlab); - for(i = 0; i < NERR; i++) - print("sp=%lux pc=%lux\n", - up->errlab[i].sp, up->errlab[i].pc); - panic("error stack"); - } - - up->nerrlab = 0; - up->psstate = 0; - up->insyscall = 0; - if(scallnr == NOTED) /* ugly hack */ - noted(ur, &aur, *(ulong*)(sp+2*BY2WD)); /* doesn't return */ - - if(scallnr!=RFORK && (up->procctl || up->nnote)){ - ur->r0 = ret; /* load up for noted() */ - if(notify(ur)) - return ur->r0; - } - - return ret; -} - -void -forkchild(Proc *p, Ureg *ur) -{ - Ureg *cur; - - p->sched.sp = (ulong)p->kstack+KSTACK-(4*BY2WD+sizeof(Ureg)); - p->sched.pc = (ulong)forkret; - - cur = (Ureg*)(p->sched.sp+4*BY2WD); - memmove(cur, ur, sizeof(Ureg)); - - /* Things from bottom of syscall we never got to execute */ - p->psstate = 0; - p->insyscall = 0; -} - -static -void -linkproc(void) -{ - spllo(); - up->kpfun(up->kparg); - pexit("kproc exiting", 0); -} - -void -kprocchild(Proc *p, void (*func)(void*), void *arg) -{ - p->sched.pc = (ulong)linkproc; - p->sched.sp = (ulong)p->kstack+KSTACK; - - p->kpfun = func; - p->kparg = arg; -} - -uintptr -execregs(uintptr entry, ulong ssize, ulong nargs) -{ - Ureg *ur; - ulong *sp; - - sp = (ulong*)(USTKTOP - ssize); - *--sp = nargs; - - ur = (Ureg*)up->dbgreg; - ur->usp = (ulong)sp; - ur->pc = entry; - return USTKTOP-BY2WD; /* address of user-level clock */ -} - -uintptr -userpc(void) -{ - Ureg *ur; - - ur = (Ureg*)up->dbgreg; - return ur->pc; -} - -/* This routine must save the values of registers the user is not permitted to write - * from devproc and then restore the saved values before returning - */ -void -setregisters(Ureg *xp, char *pureg, char *uva, int n) -{ - ulong status; - - status = xp->status; - memmove(pureg, uva, n); - xp->status = status; -} - -/* Give enough context in the ureg to produce a kernel stack for - * a sleeping process - */ -void -setkernur(Ureg *xp, Proc *p) -{ - xp->pc = p->sched.pc; - xp->sp = p->sched.sp; - xp->r26 = (ulong)sched; -} - -uintptr -dbgpc(Proc *p) -{ - Ureg *ur; - - ur = p->dbgreg; - if(ur == 0) - return 0; - - return ur->pc; -} - -void -illegal(Ureg *ur) -{ - switch ((int)ur->a0) { - case 0: /* breakpoint */ - ur->pc -= 4; - fataltrap(ur, "breakpoint"); - break; - case 1: /* bugchk */ - fataltrap(ur, "trap: bugchk"); - break; - case 2: /* gentrap */ - fataltrap(ur, "trap: gentrap"); - break; - case 3: /* FEN */ - fen(ur); - break; - case 4: /* opDEC */ - fataltrap(ur, "trap: illegal instruction"); - break; - default: - panic("illegal illegal %d", (int)ur->a0); - break; - } -} - -void -fen(Ureg *ur) -{ - if(up){ - switch(up->fpstate){ - case FPinit: - restfpregs(&initfp); - up->fpstate = FPactive; -//print("EI=%lux+", initfp.fpstatus); - return; - - case FPinactive: - restfpregs(&up->fpsave); - up->fpstate = FPactive; -//print("EIA=%lux+", up->fpsave.fpstatus); - return; - } - } - fataltrap(ur, "trap: floating enable"); /* should never happen */ -} diff --git a/sys/src/9/mkfile b/sys/src/9/mkfile index 2adfb982b..45dfa7027 100644 --- a/sys/src/9/mkfile +++ b/sys/src/9/mkfile @@ -1,5 +1,4 @@ ARCH=\ - alphapc\ bcm\ bitsy\ kw\ diff --git a/sys/src/ape/lib/9/alpha/getcallerpc.s b/sys/src/ape/lib/9/alpha/getcallerpc.s deleted file mode 100644 index 2214561be..000000000 --- a/sys/src/ape/lib/9/alpha/getcallerpc.s +++ /dev/null @@ -1,4 +0,0 @@ -TEXT getcallerpc(SB), $-8 - MOVL 0(SP), R0 - RET - diff --git a/sys/src/ape/lib/9/alpha/getfcr.s b/sys/src/ape/lib/9/alpha/getfcr.s deleted file mode 100644 index 06df5de98..000000000 --- a/sys/src/ape/lib/9/alpha/getfcr.s +++ /dev/null @@ -1,57 +0,0 @@ -#define EXCB WORD $0x60000400 /* until 7a/7l catch up */ - -TEXT getfsr(SB), $8 - EXCB - MOVT FPCR, F0 - EXCB - MOVT F0, tmp-8(SP) - MOVL tmp-4(SP), R1 - MOVQ $0x01e00000, R2 - AND R2, R1, R0 - RET - -TEXT setfsr(SB), $8 - MOVQ $0x01e00000, R2 - EXCB - MOVT FPCR, F0 - EXCB - MOVT F0, tmp-8(SP) - MOVL tmp-4(SP), R1 - ANDNOT R2, R1, R3 - AND R2, R0, R4 - OR R3, R4, R5 - MOVL R5, tmp-4(SP) - MOVT tmp-8(SP), F0 - EXCB - MOVT F0, FPCR - EXCB - RET - -TEXT getfcr(SB), $8 - EXCB - MOVT FPCR, F0 - EXCB - MOVT F0, tmp-8(SP) - MOVL tmp-4(SP), R1 - MOVQ $0x700c0000, R2 - AND R2, R1, R0 - XOR R2, R0 - RET - -TEXT setfcr(SB), $8 - MOVQ $0x700c0000, R2 - XOR R2, R0 - EXCB - MOVT FPCR, F0 - EXCB - MOVT F0, tmp-8(SP) - MOVL tmp-4(SP), R1 - ANDNOT R2, R1, R3 - AND R2, R0, R4 - OR R3, R4, R5 - MOVL R5, tmp-4(SP) - MOVT tmp-8(SP), F0 - EXCB - MOVT F0, FPCR - EXCB - RET diff --git a/sys/src/ape/lib/ap/alpha/_seek.c b/sys/src/ape/lib/ap/alpha/_seek.c deleted file mode 100644 index 7bccc0661..000000000 --- a/sys/src/ape/lib/ap/alpha/_seek.c +++ /dev/null @@ -1,12 +0,0 @@ -extern long __SEEK(long long*, int, long long, int); - -long long -_SEEK(int fd, long long o, int p) -{ - long long l; - - if(__SEEK(&l, fd, o, p) < 0) - l = -1; - return l; -} - diff --git a/sys/src/ape/lib/ap/alpha/cycles.c b/sys/src/ape/lib/ap/alpha/cycles.c deleted file mode 100644 index 1c32bc732..000000000 --- a/sys/src/ape/lib/ap/alpha/cycles.c +++ /dev/null @@ -1,5 +0,0 @@ -void -_cycles(unsigned long long *u) -{ - *u = 0; -} diff --git a/sys/src/ape/lib/ap/alpha/divl.s b/sys/src/ape/lib/ap/alpha/divl.s deleted file mode 100644 index bce568a8e..000000000 --- a/sys/src/ape/lib/ap/alpha/divl.s +++ /dev/null @@ -1,189 +0,0 @@ -/* - * ulong - * _udiv(ulong num, ulong den) - * { - * int i; - * ulong quo; - * - * if(den == 0) - * *(ulong*)-1 = 0; - * quo = num; - * if(quo > 1<<(32-1)) - * quo = 1<<(32-1); - * for(i=0; den=0; i--) { - * quo <<= 1; - * if(num >= den) { - * num -= den; - * quo |= 1; - * } - * den >>= 1; - * } - * return quo::num; - * } - */ - -#define NOPROF 1 - -/* - * calling sequence: - * num: 8(R30) - * den: 12(R30) - * returns - * quo: 8(R30) - * rem: 12(R30) - */ -TEXT _udivmodl(SB), NOPROF, $-8 - - MOVQ $-1, R11 - SLLQ $31, R11 /* (1<<31) in canonical form */ - MOVL 8(R30), R23 /* numerator */ - MOVL 12(R30), R10 /* denominator */ - BNE R10, udm20 - MOVQ R31, -1(R31) /* fault -- divide by zero; todo: use gentrap? */ -udm20: - MOVQ R23, R12 - BGE R12, udm34 - MOVQ R11, R12 -udm34: - MOVQ R31, R11 -udm38: - CMPUGE R10, R12, R24 - BNE R24, udm54 - SLLL $1, R10 - ADDQ $1, R11 - JMP udm38 -udm54: - MOVQ R31, R12 -udm58: - BLT R11, udm8c - SLLL $1, R12 - CMPUGE R23, R10, R24 - BEQ R24, udm7c - SUBL R10, R23 - OR $1, R12 -udm7c: - SRLL $1, R10 - SUBQ $1, R11 - JMP udm58 -udm8c: - MOVL R12, 8(R30) /* quotient */ - MOVL R23, 12(R30) /* remainder */ - RET - -/* - * save working registers - * and bring in num/den parameters - */ -TEXT _unsargl(SB), NOPROF, $-8 - MOVQ R10, 24(R30) - MOVQ R11, 32(R30) - MOVQ R12, 40(R30) - MOVQ R23, 48(R30) - MOVQ R24, 56(R30) - - MOVL R27, 8(R30) - MOVL 72(R30), R27 - MOVL R27, 12(R30) - - RET - -/* - * save working registers - * and bring in absolute value - * of num/den parameters - */ -TEXT _absargl(SB), NOPROF, $-8 - MOVQ R10, 24(R30) - MOVQ R11, 32(R30) - MOVQ R12, 40(R30) - MOVQ R23, 48(R30) - MOVQ R24, 56(R30) - - MOVL R27, 64(R30) - BGE R27, ab1 - SUBL R27, R31, R27 -ab1: - MOVL R27, 8(R30) /* numerator */ - - MOVL 72(R30), R27 - BGE R27, ab2 - SUBL R27, R31, R27 -ab2: - MOVL R27, 12(R30) /* denominator */ - RET - -/* - * restore registers and - * return to original caller - * answer is in R27 - */ -TEXT _retargl(SB), NOPROF, $-8 - MOVQ 24(R30), R10 - MOVQ 32(R30), R11 - MOVQ 40(R30), R12 - MOVQ 48(R30), R23 - MOVQ 56(R30), R24 - MOVL 0(R30), R26 - - ADDQ $64, R30 - RET /* back to main sequence */ - -TEXT _divl(SB), NOPROF, $-8 - SUBQ $64, R30 /* 5 reg save, 2 parameters, link */ - MOVL R26, 0(R30) - - JSR _absargl(SB) - JSR _udivmodl(SB) - MOVL 8(R30), R27 - - MOVL 64(R30), R10 /* clean up the sign */ - MOVL 72(R30), R11 - XOR R11, R10 - BGE R10, div1 - SUBL R27, R31, R27 -div1: - - JSR _retargl(SB) - RET /* not executed */ - -TEXT _divlu(SB), NOPROF, $-8 - SUBQ $64, R30 /* 5 reg save, 2 parameters, link */ - MOVL R26, 0(R30) - - JSR _unsargl(SB) - JSR _udivmodl(SB) - MOVL 8(R30), R27 - - JSR _retargl(SB) - RET /* not executed */ - -TEXT _modl(SB), NOPROF, $-8 - SUBQ $64, R30 /* 5 reg save, 2 parameters, link */ - MOVL R26, 0(R30) - - JSR _absargl(SB) - JSR _udivmodl(SB) - MOVL 12(R30), R27 - - MOVL 64(R30), R10 /* clean up the sign */ - BGE R10, div2 - SUBL R27, R31, R27 -div2: - - JSR _retargl(SB) - RET /* not executed */ - -TEXT _modlu(SB), NOPROF, $-8 - SUBQ $64, R30 /* 5 reg save, 2 parameters, link */ - MOVL R26, 0(R30) - - JSR _unsargl(SB) - JSR _udivmodl(SB) - MOVL 12(R30), R27 - - JSR _retargl(SB) - RET /* not executed */ - diff --git a/sys/src/ape/lib/ap/alpha/divq.s b/sys/src/ape/lib/ap/alpha/divq.s deleted file mode 100644 index 98a58e4a8..000000000 --- a/sys/src/ape/lib/ap/alpha/divq.s +++ /dev/null @@ -1,191 +0,0 @@ -/* - * uvlong - * _udiv(uvlong num, uvlong den) - * { - * int i; - * uvlong quo; - * - * if(den == 0) - * *(ulong*)-1 = 0; - * quo = num; - * if(quo > 1<<(64-1)) - * quo = 1<<(64-1); - * for(i=0; den=0; i--) { - * quo <<= 1; - * if(num >= den) { - * num -= den; - * quo |= 1; - * } - * den >>= 1; - * } - * return quo::num; - * } - */ - -#define NOPROF 1 - -/* - * calling sequence: - * num: 8(R30) - * den: 16(R30) - * returns - * quo: 8(R30) - * rem: 16(R30) - */ -TEXT _udivmodq(SB), NOPROF, $-8 - - MOVQ $1, R11 - SLLQ $63, R11 - MOVQ 8(R30), R23 /* numerator */ - MOVQ 16(R30), R10 /* denominator */ - BNE R10, udm20 - MOVQ R31, -1(R31) /* fault -- divide by zero; todo: use gentrap? */ -udm20: - MOVQ R23, R12 - BGE R12, udm34 - MOVQ R11, R12 -udm34: - MOVQ R31, R11 -udm38: - CMPUGE R10, R12, R24 - BNE R24, udm54 - SLLQ $1, R10 - ADDQ $1, R11 - JMP udm38 -udm54: - MOVQ R31, R12 -udm58: - BLT R11, udm8c - SLLQ $1, R12 - CMPUGE R23, R10, R24 - BEQ R24, udm7c - SUBQ R10, R23 - OR $1, R12 -udm7c: - SRLQ $1, R10 - SUBQ $1, R11 - JMP udm58 -udm8c: - MOVQ R12, 8(R30) /* quotient */ - MOVQ R23, 16(R30) /* remainder */ - RET - -/* - * save working registers - * and bring in num/den parameters - */ -TEXT _unsargq(SB), NOPROF, $-8 - MOVQ R10, 24(R30) - MOVQ R11, 32(R30) - MOVQ R12, 40(R30) - MOVQ R23, 48(R30) - MOVQ R24, 56(R30) - - MOVQ R27, 8(R30) - MOVQ 72(R30), R27 - MOVQ R27, 16(R30) - -MOVQ (R30), R10 /* debug */ - RET - -/* - * save working registers - * and bring in absolute value - * of num/den parameters - */ -TEXT _absargq(SB), NOPROF, $-8 - MOVQ R10, 24(R30) - MOVQ R11, 32(R30) - MOVQ R12, 40(R30) - MOVQ R23, 48(R30) - MOVQ R24, 56(R30) - - MOVQ R27, 64(R30) - BGE R27, ab1 - SUBQ R27, R31, R27 -ab1: - MOVQ R27, 8(R30) /* numerator */ - - MOVQ 72(R30), R27 - BGE R27, ab2 - SUBQ R27, R31, R27 -ab2: - MOVQ R27, 16(R30) /* denominator */ -MOVQ (R30), R10 /* debug */ - RET - -/* - * restore registers and - * return to original caller - * answer is in R27 - */ -TEXT _retargq(SB), NOPROF, $-8 - MOVQ 24(R30), R10 - MOVQ 32(R30), R11 - MOVQ 40(R30), R12 - MOVQ 48(R30), R23 - MOVQ 56(R30), R24 - MOVL 0(R30), R26 - - ADDQ $64, R30 - RET /* back to main sequence */ - -TEXT _divq(SB), NOPROF, $-8 - SUBQ $64, R30 /* 5 reg save, 2 parameters, link */ - MOVQ R26, 0(R30) - - JSR _absargq(SB) - JSR _udivmodq(SB) - MOVQ 8(R30), R27 - - MOVQ 64(R30), R10 /* clean up the sign */ - MOVQ 72(R30), R11 - XOR R11, R10 - BGE R10, div1 - SUBQ R27, R31, R27 -div1: - - JSR _retargq(SB) - RET /* not executed */ - -TEXT _divqu(SB), NOPROF, $-8 - SUBQ $64, R30 /* 5 reg save, 2 parameters, link */ - MOVQ R26, 0(R30) - - JSR _unsargq(SB) - JSR _udivmodq(SB) - MOVQ 8(R30), R27 - - JSR _retargq(SB) - RET /* not executed */ - -TEXT _modq(SB), NOPROF, $-8 - SUBQ $64, R30 /* 5 reg save, 2 parameters, link */ - MOVQ R26, 0(R30) - - JSR _absargq(SB) - JSR _udivmodq(SB) - MOVQ 16(R30), R27 - - MOVQ 64(R30), R10 /* clean up the sign */ - BGE R10, div2 - SUBQ R27, R31, R27 -div2: - - JSR _retargq(SB) - RET /* not executed */ - -TEXT _modqu(SB), NOPROF, $-8 - SUBQ $64, R30 /* 5 reg save, 2 parameters, link */ - MOVQ R26, 0(R30) - - JSR _unsargq(SB) - JSR _udivmodq(SB) - MOVQ 16(R30), R27 - - JSR _retargq(SB) - RET /* not executed */ - diff --git a/sys/src/ape/lib/ap/alpha/getfcr.s b/sys/src/ape/lib/ap/alpha/getfcr.s deleted file mode 100644 index e3c9f02d8..000000000 --- a/sys/src/ape/lib/ap/alpha/getfcr.s +++ /dev/null @@ -1,33 +0,0 @@ -TEXT getfsr(SB), $8 - TRAPB - MOVT FPCR, F0 - TRAPB - MOVT F0, tmp-8(SP) - MOVL tmp-4(SP), R0 - RET - -TEXT setfsr(SB), $8 - SLLQ $32, R0 - MOVQ R0, tmp-8(SP) - MOVT tmp-8(SP), F0 - TRAPB - MOVT F0, FPCR - TRAPB - RET - -TEXT getfcr(SB), $8 - TRAPB - MOVT FPCR, F0 - TRAPB - MOVT F0, tmp-8(SP) - MOVL tmp-4(SP), R0 - RET - -TEXT setfcr(SB), $8 - SLLQ $32, R0 - MOVQ R0, tmp-8(SP) - MOVT tmp-8(SP), F0 - TRAPB - MOVT F0, FPCR - TRAPB - RET diff --git a/sys/src/ape/lib/ap/alpha/lock.c b/sys/src/ape/lib/ap/alpha/lock.c deleted file mode 100644 index 91c0ba233..000000000 --- a/sys/src/ape/lib/ap/alpha/lock.c +++ /dev/null @@ -1,26 +0,0 @@ -#define _LOCK_EXTENSION -#include "../plan9/sys9.h" -#include - -int tas(int*); - -void -lock(Lock *lk) -{ - while(tas(&lk->val)) - _SLEEP(0); -} - -int -canlock(Lock *lk) -{ - if(tas(&lk->val)) - return 0; - return 1; -} - -void -unlock(Lock *lk) -{ - lk->val = 0; -} diff --git a/sys/src/ape/lib/ap/alpha/main9.s b/sys/src/ape/lib/ap/alpha/main9.s deleted file mode 100644 index 3be62f946..000000000 --- a/sys/src/ape/lib/ap/alpha/main9.s +++ /dev/null @@ -1,39 +0,0 @@ -#define NPRIVATES 16 - -GLOBL _tos(SB), $4 -GLOBL _errnoloc(SB), $4 -GLOBL _plan9err(SB), $4 -GLOBL _privates(SB), $4 -GLOBL _nprivates(SB), $4 - -TEXT _main(SB), 1, $(20+4+128+NPRIVATES*4) - MOVQ $setSB(SB), R29 - - /* _tos = arg */ - MOVL R0, _tos(SB) - - MOVL $20(R30), R1 - MOVL R1, _errnoloc(SB) - ADDL $4, R1 - MOVL R1, _plan9err(SB) - ADDL $128, R1 - MOVL R1, _privates(SB) - MOVQ $NPRIVATES, R1 - MOVL R1, _nprivates(SB) - - JSR _envsetup(SB) - - /* main(argc, argv, environ); */ - MOVL inargc-4(FP), R0 - MOVL $inargv+0(FP), R1 - MOVL environ(SB), R2 - MOVL R0, 8(R30) - MOVL R1, 12(R30) - MOVL R2, 16(R30) - JSR main(SB) -loop: - MOVL R0, 8(R30) - JSR exit(SB) - MOVQ $_divq(SB), R31 /* force loading of divq */ - MOVQ $_divl(SB), R31 /* force loading of divl */ - JMP loop diff --git a/sys/src/ape/lib/ap/alpha/main9p.s b/sys/src/ape/lib/ap/alpha/main9p.s deleted file mode 100644 index 95d04bb25..000000000 --- a/sys/src/ape/lib/ap/alpha/main9p.s +++ /dev/null @@ -1,56 +0,0 @@ -#define NPRIVATES 16 - -GLOBL _tos(SB), $4 -GLOBL _errnoloc(SB), $4 -GLOBL _plan9err(SB), $4 -GLOBL _privates(SB), $4 -GLOBL _nprivates(SB), $4 - -TEXT _mainp(SB), 1, $(20+4+128+NPRIVATES*4) - MOVQ $setSB(SB), R29 - - /* _tos = arg */ - MOVL R0, _tos(SB) - - MOVL $20(R30), R1 - MOVL R1, _errnoloc(SB) - ADDL $4, R1 - MOVL R1, _plan9err(SB) - ADDL $128, R1 - MOVL R1, _privates(SB) - MOVQ $NPRIVATES, R1 - MOVL R1, _nprivates(SB) - - /* _profmain(); */ - JSR _profmain(SB) - - /* _tos->prof.pp = _tos->prof.next; */ - MOVL _tos+0(SB), R1 - MOVL 4(R1), R2 - MOVL R2, 0(R1) - - JSR _envsetup(SB) - - /* main(argc, argv, environ); */ - MOVL inargc-4(FP), R0 - MOVL $inargv+0(FP), R1 - MOVL environ(SB), R2 - MOVL R0, 8(R30) - MOVL R1, 12(R30) - MOVL R2, 16(R30) - JSR main(SB) -loop: - MOVL R0, 8(R30) - JSR exit(SB) - MOVQ $_divq(SB), R31 /* force loading of divq */ - MOVQ $_divl(SB), R31 /* force loading of divl */ - MOVQ $_profin(SB), R31 /* force loading of profile */ - JMP loop - -TEXT _saveret(SB), 1, $0 -TEXT _savearg(SB), 1, $0 - RET - -TEXT _callpc(SB), 1, $0 - MOVL argp-8(FP), R0 - RET diff --git a/sys/src/ape/lib/ap/alpha/memcpy.c b/sys/src/ape/lib/ap/alpha/memcpy.c deleted file mode 100644 index 7bbb55c6e..000000000 --- a/sys/src/ape/lib/ap/alpha/memcpy.c +++ /dev/null @@ -1,7 +0,0 @@ -#include - -void* -memcpy(void *a1, const void *a2, size_t n) -{ - return memmove(a1, a2, n); -} diff --git a/sys/src/ape/lib/ap/alpha/memmove.s b/sys/src/ape/lib/ap/alpha/memmove.s deleted file mode 100644 index 0fafb752d..000000000 --- a/sys/src/ape/lib/ap/alpha/memmove.s +++ /dev/null @@ -1,197 +0,0 @@ -#define QUAD 8 -#define ALIGN 64 -#define BLOCK 64 - -TEXT memmove(SB), $0 - MOVL from+4(FP), R7 - MOVL n+8(FP), R10 - MOVQ R0, R6 - - CMPUGE R7, R0, R5 - BNE R5, _forward - - MOVQ R6, R8 /* end to address */ - ADDL R10, R6, R6 /* to+n */ - ADDL R10, R7, R7 /* from+n */ - - CMPUGE $ALIGN, R10, R1 /* need at least ALIGN bytes */ - BNE R1, _b1tail - -_balign: - AND $(ALIGN-1), R6, R1 - BEQ R1, _baligned - - MOVBU -1(R7), R2 - ADDL $-1, R6, R6 - MOVB R2, (R6) - ADDL $-1, R7, R7 - JMP _balign - -_baligned: - AND $(QUAD-1), R7, R1 /* is the source quad-aligned */ - BNE R1, _bunaligned - - ADDL $(BLOCK-1), R8, R9 -_bblock: - CMPUGE R9, R6, R1 - BNE R1, _b8tail - - MOVQ -64(R7), R22 - MOVQ -56(R7), R23 - MOVQ -48(R7), R24 - MOVQ -40(R7), R25 - MOVQ -32(R7), R2 - MOVQ -24(R7), R3 - MOVQ -16(R7), R4 - MOVQ -8(R7), R5 - - SUBL $64, R6, R6 - SUBL $64, R7, R7 - - MOVQ R22, (R6) - MOVQ R23, 8(R6) - MOVQ R24, 16(R6) - MOVQ R25, 24(R6) - MOVQ R2, 32(R6) - MOVQ R3, 40(R6) - MOVQ R4, 48(R6) - MOVQ R5, 56(R6) - JMP _bblock - -_b8tail: - ADDL $(QUAD-1), R8, R9 -_b8block: - CMPUGE R9, R6, R1 - BNE R1, _b1tail - - MOVQ -8(R7), R2 - SUBL $8, R6 - MOVQ R2, (R6) - SUBL $8, R7 - JMP _b8block - -_b1tail: - CMPUGE R8, R6, R1 - BNE R1, _ret - - MOVBU -1(R7), R2 - SUBL $1, R6, R6 - MOVB R2, (R6) - SUBL $1, R7, R7 - JMP _b1tail -_ret: - RET - -_bunaligned: - ADDL $(16-1), R8, R9 - -_bu8block: - CMPUGE R9, R6, R1 - BNE R1, _b1tail - - MOVQU -16(R7), R4 - MOVQU -8(R7), R3 - MOVQU (R7), R2 - SUBL $16, R6 - EXTQH R7, R2, R2 - EXTQL R7, R3, R5 - OR R5, R2, R11 - EXTQH R7, R3, R3 - EXTQL R7, R4, R4 - OR R3, R4, R13 - MOVQ R11, 8(R6) - MOVQ R13, (R6) - SUBL $16, R7 - JMP _bu8block - -_forward: - ADDL R10, R6, R8 /* end to address */ - - CMPUGE $ALIGN, R10, R1 /* need at least ALIGN bytes */ - BNE R1, _f1tail - -_falign: - AND $(ALIGN-1), R6, R1 - BEQ R1, _faligned - - MOVBU (R7), R2 - ADDL $1, R6, R6 - ADDL $1, R7, R7 - MOVB R2, -1(R6) - JMP _falign - -_faligned: - AND $(QUAD-1), R7, R1 /* is the source quad-aligned */ - BNE R1, _funaligned - - SUBL $(BLOCK-1), R8, R9 -_fblock: - CMPUGT R9, R6, R1 - BEQ R1, _f8tail - - MOVQ (R7), R2 - MOVQ 8(R7), R3 - MOVQ 16(R7), R4 - MOVQ 24(R7), R5 - MOVQ 32(R7), R22 - MOVQ 40(R7), R23 - MOVQ 48(R7), R24 - MOVQ 56(R7), R25 - - ADDL $64, R6, R6 - ADDL $64, R7, R7 - - MOVQ R2, -64(R6) - MOVQ R3, -56(R6) - MOVQ R4, -48(R6) - MOVQ R5, -40(R6) - MOVQ R22, -32(R6) - MOVQ R23, -24(R6) - MOVQ R24, -16(R6) - MOVQ R25, -8(R6) - JMP _fblock - -_f8tail: - SUBL $(QUAD-1), R8, R9 -_f8block: - CMPUGT R9, R6, R1 - BEQ R1, _f1tail - - MOVQ (R7), R2 - ADDL $8, R6 - ADDL $8, R7 - MOVQ R2, -8(R6) - JMP _f8block - -_f1tail: - CMPUGT R8, R6, R1 - BEQ R1, _fret - MOVBU (R7), R2 - ADDL $1, R6, R6 - ADDL $1, R7, R7 - MOVB R2, -1(R6) - JMP _f1tail - -_fret: - RET - -_funaligned: - SUBL $(16-1), R8, R9 -_fu8block: - CMPUGT R9, R6, R1 - BEQ R1, _f1tail - - MOVQU (R7), R2 - MOVQU 8(R7), R3 - MOVQU 16(R7), R4 - EXTQL R7, R2, R2 - EXTQH R7, R3, R5 - OR R5, R2, R11 - EXTQL R7, R3, R3 - MOVQ R11, (R6) - EXTQH R7, R4, R4 - OR R3, R4, R11 - MOVQ R11, 8(R6) - ADDL $16, R6 - ADDL $16, R7 - JMP _fu8block diff --git a/sys/src/ape/lib/ap/alpha/memset.s b/sys/src/ape/lib/ap/alpha/memset.s deleted file mode 100644 index e3cfd468b..000000000 --- a/sys/src/ape/lib/ap/alpha/memset.s +++ /dev/null @@ -1,61 +0,0 @@ -TEXT memset(SB), $0 - MOVL R0, R6 - MOVBU data+4(FP), R2 - MOVL n+8(FP), R10 - - ADDL R10, R0, R8 - - CMPUGE $8, R10, R1 /* need at least 8 bytes */ - BNE R1, _1loop - - SLLQ $8, R2, R1 /* replicate the byte */ - OR R1, R2 - SLLQ $16, R2, R1 - OR R1, R2 - SLLQ $32, R2, R1 - OR R1, R2 - -_align: - AND $(8-1), R6, R1 - BEQ R1, _aligned - - MOVB R2, (R6) - ADDL $1, R6, R6 - JMP _align - -_aligned: - SUBL $(64-1), R8, R9 /* end pointer minus slop */ -_64loop: - CMPUGT R9, R6, R1 - BEQ R1, _8tail - - MOVQ R2, (R6) - MOVQ R2, 8(R6) - MOVQ R2, 16(R6) - MOVQ R2, 24(R6) - MOVQ R2, 32(R6) - MOVQ R2, 40(R6) - MOVQ R2, 48(R6) - MOVQ R2, 56(R6) - ADDL $64, R6, R6 - JMP _64loop - -_8tail: - SUBL $(8-1), R8, R9 -_8loop: - CMPUGT R9, R6, R1 - BEQ R1, _1loop - - MOVQ R2, (R6) - ADDL $8, R6 - JMP _8loop - -_1loop: - CMPUGT R8, R6, R1 - BEQ R1, _ret - MOVB R2, (R6) - ADDL $1, R6 - JMP _1loop - -_ret: - RET diff --git a/sys/src/ape/lib/ap/alpha/mkfile b/sys/src/ape/lib/ap/alpha/mkfile deleted file mode 100644 index 6a1c3ca60..000000000 --- a/sys/src/ape/lib/ap/alpha/mkfile +++ /dev/null @@ -1,23 +0,0 @@ -APE=/sys/src/ape -<$APE/config -LIB=/$objtype/lib/ape/libap.a -OFILES=\ - _seek.$O\ - cycles.$O\ - divl.$O\ - divq.$O\ - getfcr.$O\ - lock.$O\ - main9.$O\ - main9p.$O\ - memcpy.$O\ - memmove.$O\ - memset.$O\ - notetramp.$O\ - setjmp.$O\ - tas.$O\ - - -#include - -/* A stack to hold pcs when signals nest */ -#define MAXSIGSTACK 20 -typedef struct Pcstack Pcstack; -static struct Pcstack { - int sig; - void (*hdlr)(int, char*, Ureg*); - unsigned long restorepc; - Ureg *u; -} pcstack[MAXSIGSTACK]; -static int nstack = 0; - -static void notecont(Ureg*, char*); - -void -_notetramp(int sig, void (*hdlr)(int, char*, Ureg*), Ureg *u) -{ - Pcstack *p; - - if(nstack >= MAXSIGSTACK) - _NOTED(1); /* nesting too deep; just do system default */ - p = &pcstack[nstack]; - p->restorepc = u->pc; - p->sig = sig; - p->hdlr = hdlr; - p->u = u; - nstack++; - u->pc = (unsigned long) notecont; - _NOTED(2); /* NSAVE: clear note but hold state */ -} - -static void -notecont(Ureg *u, char *s) -{ - Pcstack *p; - void(*f)(int, char*, Ureg*); - - p = &pcstack[nstack-1]; - f = p->hdlr; - u->pc = p->restorepc; - nstack--; - (*f)(p->sig, s, u); - _NOTED(3); /* NRSTR */ -} - -#define JMPBUFPC 1 -#define JMPBUFSP 0 - -extern sigset_t _psigblocked; - -void -siglongjmp(sigjmp_buf j, int ret) -{ - struct Ureg *u; - - if(j[0]) - _psigblocked = j[1]; - if(nstack == 0 || pcstack[nstack-1].u->sp > j[2+JMPBUFSP]) - longjmp(j+2, ret); - u = pcstack[nstack-1].u; - nstack--; - u->r0 = ret; - if(ret == 0) - u->r0 = 1; - u->pc = j[2+JMPBUFPC]; - u->sp = j[2+JMPBUFSP]; - _NOTED(3); /* NRSTR */ -} diff --git a/sys/src/ape/lib/ap/alpha/setjmp.s b/sys/src/ape/lib/ap/alpha/setjmp.s deleted file mode 100644 index 3289029a7..000000000 --- a/sys/src/ape/lib/ap/alpha/setjmp.s +++ /dev/null @@ -1,24 +0,0 @@ -TEXT setjmp(SB), 1, $-8 - MOVL R30, (R0) - MOVL R26, 4(R0) - MOVQ $0, R0 - RET - -TEXT sigsetjmp(SB), 1, $-8 - MOVL savemask+4(FP), R3 - MOVL R3, 0(R0) - MOVL $_psigblocked(SB), R3 - MOVL R3, 4(R0) - MOVL R30, 8(R0) - MOVL R26, 12(R0) - MOVQ $0, R0 - RET - -TEXT longjmp(SB), 1, $-8 - MOVL r+4(FP), R3 - BNE R3, ok /* ansi: "longjmp(0) => longjmp(1)" */ - MOVQ $1, R3 /* bless their pointed heads */ -ok: MOVL (R0), R30 - MOVL 4(R0), R26 - MOVL R3, R0 - RET diff --git a/sys/src/ape/lib/ap/alpha/tas.s b/sys/src/ape/lib/ap/alpha/tas.s deleted file mode 100644 index 8b3164c3a..000000000 --- a/sys/src/ape/lib/ap/alpha/tas.s +++ /dev/null @@ -1,10 +0,0 @@ -TEXT tas(SB), $-8 - MOVQ R0, R1 /* l */ -tas1: - MOVLL (R1), R0 /* l->key */ - BNE R0, tas2 - MOVQ $1, R2 - MOVLC R2, (R1) /* l->key = 1 */ - BEQ R2, tas1 /* write failed, try again? */ -tas2: - RET diff --git a/sys/src/ape/lib/mp/alpha/mkfile b/sys/src/ape/lib/mp/alpha/mkfile deleted file mode 100644 index 73b43cf84..000000000 --- a/sys/src/ape/lib/mp/alpha/mkfile +++ /dev/null @@ -1,15 +0,0 @@ -APE=/sys/src/ape -<$APE/config - -LIB=/$objtype/lib/ape/libmp.a - -HFILES=\ - /sys/include/ape/mp.h\ - ../../../../libmp/port/dat.h - -OFILES=\ - -UPDATE=mkfile\ - $HFILES\ - -= 0) - return n; - if (timo-- < 0) - return -1; - } -} - -int -ethertxpkt(int ctlrno, Etherpkt *pkt, int len, int timo) -{ - USED(timo); - return devwrite(ctlrno, (uchar*)pkt, len, 0); -} - -static void -hnputs(uchar *ptr, ushort val) -{ - ptr[0] = val>>8; - ptr[1] = val; -} - -static void -hnputl(uchar *ptr, ulong val) -{ - ptr[0] = val>>24; - ptr[1] = val>>16; - ptr[2] = val>>8; - ptr[3] = val; -} - -static ulong -nhgetl(uchar *ptr) -{ - return ((ptr[0]<<24) | (ptr[1]<<16) | (ptr[2]<<8) | ptr[3]); -} - -static ushort -nhgets(uchar *ptr) -{ - return ((ptr[0]<<8) | ptr[1]); -} - -static short endian = 1; -static char* aendian = (char*)&endian; -#define LITTLE *aendian - -static ushort -ptcl_csum(void *a, int len) -{ - uchar *addr; - ulong t1, t2; - ulong losum, hisum, mdsum, x; - - addr = a; - losum = 0; - hisum = 0; - mdsum = 0; - - x = 0; - if((ulong)addr & 1) { - if(len) { - hisum += addr[0]; - len--; - addr++; - } - x = 1; - } - while(len >= 16) { - t1 = *(ushort*)(addr+0); - t2 = *(ushort*)(addr+2); mdsum += t1; - t1 = *(ushort*)(addr+4); mdsum += t2; - t2 = *(ushort*)(addr+6); mdsum += t1; - t1 = *(ushort*)(addr+8); mdsum += t2; - t2 = *(ushort*)(addr+10); mdsum += t1; - t1 = *(ushort*)(addr+12); mdsum += t2; - t2 = *(ushort*)(addr+14); mdsum += t1; - mdsum += t2; - len -= 16; - addr += 16; - } - while(len >= 2) { - mdsum += *(ushort*)addr; - len -= 2; - addr += 2; - } - if(x) { - if(len) - losum += addr[0]; - if(LITTLE) - losum += mdsum; - else - hisum += mdsum; - } else { - if(len) - hisum += addr[0]; - if(LITTLE) - hisum += mdsum; - else - losum += mdsum; - } - - losum += hisum >> 8; - losum += (hisum & 0xff) << 8; - while(hisum = losum>>16) - losum = hisum + (losum & 0xffff); - - return ~losum; -} - -static ushort -ip_csum(uchar *addr) -{ - int len; - ulong sum = 0; - - len = (addr[0]&0xf)<<2; - - while(len > 0) { - sum += addr[0]<<8 | addr[1] ; - len -= 2; - addr += 2; - } - - sum = (sum & 0xffff) + (sum >> 16); - sum = (sum & 0xffff) + (sum >> 16); - return (sum^0xffff); -} - -static void -udpsend(int ctlrno, Netaddr *a, void *data, int dlen) -{ - Udphdr *uh; - Etherhdr *ip; - Etherpkt pkt; - int len, ptcllen; - - - uh = (Udphdr*)&pkt; - - memset(uh, 0, sizeof(Etherpkt)); - memmove(uh->udpcksum+sizeof(uh->udpcksum), data, dlen); - - /* - * UDP portion - */ - ptcllen = dlen + (UDP_HDRSIZE-UDP_PHDRSIZE); - uh->ttl = 0; - uh->udpproto = IP_UDPPROTO; - uh->frag[0] = 0; - uh->frag[1] = 0; - hnputs(uh->udpplen, ptcllen); - hnputl(uh->udpsrc, myaddr.ip); - hnputs(uh->udpsport, myaddr.port); - hnputl(uh->udpdst, a->ip); - hnputs(uh->udpdport, a->port); - hnputs(uh->udplen, ptcllen); - uh->udpcksum[0] = 0; - uh->udpcksum[1] = 0; - dlen = (dlen+1)&~1; - hnputs(uh->udpcksum, ptcl_csum(&uh->ttl, dlen+UDP_HDRSIZE)); - - /* - * IP portion - */ - ip = (Etherhdr*)&pkt; - len = UDP_EHSIZE+UDP_HDRSIZE+dlen; /* non-descriptive names */ - ip->vihl = IP_VER|IP_HLEN; - ip->tos = 0; - ip->ttl = 255; - hnputs(ip->length, len-ETHER_HDR); - hnputs(ip->id, Id++); - ip->frag[0] = 0; - ip->frag[1] = 0; - ip->cksum[0] = 0; - ip->cksum[1] = 0; - hnputs(ip->cksum, ip_csum(&ip->vihl)); - - /* - * Ethernet MAC portion - */ - hnputs(ip->type, ET_IP); - memmove(ip->d, a->ea, sizeof(ip->d)); - - ethertxpkt(ctlrno, &pkt, len, Timeout); -} - -static void -nak(int ctlrno, Netaddr *a, int code, char *msg, int report) -{ - int n; - char buf[128]; - - buf[0] = 0; - buf[1] = Tftp_ERROR; - buf[2] = 0; - buf[3] = code; - strcpy(buf+4, msg); - n = strlen(msg) + 4 + 1; - udpsend(ctlrno, a, buf, n); - if(report) - print("\ntftp: error(%d): %s\n", code, msg); -} - -static int -udprecv(int ctlrno, Netaddr *a, void *data, int dlen) -{ - int n, len; - ushort csm; - Udphdr *h; - ulong addr, timo; - Etherpkt pkt; - static int rxactive; - - if(rxactive == 0) - timo = 1000; - else - timo = Timeout; - timo += msec(); - while(timo > msec()){ - n = etherrxpkt(ctlrno, &pkt, timo-msec()); - if(n <= 0) - continue; - - h = (Udphdr*)&pkt; - if(nhgets(h->type) != ET_IP) - continue; - - if(ip_csum(&h->vihl)) { - print("ip chksum error\n"); - continue; - } - if(h->vihl != (IP_VER|IP_HLEN)) { - print("ip bad vers/hlen\n"); - continue; - } - - if(h->udpproto != IP_UDPPROTO) - continue; - - h->ttl = 0; - len = nhgets(h->udplen); - hnputs(h->udpplen, len); - - if(nhgets(h->udpcksum)) { - csm = ptcl_csum(&h->ttl, len+UDP_PHDRSIZE); - if(csm != 0) { - print("udp chksum error csum #%4lux len %d\n", csm, n); - break; - } - } - - if(a->port != 0 && nhgets(h->udpsport) != a->port) - continue; - if(myaddr.port != 0 && nhgets(h->udpdport) != myaddr.port) - continue; - - addr = nhgetl(h->udpsrc); - if(a->ip != Bcastip && addr != a->ip) - continue; - - len -= UDP_HDRSIZE-UDP_PHDRSIZE; - if(len > dlen) { - print("udp: packet too big\n"); - continue; - } - - memmove(data, h->udpcksum+sizeof(h->udpcksum), len); - a->ip = addr; - a->port = nhgets(h->udpsport); - memmove(a->ea, pkt.s, sizeof(a->ea)); - - rxactive = 1; - return len; - } - - return 0; -} - -static int tftpblockno; - -static int -tftpopen(int ctlrno, Netaddr *a, char *name, Tftp *tftp) -{ - int i, len, rlen; - char buf[Segsize+2]; - - buf[0] = 0; - buf[1] = Tftp_READ; - len = sprint(buf+2, "%s", name) + 2; - len += sprint(buf+len+1, "octet") + 2; - - for(i = 0; i < 5; i++){ - udpsend(ctlrno, a, buf, len); - a->port = 0; - if((rlen = udprecv(ctlrno, a, tftp, sizeof(Tftp))) < sizeof(tftp->header)) - continue; - - switch((tftp->header[0]<<8)|tftp->header[1]){ - - case Tftp_ERROR: - print("tftpopen: error (%d): %s\n", - (tftp->header[2]<<8)|tftp->header[3], tftp->data); - return -1; - - case Tftp_DATA: - tftpblockno = 1; - len = (tftp->header[2]<<8)|tftp->header[3]; - if(len != tftpblockno){ - print("tftpopen: block error: %d\n", len); - nak(ctlrno, a, 1, "block error", 0); - return -1; - } - return rlen-sizeof(tftp->header); - } - } - - print("tftpopen: failed to connect to server\n"); - return -1; -} - -static int -tftpread(int ctlrno, Netaddr *a, Tftp *tftp, int dlen) -{ - int blockno, len; - uchar buf[4]; - - buf[0] = 0; - buf[1] = Tftp_ACK; - buf[2] = tftpblockno>>8; - buf[3] = tftpblockno; - tftpblockno++; - - dlen += sizeof(tftp->header); - -buggery: - udpsend(ctlrno, a, buf, sizeof(buf)); - - if((len = udprecv(ctlrno, a, tftp, dlen)) != dlen){ - print("tftpread: %d != %d\n", len, dlen); - nak(ctlrno, a, 2, "short read", 0); - } - - blockno = (tftp->header[2]<<8)|tftp->header[3]; - if(blockno != tftpblockno){ - print("tftpread: block error: %d, expected %d\n", blockno, tftpblockno); - - if(blockno == tftpblockno-1) - goto buggery; - nak(ctlrno, a, 1, "block error", 0); - - return -1; - } - - return len-sizeof(tftp->header); -} - -// #define BOOT_MAGIC L_MAGIC -#define BOOT_MAGIC 0x0700e0c3 - -void -getether(char *dev, uchar *ea) -{ - int i; - char *p; - - p = dev; - for (i = 0; i < 8; i++) { - p = strchr(p, ' '); - if (p == 0) - panic("no ether addr"); - p++; - } - for (i = 0; i < 6; i++) { - ea[i] = strtoul(p, &p, 16); - if (*p != (i == 5 ? ' ' : '-')) - panic("bad ether addr"); - p++; - } -} - -static char inibuf[BOOTARGSLEN]; - -int -bootp(char *dev) -{ - Bootp req, rep; - int i, fd, dlen, segsize, text, data, bss, total; - uchar *addr, *p, ea[6]; - char *cp; - ulong entry; - Exec *exec; - char *filename, confname[32]; - - getether(dev, ea); - fd = devopen(dev); - if (fd < 0) - panic("bootp devopen"); - - memset(&req, 0, sizeof(req)); - req.op = Bootrequest; - req.htype = 1; /* ethernet */ - req.hlen = Eaddrlen; /* ethernet */ - memmove(req.chaddr, ea, Eaddrlen); - - myaddr.ip = 0; - myaddr.port = BPportsrc; - memmove(myaddr.ea, ea, Eaddrlen); - - for(i = 0; i < 10; i++) { - server.ip = Bcastip; - server.port = BPportdst; - memmove(server.ea, broadcast, sizeof(server.ea)); - udpsend(fd, &server, &req, sizeof(req)); - if(udprecv(fd, &server, &rep, sizeof(rep)) <= 0) - continue; - if(memcmp(req.chaddr, rep.chaddr, Eaddrlen)) - continue; - if(rep.htype != 1 || rep.hlen != Eaddrlen) - continue; - break; - } - if(i >= 10) { - print("bootp timed out\n"); - return -1; - } - - sprint(confname, "/alpha/conf/%d.%d.%d.%d", - rep.yiaddr[0], - rep.yiaddr[1], - rep.yiaddr[2], - rep.yiaddr[3]); - - if(rep.sname[0] != '\0') - print("%s ", rep.sname); - print("(%d.%d.%d.%d!%d): %s...", - rep.siaddr[0], - rep.siaddr[1], - rep.siaddr[2], - rep.siaddr[3], - server.port, - confname); - - myaddr.ip = nhgetl(rep.yiaddr); - myaddr.port = tftpport++; - server.ip = nhgetl(rep.siaddr); - server.port = TFTPport; - - if((dlen = tftpopen(fd, &server, confname, &tftpb)) < 0) - return -1; - cp = inibuf; - while(dlen > 0) { - if(cp-inibuf+dlen > BOOTARGSLEN) - panic("conf too large"); - memmove(cp, tftpb.data, dlen); - cp += dlen; - if(dlen != Segsize) - break; - if((dlen = tftpread(fd, &server, &tftpb, sizeof(tftpb.data))) < 0) - return -1; - } - *cp = 0; - setconf(inibuf); - - filename = "/alpha/9apc"; - cp = getconf("bootfile"); - if(cp != nil) - filename = cp; - - print("%s\n", filename); - myaddr.port = tftpport++; - server.port = TFTPport; - if((dlen = tftpopen(fd, &server, filename, &tftpb)) < 0) - return -1; - - exec = (Exec*)(tftpb.data); - if(dlen < sizeof(Exec) || GLLONG(exec->magic) != BOOT_MAGIC){ - nak(fd, &server, 0, "bad magic number", 1); - return -1; - } - text = GLLONG(exec->text); - data = GLLONG(exec->data); - bss = GLLONG(exec->bss); - total = text+data+bss; - entry = GLLONG(exec->entry); - if (!validrgn(entry, entry+total)) - panic("memory range not available: %lux-%lux\n", entry, entry+total); - print("%d", text); - - addr = (uchar*)entry; - p = tftpb.data+sizeof(Exec); - dlen -= sizeof(Exec); - segsize = text; - for(;;){ - if(dlen == 0){ - if((dlen = tftpread(fd, &server, &tftpb, sizeof(tftpb.data))) < 0) - return -1; - p = tftpb.data; - } - if(segsize <= dlen) - i = segsize; - else - i = dlen; - memmove(addr, p, i); - - addr += i; - p += i; - segsize -= i; - dlen -= i; - - if(segsize <= 0){ - if(data == 0) - break; - print("+%d", data); - segsize = data; - data = 0; -// addr = (uchar*)pground((uvlong)addr); - } - } - nak(fd, &server, 3, "ok", 0); /* tftpclose */ - print("+%d=%d\n", bss, total); - print("entry: 0x%lux\n", entry); - - kexec(entry); - - return 0; -} diff --git a/sys/src/boot/alphapc/conf.c b/sys/src/boot/alphapc/conf.c deleted file mode 100644 index 8a4858d92..000000000 --- a/sys/src/boot/alphapc/conf.c +++ /dev/null @@ -1,75 +0,0 @@ -#include "u.h" -#include "mem.h" -#include "dat.h" -#include "fns.h" -#include "lib.h" - -static char *confname[MAXCONF]; -static char *confval[MAXCONF]; -static int nconf; -static char bootargs[BOOTARGSLEN]; - -char* -getconf(char *name) -{ - int i; - - for(i = 0; i < nconf; i++) - if(strcmp(confname[i], name) == 0) - return confval[i]; - return 0; -} - -void -setconf(char *buf) -{ - char *cp, *line[MAXCONF]; - int i, n; - - /* - * Keep a pristine copy. - * Should change this to pass the parsed strings - * to the booted programme instead of the raw - * string, then it only gets done once. - */ - strcpy(bootargs, buf); - /* print("boot: stashing /alpha/conf boot args at 0x%lux\n", - bootargs); /* DEBUG */ - conf.bootargs = bootargs; - - n = getcfields(buf, line, MAXCONF, "\n"); - for(i = 0; i < n; i++){ - if(*line[i] == '#') - continue; - cp = strchr(line[i], '='); - if(cp == nil) - continue; - *cp++ = 0; - if(cp - line[i] >= NAMELEN+1) - *(line[i]+NAMELEN-1) = 0; - confname[nconf] = line[i]; - confval[nconf] = cp; - nconf++; - } -} - -int -getcfields(char* lp, char** fields, int n, char* sep) -{ - int i; - - for(i = 0; lp && *lp && i < n; i++){ - while(*lp && strchr(sep, *lp) != 0) - *lp++ = 0; - if(*lp == 0) - break; - fields[i] = lp; - while(*lp && strchr(sep, *lp) == 0){ - if(*lp == '\\' && *(lp+1) == '\n') - *lp++ = ' '; - lp++; - } - } - - return i; -} diff --git a/sys/src/boot/alphapc/conf.h b/sys/src/boot/alphapc/conf.h deleted file mode 100644 index 46c784ccf..000000000 --- a/sys/src/boot/alphapc/conf.h +++ /dev/null @@ -1,20 +0,0 @@ -typedef struct Bank Bank; -typedef struct Bootconf Bootconf; - -struct Bootconf -{ - int nbank; - Bank *bank; - PCB *pcb; - uvlong maxphys; - char *bootargs; -}; - -struct Bank -{ - uvlong min; - uvlong max; -}; - -#define BOOTARGSLEN (4096) -#define MAXCONF 32 diff --git a/sys/src/boot/alphapc/cons.c b/sys/src/boot/alphapc/cons.c deleted file mode 100644 index d41cedc0f..000000000 --- a/sys/src/boot/alphapc/cons.c +++ /dev/null @@ -1,243 +0,0 @@ -#include "u.h" -#include "mem.h" -#include "dat.h" -#include "fns.h" -#include "lib.h" - -enum { - /* prom operations */ - Promop_getc = 1, - Promop_puts = 2, - Promop_open = 0x10, - Promop_close = 0x11, - Promop_read = 0x13, - Promop_write = 0x14, - Promop_getenv = 0x22, - - /* environment variable indices for getenv */ - /* auto_action might be 1; it looks that way. */ - Promenv_booted_dev = 4, - Promenv_booted_file = 6, - Promenv_booted_osflags = 8, - Promenv_tty_dev = 0xf, -}; - -Hwrpb *hwrpb; - -static uvlong dispatchf; -static ulong clk2ms; - -void -consinit(void) -{ - Procdesc *p; - Hwcrb *crb; - Hwdsr *dsr; - char *s; - - hwrpb = (Hwrpb*)0x10000000; - - crb = (Hwcrb*)((ulong)hwrpb + hwrpb->crboff); - p = (Procdesc*)(crb->dispatchva); - dispatchf = p->addr; - clk2ms = hwrpb->cfreq/1000; - - print("\nAlpha Plan 9 secondary boot\n"); - if (hwrpb->rev >= 6) { - dsr = (Hwdsr*)((ulong)hwrpb + hwrpb->dsroff); - s = (char*)dsr + dsr->sysnameoff + 8; - print("%s\n", s); - } -} - -uvlong -dispatch(uvlong r16, uvlong r17, uvlong r18, uvlong r19, uvlong r20) -{ - return gendispatch(dispatchf, r16, r17, r18, r19, r20); -}; - -int -devopen(char *s) -{ - vlong ret; - int n; - - n = strlen(s); - ret = dispatch(0x10, (uvlong)s, n, 0, 0); - if (ret < 0) - return -1; - return (int) ret; -} - -int -devclose(int fd) -{ - vlong ret; - - ret = dispatch(0x11, fd, 0, 0, 0); - if (ret < 0) - return -1; - return 0; -} - -int -devread(int fd, uchar *buf, int len, int blkno) -{ - vlong ret; - - ret = dispatch(0x13, fd, len, (uvlong)buf, blkno); - if (ret < 0) - return -1; - return (int) ret; -} - -int -devwrite(int fd, uchar *buf, int len, int blkno) -{ - vlong ret; - - ret = dispatch(0x14, fd, len, (uvlong)buf, blkno); - if (ret < 0) - return -1; - return (int) ret; -} - -void -dumpenv(void) -{ - int id, n; - static char buf[256]; - - /* old upper bound was 0x100, which blows up on my 164LX. 50 works. */ - for (id = 1; id < 50; id++) { - n = dispatch(Promop_getenv, id, (uvlong)buf, sizeof(buf)-1, 0); - if (n == 0) - continue; - if (n < 0) { - print("dispatch failed at id %d\n", id); - break; - } - buf[n] = 0; - print("env[0x%x]: %s\n", id, buf); - } -} - -char * -getenv(char *name) -{ - int id, n; - static char buf[256]; - - if (strcmp(name, "booted_dev") == 0) - id = Promenv_booted_dev; - else - return 0; - n = dispatch(Promop_getenv, id, (uvlong)buf, sizeof(buf), 0); - if (n < 0) - return 0; - buf[n] = 0; - return buf; -} - -void -putstrn0(char *s, int n) -{ - uvlong ret; - int cnt; - - for (;;) { - ret = dispatch(2, 0, (uvlong)s, n, 0); - cnt = (int) ret; - s += cnt; - n -= cnt; - if (n <= 0) - break; - } -} - -void -putstrn(char *s, int n) -{ - char *p; - - for (;;) { - if (n == 0) - return; - p = memchr(s, '\n', n); - if (p == 0) { - putstrn0(s, n); - return; - } - putstrn0(s, p-s); - putstrn0("\r\n", 2); - n -= p-s+1; - s = p+1; - } -} - -int -snprint(char *s, int n, char *fmt, ...) -{ - va_list arg; - - va_start(arg, fmt); - n = doprint(s, s+n, fmt, arg) - s; - va_end(arg); - return n; -} - -int -sprint(char *s, char *fmt, ...) -{ - int n; - va_list arg; - - va_start(arg, fmt); - n = doprint(s, s+PRINTSIZE, fmt, arg) - s; - va_end(arg); - return n; -} - -int -print(char *fmt, ...) -{ - int n; - va_list arg; - char buf[PRINTSIZE]; - - va_start(arg, fmt); - n = doprint(buf, buf+sizeof(buf), fmt, arg) - buf; - va_end(arg); - putstrn(buf, n); - - return n; -} - -void -panic(char *fmt, ...) -{ - int n; - va_list arg; - char buf[PRINTSIZE]; - - strcpy(buf, "panic: "); - va_start(arg, fmt); - n = doprint(buf+strlen(buf), buf+sizeof(buf), fmt, arg) - buf; - va_end(arg); - buf[n] = '\n'; - putstrn(buf, n+1); - firmware(); -} - -ulong -msec(void) -{ - static ulong last, wrap; - ulong cnt; - - cnt = pcc_cnt(); - if (cnt < last) - wrap++; - last = cnt; - return (((uvlong)wrap << 32) + cnt)/clk2ms; -} diff --git a/sys/src/boot/alphapc/dat.h b/sys/src/boot/alphapc/dat.h deleted file mode 100644 index d6d9f922e..000000000 --- a/sys/src/boot/alphapc/dat.h +++ /dev/null @@ -1,169 +0,0 @@ -typedef struct Hwrpb Hwrpb; -typedef struct Hwcpu Hwcpu; -typedef struct Hwcrb Hwcrb; -typedef struct Hwdsr Hwdsr; -typedef struct Procdesc Procdesc; -typedef struct Memdsc Memdsc; -typedef struct Memclust Memclust; -typedef struct PCB PCB; - -struct Hwrpb -{ - uvlong phys; - uvlong sign; - uvlong rev; - uvlong size; - uvlong cpu0; - uvlong by2pg; - uvlong pabits; - uvlong maxasn; - char ssn[16]; - uvlong systype; - uvlong sysvar; - uvlong sysrev; - uvlong ifreq; - uvlong cfreq; - uvlong vptb; - uvlong resv; - uvlong tbhint; - uvlong ncpu; - uvlong cpulen; - uvlong cpuoff; - uvlong nctb; - uvlong ctblen; - uvlong ctboff; - uvlong crboff; - uvlong memoff; - uvlong confoff; - uvlong fruoff; - uvlong termsaveva; - uvlong termsavex; - uvlong termrestva; - uvlong termrestx; - uvlong termresetva; - uvlong termresetx; - uvlong sysresv; - uvlong hardresv; - uvlong csum; - uvlong rxrdymsk; - uvlong txrdymsk; - uvlong dsroff; /* rev 6 or higher */ -}; - -extern Hwrpb* hwrpb; - -struct Hwcpu -{ - uvlong hwpcb[16]; - uvlong state; - uvlong palmainlen; - uvlong palscratchlen; - uvlong palmainpa; - uvlong palscratchpa; - uvlong palrev; - uvlong cputype; - uvlong cpuvar; - uvlong cpurev; - uvlong serial[2]; - /* more crap ... */ -}; - -struct Hwdsr -{ - vlong smm; - uvlong lurtoff; - uvlong sysnameoff; -}; - -struct Hwcrb -{ - uvlong dispatchva; - uvlong dispatchpa; - uvlong fixupva; - uvlong fixuppa; - /* more, uninteresting crud */ -}; - -struct Procdesc -{ - uvlong bollocks; - uvlong addr; -}; - -struct Memclust -{ - uvlong pfn; - uvlong npages; - uvlong ntest; - uvlong vabitm; - uvlong pabitm; - uvlong csumbitm; - uvlong usage; -}; - -struct Memdsc -{ - uvlong csum; - uvlong opt; - uvlong nclust; - Memclust clust[1]; -}; - -enum -{ - PRINTSIZE = 256, - MB = (1024*1024), -}; - -#define L_MAGIC ((((4*23)+0)*23)+7) - -typedef struct Exec Exec; -struct Exec -{ - uchar magic[4]; /* magic number */ - uchar text[4]; /* size of text segment */ - uchar data[4]; /* size of initialized data */ - uchar bss[4]; /* size of uninitialized data */ - uchar syms[4]; /* size of symbol table */ - uchar entry[4]; /* entry point */ - uchar spsz[4]; /* size of sp/pc offset table */ - uchar pcsz[4]; /* size of pc/line number table */ -}; - -enum { - Eaddrlen = 6, - ETHERMINTU = 60, /* minimum transmit size */ - ETHERMAXTU = 1514, /* maximum transmit size */ - ETHERHDRSIZE = 14, /* size of an ethernet header */ - - MaxEther = 2, -}; - -typedef struct { - uchar d[Eaddrlen]; - uchar s[Eaddrlen]; - uchar type[2]; - uchar data[1500]; - uchar crc[4]; -} Etherpkt; - -/* - * Process Control Block, used by OSF/1 PALcode when we switch to it - */ -struct PCB { - uvlong ksp; - uvlong usp; - uvlong ptbr; - ulong asn; - ulong pcc; - uvlong unique; - ulong fen; - ulong dummy; - uvlong rsrv1; - uvlong rsrv2; -}; - - -#include "conf.h" - -extern Bootconf conf; diff --git a/sys/src/boot/alphapc/exec.c b/sys/src/boot/alphapc/exec.c deleted file mode 100644 index 9bc626f8c..000000000 --- a/sys/src/boot/alphapc/exec.c +++ /dev/null @@ -1,40 +0,0 @@ -#include "u.h" -#include "mem.h" -#include "dat.h" -#include "fns.h" -#include "lib.h" - -uchar pcbpage[64*1024+sizeof(PCB)]; -PCB *pcb; - -void (*kentry)(Bootconf*); - -void -gokernel(void) -{ - (*kentry)(&conf); -} - -void -kexec(ulong entry) -{ - uvlong pcbb, paltype; - - pcb = (PCB*)(((ulong)pcbpage+0xffff) & ~0xffff); /* page align, even on 64K page Alphas */ - memset(pcb, 0, sizeof(PCB)); - pcb->ksp = (uvlong)&entry; - pcb->ptbr = getptbr(); - pcb->fen = 1; - conf.pcb = pcb; - pcbb = paddr((uvlong)pcb); - kentry = (void(*)(Bootconf*))entry; - paltype = 2; /* OSF/1 please */ - switch (swppal(paltype, (uvlong)gokernel, pcbb, hwrpb->vptb, pcb->ksp)) { - case 1: - panic("unknown PALcode variant"); - case 2: - panic("PALcode variant not loaded"); - default: - panic("weird return status from swppal"); - } -} diff --git a/sys/src/boot/alphapc/fns.h b/sys/src/boot/alphapc/fns.h deleted file mode 100644 index 77a1204c1..000000000 --- a/sys/src/boot/alphapc/fns.h +++ /dev/null @@ -1,37 +0,0 @@ -uvlong allocate(int); -int bootp(char*); -void consinit(void); -int devopen(char*); -int devclose(int); -int devread(int, uchar*, int, int); -int devwrite(int, uchar*, int, int); -uvlong dispatch(uvlong, uvlong, uvlong, uvlong, uvlong); -void dumpenv(void); -void firmware(void); -uvlong gendispatch(uvlong, uvlong, uvlong, uvlong, uvlong, uvlong); -int getcfields(char*, char**, int, char*); -char* getconf(char*); -char* getenv(char*); -uvlong getptbr(void); -void kexec(ulong); -uvlong ldqp(uvlong); -void meminit(void); -void mmuinit(void); -ulong msec(void); -uvlong rdv(uvlong); -uvlong paddr(uvlong); -void panic(char *, ...); -ulong pcc_cnt(void); -uvlong pground(uvlong); -void putstrn(char *, int); -void setconf(char*); -void stqp(uvlong, uvlong); -int swppal(uvlong, uvlong, uvlong, uvlong, uvlong); -void tlbflush(void); -int validrgn(ulong, ulong); -void wrv(uvlong, uvlong); - -#define GSHORT(p) (((p)[1]<<8)|(p)[0]) -#define GLONG(p) ((GSHORT(p+2)<<16)|GSHORT(p)) -#define GLSHORT(p) (((p)[0]<<8)|(p)[1]) -#define GLLONG(p) ((GLSHORT(p)<<16)|GLSHORT(p+2)) diff --git a/sys/src/boot/alphapc/ip.h b/sys/src/boot/alphapc/ip.h deleted file mode 100644 index a39b5b4bd..000000000 --- a/sys/src/boot/alphapc/ip.h +++ /dev/null @@ -1,98 +0,0 @@ -typedef struct Udphdr Udphdr; -struct Udphdr -{ - uchar d[6]; /* Ethernet destination */ - uchar s[6]; /* Ethernet source */ - uchar type[2]; /* Ethernet packet type */ - - uchar vihl; /* Version and header length */ - uchar tos; /* Type of service */ - uchar length[2]; /* packet length */ - uchar id[2]; /* Identification */ - uchar frag[2]; /* Fragment information */ - - /* Udp pseudo ip really starts here */ - uchar ttl; - uchar udpproto; /* Protocol */ - uchar udpplen[2]; /* Header plus data length */ - uchar udpsrc[4]; /* Ip source */ - uchar udpdst[4]; /* Ip destination */ - uchar udpsport[2]; /* Source port */ - uchar udpdport[2]; /* Destination port */ - uchar udplen[2]; /* data length */ - uchar udpcksum[2]; /* Checksum */ -}; - -typedef struct Etherhdr Etherhdr; -struct Etherhdr -{ - uchar d[6]; - uchar s[6]; - uchar type[2]; - - /* Now we have the ip fields */ - uchar vihl; /* Version and header length */ - uchar tos; /* Type of service */ - uchar length[2]; /* packet length */ - uchar id[2]; /* Identification */ - uchar frag[2]; /* Fragment information */ - uchar ttl; /* Time to live */ - uchar proto; /* Protocol */ - uchar cksum[2]; /* Header checksum */ - uchar src[4]; /* Ip source */ - uchar dst[4]; /* Ip destination */ -}; - -enum -{ - IP_VER = 0x40, - IP_HLEN = 0x05, - UDP_EHSIZE = 22, - UDP_PHDRSIZE = 12, - UDP_HDRSIZE = 20, - ETHER_HDR = 14, - IP_UDPPROTO = 17, - ET_IP = 0x800, - Bcastip = 0xffffffff, - BPportsrc = 68, - BPportdst = 67, - TFTPport = 69, - Timeout = 5000, /* milliseconds */ - Bootrequest = 1, - Bootreply = 2, - Tftp_READ = 1, - Tftp_WRITE = 2, - Tftp_DATA = 3, - Tftp_ACK = 4, - Tftp_ERROR = 5, - Segsize = 512, - TFTPSZ = Segsize+10, -}; - -typedef struct Bootp Bootp; -struct Bootp -{ - uchar op; /* opcode */ - uchar htype; /* hardware type */ - uchar hlen; /* hardware address len */ - uchar hops; /* hops */ - uchar xid[4]; /* a random number */ - uchar secs[2]; /* elapsed snce client started booting */ - uchar pad[2]; - uchar ciaddr[4]; /* client IP address (client tells server) */ - uchar yiaddr[4]; /* client IP address (server tells client) */ - uchar siaddr[4]; /* server IP address */ - uchar giaddr[4]; /* gateway IP address */ - uchar chaddr[16]; /* client hardware address */ - char sname[64]; /* server host name (optional) */ - char file[128]; /* boot file name */ - char vend[128]; /* vendor-specific goo */ -}; - -typedef struct Netaddr Netaddr; -struct Netaddr -{ - ulong ip; - ushort port; - char ea[Eaddrlen]; -}; diff --git a/sys/src/boot/alphapc/l.s b/sys/src/boot/alphapc/l.s deleted file mode 100644 index 487be5891..000000000 --- a/sys/src/boot/alphapc/l.s +++ /dev/null @@ -1,101 +0,0 @@ -#include "mem.h" -#include "vmspal.h" - -#define SP R30 - -TEXT _main(SB), $-8 - MOVQ $setSB(SB), R29 - MOVQ $edata(SB), R1 - MOVQ $end(SB), R2 -loop2: - MOVQ R31, (R1) - ADDQ $8, R1 - CMPUGT R1, R2, R3 - BEQ R3, loop2 - - JSR main(SB) - -TEXT firmware(SB), $-8 - CALL_PAL $PALhalt - MOVQ $_divq(SB), R31 /* touch _divq etc.; doesn't need to execute */ - MOVQ $_divl(SB), R31 /* touch _divl etc.; doesn't need to execute */ - RET - -TEXT mb(SB), $-8 - MB - RET - -TEXT icflush(SB), $-8 - CALL_PAL $PALimb - RET - -TEXT tlbflush(SB), $-8 - CALL_PAL $PALmtpr_tbia - RET - -TEXT gendispatch(SB), $-8 - MOVQ 8(FP), R16 - MOVQ 16(FP), R17 - MOVQ 24(FP), R18 - MOVQ 32(FP), R19 - MOVQ 40(FP), R20 - MOVQ R26, R1 - JSR (R0) - MOVQ R1, R26 - RET /* 7a bug: should be RET (R1) */ - -TEXT rdv(SB), $-8 - MOVQ (R0), R0 - RET - -TEXT wrv(SB), $-8 - MOVQ 8(FP), R1 - MOVQ R1, (R0) - RET - -TEXT ipl(SB), $-8 - CALL_PAL $PALmfpr_ipl - RET - -TEXT mces(SB), $-8 - CALL_PAL $PALmfpr_mces - RET - -TEXT setipl(SB), $-8 - MOVQ R0, R16 - CALL_PAL $PALmtpr_ipl - RET - -TEXT setmces(SB), $-8 - MOVQ R0, R16 - CALL_PAL $PALmtpr_mces - RET - -TEXT ldqp(SB), $-8 - MOVQ R0, R16 - CALL_PAL $PALldqp - RET - -TEXT stqp(SB), $-8 - MOVQ R0, R16 - MOVQ 8(FP), R17 - CALL_PAL $PALstqp - RET - -TEXT getptbr(SB), $-8 - CALL_PAL $PALmfpr_ptbr - RET - -TEXT swppal(SB), $-8 - MOVQ R0, R16 /* which PALcode */ - MOVQ 8(FP), R17 /* new PC */ - MOVQ 16(FP), R18 /* PCBB (physical) */ - MOVQ 24(FP), R19 /* VPTB */ - MOVQ 32(FP), R20 /* new KSP */ - CALL_PAL $PALswppal - RET - -TEXT pcc_cnt(SB), $-8 - MOVQ PCC, R1 - MOVL R1, R0 - RET diff --git a/sys/src/boot/alphapc/lib.h b/sys/src/boot/alphapc/lib.h deleted file mode 100644 index 525ceff4b..000000000 --- a/sys/src/boot/alphapc/lib.h +++ /dev/null @@ -1,134 +0,0 @@ -/* - * functions (possibly) linked in, complete, from libc. - */ - -/* - * mem routines - */ -extern void *memccpy(void*, void*, int, long); -extern void *memset(void*, int, long); -extern int memcmp(void*, void*, long); -extern void *memmove(void*, void*, long); -extern void *memchr(void*, int, long); - -/* - * string routines - */ -extern char *strcat(char*, char*); -extern char *strchr(char*, char); -extern int strcmp(char*, char*); -extern char *strcpy(char*, char*); -extern char *strncat(char*, char*, long); -extern char *strncpy(char*, char*, long); -extern int strncmp(char*, char*, long); -extern long strlen(char*); -extern int atoi(char*); - -enum -{ - UTFmax = 3, /* maximum bytes per rune */ - Runesync = 0x80, /* cannot represent part of a UTF sequence */ - Runeself = 0x80, /* rune and UTF sequences are the same (<) */ - Runeerror = 0x80, /* decoding error in UTF */ -}; - -/* - * rune routines - */ -extern int runetochar(char*, Rune*); -extern int chartorune(Rune*, char*); -extern char* utfrune(char*, long); -extern int utflen(char*); - -extern int abs(int); - -/* - * print routines - */ -typedef -struct -{ - char* out; /* pointer to next output */ - char* eout; /* pointer to end */ - int f1; - int f2; - int f3; - int chr; -} Fconv; -extern void strconv(char*, Fconv*); -extern int numbconv(va_list*, Fconv*); -extern char *doprint(char*, char*, char*, va_list); -extern int fmtinstall(int, int (*)(va_list*, Fconv*)); -extern int sprint(char*, char*, ...); -extern int snprint(char*, int, char*, ...); -extern int print(char*, ...); - -/* - * one-of-a-kind - */ -extern long strtol(char*, char**, int); -extern ulong strtoul(char*, char**, int); -extern vlong strtovl(char*, char**, int); -extern char etext[]; -extern char edata[]; -extern char end[]; - -/* - * Syscall data structures - */ -#define MORDER 0x0003 /* mask for bits defining order of mounting */ -#define MREPL 0x0000 /* mount replaces object */ -#define MBEFORE 0x0001 /* mount goes before others in union directory */ -#define MAFTER 0x0002 /* mount goes after others in union directory */ -#define MCREATE 0x0004 /* permit creation in mounted directory */ -#define MRECOV 0x0008 /* perform recovery if mount channel is lost */ -#define MCACHE 0x0010 /* cache some data */ -#define MMASK 0x001F /* all bits on */ - -#define OREAD 0 /* open for read */ -#define OWRITE 1 /* write */ -#define ORDWR 2 /* read and write */ -#define OEXEC 3 /* execute, == read but check execute permission */ -#define OTRUNC 16 /* or'ed in (except for exec), truncate file first */ -#define OCEXEC 32 /* or'ed in, close on exec */ -#define ORCLOSE 64 /* or'ed in, remove on close */ - -#define NCONT 0 /* continue after note */ -#define NDFLT 1 /* terminate after note */ -#define NSAVE 2 /* clear note but hold state */ -#define NRSTR 3 /* restore saved state */ - -typedef struct Qid Qid; -typedef struct Dir Dir; -typedef struct Waitmsg Waitmsg; - -#define ERRLEN 64 -#define DIRLEN 116 -#define NAMELEN 28 - -struct Qid -{ - ulong path; - ulong vers; -}; - -struct Dir -{ - char name[NAMELEN]; - char uid[NAMELEN]; - char gid[NAMELEN]; - Qid qid; - ulong mode; - long atime; - long mtime; - Length; - short type; - short dev; -}; - -struct Waitmsg -{ - char pid[12]; /* of loved one */ - char time[3*12]; /* of loved one and descendants */ - char msg[ERRLEN]; -}; diff --git a/sys/src/boot/alphapc/main.c b/sys/src/boot/alphapc/main.c deleted file mode 100644 index 1d3d235dd..000000000 --- a/sys/src/boot/alphapc/main.c +++ /dev/null @@ -1,25 +0,0 @@ -#include "u.h" -#include "mem.h" -#include "dat.h" -#include "fns.h" -#include "lib.h" - -Bootconf conf; - -void -main(void) -{ - char *dev; - - consinit(); - meminit(); - mmuinit(); - - dev = getenv("booted_dev"); - if (dev == 0) - panic("get dev name"); - if (strncmp(dev, "BOOTP", 5) == 0) - bootp(dev); - else - print("boot device %s not supported\n", dev); -} diff --git a/sys/src/boot/alphapc/mem.h b/sys/src/boot/alphapc/mem.h deleted file mode 100644 index 5ae7bb740..000000000 --- a/sys/src/boot/alphapc/mem.h +++ /dev/null @@ -1,15 +0,0 @@ -/* - * Memory and machine-specific definitions. Used in C and assembler. - */ - -#define BI2BY 8 /* bits per byte */ -#define BI2WD 32 /* bits per word */ -#define BY2WD 4 /* bytes per word */ -#define BY2V 8 /* bytes per vlong */ - -#define KZERO 0x80000000 - -#define PTEVALID 0xff01 -#define PTEKVALID 0x1101 -#define PTEASM 0x0010 -#define PTEGH(s) ((s)<<5) diff --git a/sys/src/boot/alphapc/memory.c b/sys/src/boot/alphapc/memory.c deleted file mode 100644 index d4234bda5..000000000 --- a/sys/src/boot/alphapc/memory.c +++ /dev/null @@ -1,108 +0,0 @@ -#include "u.h" -#include "mem.h" -#include "dat.h" -#include "fns.h" -#include "lib.h" - -static int debug; - -enum { - Maxbank = 2, -}; - -Bank bank[Maxbank]; -int nbank; - -void -meminit(void) -{ - Memdsc *mem; - Memclust *c; - int i; - uvlong npage, p0, p1; - extern ulong _main[], edata[]; - - mem = (Memdsc*)((ulong)hwrpb + hwrpb->memoff); - if (debug) - print("\nnumber of clusters: %lld\n", mem->nclust); - npage = 0; - conf.maxphys = 0; - for (i = 0; i < mem->nclust; i++) { - c = &mem->clust[i]; - p0 = c->pfn*hwrpb->by2pg; - p1 = (c->pfn+c->npages)*hwrpb->by2pg; - if (debug) { - print("clust%d: %llux-%llux, tested %llud/%llud vabitm %llux usage %llux\n", - i, p0, p1, c->ntest, c->npages, c->vabitm, c->usage); - if (c->vabitm) - print("\tfirst 64 pages: %llux\n", *(uvlong*)c->vabitm); - } - npage += c->npages; - if (p1 > conf.maxphys) - conf.maxphys = p1; - switch ((ulong)c->usage&3) { - case 0: - if (nbank >= Maxbank) { - print("increase Maxbank; lost %lldMB\n", c->npages*hwrpb->by2pg/MB); - break; - } - bank[nbank].min = p0; - bank[nbank].max = p1; - nbank++; - break; - case 2: - print("nvram skipped\n"); - break; - } - } - if (debug) - print("\n"); - - print("Memory size: %lludMB\n", npage*hwrpb->by2pg/MB); - print("\n"); - - /* kernel virtual space = 2G. leave room for kmapio */ - if (conf.maxphys > 1024*MB) { - print("meminit: too much physical memory; only first gigabyte mapped\n\n"); - conf.maxphys = 1024*MB; - } - - conf.nbank = nbank; - conf.bank = bank; -} - -int -validrgn(ulong min, ulong max) -{ - int i; - - min &= ~KZERO; - max &= ~KZERO; - for (i = 0; i < nbank; i++) - if (bank[i].min <= min && max <= bank[i].max) - return 1; - return 0; -} - -uvlong -allocate(int pages) -{ - uvlong top, len; - int from, i; - - top = 0; - len = pages*hwrpb->by2pg; - from = -1; - for (i = 0; i < nbank; i++) - if (bank[i].max - bank[i].min >= len && bank[i].max > top) { - top = bank[i].max; - from = i; - } - if (from < 0) - return 0; - bank[from].max -= len; - conf.bank[from].max = bank[from].max; - for (i = 0; i < len>>3; i++) - stqp(bank[from].max+8*i, 0); - return bank[from].max; -} diff --git a/sys/src/boot/alphapc/mkfile b/sys/src/boot/alphapc/mkfile deleted file mode 100644 index 8443876ce..000000000 --- a/sys/src/boot/alphapc/mkfile +++ /dev/null @@ -1,42 +0,0 @@ -objtype=alpha -by2pg */ -static uvlong pte2pg; /* by2pg/8 */ -static uvlong pgmask; /* by2pg-1 */ -static uvlong ptemask; /* pte2pg-1 */ -static uvlong pgshift; /* log2(by2pg) */ -static uvlong pteshift; /* log2(pte2pg) = pgshift - 3 */ - -#define L1(va) (((uvlong)(va)>>3*pteshift+3) & (pte2pg-1)) -#define L2(va) (((uvlong)(va)>>2*pteshift+3) & (pte2pg-1)) -#define L3(va) (((uvlong)(va)>>pgshift) & (pte2pg-1)) -#define OFF(va) (((uvlong)(va)) & (by2pg-1)) - -#define V1(l1) (((vlong)l1<<(64-pteshift)) >> 64-(3*pteshift+3)) -#define V2(l2) (((uvlong)l2<<(64-pteshift)) >> 64-(2*pteshift+3)) -#define V3(l3) (((uvlong)l3<<(64-pteshift)) >> 64-pgshift) -#define VA(l1, l2, l3, off) (V1(l1) | V2(l2) | V3(l3) | (off)) - -static int -log2(uvlong x) -{ - int i; - - if ((x & (x-1)) == 0) - for (i = 0; i < 64; i++) - if (x & (1<by2pg; - pte2pg = (by2pg >> 3); - pgmask = by2pg-1; - ptemask = pte2pg-1; - pgshift = log2(by2pg); - pteshift = pgshift-3; - - l1p = (1LL<<3*pteshift+3)|(1LL<<2*pteshift+3)|(1LL<>pgshift; - nlvl3 = (npage+ptemask)>>pteshift; - nlvl2 = (nlvl3+ptemask)>>pteshift; - if (nlvl2 > 1) - panic("meminit: nlvl2"); /* cannot happen, due to virtual space limitation */ - if (debug) - print("nlvl1 %llud nlvl2 %llud nlvl3 %llud npage %llud\n", 1LL, nlvl2, nlvl3, npage); - - lvl2 = allocate(nlvl2+nlvl3); - lvl3 = lvl2 + nlvl2*by2pg; - - wrv(l1p+8*(pte2pg-2), rdv(l1p+8)|PTEASM); - wrv(l1p+8*(pte2pg-1), (lvl2<<(32-pgshift)) | PTEKVALID | PTEASM); - - l2p = (1LL<<3*pteshift+3)|(1LL<<2*pteshift+3)|((vlong)KZERO >> 2*pteshift)&((1LL<<2*pteshift+3)-1); - for (i = 0; i < nlvl3; i++) - stqp(lvl2+(l2p&(by2pg-1))+8*i, ((lvl3+i*by2pg)<<(32-pgshift)) | PTEKVALID | PTEASM); - - for (i = 0; i < npage; i++) - stqp(lvl3+8*i, ((uvlong)i<<32) | PTEKVALID | PTEASM); - - tlbflush(); - - if (debug) - print("\n"); -} - -uvlong -paddr(uvlong va) -{ - uvlong ptbr, x, pte; - - ptbr = getptbr(); - pte = ldqp((ptbr<>32)<>32)<>32)<= MAXFMT) - return -1; - if(convcount >= MAXCONV) - return -1; - fmtconv[convcount] = f; - fmtindex[c] = convcount; - convcount++; - return 0; -} - -char* -doprint(char *s, char *es, char *fmt, va_list argp) -{ - int n, c; - Rune rune; - Fconv local; - - local.out = s; - local.eout = es-UTFmax-1; - -loop: - c = *fmt & 0xff; - if(c >= Runeself) { - n = chartorune(&rune, fmt); - fmt += n; - c = rune; - } else - fmt++; - switch(c) { - case 0: - *local.out = 0; - return local.out; - - default: - printcol++; - goto common; - - case '\n': - printcol = 0; - goto common; - - case '\t': - printcol = (printcol+8) & ~7; - goto common; - - common: - if(local.out < local.eout) - if(c >= Runeself) { - rune = c; - n = runetochar(local.out, &rune); - local.out += n; - } else - *local.out++ = c; - goto loop; - - case '%': - break; - } - local.f1 = NONE; - local.f2 = NONE; - local.f3 = 0; - - /* - * read one of the following - * 1. number, => f1, f2 in order. - * 2. '*' same as number (from args) - * 3. '.' ignored (separates numbers) - * 4. flag => f3 - * 5. verb and terminate - */ -l0: - c = *fmt & 0xff; - if(c >= Runeself) { - n = chartorune(&rune, fmt); - fmt += n; - c = rune; - } else - fmt++; - -l1: - if(c == 0) { - fmt--; - goto loop; - } - if(c == '.') { - if(local.f1 == NONE) - local.f1 = 0; - local.f2 = 0; - goto l0; - } - if((c >= '1' && c <= '9') || - (c == '0' && local.f1 != NONE)) { /* '0' is a digit for f2 */ - n = 0; - while(c >= '0' && c <= '9') { - n = n*10 + c-'0'; - c = *fmt++; - } - if(local.f1 == NONE) - local.f1 = n; - else - local.f2 = n; - goto l1; - } - if(c == '*') { - n = va_arg(argp, int); - if(local.f1 == NONE) - local.f1 = n; - else - local.f2 = n; - goto l0; - } - n = 0; - if(c >= 0 && c < MAXFMT) - n = fmtindex[c]; - local.chr = c; - n = (*fmtconv[n])(&argp, &local); - if(n < 0) { - local.f3 |= -n; - goto l0; - } - goto loop; -} - -int -numbconv(va_list *arg, Fconv *fp) -{ - char s[IDIGIT]; - int i, f, n, b, ucase; - short h; - long v; - vlong vl; - - SET(v); - SET(vl); - - ucase = 0; - b = fp->chr; - switch(fp->chr) { - case 'u': - fp->f3 |= FUNSIGN; - case 'd': - b = 10; - break; - - case 'o': - b = 8; - break; - - case 'X': - ucase = 1; - case 'x': - b = 16; - break; - } - - f = 0; - switch(fp->f3 & (FVLONG|FLONG|FSHORT|FUNSIGN)) { - case FVLONG|FLONG: - vl = va_arg(*arg, vlong); - break; - - case FUNSIGN|FVLONG|FLONG: - vl = va_arg(*arg, uvlong); - break; - - case FLONG: - v = va_arg(*arg, long); - break; - - case FUNSIGN|FLONG: - v = va_arg(*arg, ulong); - break; - - case FSHORT: - h = va_arg(*arg, int); - v = h; - break; - - case FUNSIGN|FSHORT: - h = va_arg(*arg, int); - v = (ushort)h; - break; - - default: - v = va_arg(*arg, int); - break; - - case FUNSIGN: - v = va_arg(*arg, unsigned); - break; - } - if(fp->f3 & FVLONG) { - if(!(fp->f3 & FUNSIGN) && vl < 0) { - vl = -vl; - f = 1; - } - } else { - if(!(fp->f3 & FUNSIGN) && v < 0) { - v = -v; - f = 1; - } - } - s[IDIGIT-1] = 0; - for(i = IDIGIT-2;; i--) { - if(fp->f3 & FVLONG) - n = (uvlong)vl % b; - else - n = (ulong)v % b; - n += '0'; - if(n > '9') { - n += 'a' - ('9'+1); - if(ucase) - n += 'A'-'a'; - } - s[i] = n; - if(i < 2) - break; - if(fp->f3 & FVLONG) - vl = (uvlong)vl / b; - else - v = (ulong)v / b; - if(fp->f2 != NONE && i >= IDIGIT-fp->f2) - continue; - if(fp->f3 & FVLONG) { - if(vl <= 0) - break; - continue; - } - if(v <= 0) - break; - } - - if(fp->f3 & FSHARP) { - if(b == 8 && s[i] != '0') - s[--i] = '0'; - if(b == 16) { - if(ucase) - s[--i] = 'X'; - else - s[--i] = 'x'; - s[--i] = '0'; - } - } - if(f) - s[--i] = '-'; - fp->f2 = NONE; - strconv(s+i, fp); - return 0; -} - -void -Strconv(Rune *s, Fconv *fp) -{ - int n, c, i; - Rune rune; - - if(fp->f3 & FMINUS) - fp->f1 = -fp->f1; - n = 0; - if(fp->f1 != NONE && fp->f1 >= 0) { - for(; s[n]; n++) - ; - while(n < fp->f1) { - if(fp->out < fp->eout) - *fp->out++ = ' '; - printcol++; - n++; - } - } - for(;;) { - c = *s++; - if(c == 0) - break; - n++; - if(fp->f2 == NONE || fp->f2 > 0) { - if(fp->out < fp->eout) - if(c >= Runeself) { - rune = c; - i = runetochar(fp->out, &rune); - fp->out += i; - } else - *fp->out++ = c; - if(fp->f2 != NONE) - fp->f2--; - switch(c) { - default: - printcol++; - break; - case '\n': - printcol = 0; - break; - case '\t': - printcol = (printcol+8) & ~7; - break; - } - } - } - if(fp->f1 != NONE && fp->f1 < 0) { - fp->f1 = -fp->f1; - while(n < fp->f1) { - if(fp->out < fp->eout) - *fp->out++ = ' '; - printcol++; - n++; - } - } -} - -void -strconv(char *s, Fconv *fp) -{ - int n, c, i; - Rune rune; - - if(fp->f3 & FMINUS) - fp->f1 = -fp->f1; - n = 0; - if(fp->f1 != NONE && fp->f1 >= 0) { - n = utflen(s); - while(n < fp->f1) { - if(fp->out < fp->eout) - *fp->out++ = ' '; - printcol++; - n++; - } - } - for(;;) { - c = *s & 0xff; - if(c >= Runeself) { - i = chartorune(&rune, s); - s += i; - c = rune; - } else - s++; - if(c == 0) - break; - n++; - if(fp->f2 == NONE || fp->f2 > 0) { - if(fp->out < fp->eout) - if(c >= Runeself) { - rune = c; - i = runetochar(fp->out, &rune); - fp->out += i; - } else - *fp->out++ = c; - if(fp->f2 != NONE) - fp->f2--; - switch(c) { - default: - printcol++; - break; - case '\n': - printcol = 0; - break; - case '\t': - printcol = (printcol+8) & ~7; - break; - } - } - } - if(fp->f1 != NONE && fp->f1 < 0) { - fp->f1 = -fp->f1; - while(n < fp->f1) { - if(fp->out < fp->eout) - *fp->out++ = ' '; - printcol++; - n++; - } - } -} - -static -int -noconv(va_list *arg, Fconv *fp) -{ - int n; - char s[10]; - - if(convcount == 0) { - initfmt(); - n = 0; - if(fp->chr >= 0 && fp->chr < MAXFMT) - n = fmtindex[fp->chr]; - return (*fmtconv[n])(arg, fp); - } - s[0] = '*'; - s[1] = fp->chr; - s[2] = '*'; - s[3] = 0; - fp->f1 = 0; - fp->f2 = NONE; - fp->f3 = 0; - strconv(s, fp); - return 0; -} - -static -int -cconv(va_list *arg, Fconv *fp) -{ - char s[10]; - Rune rune; - - rune = va_arg(*arg, int); - if(fp->chr == 'c') - rune &= 0xff; - s[runetochar(s, &rune)] = 0; - - fp->f2 = NONE; - strconv(s, fp); - return 0; -} - -static -int -sconv(va_list *arg, Fconv *fp) -{ - char *s; - Rune *r; - - if(fp->chr == 's') { - s = va_arg(*arg, char*); - if(s == 0) - s = ""; - strconv(s, fp); - } else { - r = va_arg(*arg, Rune*); - if(r == 0) - r = L""; - Strconv(r, fp); - } - return 0; -} - -static -int -percent(va_list *arg, Fconv *fp) -{ - - USED(arg); - if(fp->out < fp->eout) - *fp->out++ = '%'; - printcol++; - return 0; -} - -static -int -flags(va_list *arg, Fconv *fp) -{ - int f; - - USED(arg); - - f = 0; - switch(fp->chr) { - case '+': - f = FPLUS; - break; - - case '-': - f = FMINUS; - break; - - case '#': - f = FSHARP; - break; - - case 'h': - f = FSHORT; - break; - - case 'l': - f = FLONG; - if(fp->f3 & FLONG) - f = FVLONG; - break; - - case 'u': - f = FUNSIGN; - break; - } - return -f; -} diff --git a/sys/src/boot/alphapc/u.h b/sys/src/boot/alphapc/u.h deleted file mode 100644 index fac9457af..000000000 --- a/sys/src/boot/alphapc/u.h +++ /dev/null @@ -1,28 +0,0 @@ -#define nil ((void*)0) -typedef unsigned short ushort; -typedef unsigned char uchar; -typedef signed char schar; -typedef unsigned long ulong; -typedef unsigned int uint; -typedef long long vlong; -typedef unsigned long long uvlong; -typedef union Length Length; -typedef ushort Rune; - -union Length -{ - vlong length; -}; - -/* stdarg */ -typedef char* va_list; -#define va_start(list, start) list = (char*)(&(start)+1) -#define va_end(list) -#define va_arg(list, mode)\ - (sizeof(mode)==1?\ - ((mode*)(list += 4))[-1]:\ - sizeof(mode)==2?\ - ((mode*)(list += 4))[-1]:\ - sizeof(mode)>4?\ - ((mode*)(list = (char*)((long)(list+7) & ~7) + sizeof(mode)))[-1]:\ - ((mode*)(list += sizeof(mode)))[-1]) diff --git a/sys/src/boot/alphapc/vmspal.h b/sys/src/boot/alphapc/vmspal.h deleted file mode 100644 index aaf26fccc..000000000 --- a/sys/src/boot/alphapc/vmspal.h +++ /dev/null @@ -1,105 +0,0 @@ -/* - * VMS PALcode instructions, in numerical order. - */ - -#define PALhalt 0x00 /* required per Alpha architecture */ -#define PALcflush 0x01 -#define PALdraina 0x02 /* required per Alpha architecture */ -#define PALldqp 0x03 - -#define PALstqp 0x04 -#define PALswpctx 0x05 -#define PALmfpr_asn 0x06 -#define PALmtpr_asten 0x07 -#define PALmtpr_astsr 0x08 -#define PALcserve 0x09 -#define PALswppal 0x0a -#define PALmfpr_fen 0x0b -#define PALmtpr_fen 0x0c -#define PALmtpr_ipir 0x0d -#define PALmfpr_ipl 0x0e -#define PALmtpr_ipl 0x0f -#define PALmfpr_mces 0x10 -#define PALmtpr_mces 0x11 -#define PALmfpr_pcbb 0x12 -#define PALmfpr_prbr 0x13 -#define PALmtpr_prbr 0x14 -#define PALmfpr_ptbr 0x15 -#define PALmfpr_scbb 0x16 -#define PALmtpr_scbb 0x17 -#define PALmtpr_sirr 0x18 -#define PALmfpr_sisr 0x19 -#define PALmfpr_tbchk 0x1a -#define PALmtpr_tbia 0x1b -#define PALmtpr_tbiap 0x1c -#define PALmtpr_tbis 0x1d -#define PALmfpr_esp 0x1e -#define PALmtpr_esp 0x1f -#define PALmfpr_ssp 0x20 -#define PALmtpr_ssp 0x21 -#define PALmfpr_usp 0x22 -#define PALmtpr_usp 0x23 -#define PALmtpr_tbisd 0x24 -#define PALmtpr_tbisi 0x25 -#define PALmfpr_asten 0x26 -#define PALmfpr_astsr 0x27 - /* where is instruction 0x28 ? */ -#define PALmfpr_vptb 0x29 -#define PALmtpr_vptb 0x2a -#define PALmtpr_perfmon 0x2b - /* where is instruction 0x2c ? */ - /* where is instruction 0x2d ? */ -#define PALmtpr_datfx 0x2e -/* - * ... 0x2f to 0x3e ?? - */ -#define PALmfpr_whami 0x3f -/* - * ... 0x40 to 0x7f ?? - */ -#define PALbpt 0x80 -#define PALbugchk 0x81 -#define PALchime 0x82 -#define PALchmk 0x83 -#define PALchms 0x84 -#define PALchmu 0x85 -#define PALimb 0x86 /* required per Alpha architecture */ -#define PALinsqhil 0x87 -#define PALinsqtil 0x88 -#define PALinsqhiq 0x89 -#define PALinsqtiq 0x8a -#define PALinsquel 0x8b -#define PALinsqueq 0x8c -#define PALinsqueld 0x8d /* INSQUEL/D */ -#define PALinsqueqd 0x8e /* INSQUEQ/D */ -#define PALprober 0x8f -#define PALprobew 0x90 -#define PALrd_ps 0x91 -#define PALrei 0x92 -#define PALremqhil 0x93 -#define PALremqtil 0x94 -#define PALremqhiq 0x95 -#define PALremqtiq 0x96 -#define PALremquel 0x97 -#define PALremqueq 0x98 -#define PALremqueld 0x99 /* REMQUEL/D */ -#define PALremqueqd 0x9a /* REMQUEQ/D */ -#define PALswasten 0x9b -#define PALwr_ps_sw 0x9c -#define PALrscc 0x9d -#define PALread_unq 0x9e -#define PALwrite_unq 0x9f -#define PALamovrr 0xa0 -#define PALamovrm 0xa1 -#define PALinsqhilr 0xa2 -#define PALinsqtilr 0xa3 - -#define PALinsqhiqr 0xa4 -#define PALinsqtiqr 0xa5 -#define PALremqhilr 0xa6 - -#define PALremqtilr 0xa7 -#define PALremqhiqr 0xa8 -#define PALremqtiqr 0xa9 -#define PALgentrap 0xaa - diff --git a/sys/src/boot/mkfile b/sys/src/boot/mkfile index 0118ae5a4..384bc9f28 100644 --- a/sys/src/boot/mkfile +++ b/sys/src/boot/mkfile @@ -1,7 +1,8 @@ ARCH=\ - alphapc\ bitsy\ + efi\ pc\ + zynq\ all:V: for(i in $ARCH)@{ diff --git a/sys/src/cmd/7a/a.h b/sys/src/cmd/7a/a.h deleted file mode 100644 index bb44001a2..000000000 --- a/sys/src/cmd/7a/a.h +++ /dev/null @@ -1,208 +0,0 @@ -#include -#include -#include -#include "../7c/7.out.h" - -#ifndef EXTERN -#define EXTERN extern -#endif - -#define MAXALIGN 7 - -typedef struct Sym Sym; -typedef struct Ref Ref; -typedef struct Gen Gen; -typedef struct Io Io; -typedef struct Hist Hist; - -#define FPCHIP 1 -#define NSYMB 500 -#define BUFSIZ 8192 -#define HISTSZ 20 -#define NINCLUDE 10 -#define NHUNK 10000 -#define EOF (-1) -#define IGN (-2) -#define GETC() ((--fi.c < 0)? filbuf(): *fi.p++ & 0xff) -#define NHASH 503 -#define STRINGSZ 200 -#define NMACRO 10 - -#define ALLOC(lhs, type)\ - while(nhunk < sizeof(type))\ - gethunk();\ - lhs = (type*)hunk;\ - nhunk -= sizeof(type);\ - hunk += sizeof(type); - -#define ALLOCN(lhs, len, n)\ - if(lhs+len != hunk || nhunk < n) {\ - while(nhunk <= len)\ - gethunk();\ - memmove(hunk, lhs, len);\ - lhs = hunk;\ - hunk += len;\ - nhunk -= len;\ - }\ - hunk += n;\ - nhunk -= n; - -struct Sym -{ - Sym* link; - Ref* ref; - char* macro; - vlong value; - long dummy_pad; - ushort type; - char *name; - char sym; -}; -#define S ((Sym*)0) - -struct Ref -{ - int class; -}; - -struct -{ - char* p; - int c; -} fi; - -struct Io -{ - Io* link; - char b[BUFSIZ]; - char* p; - short c; - short f; -}; -#define I ((Io*)0) - -struct -{ - Sym* sym; - short type; -} h[NSYM]; - -struct Gen -{ - Sym* sym; - vlong offset; - long dummy_pad; - short type; - short reg; - short name; - double dval; - char sval[8]; -}; - -struct Hist -{ - Hist* link; - char* name; - long line; - vlong offset; -}; -#define H ((Hist*)0) - -enum -{ - CLAST, - CMACARG, - CMACRO, - CPREPROC, -}; - -char debug[256]; -Sym* hash[NHASH]; -char* Dlist[30]; -int nDlist; -Hist* ehist; -int newflag; -Hist* hist; -char* hunk; -char* include[NINCLUDE]; -Io* iofree; -Io* ionext; -Io* iostack; -long lineno; -int nerrors; -long nhunk; -int ninclude; -Gen nullgen; -char* outfile; -int pass; -char* pathname; -vlong pc; -int peekc; -int sym; -char symb[NSYMB]; -int thechar; -char* thestring; -long thunk; -Biobuf obuf; - -void errorexit(void); -void pushio(void); -void newio(void); -void newfile(char*, int); -Sym* slookup(char*); -Sym* lookup(void); -void syminit(Sym*); -long yylex(void); -int getc(void); -int getnsc(void); -void unget(int); -int escchar(int); -void cinit(void); -void pinit(char*); -void cclean(void); -int isreg(Gen*); -void outcode(int, Gen*, int, Gen*); -void zname(char*, int, int); -void zaddr(Gen*, int); -void ieeedtod(Ieee*, double); -int filbuf(void); -Sym* getsym(void); -void domacro(void); -void macund(void); -void macdef(void); -void macexpand(Sym*, char*); -void macinc(void); -void maclin(void); -void macprag(void); -void macif(int); -void macend(void); -void outhist(void); -void dodefine(char*); -void prfile(long); -void linehist(char*, int); -void gethunk(void); -void yyerror(char*, ...); -int yyparse(void); -void setinclude(char*); -int assemble(char*); - -/* - * system-dependent stuff from ../cc/compat.c - */ - -enum /* keep in synch with ../cc/cc.h */ -{ - Plan9 = 1<<0, - Unix = 1<<1, - Windows = 1<<2, -}; -int mywait(int*); -int mycreat(char*, int); -int systemtype(int); -int pathchar(void); -char* mygetwd(char*, int); -int myexec(char*, char*[]); -int mydup(int, int); -int myfork(void); -int mypipe(int*); -void* mysbrk(ulong); diff --git a/sys/src/cmd/7a/a.y b/sys/src/cmd/7a/a.y deleted file mode 100644 index 8e0565032..000000000 --- a/sys/src/cmd/7a/a.y +++ /dev/null @@ -1,537 +0,0 @@ -%{ -#include "a.h" -%} -%union -{ - Sym *sym; - vlong lval; - double dval; - char sval[8]; - Gen gen; -} -%left '|' -%left '^' -%left '&' -%left '<' '>' -%left '+' '-' -%left '*' '/' '%' -%token LTYPE1 LTYPE2 LTYPE3 LTYPE4 LTYPE5 -%token LTYPE6 LTYPE7 LTYPE8 LTYPE9 LTYPEA -%token LTYPEB LTYPEC LTYPED LTYPEE LTYPEF -%token LTYPEG LTYPEH LTYPEI LTYPEJ LTYPEK -%token LCONST LSP LSB LFP LPC LPREG LPCC -%token LTYPEX LREG LFREG LFPCR LR LP LF -%token LFCONST -%token LSCONST -%token LNAME LLAB LVAR -%type con expr pointer offset sreg -%type gen vgen lgen vlgen flgen rel reg freg preg fcreg -%type imm ximm ireg name oreg imr nireg fgen pcc -%% -prog: -| prog line - -line: - LLAB ':' - { - if($1->value != pc) - yyerror("redeclaration of %s", $1->name); - $1->value = pc; - } - line -| LNAME ':' - { - $1->type = LLAB; - $1->value = pc; - } - line -| LNAME '=' expr ';' - { - $1->type = LVAR; - $1->value = $3; - } -| LVAR '=' expr ';' - { - if($1->value != $3) - yyerror("redeclaration of %s", $1->name); - $1->value = $3; - } -| ';' -| inst ';' -| error ';' - -inst: -/* - * Integer operates - */ - LTYPE1 imr ',' sreg ',' reg - { - outcode($1, &$2, $4, &$6); - } -| LTYPE1 imr ',' reg - { - outcode($1, &$2, NREG, &$4); - } -/* - * floating-type - */ -| LTYPE2 freg ',' freg - { - outcode($1, &$2, NREG, &$4); - } -| LTYPE3 freg ',' freg - { - outcode($1, &$2, NREG, &$4); - } -| LTYPE3 freg ',' LFREG ',' freg - { - outcode($1, &$2, $4, &$6); - } -/* - * MOVQ - */ -| LTYPE4 vlgen ',' vgen - { - if(!isreg(&$2) && !isreg(&$4)) - print("one side must be register\n"); - outcode($1, &$2, NREG, &$4); - } -/* - * integer LOAD/STORE, but not MOVQ - */ -| LTYPE5 lgen ',' gen - { - if(!isreg(&$2) && !isreg(&$4)) - print("one side must be register\n"); - outcode($1, &$2, NREG, &$4); - } -/* - * integer LOAD/STORE (only) - */ -| LTYPE6 oreg ',' reg - { - outcode($1, &$2, NREG, &$4); - } -| LTYPEK reg ',' oreg - { - outcode($1, &$2, NREG, &$4); - } -/* - * floating LOAD/STORE - */ -| LTYPE7 flgen ',' fgen - { - if(!isreg(&$2) && !isreg(&$4)) - print("one side must be register\n"); - outcode($1, &$2, NREG, &$4); - } -/* - * JMP/JSR/RET - */ -| LTYPE8 comma rel - { - outcode($1, &nullgen, NREG, &$3); - } -| LTYPE8 comma nireg - { - outcode($1, &nullgen, NREG, &$3); - } -| LTYPE8 sreg ',' nireg - { - outcode($1, &nullgen, $2, &$4); - } -| LTYPE9 comma - { - outcode($1, &nullgen, NREG, &nullgen); - } -/* - * integer conditional branches - */ -| LTYPEA gen ',' rel - { - if(!isreg(&$2)) - print("left side must be register\n"); - outcode($1, &$2, NREG, &$4); - } -/* - * floating conditional branches - */ -| LTYPEB fgen ',' rel - { - if(!isreg(&$2)) - print("left side must be register\n"); - outcode($1, &$2, NREG, &$4); - } -/* - * TRAPB/MB/REI - */ -| LTYPEC comma - { - outcode($1, &nullgen, NREG, &nullgen); - } -/* - * FETCH/FETCHM - */ -| LTYPED ireg comma - { - outcode($1, &$2, NREG, &nullgen); - } -/* - * Call-pal - */ -| LTYPEE imm - { - outcode($1, &$2, NREG, &nullgen); - } -/* - * TEXT/GLOBL - */ -| LTYPEF name ',' imm - { - outcode($1, &$2, NREG, &$4); - } -| LTYPEF name ',' con ',' imm - { - outcode($1, &$2, $4, &$6); - } -/* - * DATA - */ -| LTYPEG name '/' con ',' ximm - { - outcode($1, &$2, $4, &$6); - } -/* - * word - */ -| LTYPEH comma ximm - { - outcode($1, &nullgen, NREG, &$3); - } -/* - * NOP - */ -| LTYPEI comma - { - outcode($1, &nullgen, NREG, &nullgen); - } -| LTYPEI ',' vgen - { - outcode($1, &nullgen, NREG, &$3); - } -| LTYPEI vgen comma - { - outcode($1, &$2, NREG, &nullgen); - } - -comma: -| ',' - -rel: - con '(' LPC ')' - { - $$ = nullgen; - $$.type = D_BRANCH; - $$.offset = $1 + pc; - } -| LNAME offset - { - $$ = nullgen; - if(pass == 2) - yyerror("undefined label: %s", $1->name); - $$.type = D_BRANCH; - $$.sym = $1; - $$.offset = $2; - } -| LLAB offset - { - $$ = nullgen; - $$.type = D_BRANCH; - $$.sym = $1; - $$.offset = $1->value + $2; - } - -vlgen: - lgen -| preg -| pcc - -vgen: - gen -| preg - -lgen: - gen -| ximm - -flgen: - fgen -| ximm - -fgen: - gen -| freg -| fcreg - -preg: - LPREG - { - $$ = nullgen; - $$.type = D_PREG; - $$.reg = $1; - } -| LP '(' con ')' - { - $$ = nullgen; - $$.type = D_PREG; - $$.reg = $1+$3; - } - -fcreg: - LFPCR - { - $$ = nullgen; - $$.type = D_FCREG; - $$.reg = $1; - } - -freg: - LFREG - { - $$ = nullgen; - $$.type = D_FREG; - $$.reg = $1; - } -| LF '(' con ')' - { - $$ = nullgen; - $$.type = D_FREG; - $$.reg = $3; - } - -pcc: - LPCC - { - $$ = nullgen; - $$.type = D_PCC; - $$.reg = $1; - } - -ximm: '$' con - { - $$ = nullgen; - $$.type = D_CONST; - $$.offset = $2; - } -| '$' oreg - { - $$ = $2; - $$.type = D_CONST; - } -| '$' LSCONST - { - $$ = nullgen; - $$.type = D_SCONST; - memcpy($$.sval, $2, sizeof($$.sval)); - } -| '$' LFCONST - { - $$ = nullgen; - $$.type = D_FCONST; - $$.dval = $2; - } -| '$' '-' LFCONST - { - $$ = nullgen; - $$.type = D_FCONST; - $$.dval = -$3; - } - -nireg: - ireg -| name - { - $$ = $1; - if($1.name != D_EXTERN && $1.name != D_STATIC) { - } - } - -ireg: - '(' sreg ')' - { - $$ = nullgen; - $$.type = D_OREG; - $$.reg = $2; - $$.offset = 0; - } - -gen: - reg -| con - { - $$ = nullgen; - $$.type = D_OREG; - $$.offset = $1; - } -| oreg - -oreg: - name -| name '(' sreg ')' - { - $$ = $1; - $$.type = D_OREG; - $$.reg = $3; - } -| '(' sreg ')' - { - $$ = nullgen; - $$.type = D_OREG; - $$.reg = $2; - $$.offset = 0; - } -| con '(' sreg ')' - { - $$ = nullgen; - $$.type = D_OREG; - $$.reg = $3; - $$.offset = $1; - } - -imr: - reg -| imm - -imm: '$' con - { - $$ = nullgen; - $$.type = D_CONST; - $$.offset = $2; - } - -reg: - sreg - { - $$ = nullgen; - $$.type = D_REG; - $$.reg = $1; - } - -sreg: - LREG -| LR '(' con ')' - { - if($$ < 0 || $$ >= NREG) - print("register value out of range\n"); - $$ = $3; - } - -name: - con '(' pointer ')' - { - $$ = nullgen; - $$.type = D_OREG; - $$.name = $3; - $$.sym = S; - $$.offset = $1; - } -| LNAME offset '(' pointer ')' - { - $$ = nullgen; - $$.type = D_OREG; - $$.name = $4; - $$.sym = $1; - $$.offset = $2; - } -| LNAME '<' '>' offset '(' LSB ')' - { - $$ = nullgen; - $$.type = D_OREG; - $$.name = D_STATIC; - $$.sym = $1; - $$.offset = $4; - } - -offset: - { - $$ = 0; - } -| '+' con - { - $$ = $2; - } -| '-' con - { - $$ = -$2; - } - -pointer: - LSB -| LSP -| LFP - -con: - LCONST -| LVAR - { - $$ = $1->value; - } -| '-' con - { - $$ = -$2; - } -| '+' con - { - $$ = $2; - } -| '~' con - { - $$ = ~$2; - } -| '(' expr ')' - { - $$ = $2; - } - -expr: - con -| expr '+' expr - { - $$ = $1 + $3; - } -| expr '-' expr - { - $$ = $1 - $3; - } -| expr '*' expr - { - $$ = $1 * $3; - } -| expr '/' expr - { - $$ = $1 / $3; - } -| expr '%' expr - { - $$ = $1 % $3; - } -| expr '<' '<' expr - { - $$ = $1 << $4; - } -| expr '>' '>' expr - { - $$ = $1 >> $4; - } -| expr '&' expr - { - $$ = $1 & $3; - } -| expr '^' expr - { - $$ = $1 ^ $3; - } -| expr '|' expr - { - $$ = $1 | $3; - } diff --git a/sys/src/cmd/7a/lex.c b/sys/src/cmd/7a/lex.c deleted file mode 100644 index 30cfd2417..000000000 --- a/sys/src/cmd/7a/lex.c +++ /dev/null @@ -1,694 +0,0 @@ -#include -#define EXTERN -#include "a.h" -#include "y.tab.h" - -void -main(int argc, char *argv[]) -{ - char ofile[100], incfile[20], *p; - int nout, nproc, status, i, c, of; - - thechar = '7'; /* of 9 */ - thestring = "alpha"; - memset(debug, 0, sizeof(debug)); - cinit(); - outfile = 0; - include[ninclude++] = "."; - ARGBEGIN { - default: - c = ARGC(); - if(c >= 0 || c < sizeof(debug)) - debug[c] = 1; - break; - - case 'o': - outfile = ARGF(); - break; - - case 'D': - p = ARGF(); - if(p) - Dlist[nDlist++] = p; - break; - - case 'I': - p = ARGF(); - if(p) - include[ninclude++] = p; - break; - } ARGEND - if(*argv == 0) { - print("usage: %ca [-options] file.s\n", thechar); - errorexit(); - } - nproc = 3; - if(p = getenv("NPROC")) - nproc = atol(p); - if(argc > 1) { - c = 0; - nout = 0; - for(;;) { - while(nout < nproc && argc > 0) { - i = fork(); - if(i < 0) { - i = mywait(&status); - if(i < 0) - errorexit(); - if(status) - c++; - nout--; - continue; - } - if(i == 0) { - print("%s:\n", *argv); - goto child; - } - nout++; - argc--; - argv++; - } - i = mywait(&status); - if(i < 0) { - if(c) - errorexit(); - exits(0); - } - if(status) - c++; - nout--; - } - } - -child: - strecpy(ofile, ofile+sizeof ofile, *argv); - if(p = strrchr(ofile, '/')) { - include[0] = ofile; - *p++ = 0; - } else - p = ofile; - if(outfile == 0) { - outfile = p; - if(p = strrchr(outfile, '.')) - if(p[1] == 's' && p[2] == 0) - p[0] = 0; - p = strrchr(outfile, 0); - p[0] = '.'; - p[1] = thechar; - p[2] = 0; - } - if(0) { - strcpy(incfile, "/usr/%include"); - p = strrchr(incfile, '%'); - if(p) - *p = thechar; - } else { - strcpy(incfile, "/"); - strcat(incfile, thestring); - strcat(incfile, "/include"); - } - include[ninclude++] = incfile; - if(p = getenv("INCLUDE")) - include[ninclude-1] = p; /* */ - of = mycreat(outfile, 0664); - if(of < 0) { - yyerror("%ca: cannot create %s", thechar, outfile); - errorexit(); - } - Binit(&obuf, of, OWRITE); - - pass = 1; - pinit(*argv); - for(i=0; ireg (incl special regs) */ - "MOVQ", LTYPE4, AMOVQ, - - /* 5: integer load/store and reg->reg */ - "MOVL", LTYPE5, AMOVL, - "MOVQU", LTYPE5, AMOVQU, - "MOVB", LTYPE5, AMOVB, - "MOVBU", LTYPE5, AMOVBU, - "MOVW", LTYPE5, AMOVW, - "MOVWU", LTYPE5, AMOVWU, - "MOVLP", LTYPE5, AMOVLP, - "MOVQP", LTYPE5, AMOVQP, - - /* 6: integer load/store (only) */ - "MOVA", LTYPE6, AMOVA, - "MOVAH", LTYPE6, AMOVAH, - "MOVLL", LTYPE6, AMOVLL, - "MOVQL", LTYPE6, AMOVQL, - "MOVLC", LTYPEK, AMOVLC, - "MOVQC", LTYPEK, AMOVQC, - - /* 7: floating load/store and reg->reg */ - "MOVS", LTYPE7, AMOVS, - "MOVT", LTYPE7, AMOVT, - - /* 8,9: jumps */ - "JMP", LTYPE8, AJMP, - "JSR", LTYPE8, AJSR, - "RET", LTYPE9, ARET, - - /* A: integer conditional branches */ - "BEQ", LTYPEA, ABEQ, - "BNE", LTYPEA, ABNE, - "BLT", LTYPEA, ABLT, - "BGE", LTYPEA, ABGE, - "BLE", LTYPEA, ABLE, - "BGT", LTYPEA, ABGT, - "BLBC", LTYPEA, ABLBC, - "BLBS", LTYPEA, ABLBS, - - /* B: floating conditional branches */ - "FBEQ", LTYPEB, AFBEQ, - "FBNE", LTYPEB, AFBNE, - "FBLT", LTYPEB, AFBLT, - "FBGE", LTYPEB, AFBGE, - "FBLE", LTYPEB, AFBLE, - "FBGT", LTYPEB, AFBGT, - - /* C-J: miscellaneous */ - "TRAPB", LTYPEC, ATRAPB, - "MB", LTYPEC, AMB, - "REI", LTYPEC, AREI, - "END", LTYPEC, AEND, - "FETCH", LTYPED, AFETCH, - "FETCHM", LTYPED, AFETCHM, - "CALL_PAL", LTYPEE, ACALL_PAL, - "TEXT", LTYPEF, ATEXT, - "GLOBL", LTYPEF, AGLOBL, - "DATA", LTYPEG, ADATA, - "WORD", LTYPEH, AWORD, - "NOP", LTYPEI, ANOP, - 0 -}; - -void -cinit(void) -{ - Sym *s; - int i; - - nullgen.sym = S; - nullgen.offset = 0; - nullgen.type = D_NONE; - nullgen.name = D_NONE; - nullgen.reg = NREG; - if(FPCHIP) - nullgen.dval = 0; - for(i=0; itype = itab[i].type; - s->value = itab[i].value; - } - - ALLOCN(pathname, 0, 100); - if(getwd(pathname, 99) == 0) { - ALLOCN(pathname, 100, 900); - if(getwd(pathname, 999) == 0) - strcpy(pathname, "/???"); - } -} - -void -syminit(Sym *s) -{ - - s->type = LNAME; - s->value = 0; -} - -int -isreg(Gen *g) -{ - - USED(g); - return 1; -} - -void -cclean(void) -{ - - outcode(AEND, &nullgen, NREG, &nullgen); - Bflush(&obuf); -} - -void -zname(char *n, int t, int s) -{ - - Bputc(&obuf, ANAME); - Bputc(&obuf, t); /* type */ - Bputc(&obuf, s); /* sym */ - while(*n) { - Bputc(&obuf, *n); - n++; - } - Bputc(&obuf, 0); -} - -void -zaddr(Gen *a, int s) -{ - vlong l; - int i; - char *n; - Ieee e; - - Bputc(&obuf, a->type); - Bputc(&obuf, a->reg); - Bputc(&obuf, s); - Bputc(&obuf, a->name); - switch(a->type) { - default: - print("unknown type %d\n", a->type); - exits("arg"); - - case D_NONE: - case D_REG: - case D_FREG: - case D_PREG: - case D_FCREG: - case D_PCC: - break; - - case D_OREG: - case D_CONST: - case D_BRANCH: - l = a->offset; - Bputc(&obuf, l); - Bputc(&obuf, l>>8); - Bputc(&obuf, l>>16); - Bputc(&obuf, l>>24); - Bputc(&obuf, l>>32); - Bputc(&obuf, l>>40); - Bputc(&obuf, l>>48); - Bputc(&obuf, l>>56); - break; - - case D_SCONST: - n = a->sval; - for(i=0; idval); - Bputc(&obuf, e.l); - Bputc(&obuf, e.l>>8); - Bputc(&obuf, e.l>>16); - Bputc(&obuf, e.l>>24); - Bputc(&obuf, e.h); - Bputc(&obuf, e.h>>8); - Bputc(&obuf, e.h>>16); - Bputc(&obuf, e.h>>24); - break; - } -} - -void -outcode(int a, Gen *g1, int reg, Gen *g2) -{ - int sf, st, t; - Sym *s; - - if(pass == 1) - goto out; -jackpot: - sf = 0; - s = g1->sym; - while(s != S) { - sf = s->sym; - if(sf < 0 || sf >= NSYM) - sf = 0; - t = g1->name; - if(h[sf].type == t) - if(h[sf].sym == s) - break; - zname(s->name, t, sym); - s->sym = sym; - h[sym].sym = s; - h[sym].type = t; - sf = sym; - sym++; - if(sym >= NSYM) - sym = 1; - break; - } - st = 0; - s = g2->sym; - while(s != S) { - st = s->sym; - if(st < 0 || st >= NSYM) - st = 0; - t = g2->name; - if(h[st].type == t) - if(h[st].sym == s) - break; - zname(s->name, t, sym); - s->sym = sym; - h[sym].sym = s; - h[sym].type = t; - st = sym; - sym++; - if(sym >= NSYM) - sym = 1; - if(st == sf) - goto jackpot; - break; - } - Bputc(&obuf, a); - Bputc(&obuf, reg); - Bputc(&obuf, lineno); - Bputc(&obuf, lineno>>8); - Bputc(&obuf, lineno>>16); - Bputc(&obuf, lineno>>24); - zaddr(g1, sf); - zaddr(g2, st); - -out: - if(a != AGLOBL && a != ADATA) - pc++; -} - -void -outhist(void) -{ - Gen g; - Hist *h; - char *p, *q, *op; - int n; - - g = nullgen; - for(h = hist; h != H; h = h->link) { - p = h->name; - op = 0; - if(p && p[0] != '/' && h->offset == 0 && pathname && pathname[0] == '/') { - op = p; - p = pathname; - } - while(p) { - q = strchr(p, '/'); - if(q) { - n = q-p; - if(n == 0) - n = 1; /* leading "/" */ - q++; - } else { - n = strlen(p); - q = 0; - } - if(n) { - Bputc(&obuf, ANAME); - Bputc(&obuf, D_FILE); /* type */ - Bputc(&obuf, 1); /* sym */ - Bputc(&obuf, '<'); - Bwrite(&obuf, p, n); - Bputc(&obuf, 0); - } - p = q; - if(p == 0 && op) { - p = op; - op = 0; - } - } - g.offset = h->offset; - - Bputc(&obuf, AHISTORY); - Bputc(&obuf, 0); - Bputc(&obuf, h->line); - Bputc(&obuf, h->line>>8); - Bputc(&obuf, h->line>>16); - Bputc(&obuf, h->line>>24); - zaddr(&nullgen, 0); - zaddr(&g, 0); - } -} - -#include "../cc/lexbody" -#include "../cc/macbody" -#include "../cc/compat" diff --git a/sys/src/cmd/7a/mkfile b/sys/src/cmd/7a/mkfile deleted file mode 100644 index e48fbea48..000000000 --- a/sys/src/cmd/7a/mkfile +++ /dev/null @@ -1,19 +0,0 @@ -type == T) - return; - if(typesu[n->type->etype]) { - sugen(n, nn, n->type->width); - return; - } - l = n->left; - r = n->right; - o = n->op; - if(n->addable >= INDEXED) { - if(nn == Z) { - switch(o) { - default: - nullwarn(Z, Z); - break; - case OINDEX: - nullwarn(l, r); - break; - } - return; - } - gmove(n, nn); - return; - } - curs = cursafe; - - if(n->complex >= FNX) - if(l->complex >= FNX) - if(r != Z && r->complex >= FNX) - switch(o) { - default: - regret(&nod, r); - cgen(r, &nod); - - regsalloc(&nod1, r); - gopcode(OAS, &nod, Z, &nod1); - - regfree(&nod); - nod = *n; - nod.right = &nod1; - cgen(&nod, nn); - return; - - case OFUNC: - case OCOMMA: - case OANDAND: - case OOROR: - case OCOND: - case ODOT: - break; - } - - switch(o) { - default: - diag(n, "unknown op in cgen: %O", o); - break; - - case OAS: - if(l->op == OBIT) - goto bitas; - if(l->addable >= INDEXED && l->complex < FNX) { - if(nn != Z || r->addable < INDEXED) { - regalloc(&nod, r, nn); - cgen(r, &nod); - gmove(&nod, l); - regfree(&nod); - } else - gmove(r, l); - break; - } - if(l->complex >= r->complex) { - reglcgen(&nod1, l, Z); - if(r->addable >= INDEXED) { - gmove(r, &nod1); - if(nn != Z) - gmove(r, nn); - regfree(&nod1); - break; - } - regalloc(&nod, r, nn); - cgen(r, &nod); - } else { - regalloc(&nod, r, nn); - cgen(r, &nod); - reglcgen(&nod1, l, Z); - } - gmove(&nod, &nod1); - regfree(&nod); - regfree(&nod1); - break; - - bitas: - n = l->left; - regalloc(&nod, r, nn); - if(l->complex >= r->complex) { - reglcgen(&nod1, n, Z); - cgen(r, &nod); - } else { - cgen(r, &nod); - reglcgen(&nod1, n, Z); - } - regalloc(&nod2, n, Z); - gopcode(OAS, &nod1, Z, &nod2); - bitstore(l, &nod, &nod1, &nod2, nn); - break; - - case OBIT: - if(nn == Z) { - nullwarn(l, Z); - break; - } - bitload(n, &nod, Z, Z, nn); - gopcode(OAS, &nod, Z, nn); - regfree(&nod); - break; - - case OADD: - case OSUB: - case OAND: - case OOR: - case OXOR: - case OLSHR: - case OASHL: - case OASHR: - case OLDIV: - case OLMOD: - case ODIV: - case OMOD: - case OMUL: - case OLMUL: - /* - * immediate operands - */ - if(nn != Z) - if(r->op == OCONST) - if(!typefd[n->type->etype]) { - cgen(l, nn); - if(r->vconst == 0) - if(o != OAND) - break; - if(nn != Z) - gopcode(o, r, Z, nn); - break; - } - - if(nn == Z) { - nullwarn(l, r); - break; - } -/* if(o == OMUL || o == OLMUL) { - if(mulcon(n, nn)) - break; - } */ - if(l->complex >= r->complex) { - regalloc(&nod, l, nn); - cgen(l, &nod); - regalloc(&nod1, l, Z); /* note: l used for type, so shifts work! */ - cgen(r, &nod1); - gopcode(o, &nod1, Z, &nod); - } else { - regalloc(&nod, l, nn); /* note: l used for type, so shifts work! */ - cgen(r, &nod); - regalloc(&nod1, l, Z); - cgen(l, &nod1); - gopcode(o, &nod, &nod1, &nod); - } - gopcode(OAS, &nod, Z, nn); - regfree(&nod); - regfree(&nod1); - break; - - case OASLSHR: - case OASASHL: - case OASASHR: - case OASAND: - case OASADD: - case OASSUB: - case OASXOR: - case OASOR: - case OASLDIV: - case OASLMOD: - case OASDIV: - case OASMOD: - case OASLMUL: - case OASMUL: - if(l->op == OBIT) - goto asbitop; - if(r->op == OCONST) - if(!typefd[r->type->etype]) - if(!typefd[n->type->etype]) { - if(l->addable < INDEXED) - reglcgen(&nod2, l, Z); - else - nod2 = *l; - regalloc(&nod, l, nn); /* note: l used for type, so shifts work! */ - gopcode(OAS, &nod2, Z, &nod); - gopcode(o, r, Z, &nod); - gopcode(OAS, &nod, Z, &nod2); - - regfree(&nod); - if(l->addable < INDEXED) - regfree(&nod2); - break; - } - - if(l->complex >= r->complex) { - if(l->addable < INDEXED) - reglcgen(&nod2, l, Z); - else - nod2 = *l; - regalloc(&nod1, r, Z); - cgen(r, &nod1); - } else { - regalloc(&nod1, r, Z); - cgen(r, &nod1); - if(l->addable < INDEXED) - reglcgen(&nod2, l, Z); - else - nod2 = *l; - } - - regalloc(&nod, n, nn); - gmove(&nod2, &nod); - if(nod1.type->etype != nod.type->etype){ - regalloc(&nod3, &nod, Z); - gmove(&nod1, &nod3); - regfree(&nod1); - nod1 = nod3; - } - gopcode(o, &nod1, Z, &nod); - gmove(&nod, &nod2); - if(nn != Z) - gopcode(OAS, &nod, Z, nn); - regfree(&nod); - regfree(&nod1); - if(l->addable < INDEXED) - regfree(&nod2); - break; - - asbitop: - regalloc(&nod4, n, nn); - if(l->complex >= r->complex) { - bitload(l, &nod, &nod1, &nod2, &nod4); - regalloc(&nod3, r, Z); - cgen(r, &nod3); - } else { - regalloc(&nod3, r, Z); - cgen(r, &nod3); - bitload(l, &nod, &nod1, &nod2, &nod4); - } - gmove(&nod, &nod4); - gopcode(o, &nod3, Z, &nod4); - regfree(&nod3); - gmove(&nod4, &nod); - regfree(&nod4); - bitstore(l, &nod, &nod1, &nod2, nn); - break; - - case OADDR: - if(nn == Z) { - nullwarn(l, Z); - break; - } - lcgen(l, nn); - break; - - case OFUNC: - if(l->complex >= FNX) { - if(l->op != OIND) - diag(n, "bad function call"); - - regret(&nod, l->left); - cgen(l->left, &nod); - regsalloc(&nod1, l->left); - gopcode(OAS, &nod, Z, &nod1); - regfree(&nod); - - nod = *n; - nod.left = &nod2; - nod2 = *l; - nod2.left = &nod1; - nod2.complex = 1; - cgen(&nod, nn); - - return; - } - if(REGARG != NREG) - o = reg[REGARG]; - gargs(r, &nod, &nod1); - if(l->addable < INDEXED) { - reglcgen(&nod, l, Z); - gopcode(OFUNC, Z, Z, &nod); - regfree(&nod); - } else - gopcode(OFUNC, Z, Z, l); - if(REGARG != NREG) - if(o != reg[REGARG]) - reg[REGARG]--; - if(nn != Z) { - regret(&nod, n); - gopcode(OAS, &nod, Z, nn); - regfree(&nod); - } - break; - - case OIND: - if(nn == Z) { - nullwarn(l, Z); - break; - } - regialloc(&nod, n, nn); - r = l; - while(r->op == OADD) - r = r->right; - if(sconst(r)) { - v = r->vconst; - r->vconst = 0; - cgen(l, &nod); - nod.xoffset += v; - r->vconst = v; - } else - cgen(l, &nod); - regind(&nod, n); - gopcode(OAS, &nod, Z, nn); - regfree(&nod); - break; - - case OEQ: - case ONE: - case OLE: - case OLT: - case OGE: - case OGT: - case OLO: - case OLS: - case OHI: - case OHS: - if(nn == Z) { - nullwarn(l, r); - break; - } - boolgen(n, 1, nn); - break; - - case OANDAND: - case OOROR: - boolgen(n, 1, nn); - if(nn == Z) - patch(p, pc); - break; - - case ONOT: - if(nn == Z) { - nullwarn(l, Z); - break; - } - boolgen(n, 1, nn); - break; - - case OCOMMA: - cgen(l, Z); - cgen(r, nn); - break; - - case OCAST: - if(nn == Z) { - nullwarn(l, Z); - break; - } - /* - * convert from types l->n->nn - */ - if(nocast(l->type, n->type)) { - if(nocast(n->type, nn->type)) { - cgen(l, nn); - break; - } - } - regalloc(&nod, l, nn); - cgen(l, &nod); - regalloc(&nod1, n, &nod); - gopcode(OAS, &nod, Z, &nod1); - gopcode(OAS, &nod1, Z, nn); - regfree(&nod1); - regfree(&nod); - break; - - case ODOT: - sugen(l, nodrat, l->type->width); - if(nn != Z) { - warn(n, "non-interruptable temporary"); - nod = *nodrat; - if(!r || r->op != OCONST) { - diag(n, "DOT and no offset"); - break; - } - nod.xoffset += (long)r->vconst; - nod.type = n->type; - cgen(&nod, nn); - } - break; - - case OCOND: - bcgen(l, 1); - p1 = p; - cgen(r->left, nn); - gbranch(OGOTO); - patch(p1, pc); - p1 = p; - cgen(r->right, nn); - patch(p1, pc); - break; - - case OPOSTINC: - case OPOSTDEC: - v = 1; - if(l->type->etype == TIND) - v = l->type->link->width; - if(o == OPOSTDEC) - v = -v; - if(l->op == OBIT) - goto bitinc; - if(nn == Z) - goto pre; - - if(l->addable < INDEXED) - reglcgen(&nod2, l, Z); - else - nod2 = *l; - - regalloc(&nod, l, nn); - gopcode(OAS, &nod2, Z, &nod); - regalloc(&nod1, l, Z); - if(typefd[l->type->etype]) { - regalloc(&nod3, l, Z); - if(v < 0) { - gopcode(OAS, nodfconst(-v), Z, &nod3); - gopcode(OSUB, &nod3, &nod, &nod1); - } else { - gopcode(OAS, nodfconst(v), Z, &nod3); - gopcode(OADD, &nod3, &nod, &nod1); - } - regfree(&nod3); - } else - gopcode(OADD, nodconst(v), &nod, &nod1); - gopcode(OAS, &nod1, Z, &nod2); - - regfree(&nod); - regfree(&nod1); - if(l->addable < INDEXED) - regfree(&nod2); - break; - - case OPREINC: - case OPREDEC: - v = 1; - if(l->type->etype == TIND) - v = l->type->link->width; - if(o == OPREDEC) - v = -v; - if(l->op == OBIT) - goto bitinc; - - pre: - if(l->addable < INDEXED) - reglcgen(&nod2, l, Z); - else - nod2 = *l; - - regalloc(&nod, l, nn); - gopcode(OAS, &nod2, Z, &nod); - if(typefd[l->type->etype]) { - regalloc(&nod3, l, Z); - if(v < 0) { - gopcode(OAS, nodfconst(-v), Z, &nod3); - gopcode(OSUB, &nod3, Z, &nod); - } else { - gopcode(OAS, nodfconst(v), Z, &nod3); - gopcode(OADD, &nod3, Z, &nod); - } - regfree(&nod3); - } else - gopcode(OADD, nodconst(v), Z, &nod); - gopcode(OAS, &nod, Z, &nod2); - if(nn && l->op == ONAME) /* in x=++i, emit USED(i) */ - gins(ANOP, l, Z); - - regfree(&nod); - if(l->addable < INDEXED) - regfree(&nod2); - break; - - bitinc: - if(nn != Z && (o == OPOSTINC || o == OPOSTDEC)) { - bitload(l, &nod, &nod1, &nod2, Z); - gopcode(OAS, &nod, Z, nn); - gopcode(OADD, nodconst(v), Z, &nod); - bitstore(l, &nod, &nod1, &nod2, Z); - break; - } - bitload(l, &nod, &nod1, &nod2, nn); - gopcode(OADD, nodconst(v), Z, &nod); - bitstore(l, &nod, &nod1, &nod2, nn); - break; - } - cursafe = curs; - return; -} - -void -reglcgen(Node *t, Node *n, Node *nn) -{ - Node *r; - long v; - - regialloc(t, n, nn); - if(n->op == OIND) { - r = n->left; - while(r->op == OADD) - r = r->right; - if(sconst(r)) { - v = r->vconst; - r->vconst = 0; - lcgen(n, t); - t->xoffset += v; - r->vconst = v; - regind(t, n); - return; - } - } - lcgen(n, t); - regind(t, n); -} - -void -lcgen(Node *n, Node *nn) -{ - Prog *p1; - Node nod; - - if(debug['g']) { - prtree(nn, "lcgen lhs"); - prtree(n, "lcgen"); - } - if(n == Z || n->type == T) - return; - if(nn == Z) { - nn = &nod; - regalloc(&nod, n, Z); - } - switch(n->op) { - default: - if(n->addable < INDEXED) { - diag(n, "unknown op in lcgen: %O", n->op); - break; - } - nod = *n; - nod.op = OADDR; - nod.left = n; - nod.right = Z; - nod.type = types[TIND]; - gopcode(OAS, &nod, Z, nn); - break; - - case OCOMMA: - cgen(n->left, n->left); - lcgen(n->right, nn); - break; - - case OIND: - cgen(n->left, nn); - break; - - case OCOND: - bcgen(n->left, 1); - p1 = p; - lcgen(n->right->left, nn); - gbranch(OGOTO); - patch(p1, pc); - p1 = p; - lcgen(n->right->right, nn); - patch(p1, pc); - break; - } -} - -void -bcgen(Node *n, int true) -{ - - if(n->type == T) - gbranch(OGOTO); - else - boolgen(n, true, Z); -} - -void -boolgen(Node *n, int true, Node *nn) -{ - int o; - Prog *p1, *p2; - Node *l, *r, nod, nod1; - long curs; - - if(debug['g']) { - prtree(nn, "boolgen lhs"); - prtree(n, "boolgen"); - } - curs = cursafe; - l = n->left; - r = n->right; - switch(n->op) { - - default: - regalloc(&nod, n, nn); - cgen(n, &nod); - o = ONE; - if(true) - o = comrel[relindex(o)]; - if(typefd[n->type->etype]) { - nodreg(&nod1, n, NREG+FREGZERO); - gopcode(o, &nod, Z, &nod1); - } else - gopcode(o, &nod, Z, nodconst(0)); - regfree(&nod); - goto com; - - case OCONST: - o = vconst(n); - if(!true) - o = !o; - gbranch(OGOTO); - if(o) { - p1 = p; - gbranch(OGOTO); - patch(p1, pc); - } - goto com; - - case OCOMMA: - cgen(l, Z); - boolgen(r, true, nn); - break; - - case ONOT: - boolgen(l, !true, nn); - break; - - case OCOND: - bcgen(l, 1); - p1 = p; - bcgen(r->left, true); - p2 = p; - gbranch(OGOTO); - patch(p1, pc); - p1 = p; - bcgen(r->right, !true); - patch(p2, pc); - p2 = p; - gbranch(OGOTO); - patch(p1, pc); - patch(p2, pc); - goto com; - - case OANDAND: - if(!true) - goto caseor; - - caseand: - bcgen(l, true); - p1 = p; - bcgen(r, !true); - p2 = p; - patch(p1, pc); - gbranch(OGOTO); - patch(p2, pc); - goto com; - - case OOROR: - if(!true) - goto caseand; - - caseor: - bcgen(l, !true); - p1 = p; - bcgen(r, !true); - p2 = p; - gbranch(OGOTO); - patch(p1, pc); - patch(p2, pc); - goto com; - - case OEQ: - case ONE: - case OLE: - case OLT: - case OGE: - case OGT: - case OHI: - case OHS: - case OLO: - case OLS: - o = n->op; - if(true) - o = comrel[relindex(o)]; - if(l->complex >= FNX && r->complex >= FNX) { - regret(&nod, r); - cgen(r, &nod); - regsalloc(&nod1, r); - gopcode(OAS, &nod, Z, &nod1); - regfree(&nod); - nod = *n; - nod.right = &nod1; - boolgen(&nod, true, nn); - break; - } - if(bconst(r)) { - regalloc(&nod, l, nn); - cgen(l, &nod); - gopcode(o, &nod, Z, r); - regfree(&nod); - goto com; - } - if(l->complex >= r->complex) { - regalloc(&nod1, l, nn); - cgen(l, &nod1); - regalloc(&nod, r, Z); - cgen(r, &nod); - } else { - regalloc(&nod, r, nn); - cgen(r, &nod); - regalloc(&nod1, l, Z); - cgen(l, &nod1); - } - gopcode(o, &nod1, Z, &nod); - regfree(&nod); - regfree(&nod1); - - com: - if(nn != Z) { - p1 = p; - gopcode(OAS, nodconst(1), Z, nn); - gbranch(OGOTO); - p2 = p; - patch(p1, pc); - gopcode(OAS, nodconst(0), Z, nn); - patch(p2, pc); - } - break; - } - cursafe = curs; -} - -void -sugen(Node *n, Node *nn, long w) -{ - Prog *p1; - Node nod0, nod1, nod2, nod3, nod4, *l, *r; - Type *t; - long pc1; - int i, m, c; - - if(n == Z || n->type == T) - return; - if(debug['g']) { - prtree(nn, "sugen lhs"); - prtree(n, "sugen"); - } - if(nn == nodrat) - if(w > nrathole) - nrathole = w; - switch(n->op) { - case OIND: - if(nn == Z) { - nullwarn(n->left, Z); - break; - } - - default: - goto copy; - - case ODOT: - l = n->left; - sugen(l, nodrat, l->type->width); - if(nn != Z) { - warn(n, "non-interruptable temporary"); - nod1 = *nodrat; - r = n->right; - if(!r || r->op != OCONST) { - diag(n, "DOT and no offset"); - break; - } - nod1.xoffset += (long)r->vconst; - nod1.type = n->type; - sugen(&nod1, nn, w); - } - break; - - case OSTRUCT: - /* - * rewrite so lhs has no fn call - */ - if(nn != Z && nn->complex >= FNX) { - nod1 = *n; - nod1.type = typ(TIND, n->type); - regret(&nod2, &nod1); - lcgen(nn, &nod2); - regsalloc(&nod0, &nod1); - gopcode(OAS, &nod2, Z, &nod0); - regfree(&nod2); - - nod1 = *n; - nod1.op = OIND; - nod1.left = &nod0; - nod1.right = Z; - nod1.complex = 1; - - sugen(n, &nod1, w); - return; - } - - r = n->left; - for(t = n->type->link; t != T; t = t->down) { - l = r; - if(r->op == OLIST) { - l = r->left; - r = r->right; - } - if(nn == Z) { - cgen(l, nn); - continue; - } - /* - * hand craft *(&nn + o) = l - */ - nod0 = znode; - nod0.op = OAS; - nod0.type = t; - nod0.left = &nod1; - nod0.right = l; - - nod1 = znode; - nod1.op = OIND; - nod1.type = t; - nod1.left = &nod2; - - nod2 = znode; - nod2.op = OADD; - nod2.type = typ(TIND, t); - nod2.left = &nod3; - nod2.right = &nod4; - - nod3 = znode; - nod3.op = OADDR; - nod3.type = nod2.type; - nod3.left = nn; - - nod4 = znode; - nod4.op = OCONST; - nod4.type = nod2.type; - nod4.vconst = t->offset; - - ccom(&nod0); - acom(&nod0); - xcom(&nod0); - nod0.addable = 0; - - /* prtree(&nod0, "hand craft"); /* */ - cgen(&nod0, Z); - } - break; - - case OAS: - if(nn == Z) { - if(n->addable < INDEXED) - sugen(n->right, n->left, w); - break; - } - sugen(n->right, nodrat, w); - warn(n, "non-interruptable temporary"); - sugen(nodrat, n->left, w); - sugen(nodrat, nn, w); - break; - - case OFUNC: - if(nn == Z) { - sugen(n, nodrat, w); - break; - } - if(nn->op != OIND) { - nn = new1(OADDR, nn, Z); - nn->type = types[TIND]; - nn->addable = 0; - } else - nn = nn->left; - n = new(OFUNC, n->left, new(OLIST, nn, n->right)); - n->type = types[TVOID]; - n->left->type = types[TVOID]; - cgen(n, Z); - break; - - case OCOND: - bcgen(n->left, 1); - p1 = p; - sugen(n->right->left, nn, w); - gbranch(OGOTO); - patch(p1, pc); - p1 = p; - sugen(n->right->right, nn, w); - patch(p1, pc); - break; - - case OCOMMA: - cgen(n->left, Z); - sugen(n->right, nn, w); - break; - } - return; - -copy: - if(nn == Z) - return; - if(n->complex >= FNX && nn->complex >= FNX) { - t = nn->type; - nn->type = types[TLONG]; - regialloc(&nod1, nn, Z); - lcgen(nn, &nod1); - regsalloc(&nod2, nn); - nn->type = t; - - gopcode(OAS, &nod1, Z, &nod2); - regfree(&nod1); - - nod2.type = typ(TIND, t); - - nod1 = nod2; - nod1.op = OIND; - nod1.left = &nod2; - nod1.right = Z; - nod1.complex = 1; - nod1.type = t; - - sugen(n, &nod1, w); - return; - } - - if(n->complex > nn->complex) { - t = n->type; - n->type = types[TLONG]; - reglcgen(&nod1, n, Z); - n->type = t; - - t = nn->type; - nn->type = types[TLONG]; - reglcgen(&nod2, nn, Z); - nn->type = t; - } else { - t = nn->type; - nn->type = types[TLONG]; - reglcgen(&nod2, nn, Z); - nn->type = t; - - t = n->type; - n->type = types[TLONG]; - reglcgen(&nod1, n, Z); - n->type = t; - } - - w /= SZ_LONG; - if(w <= 5) { - layout(&nod1, &nod2, w, 0, Z); - goto out; - } - - /* - * minimize space for unrolling loop - * 3,4,5 times. (6 or more is never minimum) - * if small structure, try 2 also. - */ - c = 0; /* set */ - m = 100; - i = 3; - if(w <= 15) - i = 2; - for(; i<=5; i++) - if(i + w%i <= m) { - c = i; - m = c + w%c; - } - - regalloc(&nod3, ®node, Z); - layout(&nod1, &nod2, w%c, w/c, &nod3); - - pc1 = pc; - layout(&nod1, &nod2, c, 0, Z); - - gopcode(OSUB, nodconst(1), Z, &nod3); - nod1.op = OREGISTER; - gopcode(OADD, nodconst(c*SZ_LONG), Z, &nod1); - nod2.op = OREGISTER; - gopcode(OADD, nodconst(c*SZ_LONG), Z, &nod2); - - gopcode(OGT, &nod3, Z, nodconst(0)); - patch(p, pc1); - - regfree(&nod3); -out: - regfree(&nod1); - regfree(&nod2); -} - -void -layout(Node *f, Node *t, int c, int cv, Node *cn) -{ - Node t1, t2; - - while(c > 3) { - layout(f, t, 2, 0, Z); - c -= 2; - } - - regalloc(&t1, ®node, Z); - regalloc(&t2, ®node, Z); - if(c > 0) { - gopcode(OAS, f, Z, &t1); - f->xoffset += SZ_LONG; - } - if(cn != Z) - gopcode(OAS, nodconst(cv), Z, cn); - if(c > 1) { - gopcode(OAS, f, Z, &t2); - f->xoffset += SZ_LONG; - } - if(c > 0) { - gopcode(OAS, &t1, Z, t); - t->xoffset += SZ_LONG; - } - if(c > 2) { - gopcode(OAS, f, Z, &t1); - f->xoffset += SZ_LONG; - } - if(c > 1) { - gopcode(OAS, &t2, Z, t); - t->xoffset += SZ_LONG; - } - if(c > 2) { - gopcode(OAS, &t1, Z, t); - t->xoffset += SZ_LONG; - } - regfree(&t1); - regfree(&t2); -} diff --git a/sys/src/cmd/7c/enam.c b/sys/src/cmd/7c/enam.c deleted file mode 100644 index 1e4c6a06d..000000000 --- a/sys/src/cmd/7c/enam.c +++ /dev/null @@ -1,165 +0,0 @@ -char* anames[] = -{ - "XXX", - "GOK", - "TEXT", - "DATA", - "GLOBL", - "HISTORY", - "NAME", - "WORD", - "NOP", - "MOVL", - "MOVLU", - "MOVQ", - "MOVQU", - "MOVS", - "MOVT", - "MOVB", - "MOVBU", - "MOVW", - "MOVWU", - "MOVA", - "MOVAH", - "MOVLL", - "MOVQL", - "MOVLC", - "MOVQC", - "MOVQP", - "MOVLP", - "ADDL", - "ADDLV", - "ADDQ", - "ADDQV", - "S4ADDL", - "S4ADDQ", - "S8ADDL", - "S8ADDQ", - "S4SUBL", - "S4SUBQ", - "S8SUBL", - "S8SUBQ", - "SUBL", - "SUBLV", - "SUBQ", - "SUBQV", - "CMPEQ", - "CMPGT", - "CMPGE", - "CMPUGT", - "CMPUGE", - "CMPBLE", - "AND", - "ANDNOT", - "OR", - "ORNOT", - "XOR", - "XORNOT", - "CMOVEQ", - "CMOVNE", - "CMOVLT", - "CMOVGE", - "CMOVLE", - "CMOVGT", - "CMOVLBC", - "CMOVLBS", - "MULL", - "MULQ", - "MULLV", - "MULQV", - "UMULH", - "DIVQ", - "MODQ", - "DIVQU", - "MODQU", - "DIVL", - "MODL", - "DIVLU", - "MODLU", - "SLLQ", - "SRLQ", - "SRAQ", - "SLLL", - "SRLL", - "SRAL", - "EXTBL", - "EXTWL", - "EXTLL", - "EXTQL", - "EXTWH", - "EXTLH", - "EXTQH", - "INSBL", - "INSWL", - "INSLL", - "INSQL", - "INSWH", - "INSLH", - "INSQH", - "MSKBL", - "MSKWL", - "MSKLL", - "MSKQL", - "MSKWH", - "MSKLH", - "MSKQH", - "ZAP", - "ZAPNOT", - "JMP", - "JSR", - "RET", - "BR", - "BSR", - "BEQ", - "BNE", - "BLT", - "BGE", - "BLE", - "BGT", - "BLBC", - "BLBS", - "FBEQ", - "FBNE", - "FBLT", - "FBGE", - "FBLE", - "FBGT", - "TRAPB", - "MB", - "FETCH", - "FETCHM", - "RPCC", - "CPYS", - "CPYSN", - "CPYSE", - "CVTLQ", - "CVTQL", - "FCMOVEQ", - "FCMOVNE", - "FCMOVLT", - "FCMOVGE", - "FCMOVLE", - "FCMOVGT", - "ADDS", - "ADDT", - "CMPTEQ", - "CMPTGT", - "CMPTGE", - "CMPTUN", - "CVTQS", - "CVTQT", - "CVTTS", - "CVTTQ", - "DIVS", - "DIVT", - "MULS", - "MULT", - "SUBS", - "SUBT", - "CALL_PAL", - "REI", - "END", - "DYNT", - "INIT", - "LAST", -}; diff --git a/sys/src/cmd/7c/gc.h b/sys/src/cmd/7c/gc.h deleted file mode 100644 index f41384bd4..000000000 --- a/sys/src/cmd/7c/gc.h +++ /dev/null @@ -1,343 +0,0 @@ -#include "../cc/cc.h" -#include "../7c/7.out.h" - -/* - * 7c/alpha - * DEC Alpha - */ -#define SZ_CHAR 1 -#define SZ_SHORT 2 -#define SZ_INT 4 -#define SZ_LONG 4 -#define SZ_IND 4 -#define SZ_FLOAT 4 -#define SZ_VLONG 8 -#define SZ_DOUBLE 8 -#define FNX 100 - -typedef struct Adr Adr; -typedef struct Prog Prog; -typedef struct Case Case; -typedef struct C1 C1; -typedef struct Multab Multab; -typedef struct Hintab Hintab; -typedef struct Bits Bits; -typedef struct Var Var; -typedef struct Reg Reg; -typedef struct Rgn Rgn; - -struct Adr -{ - union - { - vlong offset; - double dval; - char sval[NSNAME]; - Ieee ieee; - }; - Sym* sym; - char type; - char reg; - char name; - char etype; -}; -#define A ((Adr*)0) - -#define INDEXED 9 -struct Prog -{ - Adr from; - Adr to; - Prog* link; - long lineno; - uchar as; - char reg; -}; -#define P ((Prog*)0) - -struct Case -{ - Case* link; - vlong val; - long label; - char def; - char isv; -}; -#define C ((Case*)0) - -struct C1 -{ - vlong val; - long label; -}; - -struct Multab -{ - long val; - char code[20]; -}; - -struct Hintab -{ - ushort val; - char hint[10]; -}; - -struct Var -{ - vlong offset; - Sym* sym; - char name; - char etype; -}; - -struct Reg -{ - long pc; - long rpo; /* reverse post ordering */ - - Bits set; - Bits use1; - Bits use2; - - Bits refbehind; - Bits refahead; - Bits calbehind; - Bits calahead; - Bits regdiff; - Bits act; - - long regu; - long loop; /* could be shorter */ - - union - { - Reg* log5; - long active; - }; - Reg* p1; - Reg* p2; - Reg* p2link; - Reg* s1; - Reg* s2; - Reg* link; - Prog* prog; -}; -#define R ((Reg*)0) - -#define NRGN 600 -struct Rgn -{ - Reg* enter; - short cost; - short varno; - short regno; -}; - -EXTERN long breakpc; -EXTERN long nbreak; -EXTERN Case* cases; -EXTERN Node constnode; -EXTERN Node fconstnode; -EXTERN long continpc; -EXTERN long curarg; -EXTERN long cursafe; -EXTERN Prog* firstp; -EXTERN Prog* lastp; -EXTERN long maxargsafe; -EXTERN int mnstring; -EXTERN Multab multab[20]; -EXTERN int hintabsize; -EXTERN Node* nodrat; -EXTERN Node* nodret; -EXTERN Node* nodsafe; -EXTERN long nrathole; -EXTERN long nstring; -EXTERN Prog* p; -EXTERN long pc; -EXTERN Node regnode; -EXTERN char string[NSNAME]; -EXTERN Sym* symrathole; -EXTERN Node znode; -EXTERN Prog zprog; -EXTERN char reg[NREG+NREG]; -EXTERN long exregoffset; -EXTERN long exfregoffset; - -#define BLOAD(r) band(bnot(r->refbehind), r->refahead) -#define BSTORE(r) band(bnot(r->calbehind), r->calahead) -#define LOAD(r) (~r->refbehind.b[z] & r->refahead.b[z]) -#define STORE(r) (~r->calbehind.b[z] & r->calahead.b[z]) - -#define bset(a,n) ((a).b[(n)/32]&(1L<<(n)%32)) - -#define CLOAD 4 -#define CREF 5 -#define CINF 1000 -#define LOOP 3 - -EXTERN Rgn region[NRGN]; -EXTERN Rgn* rgp; -EXTERN int nregion; -EXTERN int nvar; - -EXTERN Bits externs; -EXTERN Bits params; -EXTERN Bits consts; -EXTERN Bits addrs; -EXTERN Bits zbits; - -EXTERN long regbits; -EXTERN long exregbits; - -EXTERN int change; -EXTERN int suppress; - -EXTERN Reg* firstr; -EXTERN Reg* lastr; -EXTERN Reg zreg; -EXTERN Reg* freer; -EXTERN Var var[NVAR]; -EXTERN long* idom; -EXTERN Reg** rpo2r; -EXTERN long maxnr; - -extern char* anames[]; -extern Hintab hintab[]; - -/* - * sgen.c - */ -void codgen(Node*, Node*); -void gen(Node*); -void usedset(Node*, int); -void noretval(int); -void xcom(Node*); -int bcomplex(Node*, Node*); - -/* - * cgen.c - */ -void cgen(Node*, Node*); -void reglcgen(Node*, Node*, Node*); -void lcgen(Node*, Node*); -void bcgen(Node*, int); -void boolgen(Node*, int, Node*); -void sugen(Node*, Node*, long); -void layout(Node*, Node*, int, int, Node*); - -/* - * txt.c - */ -void ginit(void); -void gclean(void); -void nextpc(void); -void gargs(Node*, Node*, Node*); -void garg1(Node*, Node*, Node*, int, Node**); -Node* nodconst(long); -Node* nod32const(vlong); -Node* nodfconst(double); -void nodreg(Node*, Node*, int); -void regret(Node*, Node*); -void regalloc(Node*, Node*, Node*); -void regfree(Node*); -void regialloc(Node*, Node*, Node*); -void regsalloc(Node*, Node*); -void regaalloc1(Node*, Node*); -void regaalloc(Node*, Node*); -void regind(Node*, Node*); -void gprep(Node*, Node*); -void raddr(Node*, Prog*); -void naddr(Node*, Adr*); -void gmove(Node*, Node*); -void gins(int a, Node*, Node*); -void gopcode(int, Node*, Node*, Node*); -int samaddr(Node*, Node*); -void gbranch(int); -void patch(Prog*, long); -int bconst(Node*); -int sconst(Node*); -int bval(vlong); -int sval(long); -void gpseudo(int, Sym*, Node*); - -/* - * swt.c - */ -int swcmp(void*, void*); -void doswit(Node*); -void swit1(C1*, int, long, Node*); -void swit2(C1*, int, long, Node*, Node*); -void casf(void); -void bitload(Node*, Node*, Node*, Node*, Node*); -void bitstore(Node*, Node*, Node*, Node*, Node*); -long outstring(char*, long); -int vlog(Node*); -int mulcon(Node*, Node*); -Multab* mulcon0(long); -void nullwarn(Node*, Node*); -void sextern(Sym*, Node*, long, long); -void gextern(Sym*, Node*, long, long); -void outcode(void); -void ieeedtod(Ieee*, double); - -/* - * list - */ -void listinit(void); -int Pconv(Fmt*); -int Aconv(Fmt*); -int Dconv(Fmt*); -int Sconv(Fmt*); -int Nconv(Fmt*); -int Bconv(Fmt*); - -/* - * reg.c - */ -Reg* rega(void); -int rcmp(void*, void*); -void regopt(Prog*); -void addmove(Reg*, int, int, int); -Bits mkvar(Adr*, int); -void prop(Reg*, Bits, Bits); -void loopit(Reg*, long); -void synch(Reg*, Bits); -ulong allreg(ulong, Rgn*); -void paint1(Reg*, int); -ulong paint2(Reg*, int); -void paint3(Reg*, int, long, int); -void addreg(Adr*, int); - -/* - * peep.c - */ -void peep(void); -void excise(Reg*); -Reg* uniqp(Reg*); -Reg* uniqs(Reg*); -int regtyp(Adr*); -int regzer(Adr*); -int anyvar(Adr*); -int subprop(Reg*); -int copyprop(Reg*); -int copy1(Adr*, Adr*, Reg*, int); -int copyu(Prog*, Adr*, Adr*); - -int copyas(Adr*, Adr*); -int copyau(Adr*, Adr*); -int copyau1(Prog*, Adr*); -int copysub(Adr*, Adr*, Adr*, int); -int copysub1(Prog*, Adr*, Adr*, int); - -long RtoB(int); -long FtoB(int); -int BtoR(long); -int BtoF(long); - -#pragma varargck type "A" int -#pragma varargck type "B" Bits -#pragma varargck type "D" Adr* -#pragma varargck type "N" Adr* -#pragma varargck type "P" Prog* -#pragma varargck type "S" char* diff --git a/sys/src/cmd/7c/list.c b/sys/src/cmd/7c/list.c deleted file mode 100644 index c2ebdbf1f..000000000 --- a/sys/src/cmd/7c/list.c +++ /dev/null @@ -1,231 +0,0 @@ -#define EXTERN -#include "gc.h" - -void -listinit(void) -{ - - fmtinstall('A', Aconv); - fmtinstall('P', Pconv); - fmtinstall('S', Sconv); - fmtinstall('N', Nconv); - fmtinstall('B', Bconv); - fmtinstall('D', Dconv); -} - -int -Bconv(Fmt *fp) -{ - char str[STRINGSZ], ss[STRINGSZ], *s; - Bits bits; - int i; - - memset(str, 0, sizeof str); - bits = va_arg(fp->args, Bits); - while(bany(&bits)) { - i = bnum(bits); - if(str[0]) - strncat(str, " ", sizeof str - 1); - if(var[i].sym == S) { - snprint(ss, sizeof ss, "$%lld", var[i].offset); - s = ss; - } else - s = var[i].sym->name; - strncat(str, s, sizeof str - 1); - bits.b[i/32] &= ~(1L << (i%32)); - } - return fmtstrcpy(fp, str); -} - -int -Pconv(Fmt *fp) -{ - char str[STRINGSZ]; - Prog *p; - int a; - - p = va_arg(fp->args, Prog*); - a = p->as; - if(a == ADATA) - snprint(str, sizeof str, " %A %D/%d,%D", a, &p->from, p->reg, &p->to); - else - if(p->as == ATEXT) - snprint(str, sizeof str, " %A %D,%d,%D", a, &p->from, p->reg, &p->to); - else - if(p->reg == NREG) - snprint(str, sizeof str, " %A %D,%D", a, &p->from, &p->to); - else - if(p->from.type != D_FREG) - snprint(str, sizeof str, " %A %D,R%d,%D", a, &p->from, p->reg, &p->to); - else - snprint(str, sizeof str, " %A %D,F%d,%D", a, &p->from, p->reg, &p->to); - return fmtstrcpy(fp, str); -} - -int -Aconv(Fmt *fp) -{ - char *s; - int a; - - a = va_arg(fp->args, int); - s = "???"; - if(a >= AXXX && a < ALAST) - s = anames[a]; - return fmtstrcpy(fp, s); -} - -int -Dconv(Fmt *fp) -{ - char str[STRINGSZ]; - Adr *a; - - a = va_arg(fp->args, Adr*); - switch(a->type) { - - default: - snprint(str, sizeof str, "GOK-type(%d)", a->type); - break; - - case D_NONE: - str[0] = 0; - if(a->name != D_NONE || a->reg != NREG || a->sym != S) - snprint(str, sizeof str, "%N(R%d)(NONE)", a, a->reg); - break; - - case D_CONST: - if(a->reg != NREG) - snprint(str, sizeof str, "$%N(R%d)", a, a->reg); - else - snprint(str, sizeof str, "$%N", a); - break; - - case D_OREG: - if(a->reg != NREG) - snprint(str, sizeof str, "%N(R%d)", a, a->reg); - else - snprint(str, sizeof str, "%N", a); - break; - - case D_REG: - snprint(str, sizeof str, "R%d", a->reg); - if(a->name != D_NONE || a->sym != S) - snprint(str, sizeof str, "%N(R%d)(REG)", a, a->reg); - break; - - case D_FREG: - snprint(str, sizeof str, "F%d", a->reg); - if(a->name != D_NONE || a->sym != S) - snprint(str, sizeof str, "%N(R%d)(REG)", a, a->reg); - break; - - case D_FCREG: - snprint(str, sizeof str, "FPCR"); - if(a->reg != 0 || a->name != D_NONE || a->sym != S) - snprint(str, sizeof str, "%N(FPCR%d)(REG)", a, a->reg); - break; - - case D_BRANCH: - snprint(str, sizeof str, "%lld(PC)", a->offset-pc); - break; - - case D_FCONST: - snprint(str, sizeof str, "$%.17e", a->dval); - break; - - case D_SCONST: - snprint(str, sizeof str, "$\"%S\"", a->sval); - break; - } - return fmtstrcpy(fp, str); -} - -int -Sconv(Fmt *fp) -{ - int i, c; - char str[STRINGSZ], *p, *a; - - a = va_arg(fp->args, char*); - p = str; - for(i=0; i= 'a' && c <= 'z' || - c >= 'A' && c <= 'Z' || - c >= '0' && c <= '9' || - c == ' ' || c == '%') { - *p++ = c; - continue; - } - *p++ = '\\'; - switch(c) { - case 0: - *p++ = 'z'; - continue; - case '\\': - case '"': - *p++ = c; - continue; - case '\n': - *p++ = 'n'; - continue; - case '\t': - *p++ = 't'; - continue; - case '\r': - *p++ = 'r'; - continue; - case '\f': - *p++ = 'f'; - continue; - } - *p++ = (c>>6) + '0'; - *p++ = ((c>>3) & 7) + '0'; - *p++ = (c & 7) + '0'; - } - *p = 0; - return fmtstrcpy(fp, str); -} - -int -Nconv(Fmt *fp) -{ - char str[STRINGSZ]; - Adr *a; - Sym *s; - - a = va_arg(fp->args, Adr*); - s = a->sym; - if(s == S) { - snprint(str, sizeof str, "%lld", a->offset); - goto out; - } - switch(a->name) { - default: - snprint(str, sizeof str, "GOK-name(%d)", a->name); - break; - - case D_NONE: - snprint(str, sizeof str, "%lld", a->offset); - break; - - case D_EXTERN: - snprint(str, sizeof str, "%s+%lld(SB)", s->name, a->offset); - break; - - case D_STATIC: - snprint(str, sizeof str, "%s<>+%lld(SB)", s->name, a->offset); - break; - - case D_AUTO: - snprint(str, sizeof str, "%s-%lld(SP)", s->name, -a->offset); - break; - - case D_PARAM: - snprint(str, sizeof str, "%s+%lld(FP)", s->name, a->offset); - break; - } -out: - return fmtstrcpy(fp, str); -} diff --git a/sys/src/cmd/7c/machcap.c b/sys/src/cmd/7c/machcap.c deleted file mode 100644 index 79f4d67d7..000000000 --- a/sys/src/cmd/7c/machcap.c +++ /dev/null @@ -1,9 +0,0 @@ -#include "gc.h" - -int -machcap(Node *n) -{ - if(n == Z) /* test */ - return 1; - return 0; -} diff --git a/sys/src/cmd/7c/mkenam b/sys/src/cmd/7c/mkenam deleted file mode 100644 index a1eca4316..000000000 --- a/sys/src/cmd/7c/mkenam +++ /dev/null @@ -1,15 +0,0 @@ -ed - ../7c/7.out.h <<'!' -v/^ A/d -,s/^ A/ "/ -g/ .*$/s/// -,s/,*$/",/ -1i -char* anames[] = -{ -. -$a -}; -. -w enam.c -Q -! diff --git a/sys/src/cmd/7c/mkfile b/sys/src/cmd/7c/mkfile deleted file mode 100644 index f749eef90..000000000 --- a/sys/src/cmd/7c/mkfile +++ /dev/null @@ -1,39 +0,0 @@ -val == v) { - if(m->code[0] == 0) - return 0; - return m; - } - m++; - } - - /* - * select a spot in cache to overwrite - */ - multabp++; - if(multabp < 0 || multabp >= nelem(multab)) - multabp = 0; - m = multab+multabp; - m->val = v; - mulval = v; - - /* - * look in execption hint table - */ - a1 = 0; - a2 = hintabsize; - for(;;) { - if(a1 >= a2) - goto no; - g = (a2 + a1)/2; - if(v < hintab[g].val) { - a2 = g; - continue; - } - if(v > hintab[g].val) { - a1 = g+1; - continue; - } - break; - } - - if(docode(hintab[g].hint, m->code, 1, 0)) - return m; - print("multiply table failure %ld\n", v); - m->code[0] = 0; - return 0; - -no: - /* - * try to search - */ - hint[0] = 0; - for(g=1; g<=6; g++) { - if(g >= 6 && v >= 65535) - break; - mulcp = hint+g; - *mulcp = 0; - if(gen1(g)) { - if(docode(hint, m->code, 1, 0)) - return m; - print("multiply table failure %ld\n", v); - break; - } - } - - /* - * try a recur followed by a shift - */ - g = 0; - while(!(v & 1)) { - g++; - v >>= 1; - } - if(g) { - m1 = mulcon0(v); - if(m1) { - strcpy(m->code, m1->code); - sprint(strchr(m->code, 0), "%c0", g+'a'); - return m; - } - } - m->code[0] = 0; - return 0; -} - -static int -docode(char *hp, char *cp, int r0, int r1) -{ - int c, i; - - c = *hp++; - *cp = c; - cp += 2; - switch(c) { - default: - c -= 'a'; - if(c < 1 || c >= 30) - break; - for(i=0; i<4; i++) { - switch(i) { - case 0: - if(docode(hp, cp, r0<= mulval) - break; - } - if(mulval == 1) - return 1; - - len--; - for(i=1; i<=shmax; i++) - if(gen2(len, 1<= r1 || - r1 > valmax) - return 0; - - len--; - if(len == 0) - goto calcr0; - - if(!(flag & UR1)) { - f1 = UR1|SR1; - for(i=1; i<=shmax; i++) { - x = r0< valmax) - break; - if(gen3(len, r0, x, f1)) { - i += 'a'; - goto out; - } - } - } - - if(!(flag & UR0)) { - f1 = UR1|SR1; - for(i=1; i<=shmax; i++) { - x = r1< valmax) - break; - if(gen3(len, r1, x, f1)) { - i += 'a'; - goto out; - } - } - } - - if(!(flag & SR1)) { - f1 = UR1|SR1|(flag&UR0); - for(i=1; i<=shmax; i++) { - x = r1< valmax) - break; - if(gen3(len, r0, x, f1)) { - i += 'a'; - goto out; - } - } - } - - if(!(flag & SR0)) { - f1 = UR0|SR0|(flag&(SR1|UR1)); - - f2 = UR1|SR1; - if(flag & UR1) - f2 |= UR0; - if(flag & SR1) - f2 |= SR0; - - for(i=1; i<=shmax; i++) { - x = r0< valmax) - break; - if(x > r1) { - if(gen3(len, r1, x, f2)) { - i += 'a'; - goto out; - } - } else - if(gen3(len, x, r1, f1)) { - i += 'a'; - goto out; - } - } - } - - x = r1+r0; - if(gen3(len, r0, x, UR1)) { - i = '+'; - goto out; - } - - if(gen3(len, r1, x, UR1)) { - i = '+'; - goto out; - } - - x = r1-r0; - if(gen3(len, x, r1, UR0)) { - i = '-'; - goto out; - } - - if(x > r0) { - if(gen3(len, r0, x, UR1)) { - i = '-'; - goto out; - } - } else - if(gen3(len, x, r0, UR0)) { - i = '-'; - goto out; - } - - return 0; - -calcr0: - f1 = flag & (UR0|UR1); - if(f1 == UR1) { - for(i=1; i<=shmax; i++) { - x = r1<= mulval) { - if(x == mulval) { - i += 'a'; - goto out; - } - break; - } - } - } - - if(mulval == r1+r0) { - i = '+'; - goto out; - } - if(mulval == r1-r0) { - i = '-'; - goto out; - } - - return 0; - -out: - *--mulcp = i; - return 1; -} - -/* - * hint table has numbers that - * the search algorithm fails on. - * <1000: - * all numbers - * <5000: - * ÷ by 5 - * <10000: - * ÷ by 50 - * <65536: - * ÷ by 250 - */ -Hintab hintab[] = -{ - 683, "b++d+e+", - 687, "b+e++e-", - 691, "b++d+e+", - 731, "b++d+e+", - 811, "b++d+i+", - 821, "b++e+e+", - 843, "b+d++e+", - 851, "b+f-+e-", - 853, "b++e+e+", - 877, "c++++g-", - 933, "b+c++g-", - 981, "c-+e-d+", - 1375, "b+c+b+h-", - 1675, "d+b++h+", - 2425, "c++f-e+", - 2675, "c+d++f-", - 2750, "b+d-b+h-", - 2775, "c-+g-e-", - 3125, "b++e+g+", - 3275, "b+c+g+e+", - 3350, "c++++i+", - 3475, "c-+e-f-", - 3525, "c-+d+g-", - 3625, "c-+e-j+", - 3675, "b+d+d+e+", - 3725, "b+d-+h+", - 3925, "b+d+f-d-", - 4275, "b+g++e+", - 4325, "b+h-+d+", - 4425, "b+b+g-j-", - 4525, "b+d-d+f+", - 4675, "c++d-g+", - 4775, "b+d+b+g-", - 4825, "c+c-+i-", - 4850, "c++++i-", - 4925, "b++e-g-", - 4975, "c+f++e-", - 5500, "b+g-c+d+", - 6700, "d+b++i+", - 9700, "d++++j-", - 11000, "b+f-c-h-", - 11750, "b+d+g+j-", - 12500, "b+c+e-k+", - 13250, "b+d+e-f+", - 13750, "b+h-c-d+", - 14250, "b+g-c+e-", - 14500, "c+f+j-d-", - 14750, "d-g--f+", - 16750, "b+e-d-n+", - 17750, "c+h-b+e+", - 18250, "d+b+h-d+", - 18750, "b+g-++f+", - 19250, "b+e+b+h+", - 19750, "b++h--f-", - 20250, "b+e-l-c+", - 20750, "c++bi+e-", - 21250, "b+i+l+c+", - 22000, "b+e+d-g-", - 22250, "b+d-h+k-", - 22750, "b+d-e-g+", - 23250, "b+c+h+e-", - 23500, "b+g-c-g-", - 23750, "b+g-b+h-", - 24250, "c++g+m-", - 24750, "b+e+e+j-", - 25000, "b++dh+g+", - 25250, "b+e+d-g-", - 25750, "b+e+b+j+", - 26250, "b+h+c+e+", - 26500, "b+h+c+g+", - 26750, "b+d+e+g-", - 27250, "b+e+e+f+", - 27500, "c-i-c-d+", - 27750, "b+bd++j+", - 28250, "d-d-++i-", - 28500, "c+c-h-e-", - 29000, "b+g-d-f+", - 29500, "c+h+++e-", - 29750, "b+g+f-c+", - 30250, "b+f-g-c+", - 33500, "c-f-d-n+", - 33750, "b+d-b+j-", - 34250, "c+e+++i+", - 35250, "e+b+d+k+", - 35500, "c+e+d-g-", - 35750, "c+i-++e+", - 36250, "b+bh-d+e+", - 36500, "c+c-h-e-", - 36750, "d+e--i+", - 37250, "b+g+g+b+", - 37500, "b+h-b+f+", - 37750, "c+be++j-", - 38500, "b+e+b+i+", - 38750, "d+i-b+d+", - 39250, "b+g-l-+d+", - 39500, "b+g-c+g-", - 39750, "b+bh-c+f-", - 40250, "b+bf+d+g-", - 40500, "b+g-c+g+", - 40750, "c+b+i-e+", - 41250, "d++bf+h+", - 41500, "b+j+c+d-", - 41750, "c+f+b+h-", - 42500, "c+h++g+", - 42750, "b+g+d-f-", - 43250, "b+l-e+d-", - 43750, "c+bd+h+f-", - 44000, "b+f+g-d-", - 44250, "b+d-g--f+", - 44500, "c+e+c+h+", - 44750, "b+e+d-h-", - 45250, "b++g+j-g+", - 45500, "c+d+e-g+", - 45750, "b+d-h-e-", - 46250, "c+bd++j+", - 46500, "b+d-c-j-", - 46750, "e-e-b+g-", - 47000, "b+c+d-j-", - 47250, "b+e+e-g-", - 47500, "b+g-c-h-", - 47750, "b+f-c+h-", - 48250, "d--h+n-", - 48500, "b+c-g+m-", - 48750, "b+e+e-g+", - 49500, "c-f+e+j-", - 49750, "c+c+g++f-", - 50000, "b+e+e+k+", - 50250, "b++i++g+", - 50500, "c+g+f-i+", - 50750, "b+e+d+k-", - 51500, "b+i+c-f+", - 51750, "b+bd+g-e-", - 52250, "b+d+g-j+", - 52500, "c+c+f+g+", - 52750, "b+c+e+i+", - 53000, "b+i+c+g+", - 53500, "c+g+g-n+", - 53750, "b+j+d-c+", - 54250, "b+d-g-j-", - 54500, "c-f+e+f+", - 54750, "b+f-+c+g+", - 55000, "b+g-d-g-", - 55250, "b+e+e+g+", - 55500, "b+cd++j+", - 55750, "b+bh-d-f-", - 56250, "c+d-b+j-", - 56500, "c+d+c+i+", - 56750, "b+e+d++h-", - 57000, "b+d+g-f+", - 57250, "b+f-m+d-", - 57750, "b+i+c+e-", - 58000, "b+e+d+h+", - 58250, "c+b+g+g+", - 58750, "d-e-j--e+", - 59000, "d-i-+e+", - 59250, "e--h-m+", - 59500, "c+c-h+f-", - 59750, "b+bh-e+i-", - 60250, "b+bh-e-e-", - 60500, "c+c-g-g-", - 60750, "b+e-l-e-", - 61250, "b+g-g-c+", - 61750, "b+g-c+g+", - 62250, "f--+c-i-", - 62750, "e+f--+g+", - 64750, "b+f+d+p-", -}; -int hintabsize = nelem(hintab); diff --git a/sys/src/cmd/7c/peep.c b/sys/src/cmd/7c/peep.c deleted file mode 100644 index e5d5f240b..000000000 --- a/sys/src/cmd/7c/peep.c +++ /dev/null @@ -1,759 +0,0 @@ -#include "gc.h" - -void -peep(void) -{ - Reg *r, *r1, *r2; - Prog *p, *p1; - int t; -/* - * complete R structure - */ - t = 0; - for(r=firstr; r!=R; r=r1) { - r1 = r->link; - if(r1 == R) - break; - p = r->prog->link; - while(p != r1->prog) - switch(p->as) { - default: - r2 = rega(); - r->link = r2; - r2->link = r1; - - r2->prog = p; - r2->p1 = r; - r->s1 = r2; - r2->s1 = r1; - r1->p1 = r2; - - r = r2; - t++; - - case ADATA: - case AGLOBL: - case ANAME: - p = p->link; - } - } - -loop1: - t = 0; - for(r=firstr; r!=R; r=r->link) { - p = r->prog; - if(p->as == AMOVQ || /*p->as == AMOVL ||*/ p->as == AMOVS || p->as == AMOVT) - if(regtyp(&p->to)) { - if(regtyp(&p->from)) - if(p->from.type == p->to.type) { - if(copyprop(r)) { - excise(r); - t++; - } else - if(subprop(r) && copyprop(r)) { - excise(r); - t++; - } - } - if(regzer(&p->from)) - if(p->to.type == D_REG) { - p->from.type = D_REG; - p->from.reg = REGZERO; - if(copyprop(r)) { - excise(r); - t++; - } else - if(subprop(r) && copyprop(r)) { - excise(r); - t++; - } - } - } -/* if(p->as == AMOVL) - if(regtyp(&p->to)) { - if(regzer(&p->from)) - if(p->to.type == D_REG) { - p->from.type = D_REG; - p->from.reg = REGZERO; - if(copyprop(r)) { - excise(r); - t++; - } else - if(subprop(r) && copyprop(r)) { - excise(r); - t++; - } - } - } */ - } - if(t) - goto loop1; - /* - * look for MOVB x,R; MOVB R,R - */ - for(r=firstr; r!=R; r=r->link) { - p = r->prog; - switch(p->as) { - default: - continue; - case AMOVW: - case AMOVWU: - case AMOVB: - case AMOVBU: - if(p->to.type != D_REG) - continue; - break; - } - r1 = r->link; - if(r1 == R) - continue; - p1 = r1->prog; - if(p1->as != p->as) - continue; - if(p1->from.type != D_REG || p1->from.reg != p->to.reg) - continue; - if(p1->to.type != D_REG || p1->to.reg != p->to.reg) - continue; - excise(r1); - } -} - -void -excise(Reg *r) -{ - Prog *p; - - p = r->prog; - p->as = ANOP; - p->from = zprog.from; - p->to = zprog.to; - p->reg = zprog.reg; /**/ -} - -Reg* -uniqp(Reg *r) -{ - Reg *r1; - - r1 = r->p1; - if(r1 == R) { - r1 = r->p2; - if(r1 == R || r1->p2link != R) - return R; - } else - if(r->p2 != R) - return R; - return r1; -} - -Reg* -uniqs(Reg *r) -{ - Reg *r1; - - r1 = r->s1; - if(r1 == R) { - r1 = r->s2; - if(r1 == R) - return R; - } else - if(r->s2 != R) - return R; - return r1; -} - -int -regzer(Adr *a) -{ - - if(a->type == D_CONST) - if(a->sym == S) - if(a->offset == 0) - return 1; - if(a->type == D_REG) - if(a->reg == REGZERO) - return 1; - return 0; -} - -int -regtyp(Adr *a) -{ - - if(a->type == D_REG) { - if(a->reg != REGZERO) - return 1; - return 0; - } - if(a->type == D_FREG) - return 1; - return 0; -} - -/* - * the idea is to substitute - * one register for another - * from one MOV to another - * MOV a, R0 - * ADD b, R0 / no use of R1 - * MOV R0, R1 - * would be converted to - * MOV a, R1 - * ADD b, R1 - * MOV R1, R0 - * hopefully, then the former or latter MOV - * will be eliminated by copy propagation. - */ -int -subprop(Reg *r0) -{ - Prog *p; - Adr *v1, *v2; - Reg *r; - int t; - - p = r0->prog; - v1 = &p->from; - if(!regtyp(v1)) - return 0; - v2 = &p->to; - if(!regtyp(v2)) - return 0; - for(r=uniqp(r0); r!=R; r=uniqp(r)) { - if(uniqs(r) == R) - break; - p = r->prog; - switch(p->as) { - case AJSR: - return 0; - - case AADDQ: - case ASUBQ: - case AADDL: - case ASUBL: - case ASLLQ: - case ASRLQ: - case ASRAQ: - case ASLLL: - case ASRLL: - case ASRAL: - case AOR: - case AAND: - case AXOR: - case AMULQ: - case ADIVQ: - case ADIVQU: - case AMODQ: - case AMODQU: - case ADIVL: - case ADIVLU: - case AMODL: - case AMODLU: - case ACMPEQ: - case ACMPGT: - case ACMPGE: - case ACMPUGT: - case ACMPUGE: - case ACMPBLE: - case AMULL: - case AUMULH: - - case AADDT: - case AADDS: - case ASUBT: - case ASUBS: - case AMULT: - case AMULS: - case ADIVT: - case ADIVS: - case ACMPTEQ: - case ACMPTGT: - case ACMPTGE: - if(p->to.type == v1->type) - if(p->to.reg == v1->reg) { - if(p->reg == NREG) - p->reg = p->to.reg; - goto gotit; - } - break; - - case AMOVS: - case AMOVT: - case AMOVQ: - case ACVTQT: - case ACVTTQ: - if(p->to.type == v1->type) - if(p->to.reg == v1->reg) - goto gotit; - break; - } - if(copyau(&p->from, v2) || - copyau1(p, v2) || - copyau(&p->to, v2)) - break; - if(copysub(&p->from, v1, v2, 0) || - copysub1(p, v1, v2, 0) || - copysub(&p->to, v1, v2, 0)) - break; - } - return 0; - -gotit: - copysub(&p->to, v1, v2, 1); - if(debug['P']) { - print("gotit: %D->%D\n%P", v1, v2, r->prog); - if(p->from.type == v2->type) - print(" excise"); - print("\n"); - } - for(r=uniqs(r); r!=r0; r=uniqs(r)) { - p = r->prog; - copysub(&p->from, v1, v2, 1); - copysub1(p, v1, v2, 1); - copysub(&p->to, v1, v2, 1); - if(debug['P']) - print("%P\n", r->prog); - } - t = v1->reg; - v1->reg = v2->reg; - v2->reg = t; - if(debug['P']) - print("%P last\n", r->prog); - return 1; -} - -/* - * The idea is to remove redundant copies. - * v1->v2 F=0 - * (use v2 s/v2/v1/)* - * set v1 F=1 - * use v2 return fail - * ----------------- - * v1->v2 F=0 - * (use v2 s/v2/v1/)* - * set v1 F=1 - * set v2 return success - */ -int -copyprop(Reg *r0) -{ - Prog *p; - Adr *v1, *v2; - Reg *r; - - p = r0->prog; - v1 = &p->from; - v2 = &p->to; - if(copyas(v1, v2)) - return 1; - for(r=firstr; r!=R; r=r->link) - r->active = 0; - return copy1(v1, v2, r0->s1, 0); -} - -int -copy1(Adr *v1, Adr *v2, Reg *r, int f) -{ - int t; - Prog *p; - - if(r->active) { - if(debug['P']) - print("act set; return 1\n"); - return 1; - } - r->active = 1; - if(debug['P']) - print("copy %D->%D f=%d\n", v1, v2, f); - for(; r != R; r = r->s1) { - p = r->prog; - if(debug['P']) - print("%P", p); - if(!f && uniqp(r) == R) { - f = 1; - if(debug['P']) - print("; merge; f=%d", f); - } - t = copyu(p, v2, A); - switch(t) { - case 2: /* rar, cant split */ - if(debug['P']) - print("; %Drar; return 0\n", v2); - return 0; - - case 3: /* set */ - if(debug['P']) - print("; %Dset; return 1\n", v2); - return 1; - - case 1: /* used, substitute */ - case 4: /* use and set */ - if(f) { - if(!debug['P']) - return 0; - if(t == 4) - print("; %Dused+set and f=%d; return 0\n", v2, f); - else - print("; %Dused and f=%d; return 0\n", v2, f); - return 0; - } - if(copyu(p, v2, v1)) { - if(debug['P']) - print("; sub fail; return 0\n"); - return 0; - } - if(debug['P']) - print("; sub%D/%D", v2, v1); - if(t == 4) { - if(debug['P']) - print("; %Dused+set; return 1\n", v2); - return 1; - } - break; - } - if(!f) { - t = copyu(p, v1, A); - if(!f && (t == 2 || t == 3 || t == 4)) { - f = 1; - if(debug['P']) - print("; %Dset and !f; f=%d", v1, f); - } - } - if(debug['P']) - print("\n"); - if(r->s2) - if(!copy1(v1, v2, r->s2, f)) - return 0; - } - return 1; -} - -/* - * return - * 1 if v only used (and substitute), - * 2 if read-alter-rewrite - * 3 if set - * 4 if set and used - * 0 otherwise (not touched) - */ -copyu(Prog *p, Adr *v, Adr *s) -{ - - switch(p->as) { - - default: - if(debug['P']) - print(" (???)"); - diag(Z, "copyu: unknown op %P", p); - return 2; - - - case ANOP: /* read, write */ - case AMOVQ: - case AMOVL: - case AMOVLU: - case AMOVW: - case AMOVWU: - case AMOVB: - case AMOVBU: - - case AMOVS: - case AMOVT: - case ACVTTQ: - case ACVTQT: - case ACVTQS: - case ACVTTS: - if(s != A) { - if(copysub(&p->from, v, s, 1)) - return 1; - if(!copyas(&p->to, v)) - if(copysub(&p->to, v, s, 1)) - return 1; - return 0; - } - if(copyas(&p->to, v)) { - if(copyau(&p->from, v)) - return 4; - return 3; - } - if(copyau(&p->from, v)) - return 1; - if(copyau(&p->to, v)) - return 1; - return 0; - - case AADDQ: /* read read write */ - case ASUBQ: - case AADDL: - case ASUBL: - case ACMPEQ: - case ACMPGT: - case ACMPGE: - case ACMPUGT: - case ACMPUGE: - case ACMPBLE: - case ASLLQ: - case ASRLQ: - case ASRAQ: - case ASLLL: - case ASRLL: - case ASRAL: - case AOR: - case AAND: - case AXOR: - case AMULQ: - case AMULL: - case AUMULH: - case ADIVQ: - case ADIVQU: - case AMODQ: - case AMODQU: - case ADIVL: - case ADIVLU: - case AMODL: - case AMODLU: - - case AADDS: - case AADDT: - case ASUBS: - case ASUBT: - case AMULS: - case AMULT: - case ADIVS: - case ADIVT: - case ACMPTEQ: - case ACMPTGT: - case ACMPTGE: - if(s != A) { - if(copysub(&p->from, v, s, 1)) - return 1; - if(copysub1(p, v, s, 1)) - return 1; - if(!copyas(&p->to, v)) - if(copysub(&p->to, v, s, 1)) - return 1; - return 0; - } - if(copyas(&p->to, v)) { - if(p->reg == NREG) - p->reg = p->to.reg; - if(copyau(&p->from, v)) - return 4; - if(copyau1(p, v)) - return 4; - return 3; - } - if(copyau(&p->from, v)) - return 1; - if(copyau1(p, v)) - return 1; - if(copyau(&p->to, v)) - return 1; - return 0; - - case ABEQ: /* read */ - case ABNE: - case ABLT: - case ABGE: - case ABLE: - case ABGT: - case ABLBC: - case ABLBS: - - case AFBEQ: - case AFBNE: - case AFBLT: - case AFBGE: - case AFBLE: - case AFBGT: - if(s != A) - return copysub(&p->from, v, s, 1); - if(copyau(&p->from, v)) - return 1; - return 0; - -#ifdef NOPE - case ???: /* read read */ - if(s != A) { - if(copysub(&p->from, v, s, 1)) - return 1; - return copysub(&p->to, v, s, 1); - } - if(copyau(&p->from, v)) - return 1; - if(copyau(&p->to, v)) - return 1; - break; -#endif - - case AJMP: /* funny */ - if(s != A) { - if(copysub(&p->to, v, s, 1)) - return 1; - return 0; - } - if(copyau(&p->to, v)) - return 1; - return 0; - - case ARET: /* funny */ - if(v->type == D_REG) - if(v->reg == REGRET) - return 2; - if(v->type == D_FREG) - if(v->reg == FREGRET) - return 2; - - case AJSR: /* funny */ - if(v->type == D_REG) { - if(v->reg <= REGEXT && v->reg > exregoffset) - return 2; - if(REGARG != NREG && v->reg == REGARG) - return 2; - } - if(v->type == D_FREG) - if(v->reg <= FREGEXT && v->reg > exfregoffset) - return 2; - - if(s != A) { - if(copysub(&p->to, v, s, 1)) - return 1; - return 0; - } - if(copyau(&p->to, v)) - return 4; - return 3; - - case ATEXT: /* funny */ - if(v->type == D_REG) - if(v->reg == REGARG) - return 3; - return 0; - } -} - -int -a2type(Prog *p) -{ - - switch(p->as) { - case AADDQ: - case ASUBQ: - case ASLLQ: - case ASRLQ: - case ASRAQ: - case ASLLL: - case ASRLL: - case ASRAL: - case AOR: - case AAND: - case AXOR: - case AMULQ: - case ADIVQ: - case ADIVQU: - case AMODQ: - case AMODQU: - case ADIVL: - case ADIVLU: - case AMODL: - case AMODLU: - case AADDL: - case ASUBL: - case AEXTLL: - case ACMPEQ: - case ACMPGT: - case ACMPGE: - case ACMPUGT: - case ACMPUGE: - case ACMPBLE: - case AMULL: - case AUMULH: - return D_REG; - - case AADDS: - case AADDT: - case ASUBS: - case ASUBT: - case AMULS: - case AMULT: - case ADIVS: - case ADIVT: - case ACMPTEQ: - case ACMPTGT: - case ACMPTGE: - case ACVTTQ: - case ACVTQT: - return D_FREG; - } - return D_NONE; -} - -/* - * direct reference, - * could be set/use depending on - * semantics - */ -int -copyas(Adr *a, Adr *v) -{ - - if(regtyp(v)) - if(a->type == v->type) - if(a->reg == v->reg) - return 1; - return 0; -} - -/* - * either direct or indirect - */ -int -copyau(Adr *a, Adr *v) -{ - - if(copyas(a, v)) - return 1; - if(v->type == D_REG) - if(a->type == D_OREG) - if(v->reg == a->reg) - return 1; - return 0; -} - -int -copyau1(Prog *p, Adr *v) -{ - - if(regtyp(v)) - if(p->from.type == v->type || p->to.type == v->type) - if(p->reg == v->reg) { - if(a2type(p) != v->type) - print("botch a2type %P\n", p); - return 1; - } - return 0; -} - -/* - * substitute s for v in a - * return failure to substitute - */ -int -copysub(Adr *a, Adr *v, Adr *s, int f) -{ - - if(f) - if(copyau(a, v)) - a->reg = s->reg; - return 0; -} - -int -copysub1(Prog *p1, Adr *v, Adr *s, int f) -{ - - if(f) - if(copyau1(p1, v)) - p1->reg = s->reg; - return 0; -} diff --git a/sys/src/cmd/7c/reg.c b/sys/src/cmd/7c/reg.c deleted file mode 100644 index 802bc75dc..000000000 --- a/sys/src/cmd/7c/reg.c +++ /dev/null @@ -1,1164 +0,0 @@ -#include "gc.h" - -void addsplits(void); - -Reg* -rega(void) -{ - Reg *r; - - r = freer; - if(r == R) { - r = alloc(sizeof(*r)); - } else - freer = r->link; - - *r = zreg; - return r; -} - -int -rcmp(void *a1, void *a2) -{ - Rgn *p1, *p2; - int c1, c2; - - p1 = a1; - p2 = a2; - c1 = p2->cost; - c2 = p1->cost; - if(c1 -= c2) - return c1; - return p2->varno - p1->varno; -} - -void -regopt(Prog *p) -{ - Reg *r, *r1, *r2; - Prog *p1; - int i, z; - long initpc, val, npc; - ulong vreg; - Bits bit; - struct - { - long m; - long c; - Reg* p; - } log5[6], *lp; - - firstr = R; - lastr = R; - nvar = 0; - regbits = 0; - for(z=0; zm = val; - lp->c = 0; - lp->p = R; - val /= 5L; - lp++; - } - val = 0; - for(; p != P; p = p->link) { - switch(p->as) { - case ADATA: - case AGLOBL: - case ANAME: - continue; - } - r = rega(); - if(firstr == R) { - firstr = r; - lastr = r; - } else { - lastr->link = r; - r->p1 = lastr; - lastr->s1 = r; - lastr = r; - } - r->prog = p; - r->pc = val; - val++; - - lp = log5; - for(i=0; i<5; i++) { - lp->c--; - if(lp->c <= 0) { - lp->c = lp->m; - if(lp->p != R) - lp->p->log5 = r; - lp->p = r; - (lp+1)->c = 0; - break; - } - lp++; - } - - r1 = r->p1; - if(r1 != R) - switch(r1->prog->as) { - case ARET: - case AJMP: - case AREI: - r->p1 = R; - r1->s1 = R; - } - - /* - * left side always read - */ - bit = mkvar(&p->from, p->as==AMOVQ || p->as==AMOVL); - for(z=0; zuse1.b[z] |= bit.b[z]; - - /* - * right side depends on opcode - */ - bit = mkvar(&p->to, 0); - if(bany(&bit)) - switch(p->as) { - default: - diag(Z, "reg: unknown asop: %ud", p->as); - break; - - /* - * right side write - */ - case ANOP: - case AMOVB: - case AMOVBU: - case AMOVW: - case AMOVWU: - case AMOVL: - case AMOVQ: - case AMOVS: - case AMOVT: - for(z=0; zset.b[z] |= bit.b[z]; - break; - - /* - * funny - */ - case AJSR: - for(z=0; zlink) { - p = r->prog; - if(p->to.type == D_BRANCH) { - val = p->to.offset - initpc; - r1 = firstr; - while(r1 != R) { - r2 = r1->log5; - if(r2 != R && val >= r2->pc) { - r1 = r2; - continue; - } - if(r1->pc == val) - break; - r1 = r1->link; - } - if(r1 == R) { - nearln = p->lineno; - diag(Z, "ref not found\n%P", p); - continue; - } - if(r1 == r) { - nearln = p->lineno; - diag(Z, "ref to self\n%P", p); - continue; - } - r->s2 = r1; - r->p2link = r1->p2; - r1->p2 = r; - } - } - if(debug['R']) { - p = firstr->prog; - print("\n%L %D\n", p->lineno, &p->from); - } - - /* - * pass 2.5 - * find looping structure - */ - for(r = firstr; r != R; r = r->link) - r->active = 0; - change = 0; - loopit(firstr, npc); - - /* - * pass 3 - * iterate propagating usage - * back until flow graph is complete - */ -loop1: - change = 0; - for(r = firstr; r != R; r = r->link) - r->active = 0; - for(r = firstr; r != R; r = r->link) - if(r->prog->as == ARET) - prop(r, zbits, zbits); -loop11: - /* pick up unreachable code */ - i = 0; - for(r = firstr; r != R; r = r1) { - r1 = r->link; - if(r1 && r1->active && !r->active) { - prop(r, zbits, zbits); - i = 1; - } - } - if(i) - goto loop11; - if(change) - goto loop1; - - - /* - * pass 4 - * iterate propagating register/variable synchrony - * forward until graph is complete - */ -loop2: - change = 0; - for(r = firstr; r != R; r = r->link) - r->active = 0; - synch(firstr, zbits); - if(change) - goto loop2; - - addsplits(); - - if(debug['R'] && debug['v']) { - print("\nprop structure:\n"); - for(r = firstr; r != R; r = r->link) { - print("%ld:%P", r->loop, r->prog); - for(z=0; zset.b[z] | - r->refahead.b[z] | r->calahead.b[z] | - r->refbehind.b[z] | r->calbehind.b[z] | - r->use1.b[z] | r->use2.b[z]; - if(bany(&bit)) { - print("\t"); - if(bany(&r->use1)) - print(" u1=%B", r->use1); - if(bany(&r->use2)) - print(" u2=%B", r->use2); - if(bany(&r->set)) - print(" st=%B", r->set); - if(bany(&r->refahead)) - print(" ra=%B", r->refahead); - if(bany(&r->calahead)) - print(" ca=%B", r->calahead); - if(bany(&r->refbehind)) - print(" rb=%B", r->refbehind); - if(bany(&r->calbehind)) - print(" cb=%B", r->calbehind); - } - print("\n"); - } - } - - /* - * pass 5 - * isolate regions - * calculate costs (paint1) - */ - r = firstr; - if(r) { - for(z=0; zrefahead.b[z] | r->calahead.b[z]) & - ~(externs.b[z] | params.b[z] | addrs.b[z] | consts.b[z]); - if(bany(&bit)) { - nearln = r->prog->lineno; - warn(Z, "used and not set: %B", bit); - if(debug['R'] && !debug['w']) - print("used and not set: %B\n", bit); - } - } - - for(r = firstr; r != R; r = r->link) - r->act = zbits; - rgp = region; - nregion = 0; - for(r = firstr; r != R; r = r->link) { - for(z=0; zset.b[z] & - ~(r->refahead.b[z] | r->calahead.b[z] | addrs.b[z]); - if(bany(&bit)) { - nearln = r->prog->lineno; - warn(Z, "set and not used: %B", bit); - if(debug['R']) - print("set and not used: %B\n", bit); - excise(r); - } - for(z=0; zact.b[z] | addrs.b[z]); - while(bany(&bit)) { - i = bnum(bit); - rgp->enter = r; - rgp->varno = i; - change = 0; - if(debug['R'] && debug['v']) - print("\n"); - paint1(r, i); - bit.b[i/32] &= ~(1L<<(i%32)); - if(change <= 0) { - if(debug['R']) - print("%L $%d: %B\n", - r->prog->lineno, change, blsh(i)); - continue; - } - rgp->cost = change; - nregion++; - if(nregion >= NRGN) { - warn(Z, "too many regions"); - goto brk; - } - rgp++; - } - } -brk: - qsort(region, nregion, sizeof(region[0]), rcmp); - - /* - * pass 6 - * determine used registers (paint2) - * replace code (paint3) - */ - rgp = region; - for(i=0; ivarno); - vreg = paint2(rgp->enter, rgp->varno); - vreg = allreg(vreg, rgp); - if(debug['R']) { - if(rgp->regno >= NREG) - print("%L $%d F%d: %B\n", - rgp->enter->prog->lineno, - rgp->cost, - rgp->regno-NREG, - bit); - else - print("%L $%d R%d: %B\n", - rgp->enter->prog->lineno, - rgp->cost, - rgp->regno, - bit); - } - if(rgp->regno != 0) - paint3(rgp->enter, rgp->varno, vreg, rgp->regno); - rgp++; - } - /* - * pass 7 - * peep-hole on basic block - */ - if(!debug['R'] || debug['P']) - peep(); - - /* - * pass 8 - * recalculate pc - */ - val = initpc; - for(r = firstr; r != R; r = r1) { - r->pc = val; - p = r->prog; - p1 = P; - r1 = r->link; - if(r1 != R) - p1 = r1->prog; - for(; p != p1; p = p->link) { - switch(p->as) { - default: - val++; - break; - - case ANOP: - case ADATA: - case AGLOBL: - case ANAME: - break; - } - } - } - pc = val; - - /* - * fix up branches - */ - if(debug['R']) - if(bany(&addrs)) - print("addrs: %B\n", addrs); - - r1 = 0; /* set */ - for(r = firstr; r != R; r = r->link) { - p = r->prog; - if(p->to.type == D_BRANCH) - p->to.offset = r->s2->pc; - r1 = r; - } - - /* - * last pass - * eliminate nops - * free aux structures - */ - for(p = firstr->prog; p != P; p = p->link){ - while(p->link && p->link->as == ANOP) - p->link = p->link->link; - } - if(r1 != R) { - r1->link = freer; - freer = firstr; - } -} - -void -addsplits(void) -{ - Reg *r, *r1; - int z, i; - Bits bit; - - for(r = firstr; r != R; r = r->link) { - if(r->loop > 1) - continue; - if(r->prog->as == AJSR) - continue; - for(r1 = r->p2; r1 != R; r1 = r1->p2link) { - if(r1->loop <= 1) - continue; - for(z=0; zcalbehind.b[z] & - (r->refahead.b[z] | r->use1.b[z] | r->use2.b[z]) & - ~(r->calahead.b[z] & addrs.b[z]); - while(bany(&bit)) { - i = bnum(bit); - bit.b[i/32] &= ~(1L << (i%32)); - } - } - } -} - -/* - * add mov b,rn - * just after r - */ -void -addmove(Reg *r, int bn, int rn, int f) -{ - Prog *p, *p1; - Adr *a; - Var *v; - - p1 = alloc(sizeof(*p1)); - *p1 = zprog; - p = r->prog; - - p1->link = p->link; - p->link = p1; - p1->lineno = p->lineno; - - v = var + bn; - - a = &p1->to; - a->sym = v->sym; - a->name = v->name; - a->offset = v->offset; - a->etype = v->etype; - a->type = D_OREG; - if(a->etype == TARRAY || a->sym == S) - a->type = D_CONST; - - p1->as = AMOVL; - if(v->etype == TCHAR || v->etype == TUCHAR) /* TODO: optimise locals? */ - p1->as = AMOVB; - if(v->etype == TSHORT || v->etype == TUSHORT) - p1->as = AMOVW; - if(v->etype == TVLONG || v->etype == TUVLONG) - p1->as = AMOVQ; - if(v->etype == TFLOAT) - p1->as = AMOVS; - if(v->etype == TDOUBLE) - p1->as = AMOVT; - - p1->from.type = D_REG; - p1->from.reg = rn; - if(rn >= NREG) { - p1->from.type = D_FREG; - p1->from.reg = rn-NREG; - } - if(!f) { - p1->from = *a; - *a = zprog.from; - a->type = D_REG; - a->reg = rn; - if(rn >= NREG) { - a->type = D_FREG; - a->reg = rn-NREG; - } - if(v->etype == TUCHAR) - p1->as = AMOVBU; - if(v->etype == TUSHORT) - p1->as = AMOVWU; - } - if(debug['R']) - print("%P\t.a%P\n", p, p1); -} - -Bits -mkvar(Adr *a, int docon) -{ - Var *v; - int i, t, n, et, z; - vlong o; - Bits bit; - Sym *s; - - t = a->type; - if(t == D_REG && a->reg != NREG) - regbits |= RtoB(a->reg); - if(t == D_FREG && a->reg != NREG) - regbits |= FtoB(a->reg); - s = a->sym; - o = a->offset; - et = a->etype; - if(s == S) { - if(t != D_CONST || !docon || a->reg != NREG) - goto none; - et = TLONG; - if (o > 0x7FFFFFFFLL || o < -0x80000000LL) - et = TVLONG; - } - if(t == D_CONST) { - if(s == S && sval(o)) - goto none; - } - - n = a->name; - v = var; - for(i=0; isym) - if(n == v->name) - if(o == v->offset) - goto out; - v++; - } - if(s) - if(s->name[0] == '.') - goto none; - if(nvar >= NVAR) { - if(debug['w'] > 1 && s) - warn(Z, "variable not optimized: %s", s->name); - goto none; - } - i = nvar; - nvar++; - v = &var[i]; - v->sym = s; - v->offset = o; - v->etype = et; - v->name = n; - if(debug['R']) - print("bit=%2d et=%2d %D\n", i, et, a); -out: - bit = blsh(i); - if(n == D_EXTERN || n == D_STATIC) - for(z=0; zetype != et || (!typechlpfd[et] && !typev[et])) /* funny punning? */ - for(z=0; zp1) { - for(z=0; zrefahead.b[z]; - if(ref.b[z] != r1->refahead.b[z]) { - r1->refahead.b[z] = ref.b[z]; - change++; - } - cal.b[z] |= r1->calahead.b[z]; - if(cal.b[z] != r1->calahead.b[z]) { - r1->calahead.b[z] = cal.b[z]; - change++; - } - } - switch(r1->prog->as) { - case AJSR: - for(z=0; zset.b[z]) | - r1->use1.b[z] | r1->use2.b[z]; - cal.b[z] &= ~(r1->set.b[z] | r1->use1.b[z] | r1->use2.b[z]); - r1->refbehind.b[z] = ref.b[z]; - r1->calbehind.b[z] = cal.b[z]; - } - if(r1->active) - break; - r1->active = 1; - } - for(; r != r1; r = r->p1) - for(r2 = r->p2; r2 != R; r2 = r2->p2link) - prop(r2, r->refbehind, r->calbehind); -} - -/* - * find looping structure - * - * 1) find reverse postordering - * 2) find approximate dominators, - * the actual dominators if the flow graph is reducible - * otherwise, dominators plus some other non-dominators. - * See Matthew S. Hecht and Jeffrey D. Ullman, - * "Analysis of a Simple Algorithm for Global Data Flow Problems", - * Conf. Record of ACM Symp. on Principles of Prog. Langs, Boston, Massachusetts, - * Oct. 1-3, 1973, pp. 207-217. - * 3) find all nodes with a predecessor dominated by the current node. - * such a node is a loop head. - * recursively, all preds with a greater rpo number are in the loop - */ -long -postorder(Reg *r, Reg **rpo2r, long n) -{ - Reg *r1; - - r->rpo = 1; - r1 = r->s1; - if(r1 && !r1->rpo) - n = postorder(r1, rpo2r, n); - r1 = r->s2; - if(r1 && !r1->rpo) - n = postorder(r1, rpo2r, n); - rpo2r[n] = r; - n++; - return n; -} - -long -rpolca(long *idom, long rpo1, long rpo2) -{ - long t; - - if(rpo1 == -1) - return rpo2; - while(rpo1 != rpo2){ - if(rpo1 > rpo2){ - t = rpo2; - rpo2 = rpo1; - rpo1 = t; - } - while(rpo1 < rpo2){ - t = idom[rpo2]; - if(t >= rpo2) - fatal(Z, "bad idom"); - rpo2 = t; - } - } - return rpo1; -} - -int -doms(long *idom, long r, long s) -{ - while(s > r) - s = idom[s]; - return s == r; -} - -int -loophead(long *idom, Reg *r) -{ - long src; - - src = r->rpo; - if(r->p1 != R && doms(idom, src, r->p1->rpo)) - return 1; - for(r = r->p2; r != R; r = r->p2link) - if(doms(idom, src, r->rpo)) - return 1; - return 0; -} - -void -loopmark(Reg **rpo2r, long head, Reg *r) -{ - if(r->rpo < head || r->active == head) - return; - r->active = head; - r->loop += LOOP; - if(r->p1 != R) - loopmark(rpo2r, head, r->p1); - for(r = r->p2; r != R; r = r->p2link) - loopmark(rpo2r, head, r); -} - -void -loopit(Reg *r, long nr) -{ - Reg *r1; - long i, d, me; - - if(nr > maxnr) { - rpo2r = alloc(nr * sizeof(Reg*)); - idom = alloc(nr * sizeof(long)); - maxnr = nr; - } - - d = postorder(r, rpo2r, 0); - if(d > nr) - fatal(Z, "too many reg nodes"); - nr = d; - for(i = 0; i < nr / 2; i++){ - r1 = rpo2r[i]; - rpo2r[i] = rpo2r[nr - 1 - i]; - rpo2r[nr - 1 - i] = r1; - } - for(i = 0; i < nr; i++) - rpo2r[i]->rpo = i; - - idom[0] = 0; - for(i = 0; i < nr; i++){ - r1 = rpo2r[i]; - me = r1->rpo; - d = -1; - if(r1->p1 != R && r1->p1->rpo < me) - d = r1->p1->rpo; - for(r1 = r1->p2; r1 != nil; r1 = r1->p2link) - if(r1->rpo < me) - d = rpolca(idom, d, r1->rpo); - idom[i] = d; - } - - for(i = 0; i < nr; i++){ - r1 = rpo2r[i]; - r1->loop++; - if(r1->p2 != R && loophead(idom, r1)) - loopmark(rpo2r, i, r1); - } -} - -void -synch(Reg *r, Bits dif) -{ - Reg *r1; - int z; - - for(r1 = r; r1 != R; r1 = r1->s1) { - for(z=0; zrefbehind.b[z] & r1->refahead.b[z])) | - r1->set.b[z] | r1->regdiff.b[z]; - if(dif.b[z] != r1->regdiff.b[z]) { - r1->regdiff.b[z] = dif.b[z]; - change++; - } - } - if(r1->active) - break; - r1->active = 1; - for(z=0; zcalbehind.b[z] & r1->calahead.b[z]); - if(r1->s2 != R) - synch(r1->s2, dif); - } -} - -ulong -allreg(ulong b, Rgn *r) -{ - Var *v; - int i; - - v = var + r->varno; - r->regno = 0; - switch(v->etype) { - - default: - diag(Z, "unknown etype %d/%d", bitno(b), v->etype); - break; - - case TCHAR: - case TUCHAR: - case TSHORT: - case TUSHORT: - case TINT: - case TUINT: - case TLONG: - case TULONG: - case TVLONG: - case TUVLONG: - case TIND: - case TARRAY: - i = BtoR(~b); - if(i && r->cost >= 0) { - r->regno = i; - return RtoB(i); - } - break; - - case TDOUBLE: - case TFLOAT: - i = BtoF(~b); - if(i && r->cost >= 0) { - r->regno = i+NREG; - return FtoB(i); - } - break; - } - return 0; -} - -void -paint1(Reg *r, int bn) -{ - Reg *r1; - Prog *p; - int z; - ulong bb; - - z = bn/32; - bb = 1L<<(bn%32); - if(r->act.b[z] & bb) - return; - for(;;) { - if(!(r->refbehind.b[z] & bb)) - break; - r1 = r->p1; - if(r1 == R) - break; - if(!(r1->refahead.b[z] & bb)) - break; - if(r1->act.b[z] & bb) - break; - r = r1; - } - - if(LOAD(r) & ~(r->set.b[z] & ~(r->use1.b[z]|r->use2.b[z])) & bb) { - change -= CLOAD * r->loop; - if(debug['R'] && debug['v']) - print("%ld%P\tld %B $%d\n", r->loop, - r->prog, blsh(bn), change); - } - for(;;) { - r->act.b[z] |= bb; - p = r->prog; - - if(r->use1.b[z] & bb) { - change += CREF * r->loop; - if(debug['R'] && debug['v']) - print("%ld%P\tu1 %B $%d\n", r->loop, - p, blsh(bn), change); - } - - if((r->use2.b[z]|r->set.b[z]) & bb) { - change += CREF * r->loop; - if(debug['R'] && debug['v']) - print("%ld%P\tu2 %B $%d\n", r->loop, - p, blsh(bn), change); - } - - if(STORE(r) & r->regdiff.b[z] & bb) { - change -= CLOAD * r->loop; - if(debug['R'] && debug['v']) - print("%ld%P\tst %B $%d\n", r->loop, - p, blsh(bn), change); - } - - if(r->refbehind.b[z] & bb) - for(r1 = r->p2; r1 != R; r1 = r1->p2link) - if(r1->refahead.b[z] & bb) - paint1(r1, bn); - - if(!(r->refahead.b[z] & bb)) - break; - r1 = r->s2; - if(r1 != R) - if(r1->refbehind.b[z] & bb) - paint1(r1, bn); - r = r->s1; - if(r == R) - break; - if(r->act.b[z] & bb) - break; - if(!(r->refbehind.b[z] & bb)) - break; - } -} - -ulong -paint2(Reg *r, int bn) -{ - Reg *r1; - int z; - ulong bb, vreg; - - z = bn/32; - bb = 1L << (bn%32); - vreg = regbits; - if(!(r->act.b[z] & bb)) - return vreg; - for(;;) { - if(!(r->refbehind.b[z] & bb)) - break; - r1 = r->p1; - if(r1 == R) - break; - if(!(r1->refahead.b[z] & bb)) - break; - if(!(r1->act.b[z] & bb)) - break; - r = r1; - } - for(;;) { - r->act.b[z] &= ~bb; - - vreg |= r->regu; - - if(r->refbehind.b[z] & bb) - for(r1 = r->p2; r1 != R; r1 = r1->p2link) - if(r1->refahead.b[z] & bb) - vreg |= paint2(r1, bn); - - if(!(r->refahead.b[z] & bb)) - break; - r1 = r->s2; - if(r1 != R) - if(r1->refbehind.b[z] & bb) - vreg |= paint2(r1, bn); - r = r->s1; - if(r == R) - break; - if(!(r->act.b[z] & bb)) - break; - if(!(r->refbehind.b[z] & bb)) - break; - } - return vreg; -} - -void -paint3(Reg *r, int bn, long rb, int rn) -{ - Reg *r1; - Prog *p; - int z; - ulong bb; - - z = bn/32; - bb = 1L << (bn%32); - if(r->act.b[z] & bb) - return; - for(;;) { - if(!(r->refbehind.b[z] & bb)) - break; - r1 = r->p1; - if(r1 == R) - break; - if(!(r1->refahead.b[z] & bb)) - break; - if(r1->act.b[z] & bb) - break; - r = r1; - } - - if(LOAD(r) & ~(r->set.b[z] & ~(r->use1.b[z]|r->use2.b[z])) & bb) - addmove(r, bn, rn, 0); - for(;;) { - r->act.b[z] |= bb; - p = r->prog; - - if(r->use1.b[z] & bb) { - if(debug['R']) - print("%P", p); - addreg(&p->from, rn); - if(p->as == AMOVL && typechlp[var[bn].etype]) - p->as = AMOVQ; - if(debug['R']) - print("\t.c%P\n", p); - } - if((r->use2.b[z]|r->set.b[z]) & bb) { - if(debug['R']) - print("%P", p); - addreg(&p->to, rn); - if(p->as == AMOVL && typechlp[var[bn].etype]) - p->as = AMOVQ; - if(debug['R']) - print("\t.c%P\n", p); - } - - if(STORE(r) & r->regdiff.b[z] & bb) - addmove(r, bn, rn, 1); - r->regu |= rb; - - if(r->refbehind.b[z] & bb) - for(r1 = r->p2; r1 != R; r1 = r1->p2link) - if(r1->refahead.b[z] & bb) - paint3(r1, bn, rb, rn); - - if(!(r->refahead.b[z] & bb)) - break; - r1 = r->s2; - if(r1 != R) - if(r1->refbehind.b[z] & bb) - paint3(r1, bn, rb, rn); - r = r->s1; - if(r == R) - break; - if(r->act.b[z] & bb) - break; - if(!(r->refbehind.b[z] & bb)) - break; - } -} - -void -addreg(Adr *a, int rn) -{ - - a->sym = 0; - a->name = D_NONE; - a->type = D_REG; - a->reg = rn; - if(rn >= NREG) { - a->type = D_FREG; - a->reg = rn-NREG; - } -} - -/* - * bit reg - * 0 R2 - * 1 R3 - * ... ... - * 10 R12 - * 11 R16 - * ... ... - * 19 R24 - * 20 R25 - */ -long -RtoB(int r) -{ - - if(r >= 2 && r <= 12) - return 1L << (r-2); - if(r >= 16 && r <= 25) - return 1L << (r-5); - return 0; -} - -BtoR(long b) -{ - int r; - - b &= 0x001fffffL; - if(b == 0) - return 0; - r = bitno(b) + 2; - if (r >= 13) - r += 3; - return r; -} - -/* - * bit reg - * 21 F1 - * 22 F2 - * ... ... - * 31 F11 - */ -long -FtoB(int f) -{ - - if(f < 1 || f > 11) - return 0; - return 1L << (f + 20); -} - -int -BtoF(long b) -{ - - b &= 0xffe00000L; - if(b == 0) - return 0; - return bitno(b) - 20; -} diff --git a/sys/src/cmd/7c/sgen.c b/sys/src/cmd/7c/sgen.c deleted file mode 100644 index 54aaacd4a..000000000 --- a/sys/src/cmd/7c/sgen.c +++ /dev/null @@ -1,235 +0,0 @@ -#include "gc.h" - -void -noretval(int n) -{ - - if(n & 1) { - gins(ANOP, Z, Z); - p->to.type = D_REG; - p->to.reg = REGRET; - } - if(n & 2) { - gins(ANOP, Z, Z); - p->to.type = D_FREG; - p->to.reg = FREGRET; - } -} - -/* - * calculate addressability as follows - * CONST ==> 20 $value - * NAME ==> 10 name - * REGISTER ==> 11 register - * INDREG ==> 12 *[(reg)+offset] - * &10 ==> 2 $name - * ADD(2, 20) ==> 2 $name+offset - * ADD(3, 20) ==> 3 $(reg)+offset - * &12 ==> 3 $(reg)+offset - * *11 ==> 11 ?? - * *2 ==> 10 name - * *3 ==> 12 *(reg)+offset - * calculate complexity (number of registers) - */ -void -xcom(Node *n) -{ - Node *l, *r; - int t; - - if(n == Z) - return; - l = n->left; - r = n->right; - n->addable = 0; - n->complex = 0; - switch(n->op) { - case OCONST: - n->addable = 20; - return; - - case OREGISTER: - n->addable = 11; - return; - - case OINDREG: - n->addable = 12; - return; - - case ONAME: - n->addable = 10; - return; - - case OADDR: - xcom(l); - if(l->addable == 10) - n->addable = 2; - if(l->addable == 12) - n->addable = 3; - break; - - case OIND: - xcom(l); - if(l->addable == 11) - n->addable = 12; - if(l->addable == 3) - n->addable = 12; - if(l->addable == 2) - n->addable = 10; - break; - - case OADD: - xcom(l); - xcom(r); - if(l->addable == 20) { - if(r->addable == 2) - n->addable = 2; - if(r->addable == 3) - n->addable = 3; - } - if(r->addable == 20) { - if(l->addable == 2) - n->addable = 2; - if(l->addable == 3) - n->addable = 3; - } - break; - - case OASLMUL: - case OASMUL: - xcom(l); - xcom(r); - t = vlog(r); - if(t >= 0) { - n->op = OASASHL; - r->vconst = t; - r->type = types[TINT]; - } - break; - - case OMUL: - case OLMUL: - xcom(l); - xcom(r); - t = vlog(r); - if(t >= 0) { - n->op = OASHL; - r->vconst = t; - r->type = types[TINT]; - } - t = vlog(l); - if(t >= 0) { - n->op = OASHL; - n->left = r; - n->right = l; - r = l; - l = n->left; - r->vconst = t; - r->type = types[TINT]; - } - break; - - case OASLDIV: - xcom(l); - xcom(r); - t = vlog(r); - if(t >= 0) { - n->op = OASLSHR; - r->vconst = t; - r->type = types[TINT]; - } - break; - - case OLDIV: - xcom(l); - xcom(r); - t = vlog(r); - if(t >= 0) { - n->op = OLSHR; - r->vconst = t; - r->type = types[TINT]; - } - break; - - case OASLMOD: - xcom(l); - xcom(r); - t = vlog(r); - if(t >= 0) { - n->op = OASAND; - r->vconst--; - } - break; - - case OLMOD: - xcom(l); - xcom(r); - t = vlog(r); - if(t >= 0) { - n->op = OAND; - r->vconst--; - } - break; - - default: - if(l != Z) - xcom(l); - if(r != Z) - xcom(r); - break; - } - if(n->addable >= 10) - return; - - if(l != Z) - n->complex = l->complex; - if(r != Z) { - if(r->complex == n->complex) - n->complex = r->complex+1; - else - if(r->complex > n->complex) - n->complex = r->complex; - } - if(n->complex == 0) - n->complex++; - - switch(n->op) { - case OFUNC: - n->complex = FNX; - break; - - case OEQ: - case ONE: - case OLE: - case OLT: - case OGE: - case OGT: - case OHI: - case OHS: - case OLO: - case OLS: - /* - * immediate operators, make const on right - */ - if(l->op == OCONST) { - n->left = r; - n->right = l; - n->op = invrel[relindex(n->op)]; - } - break; - - case OADD: - case OXOR: - case OAND: - case OOR: - /* - * immediate operators, make const on right - */ - if(l->op == OCONST) { - n->left = r; - n->right = l; - } - break; - } -} - diff --git a/sys/src/cmd/7c/swt.c b/sys/src/cmd/7c/swt.c deleted file mode 100644 index 229558d86..000000000 --- a/sys/src/cmd/7c/swt.c +++ /dev/null @@ -1,578 +0,0 @@ -#include "gc.h" - -void -swit1(C1 *q, int nc, long def, Node *n) -{ - Node tn; - - regalloc(&tn, ®node, Z); - swit2(q, nc, def, n, &tn); - regfree(&tn); -} - -void -swit2(C1 *q, int nc, long def, Node *n, Node *tn) -{ - C1 *r; - int i; - Prog *sp; - - if(nc < 5) { - for(i=0; ival); - if(bval(q->val)) { - gopcode(OEQ, n, Z, nodconst(q->val)); - } else { - gopcode(OSUB, nodconst(q->val), n, tn); - gopcode(OEQ, tn, Z, nodconst(0)); - } - patch(p, q->label); - q++; - } - gbranch(OGOTO); - patch(p, def); - return; - } - i = nc / 2; - r = q+i; - if(bval(r->val)) { - gopcode(OGE, n, Z, nodconst(r->val)); - sp = p; - swit2(q, i, def, n, tn); - - patch(sp, pc); - swit2(r, nc-i, def, n, tn); - } else { - gopcode(OSUB, nodconst(r->val), n, tn); - gopcode(OGE, tn, Z, nodconst(0)); - sp = p; - swit2(q, i, def, n, tn); - - patch(sp, pc); - swit2(r, nc-i, def, n, tn); - } -/* if(debug['W']) - print("case > %.8llux\n", r->val); - gmove(nodconst(r->val), tn); - gopcode(OLT, tn, n, Z); - sp = p; - gopcode(OEQ, n, tn, Z); - patch(p, r->label); - swit2(q, i, def, n, tn); - - if(debug['W']) - print("case < %.8llux\n", r->val); - patch(sp, pc); - swit2(r+1, nc-i-1, def, n, tn); */ -} - -void -bitload(Node *b, Node *n1, Node *n2, Node *n3, Node *nn) -{ - int sh; - long v; - Node *l; - - /* - * n1 gets adjusted/masked value - * n2 gets address of cell - * n3 gets contents of cell - */ - l = b->left; - if(n2 != Z) { - regalloc(n1, l, nn); - reglcgen(n2, l, Z); - regalloc(n3, l, Z); - gopcode(OAS, n2, Z, n3); - gopcode(OAS, n3, Z, n1); - } else { - regalloc(n1, l, nn); - cgen(l, n1); - } - if(b->type->shift == 0 && typeu[b->type->etype]) { - v = ~0 + (1L << b->type->nbits); - gopcode(OAND, nodconst(v), Z, n1); - } else { - sh = 32 - b->type->shift - b->type->nbits; - if(sh > 0) - gopcode(OASHL, nodconst(sh), Z, n1); - sh += b->type->shift; - if(sh > 0) - if(typeu[b->type->etype]) - gopcode(OLSHR, nodconst(sh), Z, n1); - else - gopcode(OASHR, nodconst(sh), Z, n1); - } -} - -void -bitstore(Node *b, Node *n1, Node *n2, Node *n3, Node *nn) -{ - long v; - Node nod, *l; - int sh; - - /* - * n1 has adjusted/masked value - * n2 has address of cell - * n3 has contents of cell - */ - l = b->left; - regalloc(&nod, l, Z); - v = ~0 + (1L << b->type->nbits); - gopcode(OAND, nodconst(v), Z, n1); - gopcode(OAS, n1, Z, &nod); - if(nn != Z) - gopcode(OAS, n1, Z, nn); - sh = b->type->shift; - if(sh > 0) - gopcode(OASHL, nodconst(sh), Z, &nod); - v <<= sh; - gopcode(OAND, nodconst(~v), Z, n3); - gopcode(OOR, n3, Z, &nod); - gopcode(OAS, &nod, Z, n2); - - regfree(&nod); - regfree(n1); - regfree(n2); - regfree(n3); -} - -long -outstring(char *s, long n) -{ - long r; - - if(suppress) - return nstring; - r = nstring; - while(n) { - string[mnstring] = *s++; - mnstring++; - nstring++; - if(mnstring >= NSNAME) { - gpseudo(ADATA, symstring, nodconst(0L)); - p->from.offset += nstring - NSNAME; - p->reg = NSNAME; - p->to.type = D_SCONST; - memmove(p->to.sval, string, NSNAME); - mnstring = 0; - } - n--; - } - return r; -} - -int -mulcon(Node *n, Node *nn) -{ - Node *l, *r, nod1, nod2; - Multab *m; - long v; - int o; - char code[sizeof(m->code)+2], *p; - - if(typefd[n->type->etype]) - return 0; - l = n->left; - r = n->right; - if(l->op == OCONST) { - l = r; - r = n->left; - } - if(r->op != OCONST) - return 0; - v = convvtox(r->vconst, n->type->etype); - if(v != r->vconst) { - if(debug['M']) - print("%L multiply conv: %lld\n", n->lineno, r->vconst); - return 0; - } - m = mulcon0(v); - if(!m) { - if(debug['M']) - print("%L multiply table: %lld\n", n->lineno, r->vconst); - return 0; - } - if(debug['M'] && debug['v']) - print("%L multiply: %ld\n", n->lineno, v); - - memmove(code, m->code, sizeof(m->code)); - code[sizeof(m->code)] = 0; - - p = code; - if(p[1] == 'i') - p += 2; - regalloc(&nod1, n, nn); - cgen(l, &nod1); - if(v < 0) - gopcode(OSUB, &nod1, nodconst(0), &nod1); - regalloc(&nod2, n, Z); - -loop: - switch(*p) { - case 0: - regfree(&nod2); - gopcode(OAS, &nod1, Z, nn); - regfree(&nod1); - return 1; - case '+': - o = OADD; - goto addsub; - case '-': - o = OSUB; - addsub: /* number is r,n,l */ - v = p[1] - '0'; - r = &nod1; - if(v&4) - r = &nod2; - n = &nod1; - if(v&2) - n = &nod2; - l = &nod1; - if(v&1) - l = &nod2; - gopcode(o, l, n, r); - break; - default: /* op is shiftcount, number is r,l */ - v = p[1] - '0'; - r = &nod1; - if(v&2) - r = &nod2; - l = &nod1; - if(v&1) - l = &nod2; - v = *p - 'a'; - if(v < 0 || v >= 32) { - diag(n, "mulcon unknown op: %c%c", p[0], p[1]); - break; - } - gopcode(OASHL, nodconst(v), l, r); - break; - } - p += 2; - goto loop; -} - -void -sextern(Sym *s, Node *a, long o, long w) -{ - long e, lw; - - for(e=0; efrom.offset += o+e; - p->reg = lw; - p->to.type = D_SCONST; - memmove(p->to.sval, a->cstring+e, lw); - } -} - -void -gextern(Sym *s, Node *a, long o, long w) -{ - gpseudo(ADATA, s, a); - p->from.offset += o; - p->reg = w; - if(p->to.type == D_OREG) - p->to.type = D_CONST; -} - -void zname(Biobuf*, char*, int, int); -char* zaddr(char*, Adr*, int); -void zwrite(Biobuf*, Prog*, int, int); -void outhist(Biobuf*); - -void -zwrite(Biobuf *b, Prog *p, int sf, int st) -{ - char bf[100], *bp; - - bf[0] = p->as; - bf[1] = p->reg; - bf[2] = p->lineno; - bf[3] = p->lineno>>8; - bf[4] = p->lineno>>16; - bf[5] = p->lineno>>24; - bp = zaddr(bf+6, &p->from, sf); - bp = zaddr(bp, &p->to, st); - Bwrite(b, bf, bp-bf); -} - -void -outcode(void) -{ - struct { Sym *sym; short type; } h[NSYM]; - Prog *p; - Sym *s; - int sf, st, t, sym; - - if(debug['S']) { - for(p = firstp; p != P; p = p->link) - if(p->as != ADATA && p->as != AGLOBL) - pc--; - for(p = firstp; p != P; p = p->link) { - print("%P\n", p); - if(p->as != ADATA && p->as != AGLOBL) - pc++; - } - } - outhist(&outbuf); - for(sym=0; symlink) { - jackpot: - sf = 0; - s = p->from.sym; - while(s != S) { - sf = s->sym; - if(sf < 0 || sf >= NSYM) - sf = 0; - t = p->from.name; - if(h[sf].type == t) - if(h[sf].sym == s) - break; - zname(&outbuf, s->name, t, sym); - s->sym = sym; - h[sym].sym = s; - h[sym].type = t; - sf = sym; - sym++; - if(sym >= NSYM) - sym = 1; - break; - } - st = 0; - s = p->to.sym; - while(s != S) { - st = s->sym; - if(st < 0 || st >= NSYM) - st = 0; - t = p->to.name; - if(h[st].type == t) - if(h[st].sym == s) - break; - zname(&outbuf, s->name, t, sym); - s->sym = sym; - h[sym].sym = s; - h[sym].type = t; - st = sym; - sym++; - if(sym >= NSYM) - sym = 1; - if(st == sf) - goto jackpot; - break; - } - zwrite(&outbuf, p, sf, st); - } - firstp = P; - lastp = P; -} - -void -outhist(Biobuf *b) -{ - Hist *h; - char *p, *q, *op; - Prog pg; - int n; - - pg = zprog; - pg.as = AHISTORY; - for(h = hist; h != H; h = h->link) { - p = h->name; - op = 0; - if(p && p[0] != '/' && h->offset == 0 && pathname && pathname[0] == '/') { - op = p; - p = pathname; - } - while(p) { - q = utfrune(p, '/'); - if(q) { - n = q-p; - if(n == 0) - n = 1; /* leading "/" */ - q++; - } else { - n = strlen(p); - q = 0; - } - if(n) { - Bputc(b, ANAME); - Bputc(b, D_FILE); - Bputc(b, 1); - Bputc(b, '<'); - Bwrite(b, p, n); - Bputc(b, 0); - } - p = q; - if(p == 0 && op) { - p = op; - op = 0; - } - } - pg.lineno = h->line; - pg.to.type = zprog.to.type; - pg.to.offset = h->offset; - if(h->offset) - pg.to.type = D_CONST; - - zwrite(b, &pg, 0, 0); - } -} - -void -zname(Biobuf *b, char *n, int t, int s) -{ - char bf[3]; - - bf[0] = ANAME; - bf[1] = t; /* type */ - bf[2] = s; /* sym */ - Bwrite(b, bf, 3); - Bwrite(b, n, strlen(n)+1); -} - -char* -zaddr(char *bp, Adr *a, int s) -{ - long l; - vlong v; - Ieee e; - - bp[0] = a->type; - bp[1] = a->reg; - bp[2] = s; - bp[3] = a->name; - bp += 4; - switch(a->type) { - default: - diag(Z, "unknown type %d in zaddr", a->type); - - case D_NONE: - case D_REG: - case D_FREG: - case D_FCREG: - break; - - case D_OREG: - case D_CONST: - case D_BRANCH: - v = a->offset; - bp[0] = v; - bp[1] = v>>8; - bp[2] = v>>16; - bp[3] = v>>24; - bp[4] = v>>32; - bp[5] = v>>40; - bp[6] = v>>48; - bp[7] = v>>56; - bp += 8; - break; - - case D_SCONST: - memmove(bp, a->sval, NSNAME); - bp += NSNAME; - break; - - case D_FCONST: - ieeedtod(&e, a->dval); - l = e.l; - bp[0] = l; - bp[1] = l>>8; - bp[2] = l>>16; - bp[3] = l>>24; - bp += 4; - l = e.h; - bp[0] = l; - bp[1] = l>>8; - bp[2] = l>>16; - bp[3] = l>>24; - bp += 4; - break; - } - return bp; -} - -long -align(long i, Type *t, int op) -{ - long o; - Type *v; - int w; - - o = i; - w = 1; - switch(op) { - default: - diag(Z, "unknown align opcode %d", op); - break; - - case Asu2: /* padding at end of a struct */ - w = SZ_VLONG; - if(packflg) - w = packflg; - break; - - case Ael1: /* initial allign of struct element */ - for(v=t; v->etype==TARRAY; v=v->link) - ; - w = ewidth[v->etype]; - if(w <= 0 || w >= SZ_VLONG) - w = SZ_VLONG; - if(packflg) - w = packflg; - break; - - case Ael2: /* width of a struct element */ - o += t->width; - break; - - case Aarg0: /* initial passbyptr argument in arg list */ - if(typesu[t->etype]) { - o = align(o, types[TIND], Aarg1); - o = align(o, types[TIND], Aarg2); - } - break; - - case Aarg1: /* initial allign of parameter */ - w = ewidth[t->etype]; - if(w <= 0 || w >= SZ_VLONG) { - w = SZ_VLONG; - break; - } - w = 1; /* little endian no adjustment */ - break; - - case Aarg2: /* width of a parameter */ - o += t->width; - w = SZ_LONG; - break; - - case Aaut3: /* total allign of automatic */ - o = align(o, t, Ael1); - o = align(o, t, Ael2); - break; - } - o = round(o, w); - if(debug['A']) - print("align %s %ld %T = %ld\n", bnames[op], i, t, o); - return o; -} - -long -maxround(long max, long v) -{ - v += SZ_VLONG-1; - if(v > max) - max = round(v, SZ_VLONG); - return max; -} diff --git a/sys/src/cmd/7c/txt.c b/sys/src/cmd/7c/txt.c deleted file mode 100644 index ef6bd0fbd..000000000 --- a/sys/src/cmd/7c/txt.c +++ /dev/null @@ -1,1306 +0,0 @@ -#include "gc.h" - -void -ginit(void) -{ - Type *t; - - thechar = '7'; - thestring = "alpha"; - exregoffset = REGEXT; - exfregoffset = FREGEXT; - listinit(); - nstring = 0; - mnstring = 0; - nrathole = 0; - pc = 0; - breakpc = -1; - continpc = -1; - cases = C; - firstp = P; - lastp = P; - tfield = types[TLONG]; - - typeword = typechlvp; - typecmplx = typesu; - - zprog.link = P; - zprog.as = AGOK; - zprog.reg = NREG; - zprog.from.type = D_NONE; - zprog.from.name = D_NONE; - zprog.from.reg = NREG; - zprog.to = zprog.from; - - regnode.op = OREGISTER; - regnode.class = CEXREG; - regnode.reg = REGTMP; - regnode.complex = 0; - regnode.addable = 11; - regnode.type = types[TLONG]; - - constnode.op = OCONST; - constnode.class = CXXX; - constnode.complex = 0; - constnode.addable = 20; - constnode.type = types[TLONG]; - - fconstnode.op = OCONST; - fconstnode.class = CXXX; - fconstnode.complex = 0; - fconstnode.addable = 20; - fconstnode.type = types[TDOUBLE]; - - nodsafe = new(ONAME, Z, Z); - nodsafe->sym = slookup(".safe"); - nodsafe->type = types[TINT]; - nodsafe->etype = types[TINT]->etype; - nodsafe->class = CAUTO; - complex(nodsafe); - - t = typ(TARRAY, types[TCHAR]); - symrathole = slookup(".rathole"); - symrathole->class = CGLOBL; - symrathole->type = t; - - nodrat = new(ONAME, Z, Z); - nodrat->sym = symrathole; - nodrat->type = types[TIND]; - nodrat->etype = TVOID; - nodrat->class = CGLOBL; - complex(nodrat); - nodrat->type = t; - - nodret = new(ONAME, Z, Z); - nodret->sym = slookup(".ret"); - nodret->type = types[TIND]; - nodret->etype = TIND; - nodret->class = CPARAM; - nodret = new(OIND, nodret, Z); - complex(nodret); - - memset(reg, 0, sizeof(reg)); - reg[REGZERO] = 1; -} - -void -gclean(void) -{ - int i; - Sym *s; - - for(i=0; itype->width = nstring; - symrathole->type->width = nrathole; - for(i=0; ilink) { - if(s->type == T) - continue; - if(s->type->width == 0) - continue; - if(s->class != CGLOBL && s->class != CSTATIC) - continue; - if(s->type == types[TENUM]) - continue; - gpseudo(AGLOBL, s, nodconst(s->type->width)); - } - nextpc(); - p->as = AEND; - outcode(); -} - -void -nextpc(void) -{ - - p = alloc(sizeof(*p)); - *p = zprog; - p->lineno = nearln; - pc++; - if(firstp == P) { - firstp = p; - lastp = p; - return; - } - lastp->link = p; - lastp = p; -} - -void -gargs(Node *n, Node *tn1, Node *tn2) -{ - long regs; - Node fnxargs[20], *fnxp; - - regs = cursafe; - - fnxp = fnxargs; - garg1(n, tn1, tn2, 0, &fnxp); /* compile fns to temps */ - - curarg = 0; - fnxp = fnxargs; - garg1(n, tn1, tn2, 1, &fnxp); /* compile normal args and temps */ - - cursafe = regs; -} - -void -garg1(Node *n, Node *tn1, Node *tn2, int f, Node **fnxp) -{ - Node nod; - - if(n == Z) - return; - if(n->op == OLIST) { - garg1(n->left, tn1, tn2, f, fnxp); - garg1(n->right, tn1, tn2, f, fnxp); - return; - } - if(f == 0) { - if(n->complex >= FNX) { - regsalloc(*fnxp, n); - nod = znode; - nod.op = OAS; - nod.left = *fnxp; - nod.right = n; - nod.type = n->type; - cgen(&nod, Z); - (*fnxp)++; - } - return; - } - if(typesu[n->type->etype]) { - regaalloc(tn2, n); - if(n->complex >= FNX) { - sugen(*fnxp, tn2, n->type->width); - (*fnxp)++; - } else - sugen(n, tn2, n->type->width); - return; - } - if(REGARG != NREG && curarg == 0 && - (typechlp[n->type->etype] || typev[n->type->etype])) { - regaalloc1(tn1, n); - if(n->complex >= FNX) { - cgen(*fnxp, tn1); - (*fnxp)++; - } else - cgen(n, tn1); - return; - } - if(vconst(n) == 0) { - regaalloc(tn2, n); - gopcode(OAS, n, Z, tn2); - return; - } - regalloc(tn1, n, Z); - if(n->complex >= FNX) { - cgen(*fnxp, tn1); - (*fnxp)++; - } else - cgen(n, tn1); - regaalloc(tn2, n); - gopcode(OAS, tn1, Z, tn2); - regfree(tn1); -} - -Node* -nodconst(long v) -{ - constnode.vconst = v; - return &constnode; -} - -Node* -nodfconst(double d) -{ - fconstnode.fconst = d; - return &fconstnode; -} - -void -nodreg(Node *n, Node *nn, int reg) -{ - *n = regnode; - n->reg = reg; - n->type = nn->type; - n->lineno = nn->lineno; -} - -void -regret(Node *n, Node *nn) -{ - int r; - - r = REGRET; - if(typefd[nn->type->etype]) - r = FREGRET+NREG; - nodreg(n, nn, r); - reg[r]++; -} - -void -regalloc(Node *n, Node *tn, Node *o) -{ - int i, j; - static int lasti; - - switch(tn->type->etype) { - case TCHAR: - case TUCHAR: - case TSHORT: - case TUSHORT: - case TINT: - case TUINT: - case TLONG: - case TULONG: - case TIND: - case TVLONG: - case TUVLONG: - if(o != Z && o->op == OREGISTER) { - i = o->reg; - if(i >= 0 && i < NREG - 1) - goto out; - } - j = lasti + REGRET+1; - for(i=REGRET+1; i= NREG) - j = REGRET+1; - if(reg[j] == 0) { - i = j; - goto out; - } - j++; - } - diag(tn, "out of fixed registers"); - goto err; - - case TFLOAT: - case TDOUBLE: - if(o != Z && o->op == OREGISTER) { - i = o->reg; - if(i >= NREG && i < NREG+NREG) - goto out; - } - j = NREG + 12 + lasti; - for(i=NREG; i= NREG+NREG) - j = NREG; - if(reg[j] == 0) { - i = j; - goto out; - } - j++; - } - diag(tn, "out of float registers"); - goto err; - } - diag(tn, "unknown type in regalloc: %T", tn->type); -err: - i = -1; -out: - if(i >= 0) - reg[i]++; - lasti++; - if(lasti >= 5) - lasti = 0; - nodreg(n, tn, i); -} - -void -regialloc(Node *n, Node *tn, Node *o) -{ - Node nod; - - nod = *tn; - nod.type = types[TIND]; - regalloc(n, &nod, o); -} - -void -regfree(Node *n) -{ - int i; - - i = 0; - if(n->op != OREGISTER && n->op != OINDREG) - goto err; - i = n->reg; - if(i < 0 || i >= sizeof(reg)) - goto err; - if(reg[i] <= 0) - goto err; - reg[i]--; - return; -err: - diag(n, "error in regfree: %d op %O", i, n->op); -} - -void -regsalloc(Node *n, Node *nn) -{ - cursafe = align(cursafe, nn->type, Aaut3); - maxargsafe = maxround(maxargsafe, cursafe+curarg); - *n = *nodsafe; - n->xoffset = -(stkoff + cursafe); - n->type = nn->type; - n->etype = nn->type->etype; - n->lineno = nn->lineno; -} - -void -regaalloc1(Node *n, Node *nn) -{ - nodreg(n, nn, REGARG); - reg[REGARG]++; - curarg = align(curarg, nn->type, Aarg1); - curarg = align(curarg, nn->type, Aarg2); - maxargsafe = maxround(maxargsafe, cursafe+curarg); -} - -void -regaalloc(Node *n, Node *nn) -{ - curarg = align(curarg, nn->type, Aarg1); - *n = *nn; - n->op = OINDREG; - n->reg = REGSP; - n->xoffset = curarg + SZ_VLONG; - n->complex = 0; - n->addable = 20; - curarg = align(curarg, nn->type, Aarg2); - maxargsafe = maxround(maxargsafe, cursafe+curarg); -} - -void -regind(Node *n, Node *nn) -{ - - if(n->op != OREGISTER) { - diag(n, "regind not OREGISTER"); - return; - } - n->op = OINDREG; - n->type = nn->type; -} - -void -raddr(Node *n, Prog *p) -{ - Adr a; - - naddr(n, &a); - if(a.type == D_CONST && a.offset == 0) { - a.type = D_REG; - a.reg = 0; - } - if(a.type != D_REG && a.type != D_FREG) { - if(n) - diag(n, "bad in raddr: %O", n->op); - else - diag(n, "bad in raddr: "); - p->reg = NREG; - } else - p->reg = a.reg; -} - -void -naddr(Node *n, Adr *a) -{ - vlong v; - - a->type = D_NONE; - if(n == Z) - return; - switch(n->op) { - default: - bad: - diag(n, "bad in naddr: %O", n->op); - break; - - case OREGISTER: - a->type = D_REG; - a->sym = S; - a->reg = n->reg; - if(a->reg >= NREG) { - a->type = D_FREG; - a->reg -= NREG; - } - break; - - case OIND: - naddr(n->left, a); - if(a->type == D_REG) { - a->type = D_OREG; - break; - } - if(a->type == D_CONST) { - a->type = D_OREG; - break; - } - goto bad; - - case OINDREG: - a->type = D_OREG; - a->sym = S; - a->offset = n->xoffset; - a->reg = n->reg; - break; - - case ONAME: - a->etype = n->etype; - a->type = D_OREG; - a->name = D_STATIC; - a->sym = n->sym; - a->offset = n->xoffset; - if(n->class == CSTATIC) - break; - if(n->class == CEXTERN || n->class == CGLOBL) { - a->name = D_EXTERN; - break; - } - if(n->class == CAUTO) { - a->name = D_AUTO; - break; - } - if(n->class == CPARAM) { - a->name = D_PARAM; - break; - } - goto bad; - - case OCONST: - a->sym = S; - a->reg = NREG; - if(typefd[n->type->etype]) { - a->type = D_FCONST; - a->dval = n->fconst; - } else if(typev[n->type->etype]) { - a->type = D_CONST; - a->offset = n->vconst; - } else { - a->type = D_CONST; - a->offset = convvtox(n->vconst, TLONG); /* alpha arithmetic */ - } - break; - - case OADDR: - naddr(n->left, a); - if(a->type == D_OREG) { - a->type = D_CONST; - break; - } - goto bad; - - case OADD: - if(n->left->op == OCONST) { - naddr(n->left, a); - v = a->offset; - naddr(n->right, a); - } else { - naddr(n->right, a); - v = a->offset; - naddr(n->left, a); - } - a->offset += v; - break; - - } -} - -void -fop(int as, int f1, int f2, Node *t) -{ - Node nod1, nod2, nod3; - - nodreg(&nod1, t, NREG+f1); - nodreg(&nod2, t, NREG+f2); - regalloc(&nod3, t, t); - gopcode(as, &nod1, &nod2, &nod3); - gmove(&nod3, t); - regfree(&nod3); -} - -void -gmove(Node *f, Node *t) -{ - int ft, tt, a; - Node nod; - double d; - - ft = f->type->etype; - tt = t->type->etype; - - if(ft == TDOUBLE && f->op == OCONST) { - d = f->fconst; - if(d == 0.0) { - a = FREGZERO; - goto ffreg; - } - if(d == 0.5) { - a = FREGHALF; - goto ffreg; - } - if(d == 1.0) { - a = FREGONE; - goto ffreg; - } - if(d == 2.0) { - a = FREGTWO; - goto ffreg; - } - if(d == -.5) { - fop(OSUB, FREGHALF, FREGZERO, t); - return; - } - if(d == -1.0) { - fop(OSUB, FREGONE, FREGZERO, t); - return; - } - if(d == -2.0) { - fop(OSUB, FREGTWO, FREGZERO, t); - return; - } - if(d == 1.5) { - fop(OADD, FREGONE, FREGHALF, t); - return; - } - if(d == 2.5) { - fop(OADD, FREGTWO, FREGHALF, t); - return; - } - if(d == 3.0) { - fop(OADD, FREGTWO, FREGONE, t); - return; - } - } - if(ft == TFLOAT && f->op == OCONST) { - d = f->fconst; - if(d == 0) { - a = FREGZERO; - ffreg: - nodreg(&nod, f, NREG+a); - gmove(&nod, t); - return; - } - } - /* - * a load -- - * put it into a register then - * worry what to do with it. - */ - if(f->op == ONAME || f->op == OINDREG || f->op == OIND) { - switch(ft) { - default: - a = AMOVL; - break; - case TVLONG: - case TUVLONG: - /* todo: optimise freg case? */ - a = AMOVQ; -#ifdef is_this_right - if(typefd[tt]) { - /* special case can load mem to Freg */ - regalloc(&nod, t, t); - gins(AMOVL, f, &nod); - a = ACVTQT; - if(tt == TFLOAT) - a = ACVTQS; - gins(a, &nod, &nod); - gmove(&nod, t); - regfree(&nod); - return; - } -#endif is_this_right - break; - case TFLOAT: - a = AMOVS; - break; - case TDOUBLE: - a = AMOVT; - break; - case TCHAR: - a = AMOVB; - break; - case TUCHAR: - a = AMOVBU; - break; - case TSHORT: - a = AMOVW; - break; - case TUSHORT: - a = AMOVWU; - break; - } - if(typechlp[ft] && typeilp[tt]) - regalloc(&nod, t, t); - else - regalloc(&nod, f, t); - gins(a, f, &nod); - gmove(&nod, t); - regfree(&nod); - return; - } - - /* - * a store -- - * put it into a register then - * store it. - */ - if(t->op == ONAME || t->op == OINDREG || t->op == OIND) { - switch(tt) { - default: - a = AMOVL; - break; - case TUCHAR: - case TCHAR: - a = AMOVB; - break; - case TUSHORT: - case TSHORT: - a = AMOVW; - break; - case TFLOAT: - a = AMOVS; - break; - case TDOUBLE: - a = AMOVT; - break; - case TVLONG: - case TUVLONG: - a = AMOVQ; - break; - } - if(!typefd[ft] && vconst(f) == 0) { - gins(a, f, t); - return; - } - if(ft == tt) - regalloc(&nod, t, f); - else - regalloc(&nod, t, Z); - gmove(f, &nod); - gins(a, &nod, t); - regfree(&nod); - return; - } - - /* - * type x type cross table - */ - a = AGOK; - switch(ft) { - case TDOUBLE: - case TFLOAT: - switch(tt) { - case TDOUBLE: - a = AMOVT; - break; - case TFLOAT: - a = ACVTTS; - if(ft == TFLOAT) - a = AMOVT; - break; - case TINT: - case TUINT: - case TLONG: - case TULONG: - case TUVLONG: - case TVLONG: - case TIND: - case TSHORT: - case TUSHORT: - case TCHAR: - case TUCHAR: - /*warn(Z, "float to fix"); /**/ - regalloc(&nod, f, Z); /* should be type float */ - gins(ACVTTQ, f, &nod); - gins(AMOVT, &nod, nodrat); - regfree(&nod); - gins(AMOVQ, nodrat, t); - gmove(t, t); - if(nrathole < SZ_VLONG) - nrathole = SZ_VLONG; - return; - } - break; - case TVLONG: - case TUVLONG: - switch(tt) { - case TDOUBLE: - case TFLOAT: - goto fxtofl; - case TINT: - case TUINT: - case TLONG: - case TULONG: - case TIND: - case TSHORT: - case TUSHORT: - case TCHAR: - case TUCHAR: - a = AMOVL; - break; - case TVLONG: - case TUVLONG: - a = AMOVQ; - break; - } - break; - case TINT: - case TUINT: - case TULONG: - case TLONG: - case TIND: - switch(tt) { - case TDOUBLE: - case TFLOAT: - goto fxtofl; - case TVLONG: - case TUVLONG: - if (ft == TULONG || ft == TUINT) { - a = AMOVLU; - break; - } - case TINT: - case TUINT: - case TLONG: - case TULONG: - case TIND: - case TSHORT: - case TUSHORT: - case TCHAR: - case TUCHAR: - a = AMOVQ; - break; - } - break; - case TSHORT: - switch(tt) { - case TDOUBLE: - case TFLOAT: - goto fxtofl; - case TINT: - case TUINT: - case TULONG: - case TLONG: - case TVLONG: - case TUVLONG: - case TIND: - a = AMOVW; - break; - case TSHORT: - case TUSHORT: - case TCHAR: - case TUCHAR: - a = AMOVQ; - break; - } - break; - case TUSHORT: - switch(tt) { - case TDOUBLE: - case TFLOAT: - goto fxtofl; - case TINT: - case TUINT: - case TLONG: - case TULONG: - case TVLONG: - case TUVLONG: - case TIND: - a = AMOVWU; - break; - case TSHORT: - case TUSHORT: - case TCHAR: - case TUCHAR: - a = AMOVQ; - break; - } - break; - case TCHAR: - switch(tt) { - case TDOUBLE: - case TFLOAT: - goto fxtofl; - case TINT: - case TUINT: - case TLONG: - case TULONG: - case TVLONG: - case TUVLONG: - case TIND: - case TSHORT: - case TUSHORT: - a = AMOVB; - break; - case TCHAR: - case TUCHAR: - a = AMOVQ; - break; - } - break; - case TUCHAR: - switch(tt) { - case TDOUBLE: - case TFLOAT: - fxtofl: - /*warn(Z, "fix to float"); /**/ - regalloc(&nod, t, Z); /* should be type float */ - gins(AMOVQ, f, nodrat); - gins(AMOVT, nodrat, &nod); - a = ACVTQT; - if(tt == TFLOAT) - a = ACVTQS; - gins(a, &nod, t); - regfree(&nod); - if(nrathole < SZ_VLONG) - nrathole = SZ_VLONG; - return; - case TINT: - case TUINT: - case TLONG: - case TULONG: - case TVLONG: - case TUVLONG: - case TIND: - case TSHORT: - case TUSHORT: - a = AMOVBU; - break; - case TCHAR: - case TUCHAR: - a = AMOVQ; - break; - } - break; - } - if(a == AMOVQ || a == AMOVS || a == AMOVT) - if(samaddr(f, t)) - return; - gins(a, f, t); -} - -void -gins(int a, Node *f, Node *t) -{ - - nextpc(); - p->as = a; - if(f != Z) - naddr(f, &p->from); - if(t != Z) - naddr(t, &p->to); - if(debug['g']) - print("%P\n", p); -} - -void -gopcode(int o, Node *f1, Node *f2, Node *t) -{ - int a, et; - Adr ta; - Node nod; - - et = TLONG; - if(f1 != Z && f1->type != T) { - if(f1->op == OCONST && t != Z && t->type != T) - et = t->type->etype; - else - et = f1->type->etype; - } - a = AGOK; - switch(o) { - case OAS: - gmove(f1, t); - return; - - case OASADD: - case OADD: - a = AADDL; - if(et == TFLOAT) - a = AADDS; - else - if(et == TDOUBLE) - a = AADDT; - else - if(et == TVLONG || et == TUVLONG) - a = AADDQ; - break; - - case OASSUB: - case OSUB: - a = ASUBL; - if(et == TFLOAT) - a = ASUBS; - else - if(et == TDOUBLE) - a = ASUBT; - else - if(et == TVLONG || et == TUVLONG) - a = ASUBQ; - break; - - case OASOR: - case OOR: - a = AOR; - break; - - case OASAND: - case OAND: - a = AAND; - break; - - case OASXOR: - case OXOR: - a = AXOR; - break; - - case OASLSHR: - case OLSHR: - a = ASRLL; - if(et == TVLONG || et == TUVLONG) - a = ASRLQ; - break; - - case OASASHR: - case OASHR: - a = ASRAL; - if(et == TVLONG || et == TUVLONG) - a = ASRAQ; - break; - - case OASASHL: - case OASHL: - a = ASLLL; - if(et == TVLONG || et == TUVLONG) - a = ASLLQ; - break; - - case OFUNC: - a = AJSR; - break; - - case OASLMUL: - case OLMUL: - case OASMUL: - case OMUL: - a = AMULL; - if(et == TFLOAT) - a = AMULS; - else - if(et == TDOUBLE) - a = AMULT; - else - if(et == TVLONG || et == TUVLONG) - a = AMULQ; - break; - - case OASDIV: - case ODIV: - a = ADIVL; - if(et == TFLOAT) - a = ADIVS; - else - if(et == TDOUBLE) - a = ADIVT; - else - if(et == TVLONG || et == TUVLONG) - a = ADIVQ; - break; - - case OASMOD: - case OMOD: - a = AMODL; - if(et == TVLONG || et == TUVLONG) - a = AMODQ; - break; - - case OASLMOD: - case OLMOD: - a = AMODLU; - if(et == TVLONG || et == TUVLONG) - a = AMODQU; - break; - - case OASLDIV: - case OLDIV: - a = ADIVLU; - if(et == TVLONG || et == TUVLONG) - a = ADIVQU; - break; - - case OEQ: - case ONE: - a = ACMPEQ; - if(typefd[et]) - a = ACMPTEQ; - else if (vconst(t) == 0) { - a = (o == OEQ) ? ABEQ : ABNE; - t = Z; - break; - } - goto cmp; - - case OLT: - case OGE: - a = ACMPGT; - if(typefd[et]) - a = ACMPTGT; - else if (vconst(t) == 0) { - a = (o == OLT) ? ABLT : ABGE; - t = Z; - break; - } - goto cmp; - - case OLE: - case OGT: - a = ACMPGE; - if(typefd[et]) - a = ACMPTGE; - else - if(vconst(t) == 0) { - a = (o == OLE)? ABLE: ABGT; - t = Z; - break; - } - goto cmp; - - case OLO: - case OHS: - a = ACMPUGT; - goto cmp; - - case OLS: - case OHI: - a = ACMPUGE; - goto cmp; - - cmp: - nextpc(); - p->as = a; - raddr(f1, p); - naddr(t, &p->from); - regalloc(&nod, t, Z); - naddr(&nod, &p->to); - if(debug['g']) - print("%P\n", p); - if(o == OEQ || o == OLT || o == OLE || o == OLO || o == OLS) - a = typefd[et]? AFBNE: ABNE; - else - a = typefd[et]? AFBEQ: ABEQ; - nextpc(); - p->as = a; - naddr(&nod, &p->from); - regfree(&nod); - if(debug['g']) - print("%P\n", p); - return; - } - if(a == AGOK) - diag(Z, "bad in gopcode %O", o); - nextpc(); - p->as = a; - if(f1 != Z) - naddr(f1, &p->from); - if(f2 != Z) { - naddr(f2, &ta); - p->reg = ta.reg; - if(ta.type == D_CONST && ta.offset == 0) - p->reg = REGZERO; - } - if(t != Z) - naddr(t, &p->to); - if(debug['g']) - print("%P\n", p); -} - -samaddr(Node *f, Node *t) -{ - - if(f->op != t->op) - return 0; - switch(f->op) { - - case OREGISTER: - if(f->reg != t->reg) - break; - return 1; - } - return 0; -} - -void -gbranch(int o) -{ - int a; - - a = AGOK; - switch(o) { - case ORETURN: - a = ARET; - break; - case OGOTO: - a = AJMP; - break; - } - nextpc(); - if(a == AGOK) { - diag(Z, "bad in gbranch %O", o); - nextpc(); - } - p->as = a; -} - -void -patch(Prog *op, long pc) -{ - - op->to.offset = pc; - op->to.type = D_BRANCH; -} - -void -gpseudo(int a, Sym *s, Node *n) -{ - - nextpc(); - p->as = a; - p->from.type = D_OREG; - p->from.sym = s; - if(a == ATEXT) - p->reg = (profileflg ? 0 : NOPROF); - p->from.name = D_EXTERN; - if(s->class == CSTATIC) - p->from.name = D_STATIC; - naddr(n, &p->to); - if(a == ADATA || a == AGLOBL) - pc--; -} - -int -sconst(Node *n) -{ - vlong vv; - - if(n->op == OCONST) { - if(!typefd[n->type->etype]) { - vv = n->vconst; - if(vv >= -32766LL && vv < 32766LL) - return 1; - } - } - return 0; -} - -int -sval(long v) -{ - if(v >= -32766L && v < 32766L) - return 1; - return 0; -} - -int -bval(vlong v) -{ - - if(v >= 0LL && v < 256LL) - return 1; - return 0; -} - -int -bconst(Node *n) -{ - vlong vv; - - if(n->op == OCONST) { - if(!typefd[n->type->etype]) { - vv = n->vconst; - if(vv >= 0LL && vv < 256LL) - return 1; - } - } - return 0; -} - -long -exreg(Type *t) -{ - long o; - - if(typechlp[t->etype]) { - if(exregoffset <= 12) - return 0; - o = exregoffset; - exregoffset--; - return o; - } - if(typefd[t->etype]) { - if(exfregoffset <= 19) - return 0; - o = exfregoffset + NREG; - exfregoffset--; - return o; - } - return 0; -} - -schar ewidth[NTYPE] = -{ - -1, /* [TXXX] */ - SZ_CHAR, /* [TCHAR] */ - SZ_CHAR, /* [TUCHAR] */ - SZ_SHORT, /* [TSHORT] */ - SZ_SHORT, /* [TUSHORT] */ - SZ_INT, /* [TINT] */ - SZ_INT, /* [TUINT] */ - SZ_LONG, /* [TLONG] */ - SZ_LONG, /* [TULONG] */ - SZ_VLONG, /* [TVLONG] */ - SZ_VLONG, /* [TUVLONG] */ - SZ_FLOAT, /* [TFLOAT] */ - SZ_DOUBLE, /* [TDOUBLE] */ - SZ_IND, /* [TIND] */ - 0, /* [TFUNC] */ - -1, /* [TARRAY] */ - 0, /* [TVOID] */ - -1, /* [TSTRUCT] */ - -1, /* [TUNION] */ - SZ_INT, /* [TENUM] */ -}; - -long ncast[NTYPE] = -{ - 0, /* [TXXX] */ - BCHAR|BUCHAR, /* [TCHAR] */ - BCHAR|BUCHAR, /* [TUCHAR] */ - BSHORT|BUSHORT, /* [TSHORT] */ - BSHORT|BUSHORT, /* [TUSHORT] */ - BINT|BUINT|BLONG|BULONG|BIND, /* [TINT] */ - BINT|BUINT|BLONG|BULONG|BIND, /* [TUINT] */ - BINT|BUINT|BLONG|BULONG|BIND, /* [TLONG] */ - BINT|BUINT|BLONG|BULONG|BIND, /* [TULONG] */ - BVLONG|BUVLONG, /* [TVLONG] */ - BVLONG|BUVLONG, /* [TUVLONG] */ - BFLOAT, /* [TFLOAT] */ - BDOUBLE, /* [TDOUBLE] */ - BLONG|BULONG|BIND, /* [TIND] */ - 0, /* [TFUNC] */ - 0, /* [TARRAY] */ - 0, /* [TVOID] */ - BSTRUCT, /* [TSTRUCT] */ - BUNION, /* [TUNION] */ - 0, /* [TENUM] */ -}; diff --git a/sys/src/cmd/7l/asm.c b/sys/src/cmd/7l/asm.c deleted file mode 100644 index a92ab88b5..000000000 --- a/sys/src/cmd/7l/asm.c +++ /dev/null @@ -1,1220 +0,0 @@ -#include "l.h" - -#define LPUT(c)\ - {\ - cbp[0] = (c);\ - cbp[1] = (c)>>8;\ - cbp[2] = (c)>>16;\ - cbp[3] = (c)>>24;\ - cbp += 4;\ - cbc -= 4;\ - if(cbc <= 0)\ - cflush();\ - } - -#define CPUT(c)\ - {\ - cbp[0] = (c);\ - cbp++;\ - cbc--;\ - if(cbc <= 0)\ - cflush();\ - } - -#define VLPUT(c)\ - {\ - cbp[0] = (c);\ - cbp[1] = (c)>>8;\ - cbp[2] = (c)>>16;\ - cbp[3] = (c)>>24;\ - cbp[4] = (c)>>32;\ - cbp[5] = (c)>>40;\ - cbp[6] = (c)>>48;\ - cbp[7] = (c)>>56;\ - cbp += 8;\ - cbc -= 8;\ - if(cbc <= 0)\ - cflush();\ - } -#define LPUTBE(c)\ - {\ - cbp[0] = (c)>>24;\ - cbp[1] = (c)>>16;\ - cbp[2] = (c)>>8;\ - cbp[3] = (c);\ - cbp += 4;\ - cbc -= 4;\ - if(cbc <= 0)\ - cflush();\ - } - -long -entryvalue(void) -{ - char *a; - Sym *s; - - a = INITENTRY; - if(*a >= '0' && *a <= '9') - return atolwhex(a); - s = lookup(a, 0); - if(s->type == 0) - return INITTEXT; - if(s->type != STEXT && s->type != SLEAF) - diag("entry not text: %s", s->name); - return s->value; -} - -void -asmb(void) -{ - Prog *p; - vlong t; - Optab *o; - - if(debug['v']) - Bprint(&bso, "%5.2f asm\n", cputime()); - Bflush(&bso); - seek(cout, HEADR, 0); - pc = INITTEXT; - for(p = firstp; p != P; p = p->link) { - if(p->as == ATEXT) { - curtext = p; - autosize = p->to.offset + 8; - } - if(p->pc != pc) { - diag("phase error %lux sb %lux", - p->pc, pc); - if(!debug['a']) - prasm(curp); - pc = p->pc; - } - if (p->as == AMOVQ || p->as == AMOVT) { - if ((p->from.reg == REGSP) && (p->from.offset&7) != 0 - || (p->to.reg == REGSP) && (p->to.offset&7) != 0) - diag("bad stack alignment: %P", p); - if ((p->from.reg == REGSB) && (p->from.offset&7) != 0 - || (p->to.reg == REGSB) && (p->to.offset&7) != 0) - diag("bad global alignment: %P", p); - } - curp = p; - o = oplook(p); /* could probably avoid this call */ - if(asmout(p, o)) { - p = p->link; - pc += 4; - } - pc += o->size; - } - if(debug['a']) - Bprint(&bso, "\n"); - Bflush(&bso); - cflush(); - - curtext = P; - switch(HEADTYPE) { - case 0: - seek(cout, rnd(HEADR+textsize, 8192), 0); - break; - case 1: - case 2: - case 3: - seek(cout, HEADR+textsize, 0); - break; - } - for(t = 0; t < datsize; t += sizeof(buf)-100) { - if(datsize-t > sizeof(buf)-100) - datblk(t, sizeof(buf)-100); - else - datblk(t, datsize-t); - } - - symsize = 0; - lcsize = 0; - if(!debug['s']) { - if(debug['v']) - Bprint(&bso, "%5.2f sym\n", cputime()); - Bflush(&bso); - switch(HEADTYPE) { - case 0: - seek(cout, rnd(HEADR+textsize, 8192)+datsize, 0); - break; - case 2: - case 1: - case 3: - seek(cout, HEADR+textsize+datsize, 0); - break; - } - if(!debug['s']) - asmsym(); - if(debug['v']) - Bprint(&bso, "%5.2f pc\n", cputime()); - Bflush(&bso); - if(!debug['s']) - asmlc(); - cflush(); - } - - if(debug['v']) - Bprint(&bso, "%5.2f header\n", cputime()); - Bflush(&bso); - seek(cout, 0L, 0); - switch(HEADTYPE) { - case 0: - lput(0x0183L); /* magic and sections */ - lput(0L); /* time and date */ - vlput(rnd(HEADR+textsize, 8192)+datsize); - lput(symsize); /* nsyms */ - lput(0x50L|(7L<<16)); /* size of optional hdr and flags */ - lput(0413|(0x101L<<16)); /* magic and version */ - lput(-1); /* pad for alignment */ - - vlput(rnd(HEADR+textsize, 8192)); /* sizes */ - vlput(datsize); - vlput(bsssize); - vlput(entryvalue()); /* va of entry */ - vlput(INITTEXT-HEADR); /* va of base of text */ - vlput(INITDAT); /* va of base of data */ - vlput(INITDAT+datsize); /* va of base of bss */ - lput(~0L); /* gp reg mask */ - /* dubious stuff starts here */ - lput(0L); - lput(0L); - lput(0L); - lput(0L); - lput(~0L); /* gp value ?? */ - break; - case 1: - lput(0x0183L); /* magic and sections */ - lput(0L); /* time and date */ - vlput(HEADR+textsize+datsize); - lput(symsize); /* nsyms */ - lput(0x54L|(7L<<16)); /* size of optional hdr and flags */ - lput(0407|(0x101L<<16)); /* magic and version */ - lput(-1); /* pad for alignment */ - - vlput(textsize); /* sizes */ - vlput(datsize); - vlput(bsssize); - vlput(entryvalue()); /* va of entry */ - vlput(INITTEXT); /* va of base of text */ - vlput(INITDAT); /* va of base of data */ - vlput(INITDAT+datsize); /* va of base of bss */ - lput(~0L); /* gp reg mask */ - /* dubious stuff starts here */ - lput(lcsize); - lput(0L); - lput(0L); - lput(0L); - lput(~0L); /* gp value ?? */ - lput(0L); /* complete mystery */ - break; - case 2: - lputbe(0x84b); /* magic */ - lputbe(textsize); /* sizes */ - lputbe(datsize); - lputbe(bsssize); - lputbe(symsize); /* nsyms */ - lputbe(entryvalue()); /* va of entry */ - lputbe(0L); - lputbe(lcsize); - break; - case 3: - /* ``headerless'' boot image -- magic no is a branch */ - lput(0xc3e00007); /* magic (branch) */ - lputbe(textsize); /* sizes */ - lputbe(datsize); - lputbe(bsssize); - lputbe(symsize); /* nsyms */ - lputbe(entryvalue()); /* va of entry */ - lputbe(0L); - lputbe(lcsize); - break; - } - cflush(); -} - -void -lput(long l) -{ - LPUT(l); -} - -void -lputbe(long l) -{ - LPUTBE(l); -} - -void -vlput(vlong l) -{ - VLPUT(l); -} - -void -cflush(void) -{ - int n; - - n = sizeof(buf.cbuf) - cbc; - if(n) - write(cout, buf.cbuf, n); - cbp = buf.cbuf; - cbc = sizeof(buf.cbuf); -} - -void -asmsym(void) -{ - Prog *p; - Auto *a; - Sym *s; - int h; - - s = lookup("etext", 0); - if(s->type == STEXT) - putsymb(s->name, 'T', s->value, s->version); - - for(h=0; hlink) - switch(s->type) { - case SCONST: - putsymb(s->name, 'D', s->value, s->version); - continue; - - case SDATA: - putsymb(s->name, 'D', s->value+INITDAT, s->version); - continue; - - case SBSS: - putsymb(s->name, 'B', s->value+INITDAT, s->version); - continue; - - case SFILE: - putsymb(s->name, 'f', s->value, s->version); - continue; - } - - for(p=textp; p!=P; p=p->cond) { - s = p->from.sym; - if(s->type != STEXT && s->type != SLEAF) - continue; - - /* filenames first */ - for(a=p->to.autom; a; a=a->link) - if(a->type == D_FILE) - putsymb(a->sym->name, 'z', a->offset, 0); - else - if(a->type == D_FILE1) - putsymb(a->sym->name, 'Z', a->offset, 0); - - if(s->type == STEXT) - putsymb(s->name, 'T', s->value, s->version); - else - putsymb(s->name, 'L', s->value, s->version); - - /* frame, auto and param after */ - putsymb(".frame", 'm', p->to.offset+8, 0); - for(a=p->to.autom; a; a=a->link) - if(a->type == D_AUTO) - putsymb(a->sym->name, 'a', -a->offset, 0); - else - if(a->type == D_PARAM) - putsymb(a->sym->name, 'p', a->offset, 0); - } - if(debug['v'] || debug['n']) - Bprint(&bso, "symsize = %lud\n", symsize); - Bflush(&bso); -} - -void -putsymb(char *s, int t, long v, int ver) -{ - int i, f; - - if(t == 'f') - s++; - LPUTBE(v); - if(ver) - t += 'a' - 'A'; - CPUT(t+0x80); /* 0x80 is variable length */ - - if(t == 'Z' || t == 'z') { - CPUT(s[0]); - for(i=1; s[i] != 0 || s[i+1] != 0; i += 2) { - CPUT(s[i]); - CPUT(s[i+1]); - } - CPUT(0); - CPUT(0); - i++; - } - else { - for(i=0; s[i]; i++) - CPUT(s[i]); - CPUT(0); - } - symsize += 4 + 1 + i + 1; - - if(debug['n']) { - if(t == 'z' || t == 'Z') { - Bprint(&bso, "%c %.8lux ", t, v); - for(i=1; s[i] != 0 || s[i+1] != 0; i+=2) { - f = ((s[i]&0xff) << 8) | (s[i+1]&0xff); - Bprint(&bso, "/%x", f); - } - Bprint(&bso, "\n"); - return; - } - if(ver) - Bprint(&bso, "%c %.8lux %s<%d>\n", t, v, s, ver); - else - Bprint(&bso, "%c %.8lux %s\n", t, v, s); - } -} - -#define MINLC 4 -void -asmlc(void) -{ - long oldpc, oldlc; - Prog *p; - long v, s; - - oldpc = INITTEXT; - oldlc = 0; - for(p = firstp; p != P; p = p->link) { - if(p->line == oldlc || p->as == ATEXT || p->as == ANOP) { - if(p->as == ATEXT) - curtext = p; - if(debug['L']) - Bprint(&bso, "%6lux %P\n", - p->pc, p); - continue; - } - if(debug['L']) - Bprint(&bso, "\t\t%6ld", lcsize); - v = (p->pc - oldpc) / MINLC; - while(v) { - s = 127; - if(v < 127) - s = v; - CPUT(s+128); /* 129-255 +pc */ - if(debug['L']) - Bprint(&bso, " pc+%ld*%d(%ld)", s, MINLC, s+128); - v -= s; - lcsize++; - } - s = p->line - oldlc; - oldlc = p->line; - oldpc = p->pc + MINLC; - if(s > 64 || s < -64) { - CPUT(0); /* 0 vv +lc */ - CPUT(s>>24); - CPUT(s>>16); - CPUT(s>>8); - CPUT(s); - if(debug['L']) { - if(s > 0) - Bprint(&bso, " lc+%ld(%d,%ld)\n", - s, 0, s); - else - Bprint(&bso, " lc%ld(%d,%ld)\n", - s, 0, s); - Bprint(&bso, "%6lux %P\n", - p->pc, p); - } - lcsize += 5; - continue; - } - if(s > 0) { - CPUT(0+s); /* 1-64 +lc */ - if(debug['L']) { - Bprint(&bso, " lc+%ld(%ld)\n", s, 0+s); - Bprint(&bso, "%6lux %P\n", - p->pc, p); - } - } else { - CPUT(64-s); /* 65-128 -lc */ - if(debug['L']) { - Bprint(&bso, " lc%ld(%ld)\n", s, 64-s); - Bprint(&bso, "%6lux %P\n", - p->pc, p); - } - } - lcsize++; - } - while(lcsize & 1) { - s = 129; - CPUT(s); - lcsize++; - } - if(debug['v'] || debug['L']) - Bprint(&bso, "lcsize = %ld\n", lcsize); - Bflush(&bso); -} - -void -datblk(long s, long n) -{ - Prog *p; - char *cast; - long l, fl, j, d; - int i, c; - - memset(buf.dbuf, 0, n+100); - for(p = datap; p != P; p = p->link) { - curp = p; - l = p->from.sym->value + p->from.offset - s; - c = p->reg; - i = 0; - if(l < 0) { - if(l+c <= 0) - continue; - while(l < 0) { - l++; - i++; - } - } - if(l >= n) - continue; - if(p->as != AINIT && p->as != ADYNT) { - for(j=l+(c-i)-1; j>=l; j--) - if(buf.dbuf[j]) { - print("%P\n", p); - diag("multiple initialization"); - break; - } - } - switch(p->to.type) { - default: - diag("unknown mode in initialization\n%P", p); - break; - - case D_FCONST: - switch(c) { - default: - case 4: - fl = ieeedtof(p->to.ieee); - cast = (char*)&fl; - for(; ito.ieee; - for(; ito.sval[i]; - l++; - } - break; - - case D_CONST: - d = p->to.offset; - if(p->to.sym) { - if(p->to.sym->type == STEXT || - p->to.sym->type == SLEAF) - d += p->to.sym->value; - if(p->to.sym->type == SDATA) - d += p->to.sym->value + INITDAT; - if(p->to.sym->type == SBSS) - d += p->to.sym->value + INITDAT; - } - cast = (char*)&d; - switch(c) { - default: - diag("bad nuxi %d %d\n%P", c, i, curp); - break; - case 1: - for(; ito.offset >> 32; - for(; itype) { - default: - diag("unknown type %d", o->type); - if(!debug['a']) - prasm(p); - break; - - case 0: /* pseudo ops */ - break; - - case 1: /* register-register moves */ - if(p->as == AMOVB || p->as == AMOVW) /* noop should rewrite */ - diag("forbidden SEX: %P", p); - if(p->as == AMOVBU || p->as == AMOVWU) { - v = 1; - if (p->as == AMOVWU) - v = 3; - o1 = OP_IRR(opcode(AZAPNOT), v, p->from.reg, p->to.reg); - } - else { - a = AOR; - if(p->as == AMOVL) - a = AADDL; - if(p->as == AMOVLU) - a = AEXTLL; - o1 = OP_RRR(opcode(a), REGZERO, p->from.reg, p->to.reg); - } - break; - - case 2: /* r1,[r2],r3 */ - r = p->reg; - if(r == NREG) - r = p->to.reg; - o1 = OP_RRR(opcode(p->as), p->from.reg, r, p->to.reg); - break; - - case 3: /* $n,[r2],r3 */ - v = regoff(&p->from); - r = p->reg; - if(r == NREG) - r = p->to.reg; - o1 = OP_IRR(opcode(p->as), v, r, p->to.reg); - break; - - case 4: /* beq r1,sbra */ - if(p->cond == P) - v = -4 >> 2; - else - v = (p->cond->pc - pc-4) >> 2; - o1 = OP_BR(opcode(p->as), v, p->from.reg); - break; - - case 5: /* jmp [r1],0(r2) */ - r = p->reg; - a = p->as; - if(r == NREG) { - r = o->param; -/* if(a == AJMP && p->to.reg == REGLINK) - a = ARET; /* this breaks the kernel -- maybe we need to clear prediction stack on each context switch... */ - } - o1 = OP_MEM(opcode(a), 0, p->to.reg, r); - break; - - case 6: /* movq $n,r1 and movq $soreg,r1 */ - r = p->from.reg; - if(r == NREG) - r = o->param; - v = regoff(&p->from); - o1 = OP_MEM(opcode(AMOVA), v, r, p->to.reg); - break; - - case 7: /* movbu r1, r2 */ - v = 1; - if (p->as == AMOVWU) - v = 3; - o1 = OP_IRR(opcode(AZAPNOT), v, p->from.reg, p->to.reg); - break; - - case 8: /* mov r, soreg ==> stq o(r) */ - r = p->to.reg; - if(r == NREG) - r = o->param; - v = regoff(&p->to); - if (p->as == AMOVQ || p->as == AMOVT) - if ((r == REGSP || r == REGSB) && (v&7) != 0) - diag("bad alignment: %P", p); - o1 = OP_MEM(opcode(p->as+AEND), v, r, p->from.reg); - break; - - case 9: /* mov soreg, r ==> ldq o(r) */ - r = p->from.reg; - if(r == NREG) - r = o->param; - v = regoff(&p->from); - if (p->as == AMOVQ || p->as == AMOVT) - if ((r == REGSP || r == REGSB) && (v&7) != 0) - diag("bad alignment: %P", p); - o1 = OP_MEM(opcode(p->as), v, r, p->to.reg); - break; - - case 10: /* movb r1,r2 */ - v = 64 - 8; - if (p->as == AMOVW) - v = 64 - 16; - o1 = OP_IRR(opcode(ASLLQ), v, p->from.reg, p->to.reg); - o2 = OP_IRR(opcode(ASRAQ), v, p->to.reg, p->to.reg); - break; - - case 11: /* jmp lbra */ - if(p->cond == P) - v = -4 >> 2; - else - v = (p->cond->pc - pc-4) >> 2; - a = ABR; - r = REGZERO; - if (p->as == AJSR) { - a = ABSR; - r = REGLINK; - } - o1 = OP_BR(opcode(a), v, r); - break; - - case 12: /* addq $n,[r2],r3 ==> lda */ - v = regoff(&p->from); - if (p->as == ASUBQ) - v = -v; - r = p->reg; - if(r == NREG) - r = p->to.reg; - o1 = OP_MEM(opcode(AMOVA), v, r, p->to.reg); - break; - - case 13: /* $scon,[r2],r3 */ - v = regoff(&p->from); - if(p->to.reg == REGTMP || p->reg == REGTMP) - diag("cant synthesize large constant\n%P", p); - r = p->reg; - if(r == NREG) - r = p->to.reg; - o1 = OP_MEM(opcode(AMOVA), v, REGZERO, REGTMP); - o2 = OP_RRR(opcode(p->as), REGTMP, r, p->to.reg); - break; - - case 14: /* $lcon,[r2],r3 */ - v = regoff(&p->from); - if(v & 0x8000) - v += 0x10000; - if(p->to.reg == REGTMP || p->reg == REGTMP) - diag("cant synthesize large constant\n%P", p); - r = p->reg; - if(r == NREG) - r = p->to.reg; - o1 = OP_MEM(opcode(AMOVA), v, REGZERO, REGTMP); - o2 = OP_MEM(opcode(AMOVAH), v>>16, REGTMP, REGTMP); - o3 = OP_RRR(opcode(p->as), REGTMP, r, p->to.reg); - break; - - case 15: /* mov $lcon,r1 */ - v = regoff(&p->from); - if(v & 0x8000) - v += 0x10000; - o1 = OP_MEM(opcode(AMOVA), v, o->param, REGTMP); - o2 = OP_MEM(opcode(AMOVAH), v>>16, REGTMP, p->to.reg); - break; - - case 16: /* mov $qcon,r1 */ - v = regoff(&p->from); - if(v & 0x8000) - v += 0x10000; - if((v>>31)&1) - v += (1LL<<32); - if((v>>47)&1) - v += (1LL<<48); - o1 = OP_MEM(opcode(AMOVA), v>>32, o->param, REGTMP); - o2 = OP_MEM(opcode(AMOVAH), v>>48, REGTMP, REGTMP); - o3 = OP_IRR(opcode(ASLLQ), 32, REGTMP, REGTMP); - o4 = OP_MEM(opcode(AMOVA), v, REGTMP, REGTMP); - o5 = OP_MEM(opcode(AMOVAH), v>>16, REGTMP, p->to.reg); - break; - - case 17: /* mov f1,f2 ==> fcpys f1,f1,f2 */ - o1 = OP_RRR(opcode(ACPYS), p->from.reg, p->from.reg, p->to.reg); - break; - - case 18: /* call_pal imm */ - v = regoff(&p->from); - o1 = OP_MEM(opcode(ACALL_PAL), v, 0, 0); - break; - - case 19: /* mov r, loreg ==> ldah,stq */ - r = p->to.reg; - if(r == NREG) - r = o->param; - v = regoff(&p->to); - if (p->as == AMOVQ || p->as == AMOVT) - if ((r == REGSP || r == REGSB) && (v&7) != 0) - diag("bad alignment: %P", p); - if(v & 0x8000) - v += 0x10000; - o1 = OP_MEM(opcode(AMOVAH), v>>16, r, REGTMP); - o2 = OP_MEM(opcode(p->as+AEND), v, REGTMP, p->from.reg); - break; - - case 20: /* mov loreg, r ==> ldah,ldq */ - r = p->from.reg; - if(r == NREG) - r = o->param; - v = regoff(&p->from); - if (p->as == AMOVQ || p->as == AMOVT) - if ((r == REGSP || r == REGSB) && (v&7) != 0) - diag("bad alignment: %P", p); - if(v & 0x8000) - v += 0x10000; - o1 = OP_MEM(opcode(AMOVAH), v>>16, r, REGTMP); - o2 = OP_MEM(opcode(p->as), v, REGTMP, p->to.reg); - break; - -#ifdef NEVER - case 21: /* mov r1,$qoreg */ - r = p->to.reg; - if(r == NREG) - r = o->param; - v = regoff(&p->to); - if(v & 0x8000) - v += 0x10000; - if((v>>31)&1) - v += (1LL<<32); - if((v>>47)&1) - v += (1LL<<48); - o1 = OP_MEM(opcode(AMOVA), v>>32, r, REGTMP); - o2 = OP_MEM(opcode(AMOVAH), v>>48, REGTMP, REGTMP); - o3 = OP_IRR(opcode(ASLLQ), 32, REGTMP, REGTMP); - o4 = OP_MEM(opcode(AMOVAH), v>>16, REGTMP, REGTMP); - o5 = OP_MEM(opcode(p->as+AEND), v, REGTMP, p->from.reg); - break; - - case 22: /* mov $qoreg,r1 */ - r = p->from.reg; - if(r == NREG) - r = o->param; - v = regoff(&p->from); - if(v & 0x8000) - v += 0x10000; - if((v>>31)&1) - v += (1LL<<32); - if((v>>47)&1) - v += (1LL<<48); - o1 = OP_MEM(opcode(AMOVA), v>>32, r, REGTMP); - o2 = OP_MEM(opcode(AMOVAH), v>>48, REGTMP, REGTMP); - o3 = OP_IRR(opcode(ASLLQ), 32, REGTMP, REGTMP); - o4 = OP_MEM(opcode(AMOVAH), v>>16, REGTMP, REGTMP); - o5 = OP_MEM(opcode(p->as), v, REGTMP, p->to.reg); - break; -#endif - - case 23: /* $qcon,r1 */ - if(p->to.reg == REGTMP || p->reg == REGTMP) - diag("cant synthesize large constant\n%P", p); - v = regoff(&p->from); - r = p->reg; - if(r == NREG) - r = p->to.reg; - if(v & 0x8000) - v += 0x10000; - if((v>>31)&1) - v += (1LL<<32); - if((v>>47)&1) - v += (1LL<<48); - o1 = OP_MEM(opcode(AMOVA), v>>32, REGZERO, REGTMP); - o2 = OP_MEM(opcode(AMOVAH), v>>48, REGTMP, REGTMP); - o3 = OP_IRR(opcode(ASLLQ), 32, REGTMP, REGTMP); - o4 = OP_MEM(opcode(AMOVA), v, REGTMP, REGTMP); - o5 = OP_MEM(opcode(AMOVAH), v>>16, REGTMP, REGTMP); - o6 = OP_RRR(opcode(p->as), REGTMP, r, p->to.reg); - break; - - case 24: /* movq Fn, FPCR */ - r = p->from.reg; - o1 = OP_RRR(opcode(AADDT+AEND), r, r, r); - break; - - case 25: /* movq FPCR, Fn */ - r = p->to.reg; - o1 = OP_RRR(opcode(AADDS+AEND), r, r, r); - break; - - case 26: /* movq Rn, C_PREG */ - r = p->from.reg; - o1 = OP_RRR(opcode(ASUBQ+AEND), r, r, 0) | p->to.reg & 255; - break; - - case 27: /* movq C_PREG, Rn */ - r = p->to.reg; - o1 = OP_RRR(opcode(AADDQ+AEND), r, r, 0) | p->from.reg & 255; - break; - - case 28: /* cvttq r1,r3 */ - r = p->from.reg; - o1 = OP_RRR(opcode(p->as), r, REGZERO, p->to.reg); - break; - - case 29: /* movq pcc, rpcc -> Rn */ - o1 = OP_MEM(opcode(ARPCC), 0, REGZERO, p->to.reg); - break; - - case 30: /* rei/mb/trapb */ - o1 = OP_MEM(opcode(p->as), 0, REGZERO, REGZERO); - break; - - case 31: /* fetch (Rn) */ - o1 = OP_MEM(opcode(p->as), 0, REGZERO, p->from.reg); - break; - - case 32: /* movqp r, soreg ==> stqp o(r) */ - r = p->to.reg; - if(r == NREG) - r = o->param; - v = regoff(&p->to); - if (v < -0x800 || v >= 0x800) - diag("physical store out of range\n%P", p); - v &= 0xfff; - o1 = OP_MEM(opcode(p->as+AEND), v, r, p->from.reg); - break; - - case 33: /* movqp soreg, r ==> ldqp o(r) */ - r = p->from.reg; - if(r == NREG) - r = o->param; - v = regoff(&p->from); - if (v < -0x800 || v >= 0x800) - diag("physical load out of range\n%P", p); - v &= 0xfff; - o1 = OP_MEM(opcode(p->as), v, r, p->to.reg); - break; - - case 34: /* $-n,[r2],r3 */ - v = regoff(&p->from); - r = p->reg; - if(r == NREG) - r = p->to.reg; - switch (a = p->as) { - case AAND: - a = AANDNOT; - break; - case AANDNOT: - a = AAND; - break; - case AOR: - a = AORNOT; - break; - case AORNOT: - a = AOR; - break; - case AXOR: - a = AXORNOT; - break; - case AXORNOT: - a = AXOR; - break; - default: - diag("bad in NCON case: %P", p); - } - v = ~v; - o1 = OP_IRR(opcode(a), v, r, p->to.reg); - break; - - case 40: /* word */ - o1 = regoff(&p->to); - break; - - } - switch(o->size) { - default: - if(debug['a']) - Bprint(&bso, " %.8lux:\t\t%P\n", p->pc, p); - break; - case 4: - if(debug['a']) - Bprint(&bso, " %.8lux: %.8lux\t%P\n", p->pc, o1, p); - LPUT(o1); - break; - case 8: - if(debug['a']) - Bprint(&bso, " %.8lux: %.8lux %.8lux %P\n", p->pc, o1, o2, p); - LPUT(o1); - LPUT(o2); - break; - case 12: - if(debug['a']) - Bprint(&bso, " %.8lux: %.8lux %.8lux %.8lux %P\n", p->pc, o1, o2, o3, p); - LPUT(o1); - LPUT(o2); - LPUT(o3); - break; - case 16: - if(debug['a']) - Bprint(&bso, " %.8lux: %.8lux %.8lux %.8lux %.8lux %P\n", - p->pc, o1, o2, o3, o4, p); - LPUT(o1); - LPUT(o2); - LPUT(o3); - LPUT(o4); - break; - case 20: - if(debug['a']) - Bprint(&bso, " %.8lux: %.8lux %.8lux %.8lux %.8lux %.8lux %P\n", - p->pc, o1, o2, o3, o4, o5, p); - LPUT(o1); - LPUT(o2); - LPUT(o3); - LPUT(o4); - LPUT(o5); - break; - case 24: - if(debug['a']) - Bprint(&bso, " %.8lux: %.8lux %.8lux %.8lux %.8lux %.8lux %.8lux %P\n", - p->pc, o1, o2, o3, o4, o5, o6, p); - LPUT(o1); - LPUT(o2); - LPUT(o3); - LPUT(o4); - LPUT(o5); - LPUT(o6); - break; - } - return 0; -} - -#define OP(x,y) (((x)<<26)|((y)<<5)) -#define FP(x) OP(22, (x)|0xc0) /* note: this sets round/trap modes (dynamic, software?). not used for cvtxx? */ -#define FP2(x) OP(22, (x) /*|0x080*/) /* note: this sets round/trap modes (chopped, software?). used for cvtxx? */ -#define FP3(x) OP(22, (x)|0x080) /* note: this sets round/trap modes (dynamic, software?). not used for cvtxx? */ - -long -opcode(int a) -{ - switch (a) { - /* loads */ - case AMOVB: /* misnomer; pretend it's ok for now */ -diag("opcode(AMOVB)"); - case AMOVBU: return OP(10, 0); /* v 3 */ - case AMOVW: /* misnomer; pretend it's ok for now */ -diag("opcode(AMOVW)"); - case AMOVWU: return OP(12, 0); /* v 3 */ - case AMOVL: return OP(40, 0); - case AMOVQ: return OP(41, 0); - case AMOVQU: return OP(11, 0); - case AMOVS: return OP(34, 0); - case AMOVT: return OP(35, 0); - - /* stores */ - case AMOVB+AEND: /* misnomer; pretend it's ok for now */ - case AMOVBU+AEND: return OP(14, 0); /* v 3 */ - case AMOVW+AEND: /* misnomer; pretend it's ok for now */ - case AMOVWU+AEND: return OP(13, 0); /* v 3 */ - case AMOVL+AEND: return OP(44, 0); - case AMOVQ+AEND: return OP(45, 0); - case AMOVQU+AEND: return OP(15, 0); - case AMOVS+AEND: return OP(38, 0); - case AMOVT+AEND: return OP(39, 0); - - /* physical */ - case AMOVLP+AEND: return OP(31, 0)|0x8000; - case AMOVQP+AEND: return OP(31, 0)|0x9000; - case AMOVLP: return OP(27, 0)|0x8000; - case AMOVQP: return OP(27, 0)|0x9000; - - /* load address */ - case AMOVA: return OP(8, 0); - case AMOVAH: return OP(9, 0); - - /* locking */ - case AMOVLL: return OP(42, 0); /* load locked */ - case AMOVQL: return OP(43, 0); /* load locked */ - case AMOVLC+AEND: return OP(46, 0); /* store cond */ - case AMOVQC+AEND: return OP(47, 0); /* store cond */ - - case AADDL: return OP(16, 0); - case AADDLV: return OP(16, 64); - case AADDQ: return OP(16, 32); - case AADDQV: return OP(16, 96); - case AS4ADDL: return OP(16, 2); - case AS4ADDQ: return OP(16, 34); - case AS8ADDL: return OP(16, 18); - case AS8ADDQ: return OP(16, 50); - case AS4SUBL: return OP(16, 11); - case AS4SUBQ: return OP(16, 43); - case AS8SUBL: return OP(16, 27); - case AS8SUBQ: return OP(16, 59); - case ASUBL: return OP(16, 9); - case ASUBLV: return OP(16, 73); - case ASUBQ: return OP(16, 41); - case ASUBQV: return OP(16, 105); - case ACMPEQ: return OP(16, 45); - case ACMPGT: return OP(16, 77); - case ACMPGE: return OP(16, 109); - case ACMPUGT: return OP(16, 29); - case ACMPUGE: return OP(16, 61); - case ACMPBLE: return OP(16, 15); - - case AAND: return OP(17, 0); - case AANDNOT: return OP(17, 8); - case AOR: return OP(17, 32); - case AORNOT: return OP(17, 40); - case AXOR: return OP(17, 64); - case AXORNOT: return OP(17, 72); - - case ACMOVEQ: return OP(17, 36); - case ACMOVNE: return OP(17, 38); - case ACMOVLT: return OP(17, 68); - case ACMOVGE: return OP(17, 70); - case ACMOVLE: return OP(17, 100); - case ACMOVGT: return OP(17, 102); - case ACMOVLBS: return OP(17, 20); - case ACMOVLBC: return OP(17, 22); - - case AMULL: return OP(19, 0); - case AMULQ: return OP(19, 32); - case AMULLV: return OP(19, 64); - case AMULQV: return OP(19, 96); - case AUMULH: return OP(19, 48); - - case ASLLQ: return OP(18, 57); - case ASRLQ: return OP(18, 52); - case ASRAQ: return OP(18, 60); - - case AEXTBL: return OP(18, 6); - case AEXTWL: return OP(18, 22); - case AEXTLL: return OP(18, 38); - case AEXTQL: return OP(18, 54); - case AEXTWH: return OP(18, 90); - case AEXTLH: return OP(18, 106); - case AEXTQH: return OP(18, 122); - - case AINSBL: return OP(18, 11); - case AINSWL: return OP(18, 27); - case AINSLL: return OP(18, 43); - case AINSQL: return OP(18, 59); - case AINSWH: return OP(18, 87); - case AINSLH: return OP(18, 103); - case AINSQH: return OP(18, 119); - - case AMSKBL: return OP(18, 2); - case AMSKWL: return OP(18, 18); - case AMSKLL: return OP(18, 34); - case AMSKQL: return OP(18, 50); - case AMSKWH: return OP(18, 82); - case AMSKLH: return OP(18, 98); - case AMSKQH: return OP(18, 114); - - case AZAP: return OP(18, 48); - case AZAPNOT: return OP(18, 49); - - case AJMP: return OP(26, 0); - case AJSR: return OP(26, 512); - case ARET: return OP(26, 1024); - - case ABR: return OP(48, 0); - case ABSR: return OP(52, 0); - - case ABEQ: return OP(57, 0); - case ABNE: return OP(61, 0); - case ABLT: return OP(58, 0); - case ABGE: return OP(62, 0); - case ABLE: return OP(59, 0); - case ABGT: return OP(63, 0); - case ABLBC: return OP(56, 0); - case ABLBS: return OP(60, 0); - - case AFBEQ: return OP(49, 0); - case AFBNE: return OP(53, 0); - case AFBLT: return OP(50, 0); - case AFBGE: return OP(54, 0); - case AFBLE: return OP(51, 0); - case AFBGT: return OP(55, 0); - - case ATRAPB: return OP(24, 0); - case AMB: return OP(24, 0x200); - case AFETCH: return OP(24, 0x400); - case AFETCHM: return OP(24, 0x500); - case ARPCC: return OP(24, 0x600); - - case ACPYS: return OP(23, 32); - case ACPYSN: return OP(23, 33); - case ACPYSE: return OP(23, 34); - case AADDS+AEND: return OP(23, 37); /* MF_FPCR */ - case AADDT+AEND: return OP(23, 36); /* MT_FPCR */ - case ACVTLQ: return OP(23, 16); - case ACVTQL: return OP(23, 48); /* XXX trap mode */ - case AFCMOVEQ: return OP(23, 42); - case AFCMOVNE: return OP(23, 43); - case AFCMOVLT: return OP(23, 44); - case AFCMOVGE: return OP(23, 45); - case AFCMOVLE: return OP(23, 46); - case AFCMOVGT: return OP(23, 47); - - case AADDS: return FP(0); - case AADDT: return FP(32); - case ACMPTEQ: return FP3(37); - case ACMPTGT: return FP3(38); - case ACMPTGE: return FP3(39); - case ACMPTUN: return FP3(36); - - case ACVTQS: return FP2(60); - case ACVTQT: return FP2(62); - case ACVTTS: return FP2(44); - case ACVTTQ: return FP2(47); - - case ADIVS: return FP(3); - case ADIVT: return FP(35); - case AMULS: return FP(2); - case AMULT: return FP(34); - case ASUBS: return FP(1); - case ASUBT: return FP(33); - - case ACALL_PAL: return 0; - case AREI: return OP(30, 0x400); /* HW_REI */ - - case AADDQ+AEND: return OP(25,0); /* HW_MFPR */ - case ASUBQ+AEND: return OP(29,0); /* HW_MTPR */ - } - diag("bad op %A(%d)", a, a); - return 0; -} - diff --git a/sys/src/cmd/7l/compat.c b/sys/src/cmd/7l/compat.c deleted file mode 100644 index 1d9f89e43..000000000 --- a/sys/src/cmd/7l/compat.c +++ /dev/null @@ -1,56 +0,0 @@ -#include "l.h" - -/* - * fake malloc - */ -void* -malloc(ulong n) -{ - void *p; - - while(n & 7) - n++; - while(nhunk < n) - gethunk(); - p = hunk; - nhunk -= n; - hunk += n; - return p; -} - -void -free(void *p) -{ - USED(p); -} - -void* -calloc(ulong m, ulong n) -{ - void *p; - - n *= m; - p = malloc(n); - memset(p, 0, n); - return p; -} - -void* -realloc(void *p, ulong n) -{ - fprint(2, "realloc(0x%p %ld) called\n", p, n); - abort(); - return 0; -} - -void* -mysbrk(ulong size) -{ - return sbrk(size); -} - -void -setmalloctag(void *v, uintptr pc) -{ - USED(v, pc); -} diff --git a/sys/src/cmd/7l/l.h b/sys/src/cmd/7l/l.h deleted file mode 100644 index e5f853c82..000000000 --- a/sys/src/cmd/7l/l.h +++ /dev/null @@ -1,316 +0,0 @@ -#include -#include -#include -#include "../7c/7.out.h" - -typedef struct Adr Adr; -typedef struct Sym Sym; -typedef struct Autom Auto; -typedef struct Prog Prog; -typedef struct Optab Optab; -typedef struct Oprang Oprang; -typedef uchar Opcross[32][2][32]; -typedef struct Count Count; - -#define P ((Prog*)0) -#define S ((Sym*)0) -#define TNAME (curtext&&curtext->from.sym?curtext->from.sym->name:noname) - -struct Adr -{ - union - { - vlong offset; - char* sval; - Ieee* ieee; - }; - union - { - Auto* autom; - Sym* sym; - }; - char type; - char reg; - char name; - char class; -}; -struct Prog -{ - Adr from; - Adr to; - union - { - long regused; - Prog* forwd; - }; - Prog* cond; - Prog* link; - long pc; - long line; - uchar mark; - uchar optab; - uchar as; - char reg; -}; -struct Sym -{ - char *name; - short type; - short version; - short become; - short frame; - long value; - Sym* link; -}; -struct Autom -{ - Sym* sym; - Auto* link; - long offset; - short type; -}; -struct Optab -{ - uchar as; - char a1; - char a2; - char a3; - char type; - char size; - char param; -}; -struct Oprang -{ - Optab* start; - Optab* stop; -}; -struct Count -{ - long count; - long outof; -}; - -enum -{ - STEXT = 1, - SDATA, - SBSS, - SDATA1, - SXREF, - SLEAF, - SFILE, - SCONST, - - C_NONE = 0, - C_REG, - C_FREG, - C_FCREG, - C_PREG, - C_PCC, - C_ZCON, - C_BCON, - C_NCON, - C_SCON, - C_UCON, - C_LCON, - C_QCON, - C_SACON, - C_SECON, - C_LACON, - C_LECON, - C_SBRA, - C_LBRA, - C_SAUTO, - C_SEXT, - C_LAUTO, - C_LEXT, - C_ZOREG, - C_SOREG, - C_LOREG, - C_GOK, - - NSCHED = 20, - -/* mark flags */ - FOLL = 1<<0, - LABEL = 1<<1, - LEAF = 1<<2, - SYNC = 1<<3, - BRANCH = 1<<4, - LABEL2 = 1<<5, - COMPARE = 1<<6, - NOSCHED = 1<<7, - - BIG = 32760, - STRINGSZ = 200, - NHASH = 10007, - NHUNK = 100000, - MINSIZ = 64, - NENT = 100, - MAXIO = 8192, - MAXHIST = 20, /* limit of path elements for history symbols */ -}; - -union -{ - struct - { - uchar cbuf[MAXIO]; /* output buffer */ - uchar xbuf[MAXIO]; /* input buffer */ - }; - char dbuf[1]; -} buf; - -long HEADR; /* length of header */ -int HEADTYPE; /* type of header */ -long INITDAT; /* data location */ -long INITRND; /* data round above text location */ -long INITTEXT; /* text location */ -char* INITENTRY; /* entry point */ -long autosize; -Biobuf bso; -long bsssize; -int cbc; -uchar* cbp; -int cout; -Auto* curauto; -Auto* curhist; -Prog* curp; -Prog* curtext; -Prog* datap; -long datsize; -char debug[128]; -Prog* etextp; -Prog* firstp; -char fnuxi8[8]; -char* noname; -Sym* hash[NHASH]; -Sym* histfrog[MAXHIST]; -int histfrogp; -int histgen; -char* library[50]; -char* libraryobj[50]; -int libraryp; -int xrefresolv; -char* hunk; -char inuxi1[1]; -char inuxi2[2]; -char inuxi4[4]; -Prog* lastp; -long lcsize; -char literal[32]; -int nerrors; -long nhunk; -vlong offset; -Opcross opcross[7]; -Oprang oprange[ALAST]; -char* outfile; -long pc; -Prog *prog_divq; -Prog *prog_divqu; -Prog *prog_modq; -Prog *prog_modqu; -Prog *prog_divl; -Prog *prog_divlu; -Prog *prog_modl; -Prog *prog_modlu; -uchar repop[ALAST]; -long symsize; -Prog* textp; -long textsize; -long thunk; -int version; -char xcmp[32][32]; -Prog zprg; -int dtype; - -extern char* anames[]; -extern Optab optab[]; - -#pragma varargck type "A" int -#pragma varargck type "A" uint -#pragma varargck type "D" Adr* -#pragma varargck type "N" Adr* -#pragma varargck type "P" Prog* -#pragma varargck type "S" char* - -#pragma varargck argpos diag 1 - -int Aconv(Fmt*); -int Dconv(Fmt*); -int Nconv(Fmt*); -int Pconv(Fmt*); -int Sconv(Fmt*); -int aclass(Adr*); -void addhist(long, int); -void addnop(Prog*); -void append(Prog*, Prog*); -void asmb(void); -void asmlc(void); -int asmout(Prog*, Optab*); -void asmsym(void); -long atolwhex(char*); -Prog* brloop(Prog*); -Biobuf bso; -void buildop(void); -void buildrep(int, int); -void cflush(void); -int cmp(int, int); -int compound(Prog*); -int conflict(long, long); -double cputime(void); -void datblk(long, long); -int depend(long, long); -void diag(char*, ...); -Prog *divsubr(int); -void dodata(void); -void doprof1(void); -void doprof2(void); -long entryvalue(void); -void errorexit(void); -void exchange(Prog*); -int find1(long, int); -void follow(void); -Prog *genXXX(Prog *, int, Adr*, int, Adr*); -Prog *genRRR(Prog *, int, int, int, int); -Prog *genIRR(Prog *, int, vlong, int, int); -Prog *genstore(Prog *, int, int, vlong, int); -Prog *genload(Prog *, int, vlong, int, int); -Prog *genjmp(Prog *, int, vlong, int); -void gethunk(void); -void histtoauto(void); -double ieeedtod(Ieee*); -long ieeedtof(Ieee*); -void initdiv(void); -void ldobj(int, long, char*); -void loadlib(void); -void listinit(void); -Sym* lookup(char*, int); -void lput(long); -void lputbe(long); -void mkfwd(void); -void* mysbrk(ulong); -void names(void); -void nocache(Prog*); -void noops(void); -void nuxiinit(void); -void objfile(char*); -int ocmp(void*, void*); -long opcode(int); -Optab* oplook(Prog*); -void patch(void); -void prasm(Prog*); -void prepend(Prog*, Prog*); -Prog* prg(void); -int pseudo(Prog*); -void putsymb(char*, int, long, int); -vlong regoff(Adr*); -long regused(Prog*); -int relinv(int); -long rnd(long, long); -void sched(Prog*, Prog*); -void span(void); -void vlput(vlong); -void undef(void); -void xdefine(char*, int, long); -void xfol(Prog*); diff --git a/sys/src/cmd/7l/list.c b/sys/src/cmd/7l/list.c deleted file mode 100644 index c2dc9da3f..000000000 --- a/sys/src/cmd/7l/list.c +++ /dev/null @@ -1,246 +0,0 @@ -#include "l.h" - -void -listinit(void) -{ - - fmtinstall('A', Aconv); - fmtinstall('D', Dconv); - fmtinstall('P', Pconv); - fmtinstall('S', Sconv); - fmtinstall('N', Nconv); -} - -void -prasm(Prog *p) -{ - print("%P\n", p); -} - -int -Pconv(Fmt *fp) -{ - char str[STRINGSZ]; - Prog *p; - int a; - - p = va_arg(fp->args, Prog*); - curp = p; - a = p->as; - if(a == ADATA) - snprint(str, sizeof str, "(%ld) %A %D/%d,%D", - p->line, a, &p->from, p->reg, &p->to); - else - if(p->reg == NREG) - snprint(str, sizeof str, "(%ld) %A %D,%D", - p->line, a, &p->from, &p->to); - else - if(p->from.type != D_FREG) - snprint(str, sizeof str, "(%ld) %A %D,R%d,%D", - p->line, a, &p->from, p->reg, &p->to); - else - snprint(str, sizeof str, "(%ld) %A %D,F%d,%D", - p->line, a, &p->from, p->reg, &p->to); - return fmtstrcpy(fp, str); -} - -int -Aconv(Fmt *fp) -{ - char *s; - int a; - - a = va_arg(fp->args, int); - s = "???"; - if(a >= AXXX && a <= AEND) - s = anames[a]; - return fmtstrcpy(fp, s); -} - -int -Dconv(Fmt *fp) -{ - char str[STRINGSZ]; - Adr *a; - long v; - - a = va_arg(fp->args, Adr*); - switch(a->type) { - - default: - snprint(str, sizeof str, "GOK-type(%d)", a->type); - break; - - case D_NONE: - str[0] = 0; - if(a->name != D_NONE || a->reg != NREG || a->sym != S) - snprint(str, sizeof str, "%N(R%d)(NONE)", a, a->reg); - break; - - case D_CONST: - snprint(str, sizeof str, "$%N", a); - if(a->reg != NREG) - snprint(str, sizeof str, "%N(R%d)(CONST)", a, a->reg); - break; - - case D_OREG: - if(a->reg != NREG) - snprint(str, sizeof str, "%N(R%d)", a, a->reg); - else - snprint(str, sizeof str, "%N", a); - break; - - case D_REG: - snprint(str, sizeof str, "R%d", a->reg); - if(a->name != D_NONE || a->sym != S) - snprint(str, sizeof str, "%N(R%d)(REG)", a, a->reg); - break; - - case D_PREG: - snprint(str, sizeof str, "P%d", a->reg & 255); - if(a->name != D_NONE || a->sym != S) - snprint(str, sizeof str, "%N(R%d)(PREG)", a, a->reg); - break; - - case D_FREG: - snprint(str, sizeof str, "F%d", a->reg); - if(a->name != D_NONE || a->sym != S) - snprint(str, sizeof str, "%N(R%d)(FREG)", a, a->reg); - break; - - case D_FCREG: - snprint(str, sizeof str, "FPCR"); - if(a->name != D_NONE || a->sym != S) - snprint(str, sizeof str, "%N(R%d)(FCREG)", a, a->reg); - break; - - case D_BRANCH: /* botch */ - if(curp->cond != P) { - v = curp->cond->pc; - if(v >= INITTEXT) - v -= INITTEXT-HEADR; - if(a->sym != S) - snprint(str, sizeof str, "%s+%.5lux(BRANCH)", a->sym->name, v); - else - snprint(str, sizeof str, "%.5lux(BRANCH)", v); - } else - if(a->sym != S) - snprint(str, sizeof str, "%s+%lld(APC)", a->sym->name, a->offset); - else - snprint(str, sizeof str, "%lld(APC)", a->offset); - break; - - case D_FCONST: - snprint(str, sizeof str, "$%e", ieeedtod(a->ieee)); - break; - - case D_SCONST: - snprint(str, sizeof str, "$\"%S\"", a->sval); - break; - } - return fmtstrcpy(fp, str); -} - -int -Nconv(Fmt *fp) -{ - char str[STRINGSZ]; - Adr *a; - Sym *s; - - a = va_arg(fp->args, Adr*); - s = a->sym; - if(s == S) { - snprint(str, sizeof str, "%lld", a->offset); - goto out; - } - switch(a->name) { - default: - snprint(str, sizeof str, "GOK-name(%d)", a->name); - break; - - case D_NONE: - snprint(str, sizeof str, "%lld", a->offset); - break; - - case D_EXTERN: - snprint(str, sizeof str, "%s+%lld(SB)", s->name, a->offset); - break; - - case D_STATIC: - snprint(str, sizeof str, "%s<>+%lld(SB)", s->name, a->offset); - break; - - case D_AUTO: - snprint(str, sizeof str, "%s-%lld(SP)", s->name, -a->offset); - break; - - case D_PARAM: - snprint(str, sizeof str, "%s+%lld(FP)", s->name, a->offset); - break; - } -out: - return fmtstrcpy(fp, str); -} - -int -Sconv(Fmt *fp) -{ - int i, c; - char str[STRINGSZ], *p, *a; - - a = va_arg(fp->args, char*); - p = str; - for(i=0; i= 'a' && c <= 'z' || - c >= 'A' && c <= 'Z' || - c >= '0' && c <= '9' || - c == ' ' || c == '%') { - *p++ = c; - continue; - } - *p++ = '\\'; - switch(c) { - case 0: - *p++ = 'z'; - continue; - case '\\': - case '"': - *p++ = c; - continue; - case '\n': - *p++ = 'n'; - continue; - case '\t': - *p++ = 't'; - continue; - } - *p++ = (c>>6) + '0'; - *p++ = ((c>>3) & 7) + '0'; - *p++ = (c & 7) + '0'; - } - *p = 0; - return fmtstrcpy(fp, str); -} - -void -diag(char *fmt, ...) -{ - char buf[STRINGSZ], *tn; - va_list arg; - - tn = "??none??"; - if(curtext != P && curtext->from.sym != S) - tn = curtext->from.sym->name; - va_start(arg, fmt); - vseprint(buf, buf+sizeof(buf), fmt, arg); - va_end(arg); - print("%s: %s\n", tn, buf); - - nerrors++; - if(nerrors > 10) { - print("too many errors\n"); - errorexit(); - } -} diff --git a/sys/src/cmd/7l/mkfile b/sys/src/cmd/7l/mkfile deleted file mode 100644 index a8e6d210c..000000000 --- a/sys/src/cmd/7l/mkfile +++ /dev/null @@ -1,33 +0,0 @@ -link) { - - /* find out how much arg space is used in this TEXT */ - if(p->to.type == D_OREG && p->to.reg == REGSP) - if(p->to.offset > curframe) - curframe = p->to.offset; - - switch(p->as) { - case ATEXT: - if(curtext && curtext->from.sym) { - curtext->from.sym->frame = curframe; - curtext->from.sym->become = curbecome; - if(curbecome > maxbecome) - maxbecome = curbecome; - } - curframe = 0; - curbecome = 0; - - p->mark |= LABEL|LEAF|SYNC; - if(p->link) - p->link->mark |= LABEL; - curtext = p; - break; - - /* don't mess with what we don't understand */ - case AWORD: - case ACALL_PAL: - /* etc. */ - p->mark |= LABEL; - for(q1=p->link; q1 != P; q1 = q1->link) { - q1->mark |= LABEL; - if(q1->as != AXORNOT) /* used as NOP in PALcode */ - break; - } - break; - - case ARET: - /* special form of RET is BECOME */ - if(p->from.type == D_CONST) - if(p->from.offset > curbecome) - curbecome = p->from.offset; - - if(p->link != P) - p->link->mark |= LABEL; - break; - - case ANOP: - q1 = p->link; - q->link = q1; /* q is non-nop */ - q1->mark |= p->mark; - continue; - - case AJSR: - if(curtext != P) - curtext->mark &= ~LEAF; - case ABEQ: - case ABNE: - case ABGE: - case ABGT: - case ABLE: - case ABLT: - case ABLBC: - case ABLBS: - case AFBEQ: - case AFBNE: - case AFBGE: - case AFBGT: - case AFBLE: - case AFBLT: - case AJMP: - p->mark |= BRANCH; - q1 = p->cond; - if(q1 != P) { - while(q1->as == ANOP) { - q1 = q1->link; - p->cond = q1; - } - if(!(q1->mark & LEAF)) { - if (q1->mark & LABEL) - q1->mark |= LABEL2; - else - q1->mark |= LABEL; - } - } else - p->mark |= LABEL; - q1 = p->link; - if(q1 != P) { - if (q1->mark & LABEL) - q1->mark |= LABEL2; - else - q1->mark |= LABEL; - } - else - p->mark |= LABEL; /* ??? */ - break; - - case ADIVQ: - case ADIVQU: - case AMODQ: - case AMODQU: - case ADIVL: - case ADIVLU: - case AMODL: - case AMODLU: - if(p->from.type == D_CONST /*&& !debug['d']*/) - continue; - if(prog_divq == P) - initdiv(); - if(curtext != P) - curtext->mark &= ~LEAF; - break; - } - q = p; - } - - if(curtext && curtext->from.sym) { - curtext->from.sym->frame = curframe; - curtext->from.sym->become = curbecome; - if(curbecome > maxbecome) - maxbecome = curbecome; - } - - if(debug['b']) - print("max become = %d\n", maxbecome); - xdefine("ALEFbecome", STEXT, maxbecome); - - curtext = 0; - for(p = firstp; p != P; p = p->link) { - switch(p->as) { - case ATEXT: - curtext = p; - break; - case AJSR: - if(curtext != P && curtext->from.sym != S && curtext->to.offset >= 0) { - o = maxbecome - curtext->from.sym->frame; - if(o <= 0) - break; - /* calling a become or calling a variable */ - if(p->to.sym == S || p->to.sym->become) { - curtext->to.offset += o; - if(debug['b']) { - curp = p; - print("%D calling %D increase %d\n", - &curtext->from, &p->to, o); - } - } - } - break; - } - } - - for(p = firstp; p != P; p = p->link) { - o = p->as; - switch(o) { - case ATEXT: - curtext = p; - autosize = p->to.offset + 8; - if(autosize <= 8) - if(curtext->mark & LEAF) { - p->to.offset = -8; - autosize = 0; - } - if (autosize & 4) - autosize += 4; - - q = p; - if(autosize) - q = genIRR(p, ASUBQ, autosize, NREG, REGSP); - else if(!(curtext->mark & LEAF)) { - if(debug['v']) - Bprint(&bso, "save suppressed in: %s\n", - curtext->from.sym->name); - Bflush(&bso); - curtext->mark |= LEAF; - } - - if(curtext->mark & LEAF) { - if(curtext->from.sym) - curtext->from.sym->type = SLEAF; - break; - } - - genstore(q, AMOVL, REGLINK, 0LL, REGSP); - break; - - case ARET: - nocache(p); - if(p->from.type == D_CONST) - goto become; - if(curtext->mark & LEAF) { - if(!autosize) { - p->as = AJMP; - p->from = zprg.from; - p->to.type = D_OREG; - p->to.offset = 0; - p->to.reg = REGLINK; - break; - } - - p->as = AADDQ; - p->from.type = D_CONST; - p->from.offset = autosize; - p->to.type = D_REG; - p->to.reg = REGSP; - - q = prg(); - q->as = AJMP; - q->line = p->line; - q->to.type = D_OREG; - q->to.offset = 0; - q->to.reg = REGLINK; - q->mark |= BRANCH; - - q->link = p->link; - p->link = q; - break; - } - p->as = AMOVL; - p->from.type = D_OREG; - p->from.offset = 0; - p->from.reg = REGSP; - p->to.type = D_REG; - p->to.reg = REGLINK; - - q = p; - if(autosize) - q = genIRR(p, AADDQ, autosize, NREG, REGSP); - - q1 = prg(); - q1->as = AJMP; - q1->line = p->line; - q1->to.type = D_OREG; - q1->to.offset = 0; - q1->to.reg = REGLINK; - q1->mark |= BRANCH; - - q1->link = q->link; - q->link = q1; - break; - - become: - if(curtext->mark & LEAF) { - - q = prg(); - q->line = p->line; - q->as = AJMP; - q->from = zprg.from; - q->to = p->to; - q->cond = p->cond; - q->link = p->link; - q->mark |= BRANCH; - p->link = q; - - p->as = AADDQ; - p->from = zprg.from; - p->from.type = D_CONST; - p->from.offset = autosize; - p->to = zprg.to; - p->to.type = D_REG; - p->to.reg = REGSP; - - break; - } - q = prg(); - q->line = p->line; - q->as = AJMP; - q->from = zprg.from; - q->to = p->to; - q->cond = p->cond; - q->link = p->link; - q->mark |= BRANCH; - p->link = q; - - q = genIRR(p, AADDQ, autosize, NREG, REGSP); - - p->as = AMOVL; - p->from = zprg.from; - p->from.type = D_OREG; - p->from.offset = 0; - p->from.reg = REGSP; - p->to = zprg.to; - p->to.type = D_REG; - p->to.reg = REGLINK; - - break; - - - /* All I wanted was a MOVB... */ - case AMOVB: - case AMOVW: - /* rewrite sign extend; could use v3 extension in asmout case 1 */ - if (p->to.type == D_REG) { - nocache(p); - shift = (p->as == AMOVB) ? (64-8) : (64-16); - if (p->from.type == D_REG) { - p->as = ASLLQ; - p->reg = p->from.reg; - p->from.type = D_CONST; - p->from.offset = shift; - q = genIRR(p, ASRAQ, shift, p->to.reg, p->to.reg); - break; - } - else { - p->as = (p->as == AMOVB) ? AMOVBU : AMOVWU; - q = genIRR(p, ASLLQ, shift, p->to.reg, p->to.reg); - q = genIRR(q, ASRAQ, shift, p->to.reg, p->to.reg); - } - } - /* fall through... */ - case AMOVBU: - case AMOVWU: - if(!debug['x']) - break; /* use BWX extension */ - o = p->as; - nocache(p); - if (p->from.type == D_OREG) { - if (p->to.type != D_REG) - break; - p->as = AMOVQU; - q = genXXX(p, AEXTBL, &p->to, REGTMP2, &p->to); - if (o == AMOVW || o == AMOVWU) - q->as = AEXTWL; - p->to.reg = REGTMP2; - if ((p->from.offset & 7) != 0 || aclass(&p->from) != C_SOREG) { - q1 = genXXX(p, AMOVA, &p->from, NREG, &q->to); - q1->from.offset &= 7; - q->from = q->to; - } - else - q->from.reg = p->from.reg; - if (o == AMOVB || o == AMOVW) - genXXX(q, o, &q->to, NREG, &q->to); - } - else if (p->to.type == D_OREG) { - if (aclass(&p->from) == C_ZCON) { - p->from.type = D_REG; - p->from.reg = REGZERO; - } - else if (p->from.type != D_REG) - break; - p->as = AMOVQU; - q = genRRR(p, AMSKBL, p->to.reg, REGTMP2, REGTMP2); - q1 = genRRR(q, AINSBL, p->to.reg, p->from.reg, REGTMP); - if (o == AMOVW || o == AMOVWU) { - q->as = AMSKWL; - q1->as = AINSWL; - } - q2 = genXXX(q1, AOR, &q->to, REGTMP, &q->to); - genXXX(q2, AMOVQU, &q->to, NREG, &p->to); - p->from = p->to; - p->to = q->to; - if ((p->from.offset & 7) != 0 || aclass(&p->from) != C_SOREG) { - q->from.reg = REGTMP; - q1->from.reg = REGTMP; - q = genXXX(p, AMOVA, &p->from, NREG, &q->from); - q->from.offset &= 7; - } - } - break; - - case ASLLL: - p->as = ASLLQ; - p = genXXX(p, AADDL, &p->to, REGZERO, &p->to); - break; - - case ASRLL: - if (p->to.type != D_REG) { - diag("illegal dest type in %P", p); - break; - } - if (p->reg == NREG) - p->reg = p->to.reg; - - q = genXXX(p, ASRLQ, &p->from, REGTMP, &p->to); - - p->as = AZAP; - p->from.type = D_CONST; - p->from.offset = 0xf0; - p->to.reg = REGTMP; - p = q; - - p = genXXX(p, AADDL, &p->to, REGZERO, &p->to); - break; - - case ASRAL: - p->as = ASRAQ; - break; - - case ADIVQ: - case ADIVQU: - case AMODQ: - case AMODQU: - case ADIVL: - case ADIVLU: - case AMODL: - case AMODLU: - /* if (debug['d']) - print("%P\n", p); */ - if(p->to.type != D_REG) - break; - /*if(debug['d'] && p->from.type == D_CONST) { - q = genRRR(p, p->as, REGTMP, p->reg, p->to.reg); - p->as = AMOVQ; - p->reg = NREG; - p->to.reg = REGTMP; - p = q; - }*/ - if(p->from.type == D_CONST) { - if (p->reg == NREG) - p->reg = p->to.reg; - switch (p->as) { - case ADIVQ: - q = divconst(p, p->from.offset, p->reg, p->to.reg, 64); - break; - case ADIVQU: - q = divuconst(p, p->from.offset, p->reg, p->to.reg, 64); - break; - case AMODQ: - q = modconst(p, p->from.offset, p->reg, p->to.reg, 64); - break; - case AMODQU: - q = divuconst(p, p->from.offset, p->reg, REGTMP2, 64); - q = genIRR(q, AMULQ, p->from.offset, REGTMP2, REGTMP2); - q = genRRR(q, ASUBQ, REGTMP2, p->reg, p->to.reg); - break; - case ADIVL: - q = divconst(p, p->from.offset, p->reg, p->to.reg, 32); - break; - case ADIVLU: - q = divuconst(p, p->from.offset, p->reg, p->to.reg, 32); - break; - case AMODL: - q = modconst(p, p->from.offset, p->reg, p->to.reg, 32); - break; - case AMODLU: - q = divuconst(p, p->from.offset, p->reg, REGTMP2, 32); - q = genIRR(q, AMULQ, p->from.offset, REGTMP2, REGTMP2); - q = genRRR(q, ASUBQ, REGTMP2, p->reg, p->to.reg); - break; - } - excise(p); - p = q; - break; - } - if(p->from.type != D_REG){ - diag("bad instruction %P", p); - break; - } - o = p->as; - q = genIRR(p, ASUBQ, 16LL, NREG, REGSP); - q = genstore(q, AMOVQ, p->from.reg, 8LL, REGSP); - if (o == ADIVL || o == ADIVL || o == AMODL || o == AMODLU) - q->as = AMOVL; - - q = genRRR(q, AMOVQ, p->reg, NREG, REGTMP); - if (p->reg == NREG) - q->from.reg = p->to.reg; - - /* CALL appropriate */ - q1 = prg(); - q1->link = q->link; - q->link = q1; - - q1->as = AJSR; - q1->line = p->line; - q1->to.type = D_BRANCH; - q1->cond = divsubr(o); - q1->mark |= BRANCH; - q = q1; - - q = genRRR(q, AMOVQ, REGTMP, NREG, p->to.reg); - q = genIRR(q, AADDQ, 16LL, NREG, REGSP); - excise(p); - p = q; - break; - - /* Attempt to replace {cond. branch, mov} with a cmov */ - /* XXX warning: this is all a bit experimental */ - case ABEQ: - case ABNE: - case ABGE: - case ABGT: - case ABLE: - case ABLT: - case ABLBC: - case ABLBS: - q = p->link; - if (q == P) - break; - q1 = q->link; - if (q1 != p->cond || q1 == P) - break; -/*print("%P\n", q); /* */ - if (q->to.type != D_REG) - break; - if (q->from.type != D_REG && (q->from.type != D_CONST || q->from.name != D_NONE)) - break; - if (q->mark&LABEL2) - break; -/* print("%P\n", q); /* */ - if (q->as != AMOVQ) /* XXX can handle more than this! */ - break; - q->as = (p->as^1) + ACMOVEQ-ABEQ; /* sleazy hack */ - q->reg = p->from.reg; /* XXX check CMOVx operand order! */ - excise(p); /* XXX p's LABEL? */ - if (!(q1->mark&LABEL2)) - q1->mark &= ~LABEL; - break; - case AFBEQ: - case AFBNE: - case AFBGE: - case AFBGT: - case AFBLE: - case AFBLT: - q = p->link; - if (q == P) - break; - q1 = q->link; - if (q1 != p->cond || q1 == P) - break; - if (q->from.type != D_FREG || q->to.type != D_FREG) - break; -/* print("%P\n", q); /* */ - if (q->mark&LABEL2) - break; - if (q->as != AMOVT) /* XXX can handle more than this! */ - break; - q->as = (p->as^1) + AFCMOVEQ-AFBEQ; /* sleazy hack */ - q->reg = p->from.reg; /* XXX check CMOVx operand order! */ - excise(p); /* XXX p's LABEL? */ - if (!(q1->mark&LABEL2)) - q1->mark &= ~LABEL; - break; - } - } - - curtext = P; - q = P; /* p - 1 */ - q1 = firstp; /* top of block */ - o = 0; /* count of instructions */ - for(p = firstp; p != P; p = p1) { - p1 = p->link; - o++; - if(p->mark & NOSCHED){ - if(q1 != p){ - sched(q1, q); - } - for(; p != P; p = p->link){ - if(!(p->mark & NOSCHED)) - break; - q = p; - } - p1 = p; - q1 = p; - o = 0; - continue; - } - if(p->mark & (LABEL|SYNC)) { - if(q1 != p) - sched(q1, q); - q1 = p; - o = 1; - } - if(p->mark & (BRANCH|SYNC)) { - sched(q1, p); - q1 = p1; - o = 0; - } - if(o >= NSCHED) { - sched(q1, p); - q1 = p1; - o = 0; - } - q = p; - } -} - -void -nocache(Prog *p) -{ - p->optab = 0; - p->from.class = 0; - p->to.class = 0; -} - -/* XXX use of this may lose important LABEL flags, check that this isn't happening (or fix) */ -void -excise(Prog *p) -{ - Prog *q; - - q = p->link; - *p = *q; -} - -void -initdiv(void) -{ - Sym *s1, *s2, *s3, *s4, *s5, *s6, *s7, *s8; - Prog *p; - - s1 = lookup("_divq", 0); - s2 = lookup("_divqu", 0); - s3 = lookup("_modq", 0); - s4 = lookup("_modqu", 0); - s5 = lookup("_divl", 0); - s6 = lookup("_divlu", 0); - s7 = lookup("_modl", 0); - s8 = lookup("_modlu", 0); - for(p = firstp; p != P; p = p->link) - if(p->as == ATEXT) { - if(p->from.sym == s1) - prog_divq = p; - if(p->from.sym == s2) - prog_divqu = p; - if(p->from.sym == s3) - prog_modq = p; - if(p->from.sym == s4) - prog_modqu = p; - if(p->from.sym == s5) - prog_divl = p; - if(p->from.sym == s6) - prog_divlu = p; - if(p->from.sym == s7) - prog_modl = p; - if(p->from.sym == s8) - prog_modlu = p; - } - if(prog_divq == P) { - diag("undefined: %s", s1->name); - prog_divq = curtext; - } - if(prog_divqu == P) { - diag("undefined: %s", s2->name); - prog_divqu = curtext; - } - if(prog_modq == P) { - diag("undefined: %s", s3->name); - prog_modq = curtext; - } - if(prog_modqu == P) { - diag("undefined: %s", s4->name); - prog_modqu = curtext; - } - if(prog_divl == P) { - diag("undefined: %s", s5->name); - prog_divl = curtext; - } - if(prog_divlu == P) { - diag("undefined: %s", s6->name); - prog_divlu = curtext; - } - if(prog_modl == P) { - diag("undefined: %s", s7->name); - prog_modl = curtext; - } - if(prog_modlu == P) { - diag("undefined: %s", s8->name); - prog_modlu = curtext; - } -} - -Prog * -divsubr(int o) -{ - switch(o) { - case ADIVQ: - return prog_divq; - case ADIVQU: - return prog_divqu; - case AMODQ: - return prog_modq; - case AMODQU: - return prog_modqu; - case ADIVL: - return prog_divl; - case ADIVLU: - return prog_divlu; - case AMODL: - return prog_modl; - case AMODLU: - return prog_modlu; - default: - diag("bad op %A in divsubr", o); - return prog_modlu; - } -} - -Prog* -divuconst(Prog *p, uvlong y, int num, int quot, int bits) -{ - int logy, i, shift; - uvlong k, m, n, mult, tmp, msb; - - if(num == NREG) - num = quot; - if(y == 0) { - diag("division by zero"); - return p; - } - if(y == 1) - return genRRR(p, AMOVQ, num, NREG, quot); - - if(num == REGTMP || quot == REGTMP) - diag("bad register in divuconst"); - - tmp = y; - for(logy = -1; tmp != 0; logy++) - tmp >>= 1; - - msb = (1LL << (bits-1)); - if((y & (y-1)) == 0) /* power of 2 */ - return genIRR(p, ASRLQ, logy, num, quot); - if(y > msb) - return genIRR(p, ACMPUGE, y, num, quot); - - /* k = (-2^(bits+logy)) % y */ - m = msb/y; - n = msb%y; - if(debug['d']) - Bprint(&bso, "divuconst: y=%lld msb=%lld m=%lld n=%lld\n", - y, msb, m, n); - for(i = 0; i <= logy; i++) { - m *= 2LL; - n *= 2LL; - if(n > y) { - m += 1LL; - n -= y; - } - } - if(debug['d']) - Bprint(&bso, "divuconst: y=%lld msb=%lld m=%lld n=%lld\n", - y, msb, m, n); - k = y - n; - if(k > (1LL << logy)) { - mult = 2LL*m + 1LL; - bits++; - } else - mult = m + 1LL; - - shift = bits + logy; - if(debug['d']) - Bprint(&bso, "divuconst: y=%lld mult=%lld shift=%d bits=%d k=%lld\n", - y, mult, shift, bits, k); - if(bits <= 32) { - p = genIRR(p, AMOVQ, mult, NREG, REGTMP); - p = genRRR(p, AEXTLL, REGZERO, num, quot); - p = genRRR(p, AMULQ, REGTMP, quot, quot); - p = genIRR(p, ASRLQ, shift, quot, quot); - p = genRRR(p, AADDL, quot, REGZERO, quot); - return p; - } - if(bits == 33) { - if(shift < 64) { - mult <<= (64-shift); - shift = 64; - } - p = genIRR(p, AMOVQ, mult, NREG, REGTMP); - p = genRRR(p, AEXTLL, REGZERO, num, quot); - p = genRRR(p, AUMULH, REGTMP, quot, quot); - if(shift != 64) - p = genIRR(p, ASRLQ, shift-64, quot, quot); - p = genRRR(p, AADDL, quot, REGZERO, quot); - return p; - } - if(bits <= 64) { - if(shift < 64) { - mult <<= (64-shift); - shift = 64; - } - p = genIRR(p, AMOVQ, mult, NREG, REGTMP); - p = genRRR(p, AUMULH, REGTMP, num, quot); - if(shift != 64) - p = genIRR(p, ASRLQ, shift-64, quot, quot); - return p; - } - - p = genIRR(p, AMOVQ, mult, NREG, REGTMP); - p = genRRR(p, AUMULH, REGTMP, num, REGTMP); - p = genRRR(p, AADDQ, num, REGTMP, quot); - p = genRRR(p, ACMPUGT, REGTMP, quot, REGTMP); - p = genIRR(p, ASLLQ, 128-shift, REGTMP, REGTMP); - p = genIRR(p, ASRLQ, shift-64, quot, quot); - p = genRRR(p, AADDQ, REGTMP, quot, quot); - return p; -} - -Prog * -divconst(Prog *p, vlong y, int num, int quot, int bits) -{ - vlong yabs; - Prog *q; - - yabs = y; - if (y < 0) - yabs = -y; - q = genRRR(p, ASUBQ, num, REGZERO, REGTMP2); - if (num != quot) - q = genRRR(q, AMOVQ, num, NREG, quot); - q = genRRR(q, ACMOVGT, REGTMP2, REGTMP2, quot); - q = divuconst(q, yabs, quot, quot, bits-1); - q = genRRR(q, ASUBQ, quot, REGZERO, REGTMP); - q = genRRR(q, (y < 0)? ACMOVLT: ACMOVGT, REGTMP, REGTMP2, quot); - return q; -} - -Prog * -modconst(Prog *p, vlong y, int num, int quot, int bits) -{ - vlong yabs; - Prog *q; - - yabs = y; - if (y < 0) - yabs = -y; - q = genRRR(p, ASUBQ, num, REGZERO, REGTMP2); - q = genRRR(q, ACMOVLT, num, REGTMP2, REGTMP2); - q = divuconst(q, yabs, REGTMP2, REGTMP2, bits-1); - q = genRRR(q, ASUBQ, REGTMP2, REGZERO, REGTMP); - q = genRRR(q, ACMOVLT, REGTMP, num, REGTMP2); - q = genIRR(q, AMULQ, yabs, REGTMP2, REGTMP2); - q = genRRR(q, ASUBQ, REGTMP2, num, quot); - return q; -} - -Prog * -genXXX(Prog *q, int op, Adr *from, int reg, Adr *to) -{ - Prog *p; - - p = prg(); - p->as = op; - p->line = q->line; - p->from = *from; - p->to = *to; - p->reg = reg; - p->link = q->link; - q->link = p; - return p; -} - -Prog * -genRRR(Prog *q, int op, int from, int reg, int to) -{ - Prog *p; - - p = prg(); - p->as = op; - p->line = q->line; - p->from.type = D_REG; - p->from.reg = from; - p->to.type = D_REG; - p->to.reg = to; - p->reg = reg; - p->link = q->link; - q->link = p; - return p; -} - -Prog * -genIRR(Prog *q, int op, vlong v, int reg, int to) -{ - Prog *p; - - p = prg(); - p->as = op; - p->line = q->line; - p->from.type = D_CONST; - p->from.offset = v; - p->to.type = D_REG; - p->to.reg = to; - p->reg = reg; - p->link = q->link; - q->link = p; - return p; -} - -Prog * -genstore(Prog *q, int op, int from, vlong offset, int to) -{ - Prog *p; - - p = prg(); - p->as = op; - p->line = q->line; - p->from.type = D_REG; - p->from.reg = from; - p->to.type = D_OREG; - p->to.reg = to; - p->to.offset = offset; - p->reg = NREG; - p->link = q->link; - q->link = p; - return p; -} - -Prog * -genload(Prog *q, int op, vlong offset, int from, int to) -{ - Prog *p; - - p = prg(); - p->as = op; - p->line = q->line; - p->from.type = D_OREG; - p->from.offset = offset; - p->from.reg = from; - p->to.type = D_REG; - p->to.reg = to; - p->reg = NREG; - p->link = q->link; - q->link = p; - return p; -} diff --git a/sys/src/cmd/7l/obj.c b/sys/src/cmd/7l/obj.c deleted file mode 100644 index 793e5825e..000000000 --- a/sys/src/cmd/7l/obj.c +++ /dev/null @@ -1,1350 +0,0 @@ -#include "l.h" -#include - -#ifndef DEFAULT -#define DEFAULT '9' -#endif - -char *noname = ""; -char symname[] = SYMDEF; -char thechar = '7'; -char *thestring = "alpha"; - -/* - * -H0 -T0x12000004C -D0x140000000 is abbrev unix - * -H1 -T0x20000000 -R4 is bootp() format - * -H2 -T8224 -R8192 is plan9 format - */ - -void -main(int argc, char *argv[]) -{ - int c; - char *a; - - Binit(&bso, 1, OWRITE); - cout = -1; - listinit(); - outfile = 0; - nerrors = 0; - curtext = P; - HEADTYPE = -1; - INITTEXT = -1; - INITDAT = -1; - INITRND = -1; - INITENTRY = 0; - - ARGBEGIN { - default: - c = ARGC(); - if(c >= 0 && c < sizeof(debug)) - debug[c]++; - break; - case 'o': - outfile = ARGF(); - break; - case 'E': - a = ARGF(); - if(a) - INITENTRY = a; - break; - case 'T': - a = ARGF(); - if(a) - INITTEXT = atolwhex(a); - break; - case 'D': - a = ARGF(); - if(a) - INITDAT = atolwhex(a); - break; - case 'R': - a = ARGF(); - if(a) - INITRND = atolwhex(a); - break; - case 'H': - a = ARGF(); - if(a) - HEADTYPE = atolwhex(a); - /* do something about setting INITTEXT */ - break; - } ARGEND - - USED(argc); - - if(*argv == 0) { - diag("usage: 7l [-options] objects"); - errorexit(); - } - if(!debug['9'] && !debug['B'] && !debug['U']) - debug[DEFAULT] = 1; - if(HEADTYPE == -1) { - if(debug['U']) - HEADTYPE = 0; - if(debug['B']) - HEADTYPE = 1; - if(debug['9']) - HEADTYPE = 2; - } - switch(HEADTYPE) { - default: - diag("unknown -H option"); - errorexit(); - - case 0: /* unix simple */ - HEADR = 32L+80L; - if(INITTEXT == -1) - INITTEXT = 0x120000070LL; /* BUG */ - if(INITDAT == -1) - INITDAT = 0x140000000LL; /* BUG */ - if(INITRND == -1) - INITRND = 0; - break; - - case 1: /* boot */ - HEADR = 32L+84L; - if(INITTEXT == -1) - INITTEXT = 0x20000074L; - if(INITDAT == -1) - INITDAT = 0; - if(INITRND == -1) - INITRND = 8; - break; - case 2: /* plan 9 */ - HEADR = 32L; - if(INITTEXT == -1) - INITTEXT = 8224; - if(INITDAT == -1) - INITDAT = 0; - if(INITRND == -1) - INITRND = 8192; - break; - case 3: /* ``headerless'' tftp boot -- uses branch as magic */ - HEADR = 32L; - if(INITTEXT == -1) - INITTEXT = 0x20000020L; - if(INITDAT == -1) - INITDAT = 0; - if(INITRND == -1) - INITRND = 8; - break; - } - if(INITDAT != 0 && INITRND != 0) - print("warning: -D0x%lux is ignored because of -R0x%lux\n", - INITDAT, INITRND); - if(debug['v']) - Bprint(&bso, "HEADER = -H0x%d -T0x%lux -D0x%lux -R0x%lux\n", - HEADTYPE, INITTEXT, INITDAT, INITRND); - Bflush(&bso); - zprg.as = AGOK; - zprg.reg = NREG; - zprg.from.name = D_NONE; - zprg.from.type = D_NONE; - zprg.from.reg = NREG; - zprg.to = zprg.from; - buildop(); - histgen = 0; - textp = P; - datap = P; - pc = 0; - dtype = 4; - if(outfile == 0) - outfile = "7.out"; - cout = create(outfile, 1, 0775); - if(cout < 0) { - diag("%s: cannot create", outfile); - errorexit(); - } - nuxiinit(); - - version = 0; - cbp = buf.cbuf; - cbc = sizeof(buf.cbuf); - firstp = prg(); - lastp = firstp; - - if(INITENTRY == 0) { - INITENTRY = "_main"; - if(debug['p']) - INITENTRY = "_mainp"; - if(!debug['l']) - lookup(INITENTRY, 0)->type = SXREF; - } else - lookup(INITENTRY, 0)->type = SXREF; - - while(*argv) - objfile(*argv++); - if(!debug['l']) - loadlib(); - firstp = firstp->link; - if(firstp == P) - goto out; - patch(); - if(debug['p']) - if(debug['1']) - doprof1(); - else - doprof2(); - follow(); - if(firstp == P) - goto out; - noops(); - dodata(); /* is before follow() on other arch */ - span(); - asmb(); - undef(); - -out: - if(debug['v']) { - Bprint(&bso, "%5.2f cpu time\n", cputime()); - Bprint(&bso, "%ld memory used\n", thunk); - Bprint(&bso, "%d sizeof adr\n", sizeof(Adr)); - Bprint(&bso, "%d sizeof prog\n", sizeof(Prog)); - } - Bflush(&bso); - errorexit(); -} - -void -loadlib(void) -{ - int i; - long h; - Sym *s; - -loop: - xrefresolv = 0; - for(i=0; ilink) - if(s->type == SXREF) - goto loop; -} - -void -errorexit(void) -{ - - Bflush(&bso); - if(nerrors) { - if(cout >= 0) - remove(outfile); - exits("error"); - } - exits(0); -} - -void -objfile(char *file) -{ - long off, esym, cnt, l; - int f, work; - Sym *s; - char magbuf[SARMAG]; - char name[100], pname[150]; - struct ar_hdr arhdr; - char *e, *start, *stop; - - if(file[0] == '-' && file[1] == 'l') { - if(debug['9']) - snprint(name, sizeof name, "/%s/lib/lib%s.a", thestring, file+2); - else - snprint(name, sizeof name, "/usr/%clib/lib%s.a", thechar, file+2); - file = name; - } - if(debug['v']) - Bprint(&bso, "%5.2f ldobj: %s\n", cputime(), file); - Bflush(&bso); - f = open(file, 0); - if(f < 0) { - diag("cannot open file: %s", file); - errorexit(); - } - l = read(f, magbuf, SARMAG); - if(l != SARMAG || strncmp(magbuf, ARMAG, SARMAG)){ - /* load it as a regular file */ - l = seek(f, 0L, 2); - seek(f, 0L, 0); - ldobj(f, l, file); - close(f); - return; - } - - if(debug['v']) - Bprint(&bso, "%5.2f ldlib: %s\n", cputime(), file); - l = read(f, &arhdr, SAR_HDR); - if(l != SAR_HDR) { - diag("%s: short read on archive file symbol header", file); - goto out; - } - if(strncmp(arhdr.name, symname, strlen(symname))) { - diag("%s: first entry not symbol header", file); - goto out; - } - - esym = SARMAG + SAR_HDR + atolwhex(arhdr.size); - off = SARMAG + SAR_HDR; - - /* - * just bang the whole symbol file into memory - */ - seek(f, off, 0); - cnt = esym - off; - start = malloc(cnt + 10); - cnt = read(f, start, cnt); - if(cnt <= 0){ - close(f); - return; - } - stop = &start[cnt]; - memset(stop, 0, 10); - - work = 1; - while(work){ - if(debug['v']) - Bprint(&bso, "%5.2f library pass: %s\n", cputime(), file); - Bflush(&bso); - work = 0; - for(e = start; e < stop; e = strchr(e+5, 0) + 1) { - s = lookup(e+5, 0); - if(s->type != SXREF) - continue; - snprint(pname, sizeof pname, "%s(%s)", file, s->name); - if(debug['v']) - Bprint(&bso, "%5.2f library: %s\n", cputime(), pname); - Bflush(&bso); - l = e[1] & 0xff; - l |= (e[2] & 0xff) << 8; - l |= (e[3] & 0xff) << 16; - l |= (e[4] & 0xff) << 24; - seek(f, l, 0); - l = read(f, &arhdr, SAR_HDR); - if(l != SAR_HDR) - goto bad; - if(strncmp(arhdr.fmag, ARFMAG, sizeof(arhdr.fmag))) - goto bad; - l = atolwhex(arhdr.size); - ldobj(f, l, pname); - if(s->type == SXREF) { - diag("%s: failed to load: %s", file, s->name); - errorexit(); - } - work = 1; - xrefresolv = 1; - } - } - return; - -bad: - diag("%s: bad or out of date archive", file); -out: - close(f); -} - -int -zaddr(uchar *p, Adr *a, Sym *h[]) -{ - int i, c; - vlong l; - Sym *s; - Auto *u; - - c = p[2]; - if(c < 0 || c > NSYM){ - print("sym out of range: %d\n", c); - p[0] = ALAST+1; - return 0; - } - a->type = p[0]; - a->reg = p[1]; - a->sym = h[p[2]]; - a->name = p[3]; - c = 4; - - if(a->reg < 0 || a->reg > NREG) { - print("register out of range %d\n", a->reg); - p[0] = ALAST+1; - return 0; /* force real diagnostic */ - } - - switch(a->type) { - default: - print("unknown type %d\n", a->type); - p[0] = ALAST+1; - return 0; /* force real diagnostic */ - - case D_NONE: - case D_REG: - case D_FREG: - case D_PREG: - case D_FCREG: - case D_PCC: - break; - - case D_BRANCH: - case D_OREG: - case D_CONST: - a->offset = (uvlong)p[4] | ((uvlong)p[5]<<8L) | - ((uvlong) p[6]<<16L) | ((uvlong) p[7]<<24L) | - ((uvlong) p[8]<<32L) | ((uvlong) p[9]<<40L) | - ((uvlong) p[10]<<48L) | ((uvlong) p[11]<<56L); - c += 8; - break; - - case D_SCONST: - while(nhunk < NSNAME) - gethunk(); - a->sval = (char*)hunk; - nhunk -= NSNAME; - hunk += NSNAME; - - memmove(a->sval, p+4, NSNAME); - c += NSNAME; - break; - - case D_FCONST: - while(nhunk < sizeof(Ieee)) - gethunk(); - a->ieee = (Ieee*)hunk; - nhunk -= sizeof(Ieee); - hunk += sizeof(Ieee); - - a->ieee->l = p[4] | (p[5]<<8) | - (p[6]<<16) | (p[7]<<24); - a->ieee->h = p[8] | (p[9]<<8) | - (p[10]<<16) | (p[11]<<24); - c += 8; - break; - } - s = a->sym; - if(s == S) - return c; - i = a->name; - if(i != D_AUTO && i != D_PARAM) - return c; - - l = a->offset; - for(u=curauto; u; u=u->link) - if(u->sym == s) - if(u->type == i) { - if(u->offset > l) - u->offset = l; - return c; - } - - while(nhunk < sizeof(Auto)) - gethunk(); - u = (Auto*)hunk; - nhunk -= sizeof(Auto); - hunk += sizeof(Auto); - - u->link = curauto; - curauto = u; - u->sym = s; - u->offset = l; - u->type = i; - return c; -} - -void -addlib(char *obj) -{ - char name[1024], comp[256], *p; - int i; - - if(histfrogp <= 0) - return; - - if(histfrog[0]->name[1] == '/') { - name[0] = 0; - i = 1; - } else - if(histfrog[0]->name[1] == '.') { - snprint(name, sizeof name, "."); - i = 0; - } else { - if(debug['9']) - snprint(name, sizeof name, "/%s/lib", thestring); - else - snprint(name, sizeof name, "/usr/%clib", thechar); - i = 0; - } - - for(; iname+1); - for(;;) { - p = strstr(comp, "$O"); - if(p == 0) - break; - memmove(p+1, p+2, strlen(p+2)+1); - p[0] = thechar; - } - for(;;) { - p = strstr(comp, "$M"); - if(p == 0) - break; - if(strlen(comp)+strlen(thestring)-2+1 >= sizeof comp) { - diag("library component too long"); - return; - } - memmove(p+strlen(thestring), p+2, strlen(p+2)+1); - memmove(p, thestring, strlen(thestring)); - } - if(strlen(name) + strlen(comp) + 3 >= sizeof(name)) { - diag("library component too long"); - return; - } - strcat(name, "/"); - strcat(name, comp); - } - for(i=0; iname = malloc(2*(histfrogp+1) + 1); - - u->sym = s; - u->type = type; - u->offset = line; - u->link = curhist; - curhist = u; - - j = 1; - for(i=0; ivalue; - s->name[j+0] = k>>8; - s->name[j+1] = k; - j += 2; - } -} - -void -histtoauto(void) -{ - Auto *l; - - while(l = curhist) { - curhist = l->link; - l->link = curauto; - curauto = l; - } -} - -void -collapsefrog(Sym *s) -{ - int i; - - /* - * bad encoding of path components only allows - * MAXHIST components. if there is an overflow, - * first try to collapse xxx/.. - */ - for(i=1; iname+1, "..") == 0) { - memmove(histfrog+i-1, histfrog+i+1, - (histfrogp-i-1)*sizeof(histfrog[0])); - histfrogp--; - goto out; - } - - /* - * next try to collapse . - */ - for(i=0; iname+1, ".") == 0) { - memmove(histfrog+i, histfrog+i+1, - (histfrogp-i-1)*sizeof(histfrog[0])); - goto out; - } - - /* - * last chance, just truncate from front - */ - memmove(histfrog+0, histfrog+1, - (histfrogp-1)*sizeof(histfrog[0])); - -out: - histfrog[histfrogp-1] = s; -} - -void -nopout(Prog *p) -{ - p->as = ANOP; - p->from.type = D_NONE; - p->to.type = D_NONE; -} - -uchar* -readsome(int f, uchar *buf, uchar *good, uchar *stop, int max) -{ - int n; - - n = stop - good; - memmove(buf, good, stop - good); - stop = buf + n; - n = MAXIO - n; - if(n > max) - n = max; - n = read(f, stop, n); - if(n <= 0) - return 0; - return stop + n; -} - -void -ldobj(int f, long c, char *pn) -{ - long ipc; - Prog *p, *t; - uchar *bloc, *bsize, *stop; - Sym *h[NSYM], *s, *di; - int v, o, r, skip; - - bsize = buf.xbuf; - bloc = buf.xbuf; - di = S; - -newloop: - memset(h, 0, sizeof(h)); - version++; - histfrogp = 0; - ipc = pc; - skip = 0; - -loop: - if(c <= 0) - goto eof; - r = bsize - bloc; - if(r < 100 && r < c) { /* enough for largest prog */ - bsize = readsome(f, buf.xbuf, bloc, bsize, c); - if(bsize == 0) - goto eof; - bloc = buf.xbuf; - goto loop; - } - o = bloc[0]; /* as */ - if(o <= AXXX || o >= ALAST) { - diag("%s: line %ld: opcode out of range %d", pn, pc-ipc, o); - print(" probably not a .7 file\n"); - errorexit(); - } - if(o == ANAME) { - stop = memchr(&bloc[3], 0, bsize-&bloc[3]); - if(stop == 0){ - bsize = readsome(f, buf.xbuf, bloc, bsize, c); - if(bsize == 0) - goto eof; - bloc = buf.xbuf; - stop = memchr(&bloc[3], 0, bsize-&bloc[3]); - if(stop == 0){ - fprint(2, "%s: name too long\n", pn); - errorexit(); - } - } - v = bloc[1]; /* type */ - o = bloc[2]; /* sym */ - bloc += 3; - c -= 3; - - r = 0; - if(v == D_STATIC) - r = version; - s = lookup((char*)bloc, r); - c -= &stop[1] - bloc; - bloc = stop + 1; - - if(debug['W']) - print(" ANAME %s\n", s->name); - h[o] = s; - if((v == D_EXTERN || v == D_STATIC) && s->type == 0) - s->type = SXREF; - if(v == D_FILE) { - if(s->type != SFILE) { - histgen++; - s->type = SFILE; - s->value = histgen; - } - if(histfrogp < MAXHIST) { - histfrog[histfrogp] = s; - histfrogp++; - } else - collapsefrog(s); - } - goto loop; - } - - if(nhunk < sizeof(Prog)) - gethunk(); - p = (Prog*)hunk; - nhunk -= sizeof(Prog); - hunk += sizeof(Prog); - - p->as = o; - p->reg = bloc[1] & 0x7f; - if(bloc[1] & 0x80) - p->mark = NOSCHED; - p->line = bloc[2] | (bloc[3]<<8) | (bloc[4]<<16) | (bloc[5]<<24); - - r = zaddr(bloc+6, &p->from, h) + 6; - r += zaddr(bloc+r, &p->to, h); - bloc += r; - c -= r; - - if(p->reg < 0 || p->reg > NREG) - diag("register out of range %d", p->reg); - - p->link = P; - p->cond = P; - - if(debug['W']) - print("%P\n", p); - - switch(o) { - case AHISTORY: - if(p->to.offset == -1) { - addlib(pn); - histfrogp = 0; - goto loop; - } - addhist(p->line, D_FILE); /* 'z' */ - if(p->to.offset) - addhist(p->to.offset, D_PREG); /* 'Z' */ - histfrogp = 0; - goto loop; - - case AEND: - histtoauto(); - if(curtext != P) - curtext->to.autom = curauto; - curauto = 0; - curtext = P; - if(c) - goto newloop; - return; - - case AGLOBL: - s = p->from.sym; - if(s == S) { - diag("GLOBL must have a name\n%P", p); - errorexit(); - } - if(s->type == 0 || s->type == SXREF) { - s->type = SBSS; - s->value = 0; - } - if(s->type != SBSS) { - diag("redefinition: %s\n%P", s->name, p); - s->type = SBSS; - s->value = 0; - } - if(p->to.offset > s->value) - s->value = p->to.offset; - break; - - case ADYNT: - if(p->to.sym == S) { - diag("DYNT without a sym\n%P", p); - break; - } - di = p->to.sym; - p->reg = 4; - if(di->type == SXREF) { - if(debug['z']) - Bprint(&bso, "%P set to %d\n", p, dtype); - di->type = SCONST; - di->value = dtype; - dtype += 4; - } - if(p->from.sym == S) - break; - - p->from.offset = di->value; - p->from.sym->type = SDATA; - if(curtext == P) { - diag("DYNT not in text: %P", p); - break; - } - p->to.sym = curtext->from.sym; - p->to.type = D_CONST; - p->link = datap; - datap = p; - break; - - case AINIT: - if(p->from.sym == S) { - diag("INIT without a sym\n%P", p); - break; - } - if(di == S) { - diag("INIT without previous DYNT\n%P", p); - break; - } - p->from.offset = di->value; - p->from.sym->type = SDATA; - p->link = datap; - datap = p; - break; - - case ADATA: - if(p->from.sym == S) { - diag("DATA without a sym\n%P", p); - break; - } - p->link = datap; - datap = p; - break; - - case AGOK: - diag("unknown opcode\n%P", p); - p->pc = pc; - pc++; - break; - - case ATEXT: - if(curtext != P) { - histtoauto(); - curtext->to.autom = curauto; - curauto = 0; - } - skip = 0; - curtext = p; - autosize = (p->to.offset+3L) & ~3L; - if (autosize & 4) - autosize += 4; - p->to.offset = autosize; - autosize += 8; - s = p->from.sym; - if(s == S) { - diag("TEXT must have a name\n%P", p); - errorexit(); - } - if(s->type != 0 && s->type != SXREF) { - if(p->reg & DUPOK) { - skip = 1; - goto casedef; - } - diag("redefinition: %s\n%P", s->name, p); - } - s->type = STEXT; - s->value = pc; - lastp->link = p; - lastp = p; - p->pc = pc; - pc++; - if(textp == P) { - textp = p; - etextp = p; - goto loop; - } - etextp->cond = p; - etextp = p; - break; - - case AMOVS: - if(skip) - goto casedef; - - if(p->from.type == D_FCONST) { - /* size sb 9 max */ - snprint(literal, sizeof literal, "$%lux", ieeedtof(p->from.ieee)); - s = lookup(literal, 0); - if(s->type == 0) { - s->type = SBSS; - s->value = 4; - t = prg(); - t->as = ADATA; - t->line = p->line; - t->from.type = D_OREG; - t->from.sym = s; - t->from.name = D_EXTERN; - t->reg = 4; - t->to = p->from; - t->link = datap; - datap = t; - } - p->from.type = D_OREG; - p->from.sym = s; - p->from.name = D_EXTERN; - p->from.offset = 0; - } - goto casedef; - - case AMOVT: - if(skip) - goto casedef; - - if(p->from.type == D_FCONST) { - /* size sb 18 max */ - snprint(literal, sizeof literal, "$%lux.%lux", - p->from.ieee->l, p->from.ieee->h); - s = lookup(literal, 0); - if(s->type == 0) { - s->type = SBSS; - s->value = 8; - t = prg(); - t->as = ADATA; - t->line = p->line; - t->from.type = D_OREG; - t->from.sym = s; - t->from.name = D_EXTERN; - t->reg = 8; - t->to = p->from; - t->link = datap; - datap = t; - } - p->from.type = D_OREG; - p->from.sym = s; - p->from.name = D_EXTERN; - p->from.offset = 0; - } - goto casedef; - - case AMOVQ: - if(skip) - goto casedef; - - if (p->from.type == D_FREG || p->to.type == D_FREG) - p->as = AMOVT; /* stupid compiler optimiser kkludge */ - - case AMOVL: - case AMOVW: - case AMOVB: - /* BOTCH */ - if (p->from.type == D_CONST) - if (p->from.offset == 0LL && p->from.name == D_NONE) { - p->from.type = D_REG; - p->from.reg = REGZERO; - } - goto casedef; - - default: - casedef: - if(skip) - nopout(p); - - if(p->to.type == D_BRANCH) - p->to.offset += ipc; - lastp->link = p; - lastp = p; - p->pc = pc; - pc++; - break; - } - goto loop; - -eof: - diag("truncated object file: %s", pn); -} - -Sym* -lookup(char *symb, int v) -{ - Sym *s; - char *p; - long h; - int c0, l; - - h = v; - for(p=symb; c0 = *p; p++) - h = h+h+h + c0; - l = (p - symb) + 1; - if(h < 0) - h = ~h; - h %= NHASH; - for(s = hash[h]; s != S; s = s->link) - if(s->version == v) - if(memcmp(s->name, symb, l) == 0) - return s; - - while(nhunk < sizeof(Sym)) - gethunk(); - s = (Sym*)hunk; - nhunk -= sizeof(Sym); - hunk += sizeof(Sym); - - s->name = malloc(l); - memmove(s->name, symb, l); - - s->link = hash[h]; - s->type = 0; - s->version = v; - s->value = 0; - hash[h] = s; - return s; -} - -Prog* -prg(void) -{ - Prog *p; - - while(nhunk < sizeof(Prog)) - gethunk(); - p = (Prog*)hunk; - nhunk -= sizeof(Prog); - hunk += sizeof(Prog); - - *p = zprg; - return p; -} - -void -gethunk(void) -{ - char *h; - long nh; - - nh = NHUNK; - if(thunk >= 5L*NHUNK) { - nh = 5L*NHUNK; - if(thunk >= 25L*NHUNK) - nh = 25L*NHUNK; - } - h = mysbrk(nh); - if(h == (char*)-1) { - diag("out of memory"); - errorexit(); - } - hunk = h; - nhunk = nh; - thunk += nh; -} - -void -doprof1(void) -{ - Sym *s; - long n; - Prog *p, *q; - - if(debug['v']) - Bprint(&bso, "%5.2f profile 1\n", cputime()); - Bflush(&bso); - s = lookup("__mcount", 0); - n = 1; - for(p = firstp->link; p != P; p = p->link) { - if(p->as == ATEXT) { - q = prg(); - q->line = p->line; - q->link = datap; - datap = q; - q->as = ADATA; - q->from.type = D_OREG; - q->from.name = D_EXTERN; - q->from.offset = n*4; - q->from.sym = s; - q->reg = 4; - q->to = p->from; - q->to.type = D_CONST; - - q = prg(); - q->line = p->line; - q->pc = p->pc; - q->link = p->link; - p->link = q; - p = q; - p->as = AMOVL; - p->from.type = D_OREG; - p->from.name = D_EXTERN; - p->from.sym = s; - p->from.offset = n*4 + 4; - p->to.type = D_REG; - p->to.reg = REGTMP; - - q = prg(); - q->line = p->line; - q->pc = p->pc; - q->link = p->link; - p->link = q; - p = q; - p->as = AADDQ; - p->from.type = D_CONST; - p->from.offset = 1; - p->to.type = D_REG; - p->to.reg = REGTMP; - - q = prg(); - q->line = p->line; - q->pc = p->pc; - q->link = p->link; - p->link = q; - p = q; - p->as = AMOVL; - p->from.type = D_REG; - p->from.reg = REGTMP; - p->to.type = D_OREG; - p->to.name = D_EXTERN; - p->to.sym = s; - p->to.offset = n*4 + 4; - - n += 2; - continue; - } - } - q = prg(); - q->line = 0; - q->link = datap; - datap = q; - - q->as = ADATA; - q->from.type = D_OREG; - q->from.name = D_EXTERN; - q->from.sym = s; - q->reg = 4; - q->to.type = D_CONST; - q->to.offset = n; - - s->type = SBSS; - s->value = n*4; -} - -void -doprof2(void) -{ - Sym *s2, *s4; - Prog *p, *q, *q2, *ps2, *ps4; - - if(debug['v']) - Bprint(&bso, "%5.2f profile 2\n", cputime()); - Bflush(&bso); - - if(debug['e']){ - s2 = lookup("_tracein", 0); - s4 = lookup("_traceout", 0); - }else{ - s2 = lookup("_profin", 0); - s4 = lookup("_profout", 0); - } - if(s2->type != STEXT || s4->type != STEXT) { - if(debug['e']) - diag("_tracein/_traceout not defined %d %d", s2->type, s4->type); - else - diag("_profin/_profout not defined"); - return; - } - - ps2 = P; - ps4 = P; - for(p = firstp; p != P; p = p->link) { - if(p->as == ATEXT) { - if(p->from.sym == s2) { - ps2 = p; - p->reg = 1; - } - if(p->from.sym == s4) { - ps4 = p; - p->reg = 1; - } - } - } - for(p = firstp; p != P; p = p->link) { - if(p->as == ATEXT) { - if(p->reg != NREG) { - for(;;) { - q = p->link; - if(q == P) - break; - if(q->as == ATEXT) - break; - p = q; - } - continue; - } - - /* - * JSR profin, R2 - */ - q = prg(); - q->line = p->line; - q->pc = p->pc; - q->link = p->link; - if(debug['e']){ /* embedded tracing */ - q2 = prg(); - p->link = q2; - q2->link = q; - - q2->line = p->line; - q2->pc = p->pc; - - q2->as = AJMP; - q2->to.type = D_BRANCH; - q2->to.sym = p->to.sym; - q2->cond = q->link; - }else - p->link = q; - p = q; - p->as = AJSR; - p->to.type = D_BRANCH; - p->cond = ps2; - p->to.sym = s2; - - continue; - } - if(p->as == ARET) { - /* - * JSR (default) - */ - if(debug['e']){ /* embedded tracing */ - q = prg(); - q->line = p->line; - q->pc = p->pc; - q->link = p->link; - p->link = q; - p = q; - } - /* - * JSR profout - */ - p->as = AJSR; - p->to.type = D_BRANCH; - p->cond = ps4; - p->to.sym = s4; - - - /* - * RET - */ - q = prg(); - q->line = p->line; - q->pc = p->pc; - q->link = p->link; - p->link = q; - p = q; - p->as = ARET; - - continue; - } - } -} - -void -nuxiinit(void) -{ - int i, c; - - for(i=0; i<4; i++) { - c = find1(0x04030201L, i+1); - if(i <= 4) - inuxi4[i] = c; - if(i <= 2) - inuxi2[i] = c; - if(i <= 1) - inuxi1[i] = c; - } - for (i = 0; i < 4; i++) { - c = find1(0x04030201L, i+1); - fnuxi8[i] = c; - fnuxi8[i+4] = c + sizeof(long); - } - - if(debug['v']) { - Bprint(&bso, "inuxi = "); - for(i=0; i<1; i++) - Bprint(&bso, "%d", inuxi1[i]); - Bprint(&bso, " "); - for(i=0; i<2; i++) - Bprint(&bso, "%d", inuxi2[i]); - Bprint(&bso, " "); - for(i=0; i<4; i++) - Bprint(&bso, "%d", inuxi4[i]); - Bprint(&bso, " "); - Bprint(&bso, "\nfnuxi = "); - for(i=0; i<8; i++) - Bprint(&bso, "%d", fnuxi8[i]); - Bprint(&bso, "\n"); - } - Bflush(&bso); -} - -find1(long l, int c) -{ - char *p; - int i; - - p = (char*)&l; - for(i=0; i<4; i++) - if(*p++ == c) - return i; - return 0; -} - -long -ieeedtof(Ieee *ieee) -{ - int exp; - long v; - - if(ieee->h == 0) - return 0; - exp = (ieee->h>>20) & ((1L<<11)-1L); - exp -= (1L<<10) - 2L; - v = (ieee->h & 0xfffffL) << 3; - v |= (ieee->l >> 29) & 0x7L; - if((ieee->l >> 28) & 1) { - v++; - if(v & 0x800000L) { - v = (v & 0x7fffffL) >> 1; - exp++; - } - } - if(exp <= -126 || exp >= 130) - diag("double fp to single fp overflow"); - v |= ((exp + 126) & 0xffL) << 23; - v |= ieee->h & 0x80000000L; - return v; -} - -double -ieeedtod(Ieee *ieee) -{ - Ieee e; - double fr; - int exp; - - if(ieee->h & (1L<<31)) { - e.h = ieee->h & ~(1L<<31); - e.l = ieee->l; - return -ieeedtod(&e); - } - if(ieee->l == 0 && ieee->h == 0) - return 0; - fr = ieee->l & ((1L<<16)-1L); - fr /= 1L<<16; - fr += (ieee->l>>16) & ((1L<<16)-1L); - fr /= 1L<<16; - fr += (ieee->h & (1L<<20)-1L) | (1L<<20); - fr /= 1L<<21; - exp = (ieee->h>>20) & ((1L<<11)-1L); - exp -= (1L<<10) - 2L; - return ldexp(fr, exp); -} diff --git a/sys/src/cmd/7l/optab.c b/sys/src/cmd/7l/optab.c deleted file mode 100644 index 0f2852e80..000000000 --- a/sys/src/cmd/7l/optab.c +++ /dev/null @@ -1,141 +0,0 @@ -#include "l.h" - -#define X 99 - -Optab optab[] = -{ - { ATEXT, C_LEXT, C_NONE, C_LCON, 0, 0, 0 }, - { ATEXT, C_LEXT, C_REG, C_LCON, 0, 0, 0 }, - - { AMOVQ, C_REG, C_NONE, C_REG, 1, 4, 0 }, - { AMOVQ, C_SCON, C_NONE, C_REG, 6, 4, REGZERO }, - { AMOVQ, C_SECON,C_NONE, C_REG, 6, 4, REGSB }, - { AMOVQ, C_SACON,C_NONE, C_REG, 6, 4, REGSP }, - - { AMOVQ, C_LCON, C_NONE, C_REG, 15, 8, REGZERO }, - { AMOVQ, C_LECON,C_NONE, C_REG, 15, 8, REGSB }, - { AMOVQ, C_LACON,C_NONE, C_REG, 15, 8, REGSP }, - - { AMOVQ, C_QCON, C_NONE, C_REG, 16,20, REGZERO }, - - { AMOVQ, C_REG, C_NONE, C_SOREG, 8, 4, REGZERO }, - { AMOVQ, C_REG, C_NONE, C_SEXT, 8, 4, REGSB }, - { AMOVQ, C_REG, C_NONE, C_SAUTO, 8, 4, REGSP }, - - { AMOVQ, C_SOREG,C_NONE, C_REG, 9, 4, REGZERO }, - { AMOVQ, C_SEXT, C_NONE, C_REG, 9, 4, REGSB }, - { AMOVQ, C_SAUTO,C_NONE, C_REG, 9, 4, REGSP }, - - { AMOVQ, C_REG, C_NONE, C_LOREG, 19, 8, REGZERO }, - { AMOVQ, C_REG, C_NONE, C_LEXT, 19, 8, REGSB }, - { AMOVQ, C_REG, C_NONE, C_LAUTO, 19, 8, REGSP }, - - { AMOVQ, C_LOREG,C_NONE, C_REG, 20, 8, REGZERO }, - { AMOVQ, C_LEXT, C_NONE, C_REG, 20, 8, REGSB }, - { AMOVQ, C_LAUTO,C_NONE, C_REG, 20, 8, REGSP }, -/* - { AMOVBU, C_REG, C_NONE, C_REG, 7, 4, 0 }, - { AMOVB, C_REG, C_NONE, C_REG, 10, 8, 0 }, -*/ - { AMOVT, C_FREG, C_NONE, C_FREG, 17, 4, 0 }, - - { AMOVT, C_FREG, C_NONE, C_SOREG, 8, 4, REGZERO }, - { AMOVT, C_FREG, C_NONE, C_SEXT, 8, 4, REGSB }, - { AMOVT, C_FREG, C_NONE, C_SAUTO, 8, 4, REGSP }, - - { AMOVT, C_SOREG,C_NONE, C_FREG, 9, 4, REGZERO }, - { AMOVT, C_SEXT, C_NONE, C_FREG, 9, 4, REGSB }, - { AMOVT, C_SAUTO,C_NONE, C_FREG, 9, 4, REGSP }, - - { AMOVT, C_FREG, C_NONE, C_LOREG, 19, 8, REGZERO }, - { AMOVT, C_FREG, C_NONE, C_LEXT, 19, 8, REGSB }, - { AMOVT, C_FREG, C_NONE, C_LAUTO, 19, 8, REGSP }, - - { AMOVT, C_LOREG,C_NONE, C_FREG, 20, 8, REGZERO }, - { AMOVT, C_LEXT, C_NONE, C_FREG, 20, 8, REGSB }, - { AMOVT, C_LAUTO,C_NONE, C_FREG, 20, 8, REGSP }, - - { AADDQ, C_REG, C_REG, C_REG, 2, 4, 0 }, - { AADDL, C_REG, C_REG, C_REG, 2, 4, 0 }, - { AAND, C_REG, C_REG, C_REG, 2, 4, 0 }, - { AMULQ, C_REG, C_REG, C_REG, 2, 4, 0 }, - { AADDQ, C_REG, C_NONE, C_REG, 2, 4, 0 }, - { AADDL, C_REG, C_NONE, C_REG, 2, 4, 0 }, - { AAND, C_REG, C_NONE, C_REG, 2, 4, 0 }, - { AMULQ, C_REG, C_NONE, C_REG, 2, 4, 0 }, - - { AADDQ, C_SCON, C_REG, C_REG, 12, 4, 0 }, - { AADDQ, C_SCON, C_NONE, C_REG, 12, 4, 0 }, - - { AADDL, C_BCON, C_REG, C_REG, 3, 4, 0 }, - { AAND, C_BCON, C_REG, C_REG, 3, 4, 0 }, - { AMULQ, C_BCON, C_REG, C_REG, 3, 4, 0 }, - { AADDL, C_BCON, C_NONE, C_REG, 3, 4, 0 }, - { AAND, C_BCON, C_NONE, C_REG, 3, 4, 0 }, - { AMULQ, C_BCON, C_NONE, C_REG, 3, 4, 0 }, - -/* { AADDL, C_NCON, C_REG, C_REG, 34, 4, 0 }, */ - { AAND, C_NCON, C_REG, C_REG, 34, 4, 0 }, -/* { AADDL, C_NCON, C_NONE, C_REG, 34, 4, 0 }, */ - { AAND, C_NCON, C_NONE, C_REG, 34, 4, 0 }, - - { AADDL, C_SCON, C_REG, C_REG, 13, 8, 0 }, - { AAND, C_SCON, C_REG, C_REG, 13, 8, 0 }, - { AMULQ, C_SCON, C_REG, C_REG, 13, 8, 0 }, - { AADDL, C_SCON, C_NONE, C_REG, 13, 8, 0 }, - { AAND, C_SCON, C_NONE, C_REG, 13, 8, 0 }, - { AMULQ, C_SCON, C_NONE, C_REG, 13, 8, 0 }, - - { AADDQ, C_LCON, C_REG, C_REG, 14,12, 0 }, - { AADDQ, C_LCON, C_NONE, C_REG, 14,12, 0 }, - { AADDL, C_LCON, C_REG, C_REG, 14,12, 0 }, - { AAND, C_LCON, C_REG, C_REG, 14,12, 0 }, - { AMULQ, C_LCON, C_REG, C_REG, 14,12, 0 }, - { AADDL, C_LCON, C_NONE, C_REG, 14,12, 0 }, - { AAND, C_LCON, C_NONE, C_REG, 14,12, 0 }, - { AMULQ, C_LCON, C_NONE, C_REG, 14,12, 0 }, - - { AADDQ, C_QCON, C_REG, C_REG, 23,24, 0 }, - { AADDQ, C_QCON, C_NONE, C_REG, 23,24, 0 }, - { AADDL, C_QCON, C_REG, C_REG, 23,24, 0 }, - { AAND, C_QCON, C_REG, C_REG, 23,24, 0 }, - { AMULQ, C_QCON, C_REG, C_REG, 23,24, 0 }, - { AADDL, C_QCON, C_NONE, C_REG, 23,24, 0 }, - { AAND, C_QCON, C_NONE, C_REG, 23,24, 0 }, - { AMULQ, C_QCON, C_NONE, C_REG, 23,24, 0 }, - - { AADDT, C_FREG, C_REG, C_FREG, 2, 4, 0 }, - { AADDT, C_FREG, C_NONE, C_FREG, 2, 4, 0 }, - { ACVTTQ, C_FREG, C_NONE, C_FREG, 28, 4, 0 }, - - { ABEQ, C_REG, C_NONE, C_SBRA, 4, 4, 0 }, - { AFBEQ, C_FREG, C_NONE, C_SBRA, 4, 4, 0 }, - - { AJMP, C_NONE, C_NONE, C_SBRA, 11, 4, 0 }, - { AJSR, C_NONE, C_NONE, C_SBRA, 11, 4, 0 }, - - { AJMP, C_NONE, C_NONE, C_ZOREG, 5, 4, REGZERO }, - { AJSR, C_NONE, C_NONE, C_ZOREG, 5, 4, REGLINK }, - { AJMP, C_NONE, C_REG, C_ZOREG, 5, 4, REGZERO }, - { AJSR, C_NONE, C_REG, C_ZOREG, 5, 4, REGLINK }, - { ACALL_PAL, C_SCON, C_NONE, C_NONE, 18, 4, 0 }, - { AWORD, C_NONE, C_NONE, C_LCON, 40, 4, 0 }, - - { AMOVT, C_FREG, C_NONE, C_FCREG, 24, 4, 0 }, - { AMOVT, C_FCREG,C_NONE, C_FREG, 25, 4, 0 }, - - { AMOVQ, C_REG, C_NONE, C_PREG, 26, 4, 0 }, - { AMOVQ, C_PREG, C_NONE, C_REG, 27, 4, 0 }, - { AMOVQ, C_PCC, C_NONE, C_REG, 29, 4, 0 }, - - { AREI, C_NONE, C_NONE, C_NONE, 30, 4, 0 }, - { AFETCH, C_ZOREG,C_NONE, C_NONE, 31, 4, REGZERO }, - - { AMOVQL, C_SOREG,C_NONE, C_REG, 9, 4, REGZERO }, - { AMOVQC, C_REG, C_NONE, C_SOREG, 8, 4, REGZERO }, - - { AMOVQP, C_SOREG,C_NONE, C_REG, 33, 4, REGZERO }, - { AMOVQP, C_REG, C_NONE, C_SOREG, 32, 4, REGZERO }, - - { AXXX, C_NONE, C_NONE, C_NONE, 0, 4, 0 }, -}; diff --git a/sys/src/cmd/7l/pass.c b/sys/src/cmd/7l/pass.c deleted file mode 100644 index e0451b532..000000000 --- a/sys/src/cmd/7l/pass.c +++ /dev/null @@ -1,495 +0,0 @@ -#include "l.h" - -void -dodata(void) -{ - int i, t, size; - Sym *s; - Prog *p, *p1; - long orig, orig1, v; - vlong vv; - - if(debug['v']) - Bprint(&bso, "%5.2f dodata\n", cputime()); - Bflush(&bso); - for(p = datap; p != P; p = p->link) { - s = p->from.sym; - if(p->as == ADYNT || p->as == AINIT) - s->value = dtype; - if(s->type == SBSS) - s->type = SDATA; - if(s->type != SDATA) - diag("initialize non-data (%d): %s\n%P", - s->type, s->name, p); - v = p->from.offset + p->reg; - if(v > s->value) - diag("initialize bounds (%ld): %s\n%P", - s->value, s->name, p); - } - - /* - * pass 1 - * assign 'small' variables to data segment - * (rational is that data segment is more easily - * addressed through offset on REGSB) - */ - orig = 0; - for(i=0; ilink) { - t = s->type; - if(t != SDATA && t != SBSS) - continue; - v = s->value; - if(v == 0) { - diag("%s: no size", s->name); - v = 1; - } - while(v & 3) - v++; - - s->value = v; - if(v > MINSIZ) - continue; - if (v >= 8) - orig = rnd(orig, 8); - s->value = orig; - orig += v; - s->type = SDATA1; - } - orig = rnd(orig, 8); - orig1 = orig; - - /* - * pass 2 - * assign 'data' variables to data segment - */ - for(i=0; ilink) { - t = s->type; - if(t != SDATA) { - if(t == SDATA1) - s->type = SDATA; - continue; - } - v = s->value; - if (v >= 8) - orig = rnd(orig, 8); - s->value = orig; - orig += v; - s->type = SDATA1; - } - - orig = rnd(orig, 8); - datsize = orig; - - /* - * pass 3 - * everything else to bss segment - */ - for(i=0; ilink) { - if(s->type != SBSS) - continue; - v = s->value; - if (v >= 8) - orig = rnd(orig, 8); - s->value = orig; - orig += v; - } - orig = rnd(orig, 8); - bsssize = orig-datsize; - - /* - * pass 4 - * add literals to all large values. - * at this time: - * small data is allocated DATA - * large data is allocated DATA1 - * large bss is allocated BSS - * the new literals are loaded between - * small data and large data. - */ - orig = 0; - for(p = firstp; p != P; p = p->link) { - if(p->as != AMOVQ) - continue; - if(p->from.type != D_CONST) - continue; - if(s = p->from.sym) { - t = s->type; - if(t != SDATA && t != SDATA1 && t != SBSS) - continue; - t = p->from.name; - if(t != D_EXTERN && t != D_STATIC) - continue; - v = s->value + p->from.offset; - size = 4; - if(v >= 0 && v <= 0xffff) - continue; - if(!strcmp(s->name, "setSB")) - continue; - /* size should be 19 max */ - if(strlen(s->name) >= 10) /* has loader address */ - snprint(literal, sizeof literal, "$%p.%llux", s, p->from.offset); - else - snprint(literal, sizeof literal, "$%s.%d.%llux", s->name, s->version, p->from.offset); - } else { - if(p->from.name != D_NONE) - continue; - if(p->from.reg != NREG) - continue; - vv = p->from.offset; - if(vv >= -0x8000LL && vv <= 0x7fff) - continue; - if(!(vv & 0xffff)) - continue; - size = 8; - if (vv <= 0x7FFFFFFFLL && vv >= -0x80000000LL) - size = 4; - /* size should be 17 max */ - snprint(literal, sizeof literal, "$%llux", vv); - } - s = lookup(literal, 0); - if(s->type == 0) { - s->type = SDATA; - orig = rnd(orig, size); - s->value = orig1+orig; - orig += size; - p1 = prg(); - p1->line = p->line; - p1->as = ADATA; - p1->from.type = D_OREG; - p1->from.sym = s; - p1->from.name = D_EXTERN; - p1->reg = size; - p1->to = p->from; - p1->link = datap; - datap = p1; - if(debug['C']) - Bprint(&bso, "literal %P for %P\n", p1, p); - } - if(s->type != SDATA) - diag("literal not data: %s", s->name); - if (size == 4) - p->as = AMOVL; - p->from.type = D_OREG; - p->from.sym = s; - p->from.name = D_EXTERN; - p->from.offset = 0; - continue; - } - orig = rnd(orig, 8); - - /* - * pass 5 - * re-adjust offsets - */ - for(i=0; ilink) { - t = s->type; - if(t == SBSS) { - s->value += orig; - continue; - } - if(t == SDATA1) { - s->type = SDATA; - s->value += orig; - continue; - } - } - datsize += orig; - if (debug['v'] || debug['z']) - Bprint(&bso, "datsize = %lux, bsssize = %lux\n", datsize, bsssize); - xdefine("setSB", SDATA, 0L+BIG); - xdefine("bdata", SDATA, 0L); - xdefine("edata", SDATA, datsize); - xdefine("end", SBSS, datsize+bsssize); - xdefine("etext", STEXT, 0L); -} - -void -undef(void) -{ - int i; - Sym *s; - - for(i=0; ilink) - if(s->type == SXREF) - diag("%s: not defined", s->name); -} - -void -follow(void) -{ - if(debug['v']) - Bprint(&bso, "%5.2f follow\n", cputime()); - Bflush(&bso); - - firstp = prg(); - lastp = firstp; - xfol(textp); - - firstp = firstp->link; - lastp->link = P; -} - -void -xfol(Prog *p) -{ - Prog *q, *r; - int a, i; - -loop: - if(p == P) - return; - a = p->as; - if(a == ATEXT) - curtext = p; - if(a == AJMP) { - q = p->cond; - if(q != P) { - p->mark = FOLL; - p = q; - if(!(p->mark & FOLL)) - goto loop; - } - } - if(p->mark & FOLL) { - for(i=0,q=p; i<4; i++,q=q->link) { - if(q == lastp) - break; - a = q->as; - if(a == ANOP) { - i--; - continue; - } - if(a == AJMP || a == ARET || a == AREI) - goto copy; - if(!q->cond || (q->cond->mark&FOLL)) - continue; - if(a != ABEQ && a != ABNE) - continue; - copy: - for(;;) { - r = prg(); - *r = *p; - if(!(r->mark&FOLL)) - print("cant happen 1\n"); - r->mark = FOLL; - if(p != q) { - p = p->link; - lastp->link = r; - lastp = r; - continue; - } - lastp->link = r; - lastp = r; - if(a == AJMP || a == ARET || a == AREI) - return; - r->as = ABNE; - if(a == ABNE) - r->as = ABEQ; - r->cond = p->link; - r->link = p->cond; - if(!(r->link->mark&FOLL)) - xfol(r->link); - if(!(r->cond->mark&FOLL)) - print("cant happen 2\n"); - return; - } - } - a = AJMP; - q = prg(); - q->as = a; - q->line = p->line; - q->to.type = D_BRANCH; - q->to.offset = p->pc; - q->cond = p; - p = q; - } - p->mark = FOLL; - lastp->link = p; - lastp = p; - if(a == AJMP || a == ARET || a == AREI) - return; - if(p->cond != P) - if(a != AJSR && p->link != P) { - xfol(p->link); - p = p->cond; - if(p == P || (p->mark&FOLL)) - return; - goto loop; - } - p = p->link; - goto loop; -} - -void -patch(void) -{ - long c, vexit; - Prog *p, *q; - Sym *s; - int a; - - if(debug['v']) - Bprint(&bso, "%5.2f patch\n", cputime()); - Bflush(&bso); - mkfwd(); - s = lookup("exit", 0); - vexit = s->value; - for(p = firstp; p != P; p = p->link) { - a = p->as; - if(a == ATEXT) - curtext = p; - if((a == AJSR || a == AJMP || a == ARET) && - p->to.type != D_BRANCH && p->to.sym != S) { - s = p->to.sym; - if(s->type != STEXT) { - diag("undefined: %s\n%P", s->name, p); - s->type = STEXT; - s->value = vexit; - } - p->to.offset = s->value; - p->to.type = D_BRANCH; - } - if(p->to.type != D_BRANCH) - continue; - c = p->to.offset; - for(q = firstp; q != P;) { - if(q->forwd != P) - if(c >= q->forwd->pc) { - q = q->forwd; - continue; - } - if(c == q->pc) - break; - q = q->link; - } - if(q == P) { - diag("branch out of range %ld\n%P", c, p); - p->to.type = D_NONE; - } - p->cond = q; - } - - for(p = firstp; p != P; p = p->link) { - if(p->as == ATEXT) - curtext = p; - if(p->cond != P) { - p->cond = brloop(p->cond); - if(p->cond != P) - if(p->to.type == D_BRANCH) - p->to.offset = p->cond->pc; - } - } -} - -#define LOG 5 -void -mkfwd(void) -{ - Prog *p; - long dwn[LOG], cnt[LOG], i; - Prog *lst[LOG]; - - for(i=0; ilink) { - if(p->as == ATEXT) - curtext = p; - i--; - if(i < 0) - i = LOG-1; - p->forwd = P; - dwn[i]--; - if(dwn[i] <= 0) { - dwn[i] = cnt[i]; - if(lst[i] != P) - lst[i]->forwd = p; - lst[i] = p; - } - } -} - -Prog* -brloop(Prog *p) -{ - Prog *q; - int c; - - for(c=0; p!=P;) { - if(p->as != AJMP) - return p; - q = p->cond; - if(q <= p) { - c++; - if(q == p || c > 50) - break; - } - p = q; - } - return P; -} - -long -atolwhex(char *s) -{ - long n; - int f; - - n = 0; - f = 0; - while(*s == ' ' || *s == '\t') - s++; - if(*s == '-' || *s == '+') { - if(*s++ == '-') - f = 1; - while(*s == ' ' || *s == '\t') - s++; - } - if(s[0]=='0' && s[1]){ - if(s[1]=='x' || s[1]=='X'){ - s += 2; - for(;;){ - if(*s >= '0' && *s <= '9') - n = n*16 + *s++ - '0'; - else if(*s >= 'a' && *s <= 'f') - n = n*16 + *s++ - 'a' + 10; - else if(*s >= 'A' && *s <= 'F') - n = n*16 + *s++ - 'A' + 10; - else - break; - } - } else - while(*s >= '0' && *s <= '7') - n = n*8 + *s++ - '0'; - } else - while(*s >= '0' && *s <= '9') - n = n*10 + *s++ - '0'; - if(f) - n = -n; - return n; -} - -long -rnd(long v, long r) -{ - long c; - - if(r <= 0) - return v; - v += r - 1; - c = v % r; - if(c < 0) - c += r; - v -= c; - return v; -} diff --git a/sys/src/cmd/7l/sched.c b/sys/src/cmd/7l/sched.c deleted file mode 100644 index b7339b1e1..000000000 --- a/sys/src/cmd/7l/sched.c +++ /dev/null @@ -1,18 +0,0 @@ -#include "l.h" - -void -sched(Prog *p0, Prog *p1) -{ -#ifdef CODSCHED - Prog *p, *q, *t; - int r, a; - - if(debug['X']) - Bprint(&bso, "\n"); -#endif - if (p0 == P || p0 == p1) - return; - if(debug['X']) - Bprint(&bso, "sched from %P to %P\n", p0, p1); -} - diff --git a/sys/src/cmd/7l/span.c b/sys/src/cmd/7l/span.c deleted file mode 100644 index 65ba2df56..000000000 --- a/sys/src/cmd/7l/span.c +++ /dev/null @@ -1,584 +0,0 @@ -#include "l.h" - -void -span(void) -{ - Prog *p; - Sym *setext; - Optab *o; - int m; - long c; - - if(debug['v']) - Bprint(&bso, "%5.2f span\n", cputime()); - Bflush(&bso); - c = INITTEXT; - for(p = firstp; p != P; p = p->link) { - p->pc = c; - o = oplook(p); - m = o->size; - if(m == 0) { - if(p->as == ATEXT) { - curtext = p; - autosize = p->to.offset + 8; - if(p->from.sym != S) - p->from.sym->value = c; - continue; - } - diag("zero-width instruction\n%P", p); - continue; - } - c += m; - } - c = rnd(c, 8); - - setext = lookup("etext", 0); - if(setext != S) { - setext->value = c; - textsize = c - INITTEXT; - } - if(INITRND) - INITDAT = rnd(c, INITRND); - if(debug['v']) - Bprint(&bso, "tsize = %lux\n", textsize); - Bflush(&bso); -} - -void -xdefine(char *p, int t, long v) -{ - Sym *s; - - s = lookup(p, 0); - if(s->type == 0 || s->type == SXREF) { - s->type = t; - s->value = v; - } -} - -vlong /* BUG? */ -regoff(Adr *a) -{ - - offset = 0; - aclass(a); - return offset; -} - -/* - * note that we can't generate every 32 bit constant with MOVQA+MOVQAH, hence the - * comparison with 0x7fff8000. offset >= this value gets incorrectly sign extended in - * the 64 bit register. - */ -aclass(Adr *a) -{ - Sym *s; - int t; - - switch(a->type) { - case D_NONE: - return C_NONE; - - case D_REG: - return C_REG; - - case D_FREG: - return C_FREG; - - case D_FCREG: - return C_FCREG; - - case D_PREG: - return C_PREG; - - case D_PCC: - return C_PCC; - - case D_OREG: - switch(a->name) { - case D_EXTERN: - case D_STATIC: - if(a->sym == 0) { - print("null sym external\n"); - print("%D\n", a); - return C_GOK; - } - t = a->sym->type; - if(t == 0 || t == SXREF) { - diag("undefined external: %s in %s", - a->sym->name, TNAME); - a->sym->type = SDATA; - } - offset = a->sym->value + a->offset - BIG; - if(offset >= -BIG && offset < BIG) - return C_SEXT; - if (offset >= -0x80000000LL && offset < 0x7fff8000LL) - return C_LEXT; - badoff: - diag("offset out of range: %#llux", offset); - return C_GOK; - case D_AUTO: - offset = autosize + a->offset; - if(offset >= -BIG && offset < BIG) - return C_SAUTO; - if (offset >= -0x80000000LL && offset < 0x7fff8000LL) - return C_LAUTO; - goto badoff; - case D_PARAM: - offset = autosize + a->offset + 8L; - if(offset >= -BIG && offset < BIG) - return C_SAUTO; - if (offset >= -0x80000000LL && offset < 0x7fff8000LL) - return C_LAUTO; - goto badoff; - case D_NONE: - offset = a->offset; - if(offset == 0) - return C_ZOREG; - if(offset >= -BIG && offset < BIG) - return C_SOREG; - if (offset >= -0x80000000LL && offset < 0x7fff8000LL) - return C_LOREG; - goto badoff; - } - return C_GOK; - - case D_CONST: - switch(a->name) { - - case D_NONE: - offset = a->offset; - if(offset > 0) { - if(offset <= 0xffLL) - return C_BCON; - if(offset <= 0x7fffLL) - return C_SCON; - if((offset & 0xffffLL) == 0 && offset <= 0x7fff0000LL) - return C_UCON; - if (offset < 0x7fff8000LL) - return C_LCON; - return C_QCON; - } - if(offset == 0) - return C_ZCON; - if(offset >= -0x100LL) - return C_NCON; - if(offset >= -0x8000LL) - return C_SCON; - if((offset & 0xffffLL) == 0 && offset >= -0x80000000LL) - return C_UCON; - if (offset >= -0x80000000LL) - return C_LCON; - return C_QCON; - - case D_EXTERN: - case D_STATIC: - s = a->sym; - if(s == 0) { - print("null sym const\n"); - print("%D\n", a); - return C_GOK; - } - t = s->type; - if(t == 0 || t == SXREF) { - diag("undefined external: %s in %s", - s->name, TNAME); - s->type = SDATA; - } - if(s->type == STEXT || s->type == SLEAF) { - offset = s->value + a->offset; - return C_LCON; - } - offset = s->value + a->offset - BIG; - if (offset == 0L) { - offset = s->value + a->offset + INITDAT; - return C_LCON; /* botch */ - } - if(offset >= -BIG && offset < BIG && offset != 0L) - return C_SECON; - if (offset >= -0x80000000LL && offset < 0x7fff8000L && offset != 0LL /*&& offset >= -INITDAT*/) - return C_LECON; - /*offset = s->value + a->offset + INITDAT;*/ -/* if (offset >= -BIG && offset < BIG) - return C_SCON; - if (offset >= -0x80000000LL && offset < 0x7fff8000LL) - return C_LCON; */ - goto badoff; - /*return C_QCON;*/ - - case D_AUTO: - offset = autosize + a->offset; - if(offset >= -BIG && offset < BIG) - return C_SACON; - if (offset >= -0x80000000LL && offset < 0x7fff8000LL) - return C_LACON; - goto badoff; - - case D_PARAM: - offset = autosize + a->offset + 8L; - if(offset >= -BIG && offset < BIG) - return C_SACON; - if (offset >= -0x80000000LL && offset < 0x7fff8000LL) - return C_LACON; - goto badoff; - } - return C_GOK; - - case D_BRANCH: - return C_SBRA; - } - return C_GOK; -} - -Optab* -oplook(Prog *p) -{ - int a1, a2, a3, r; - char *c1, *c3; - Optab *o, *e; - - a1 = p->optab; - if(a1) - return optab+(a1-1); - a1 = p->from.class; - if(a1 == 0) { - a1 = aclass(&p->from) + 1; - p->from.class = a1; - } - a1--; - a3 = p->to.class; - if(a3 == 0) { - a3 = aclass(&p->to) + 1; - p->to.class = a3; - } - a3--; - a2 = C_NONE; - if(p->reg != NREG) - a2 = C_REG; - r = p->as; - o = oprange[r].start; - if(o == 0) { - a1 = opcross[repop[r]][a1][a2][a3]; - if(a1) { - p->optab = a1+1; - return optab+a1; - } - o = oprange[r].stop; /* just generate an error */ - } - e = oprange[r].stop; - c1 = xcmp[a1]; - c3 = xcmp[a3]; - for(; oa2 == a2) - if(c1[o->a1]) - if(c3[o->a3]) { - p->optab = (o-optab)+1; - return o; - } - diag("illegal combination %A %d %d %d (opcross %d)", - p->as, p->from.class-1, a2, a3, a1); - if(!debug['a']) - prasm(p); - o = optab; - p->optab = (o-optab)+1; - return o; -} - -int -cmp(int a, int b) -{ - - if(a == b) - return 1; - switch(a) { - case C_QCON: - if(b == C_ZCON || b == C_BCON || b == C_NCON || b == C_SCON || b == C_UCON || b == C_LCON) - return 1; - break; - case C_LCON: - if(b == C_ZCON || b == C_BCON || b == C_NCON || b == C_SCON || b == C_UCON) - return 1; - break; - case C_UCON: - if(b == C_ZCON) - return 1; - break; - case C_SCON: - if(b == C_ZCON || b == C_BCON || b == C_NCON) - return 1; - break; - case C_BCON: - if(b == C_ZCON) - return 1; - break; - case C_LACON: - if(b == C_SACON) - return 1; - break; - case C_LBRA: - if(b == C_SBRA) - return 1; - break; - case C_LEXT: - if(b == C_SEXT) - return 1; - break; - case C_LAUTO: - if(b == C_SAUTO) - return 1; - break; - case C_REG: -/* if(b == C_ZCON) - return 1; */ - break; - case C_LOREG: - if(b == C_ZOREG || b == C_SOREG) - return 1; - break; - case C_SOREG: - if(b == C_ZOREG) - return 1; - break; - } - return 0; -} - -int -ocmp(void *a1, void *a2) -{ - Optab *p1, *p2; - int n; - - p1 = a1; - p2 = a2; - n = p1->as - p2->as; - if(n) - return n; - n = p1->a1 - p2->a1; - if(n) - return n; - n = p1->a2 - p2->a2; - if(n) - return n; - n = p1->a3 - p2->a3; - if(n) - return n; - return 0; -} - -void -buildop(void) -{ - int i, n, r; - - for(i=0; i<32; i++) - for(n=0; n<32; n++) - xcmp[i][n] = cmp(n, i); - for(n=0; optab[n].as != AXXX; n++) - ; - qsort(optab, n, sizeof(optab[0]), ocmp); - for(i=0; i= 32 || x >= nelem(opcross)) { - diag("assumptions fail in buildrep"); - errorexit(); - } - repop[as] = x; - p = (opcross + x); - s = oprange[as].start; - e = oprange[as].stop; - for(o=e-1; o>=s; o--) { - n = o-optab; - for(a2=0; a2<2; a2++) { - if(a2) { - if(o->a2 == C_NONE) - continue; - } else - if(o->a2 != C_NONE) - continue; - for(a1=0; a1<32; a1++) { - if(!xcmp[a1][o->a1]) - continue; - for(a3=0; a3<32; a3++) - if(xcmp[a3][o->a3]) - (*p)[a1][a2][a3] = n; - } - } - } - oprange[as].start = 0; -} diff --git a/sys/src/cmd/gs/alpha.h b/sys/src/cmd/gs/alpha.h deleted file mode 100644 index a3cba4e48..000000000 --- a/sys/src/cmd/gs/alpha.h +++ /dev/null @@ -1,44 +0,0 @@ -/* Parameters derived from machine and compiler architecture */ - - /* ---------------- Scalar alignments ---------------- */ - -#define ARCH_ALIGN_SHORT_MOD 2 -#define ARCH_ALIGN_INT_MOD 4 -#define ARCH_ALIGN_LONG_MOD 4 -#define ARCH_ALIGN_PTR_MOD 4 -#define ARCH_ALIGN_FLOAT_MOD 4 -#define ARCH_ALIGN_DOUBLE_MOD 8 -#define ARCH_ALIGN_STRUCT_MOD 4 - - /* ---------------- Scalar sizes ---------------- */ - -#define ARCH_LOG2_SIZEOF_SHORT 1 -#define ARCH_LOG2_SIZEOF_INT 2 -#define ARCH_LOG2_SIZEOF_LONG 2 -#define ARCH_LOG2_SIZEOF_LONG_LONG 3 -#define ARCH_SIZEOF_PTR 4 -#define ARCH_SIZEOF_FLOAT 4 -#define ARCH_SIZEOF_DOUBLE 8 -#define ARCH_FLOAT_MANTISSA_BITS 24 -#define ARCH_DOUBLE_MANTISSA_BITS 53 - - /* ---------------- Unsigned max values ---------------- */ - -#define ARCH_MAX_UCHAR ((unsigned char)0xff + (unsigned char)0) -#define ARCH_MAX_USHORT ((unsigned short)0xffff + (unsigned short)0) -#define ARCH_MAX_UINT ((unsigned int)~0 + (unsigned int)0) -#define ARCH_MAX_ULONG ((unsigned long)~0L + (unsigned long)0) - - /* ---------------- Cache sizes ---------------- */ - -#define ARCH_CACHE1_SIZE 65536 -#define ARCH_CACHE2_SIZE 131072 - - /* ---------------- Miscellaneous ---------------- */ - -#define ARCH_IS_BIG_ENDIAN 0 -#define ARCH_PTRS_ARE_SIGNED 0 -#define ARCH_FLOATS_ARE_IEEE 1 -#define ARCH_ARITH_RSHIFT 2 -#define ARCH_CAN_SHIFT_FULL_LONG 1 -#define ARCH_DIV_NEG_POS_TRUNCATES 1 diff --git a/sys/src/cmd/gs/arch.h b/sys/src/cmd/gs/arch.h index abdec1355..b21ca827a 100644 --- a/sys/src/cmd/gs/arch.h +++ b/sys/src/cmd/gs/arch.h @@ -8,8 +8,6 @@ #include "spim.h" #elif Tpower #include "mips.h" -#elif Talpha -#include "alpha.h" #elif Tarm #include "arm.h" #elif Tamd64 diff --git a/sys/src/cmd/gs/default.alpha.h b/sys/src/cmd/gs/default.alpha.h deleted file mode 100644 index a3cba4e48..000000000 --- a/sys/src/cmd/gs/default.alpha.h +++ /dev/null @@ -1,44 +0,0 @@ -/* Parameters derived from machine and compiler architecture */ - - /* ---------------- Scalar alignments ---------------- */ - -#define ARCH_ALIGN_SHORT_MOD 2 -#define ARCH_ALIGN_INT_MOD 4 -#define ARCH_ALIGN_LONG_MOD 4 -#define ARCH_ALIGN_PTR_MOD 4 -#define ARCH_ALIGN_FLOAT_MOD 4 -#define ARCH_ALIGN_DOUBLE_MOD 8 -#define ARCH_ALIGN_STRUCT_MOD 4 - - /* ---------------- Scalar sizes ---------------- */ - -#define ARCH_LOG2_SIZEOF_SHORT 1 -#define ARCH_LOG2_SIZEOF_INT 2 -#define ARCH_LOG2_SIZEOF_LONG 2 -#define ARCH_LOG2_SIZEOF_LONG_LONG 3 -#define ARCH_SIZEOF_PTR 4 -#define ARCH_SIZEOF_FLOAT 4 -#define ARCH_SIZEOF_DOUBLE 8 -#define ARCH_FLOAT_MANTISSA_BITS 24 -#define ARCH_DOUBLE_MANTISSA_BITS 53 - - /* ---------------- Unsigned max values ---------------- */ - -#define ARCH_MAX_UCHAR ((unsigned char)0xff + (unsigned char)0) -#define ARCH_MAX_USHORT ((unsigned short)0xffff + (unsigned short)0) -#define ARCH_MAX_UINT ((unsigned int)~0 + (unsigned int)0) -#define ARCH_MAX_ULONG ((unsigned long)~0L + (unsigned long)0) - - /* ---------------- Cache sizes ---------------- */ - -#define ARCH_CACHE1_SIZE 65536 -#define ARCH_CACHE2_SIZE 131072 - - /* ---------------- Miscellaneous ---------------- */ - -#define ARCH_IS_BIG_ENDIAN 0 -#define ARCH_PTRS_ARE_SIGNED 0 -#define ARCH_FLOATS_ARE_IEEE 1 -#define ARCH_ARITH_RSHIFT 2 -#define ARCH_CAN_SHIFT_FULL_LONG 1 -#define ARCH_DIV_NEG_POS_TRUNCATES 1 diff --git a/sys/src/cmd/pcc.c b/sys/src/cmd/pcc.c index b5b93f5f7..c531fd0b8 100644 --- a/sys/src/cmd/pcc.c +++ b/sys/src/cmd/pcc.c @@ -16,7 +16,6 @@ Objtype objtype[] = { {"68020", "2c", "2l", "2", "2.out"}, {"arm", "5c", "5l", "5", "5.out"}, {"amd64", "6c", "6l", "6", "6.out"}, - {"alpha", "7c", "7l", "7", "7.out"}, {"386", "8c", "8l", "8", "8.out"}, {"power64", "9c", "9l", "9", "9.out"}, {"sparc", "kc", "kl", "k", "k.out"}, diff --git a/sys/src/cmd/prof.c b/sys/src/cmd/prof.c index 0e8806cef..7f7f0f3e3 100644 --- a/sys/src/cmd/prof.c +++ b/sys/src/cmd/prof.c @@ -335,7 +335,6 @@ char* trans[] = { "386", "8.out", "68020", "2.out", - "alpha", "7.out", "amd64", "6.out", "arm", "5.out", "mips", "v.out", diff --git a/sys/src/cmd/python/pyconfig.h b/sys/src/cmd/python/pyconfig.h index 27edf0ed2..a01ec73c9 100644 --- a/sys/src/cmd/python/pyconfig.h +++ b/sys/src/cmd/python/pyconfig.h @@ -17,7 +17,7 @@ typedef struct Threadarg Threadarg; -#if defined(T386) || defined(Talpha) || defined(Tarm) || defined(Tpower) || defined(Tamd64) || defined(Tspim) +#if defined(T386) || defined(Tarm) || defined(Tpower) || defined(Tamd64) || defined(Tspim) #undef WORDS_BIGENDIAN #elif defined(Tmips) || defined(Tsparc) #define WORDS_BIGENDIAN diff --git a/sys/src/libc/alpha/_seek.c b/sys/src/libc/alpha/_seek.c deleted file mode 100644 index 0aa741a66..000000000 --- a/sys/src/libc/alpha/_seek.c +++ /dev/null @@ -1,14 +0,0 @@ -#include -#include - -extern int _seek(vlong*, int, vlong, int); - -vlong -seek(int fd, vlong o, int p) -{ - vlong l; - - if(_seek(&l, fd, o, p) < 0) - l = -1LL; - return l; -} diff --git a/sys/src/libc/alpha/argv0.s b/sys/src/libc/alpha/argv0.s deleted file mode 100644 index 8d9f9b29b..000000000 --- a/sys/src/libc/alpha/argv0.s +++ /dev/null @@ -1,4 +0,0 @@ -GLOBL argv0(SB), $4 -GLOBL _tos(SB), $4 -GLOBL _privates(SB), $4 -GLOBL _nprivates(SB), $4 diff --git a/sys/src/libc/alpha/atom.s b/sys/src/libc/alpha/atom.s deleted file mode 100644 index e9dbd14aa..000000000 --- a/sys/src/libc/alpha/atom.s +++ /dev/null @@ -1,67 +0,0 @@ -TEXT ainc(SB),$-8 /* long ainc(long *); */ - MOVQ R0, R1 /* p */ -inc1: - MOVLL (R1), R2 /* *p */ - ADDL $1, R2 - MOVQ R2, R0 /* copy to return */ - MOVLC R2, (R1) /* (*p)++ */ - BEQ R2, inc1 /* write failed, retry */ - RET - -TEXT adec(SB),$-8 /* long ainc(long *); */ - MOVQ R0, R1 /* p */ -dec1: - MOVLL (R1), R2 /* *p */ - SUBL $1, R2 - MOVQ R2, R0 /* copy to return */ - MOVLC R2, (R1) /* (*p)++ */ - BEQ R2, dec1 /* write failed, retry */ - RET - -TEXT _xinc(SB), $-8 - MOVQ R0, R1 /* p */ -xinc1: - MOVLL (R1), R0 /* *p */ - ADDL $1, R0 - MOVLC R0, (R1) /* (*p)++ */ - BEQ R0, xinc1 /* write failed, retry */ - RET - -TEXT _xdec(SB), $-8 - MOVQ R0, R1 /* p */ -xdec1: - MOVLL (R1), R0 /* *p */ - SUBL $1, R0 - MOVQ R0, R2 - MOVLC R2, (R1) /* --(*p) */ - BEQ R2, xdec1 /* write failed, retry */ - RET - -TEXT cas(SB), $-8 -TEXT casp(SB), $-8 - MOVQ R0, R1 /* p */ - MOVL old+4(FP), R2 - MOVL new+8(FP), R3 - MOVLL (R1), R0 - CMPEQ R0, R2, R4 - BEQ R4, fail /* if R0 != [sic] R2, goto fail */ - MOVQ R3, R0 - MOVLC R0, (R1) - RET -fail: - MOVL $0, R0 - RET - -TEXT loadlink(SB), $-8 - MOVLL (R0), R0 - RET - -TEXT storecond(SB), $-8 - MOVW val+4(FP), R1 - MOVLC R1, (R0) - BEQ R1, storecondfail /* write failed */ - MOVW $1, R0 - RET -storecondfail: - MOVW $0, R0 - RET diff --git a/sys/src/libc/alpha/cycles.c b/sys/src/libc/alpha/cycles.c deleted file mode 100644 index 9bad3a989..000000000 --- a/sys/src/libc/alpha/cycles.c +++ /dev/null @@ -1,7 +0,0 @@ -#include -#include - -void cycles(uvlong*u) -{ - *u = 0LL; -} diff --git a/sys/src/libc/alpha/divl.s b/sys/src/libc/alpha/divl.s deleted file mode 100644 index bce568a8e..000000000 --- a/sys/src/libc/alpha/divl.s +++ /dev/null @@ -1,189 +0,0 @@ -/* - * ulong - * _udiv(ulong num, ulong den) - * { - * int i; - * ulong quo; - * - * if(den == 0) - * *(ulong*)-1 = 0; - * quo = num; - * if(quo > 1<<(32-1)) - * quo = 1<<(32-1); - * for(i=0; den=0; i--) { - * quo <<= 1; - * if(num >= den) { - * num -= den; - * quo |= 1; - * } - * den >>= 1; - * } - * return quo::num; - * } - */ - -#define NOPROF 1 - -/* - * calling sequence: - * num: 8(R30) - * den: 12(R30) - * returns - * quo: 8(R30) - * rem: 12(R30) - */ -TEXT _udivmodl(SB), NOPROF, $-8 - - MOVQ $-1, R11 - SLLQ $31, R11 /* (1<<31) in canonical form */ - MOVL 8(R30), R23 /* numerator */ - MOVL 12(R30), R10 /* denominator */ - BNE R10, udm20 - MOVQ R31, -1(R31) /* fault -- divide by zero; todo: use gentrap? */ -udm20: - MOVQ R23, R12 - BGE R12, udm34 - MOVQ R11, R12 -udm34: - MOVQ R31, R11 -udm38: - CMPUGE R10, R12, R24 - BNE R24, udm54 - SLLL $1, R10 - ADDQ $1, R11 - JMP udm38 -udm54: - MOVQ R31, R12 -udm58: - BLT R11, udm8c - SLLL $1, R12 - CMPUGE R23, R10, R24 - BEQ R24, udm7c - SUBL R10, R23 - OR $1, R12 -udm7c: - SRLL $1, R10 - SUBQ $1, R11 - JMP udm58 -udm8c: - MOVL R12, 8(R30) /* quotient */ - MOVL R23, 12(R30) /* remainder */ - RET - -/* - * save working registers - * and bring in num/den parameters - */ -TEXT _unsargl(SB), NOPROF, $-8 - MOVQ R10, 24(R30) - MOVQ R11, 32(R30) - MOVQ R12, 40(R30) - MOVQ R23, 48(R30) - MOVQ R24, 56(R30) - - MOVL R27, 8(R30) - MOVL 72(R30), R27 - MOVL R27, 12(R30) - - RET - -/* - * save working registers - * and bring in absolute value - * of num/den parameters - */ -TEXT _absargl(SB), NOPROF, $-8 - MOVQ R10, 24(R30) - MOVQ R11, 32(R30) - MOVQ R12, 40(R30) - MOVQ R23, 48(R30) - MOVQ R24, 56(R30) - - MOVL R27, 64(R30) - BGE R27, ab1 - SUBL R27, R31, R27 -ab1: - MOVL R27, 8(R30) /* numerator */ - - MOVL 72(R30), R27 - BGE R27, ab2 - SUBL R27, R31, R27 -ab2: - MOVL R27, 12(R30) /* denominator */ - RET - -/* - * restore registers and - * return to original caller - * answer is in R27 - */ -TEXT _retargl(SB), NOPROF, $-8 - MOVQ 24(R30), R10 - MOVQ 32(R30), R11 - MOVQ 40(R30), R12 - MOVQ 48(R30), R23 - MOVQ 56(R30), R24 - MOVL 0(R30), R26 - - ADDQ $64, R30 - RET /* back to main sequence */ - -TEXT _divl(SB), NOPROF, $-8 - SUBQ $64, R30 /* 5 reg save, 2 parameters, link */ - MOVL R26, 0(R30) - - JSR _absargl(SB) - JSR _udivmodl(SB) - MOVL 8(R30), R27 - - MOVL 64(R30), R10 /* clean up the sign */ - MOVL 72(R30), R11 - XOR R11, R10 - BGE R10, div1 - SUBL R27, R31, R27 -div1: - - JSR _retargl(SB) - RET /* not executed */ - -TEXT _divlu(SB), NOPROF, $-8 - SUBQ $64, R30 /* 5 reg save, 2 parameters, link */ - MOVL R26, 0(R30) - - JSR _unsargl(SB) - JSR _udivmodl(SB) - MOVL 8(R30), R27 - - JSR _retargl(SB) - RET /* not executed */ - -TEXT _modl(SB), NOPROF, $-8 - SUBQ $64, R30 /* 5 reg save, 2 parameters, link */ - MOVL R26, 0(R30) - - JSR _absargl(SB) - JSR _udivmodl(SB) - MOVL 12(R30), R27 - - MOVL 64(R30), R10 /* clean up the sign */ - BGE R10, div2 - SUBL R27, R31, R27 -div2: - - JSR _retargl(SB) - RET /* not executed */ - -TEXT _modlu(SB), NOPROF, $-8 - SUBQ $64, R30 /* 5 reg save, 2 parameters, link */ - MOVL R26, 0(R30) - - JSR _unsargl(SB) - JSR _udivmodl(SB) - MOVL 12(R30), R27 - - JSR _retargl(SB) - RET /* not executed */ - diff --git a/sys/src/libc/alpha/divq.s b/sys/src/libc/alpha/divq.s deleted file mode 100644 index 98a58e4a8..000000000 --- a/sys/src/libc/alpha/divq.s +++ /dev/null @@ -1,191 +0,0 @@ -/* - * uvlong - * _udiv(uvlong num, uvlong den) - * { - * int i; - * uvlong quo; - * - * if(den == 0) - * *(ulong*)-1 = 0; - * quo = num; - * if(quo > 1<<(64-1)) - * quo = 1<<(64-1); - * for(i=0; den=0; i--) { - * quo <<= 1; - * if(num >= den) { - * num -= den; - * quo |= 1; - * } - * den >>= 1; - * } - * return quo::num; - * } - */ - -#define NOPROF 1 - -/* - * calling sequence: - * num: 8(R30) - * den: 16(R30) - * returns - * quo: 8(R30) - * rem: 16(R30) - */ -TEXT _udivmodq(SB), NOPROF, $-8 - - MOVQ $1, R11 - SLLQ $63, R11 - MOVQ 8(R30), R23 /* numerator */ - MOVQ 16(R30), R10 /* denominator */ - BNE R10, udm20 - MOVQ R31, -1(R31) /* fault -- divide by zero; todo: use gentrap? */ -udm20: - MOVQ R23, R12 - BGE R12, udm34 - MOVQ R11, R12 -udm34: - MOVQ R31, R11 -udm38: - CMPUGE R10, R12, R24 - BNE R24, udm54 - SLLQ $1, R10 - ADDQ $1, R11 - JMP udm38 -udm54: - MOVQ R31, R12 -udm58: - BLT R11, udm8c - SLLQ $1, R12 - CMPUGE R23, R10, R24 - BEQ R24, udm7c - SUBQ R10, R23 - OR $1, R12 -udm7c: - SRLQ $1, R10 - SUBQ $1, R11 - JMP udm58 -udm8c: - MOVQ R12, 8(R30) /* quotient */ - MOVQ R23, 16(R30) /* remainder */ - RET - -/* - * save working registers - * and bring in num/den parameters - */ -TEXT _unsargq(SB), NOPROF, $-8 - MOVQ R10, 24(R30) - MOVQ R11, 32(R30) - MOVQ R12, 40(R30) - MOVQ R23, 48(R30) - MOVQ R24, 56(R30) - - MOVQ R27, 8(R30) - MOVQ 72(R30), R27 - MOVQ R27, 16(R30) - -MOVQ (R30), R10 /* debug */ - RET - -/* - * save working registers - * and bring in absolute value - * of num/den parameters - */ -TEXT _absargq(SB), NOPROF, $-8 - MOVQ R10, 24(R30) - MOVQ R11, 32(R30) - MOVQ R12, 40(R30) - MOVQ R23, 48(R30) - MOVQ R24, 56(R30) - - MOVQ R27, 64(R30) - BGE R27, ab1 - SUBQ R27, R31, R27 -ab1: - MOVQ R27, 8(R30) /* numerator */ - - MOVQ 72(R30), R27 - BGE R27, ab2 - SUBQ R27, R31, R27 -ab2: - MOVQ R27, 16(R30) /* denominator */ -MOVQ (R30), R10 /* debug */ - RET - -/* - * restore registers and - * return to original caller - * answer is in R27 - */ -TEXT _retargq(SB), NOPROF, $-8 - MOVQ 24(R30), R10 - MOVQ 32(R30), R11 - MOVQ 40(R30), R12 - MOVQ 48(R30), R23 - MOVQ 56(R30), R24 - MOVL 0(R30), R26 - - ADDQ $64, R30 - RET /* back to main sequence */ - -TEXT _divq(SB), NOPROF, $-8 - SUBQ $64, R30 /* 5 reg save, 2 parameters, link */ - MOVQ R26, 0(R30) - - JSR _absargq(SB) - JSR _udivmodq(SB) - MOVQ 8(R30), R27 - - MOVQ 64(R30), R10 /* clean up the sign */ - MOVQ 72(R30), R11 - XOR R11, R10 - BGE R10, div1 - SUBQ R27, R31, R27 -div1: - - JSR _retargq(SB) - RET /* not executed */ - -TEXT _divqu(SB), NOPROF, $-8 - SUBQ $64, R30 /* 5 reg save, 2 parameters, link */ - MOVQ R26, 0(R30) - - JSR _unsargq(SB) - JSR _udivmodq(SB) - MOVQ 8(R30), R27 - - JSR _retargq(SB) - RET /* not executed */ - -TEXT _modq(SB), NOPROF, $-8 - SUBQ $64, R30 /* 5 reg save, 2 parameters, link */ - MOVQ R26, 0(R30) - - JSR _absargq(SB) - JSR _udivmodq(SB) - MOVQ 16(R30), R27 - - MOVQ 64(R30), R10 /* clean up the sign */ - BGE R10, div2 - SUBQ R27, R31, R27 -div2: - - JSR _retargq(SB) - RET /* not executed */ - -TEXT _modqu(SB), NOPROF, $-8 - SUBQ $64, R30 /* 5 reg save, 2 parameters, link */ - MOVQ R26, 0(R30) - - JSR _unsargq(SB) - JSR _udivmodq(SB) - MOVQ 16(R30), R27 - - JSR _retargq(SB) - RET /* not executed */ - diff --git a/sys/src/libc/alpha/getcallerpc.s b/sys/src/libc/alpha/getcallerpc.s deleted file mode 100644 index 2214561be..000000000 --- a/sys/src/libc/alpha/getcallerpc.s +++ /dev/null @@ -1,4 +0,0 @@ -TEXT getcallerpc(SB), $-8 - MOVL 0(SP), R0 - RET - diff --git a/sys/src/libc/alpha/getfcr.s b/sys/src/libc/alpha/getfcr.s deleted file mode 100644 index 06df5de98..000000000 --- a/sys/src/libc/alpha/getfcr.s +++ /dev/null @@ -1,57 +0,0 @@ -#define EXCB WORD $0x60000400 /* until 7a/7l catch up */ - -TEXT getfsr(SB), $8 - EXCB - MOVT FPCR, F0 - EXCB - MOVT F0, tmp-8(SP) - MOVL tmp-4(SP), R1 - MOVQ $0x01e00000, R2 - AND R2, R1, R0 - RET - -TEXT setfsr(SB), $8 - MOVQ $0x01e00000, R2 - EXCB - MOVT FPCR, F0 - EXCB - MOVT F0, tmp-8(SP) - MOVL tmp-4(SP), R1 - ANDNOT R2, R1, R3 - AND R2, R0, R4 - OR R3, R4, R5 - MOVL R5, tmp-4(SP) - MOVT tmp-8(SP), F0 - EXCB - MOVT F0, FPCR - EXCB - RET - -TEXT getfcr(SB), $8 - EXCB - MOVT FPCR, F0 - EXCB - MOVT F0, tmp-8(SP) - MOVL tmp-4(SP), R1 - MOVQ $0x700c0000, R2 - AND R2, R1, R0 - XOR R2, R0 - RET - -TEXT setfcr(SB), $8 - MOVQ $0x700c0000, R2 - XOR R2, R0 - EXCB - MOVT FPCR, F0 - EXCB - MOVT F0, tmp-8(SP) - MOVL tmp-4(SP), R1 - ANDNOT R2, R1, R3 - AND R2, R0, R4 - OR R3, R4, R5 - MOVL R5, tmp-4(SP) - MOVT tmp-8(SP), F0 - EXCB - MOVT F0, FPCR - EXCB - RET diff --git a/sys/src/libc/alpha/main9.s b/sys/src/libc/alpha/main9.s deleted file mode 100644 index 5e51d5d28..000000000 --- a/sys/src/libc/alpha/main9.s +++ /dev/null @@ -1,27 +0,0 @@ -#define NPRIVATES 16 - -TEXT _main(SB), 1, $(16 + NPRIVATES*4) - - MOVQ $setSB(SB), R29 - MOVL R0, _tos(SB) - - MOVQ $p-64(SP),R1 - MOVL R1,_privates+0(SB) - MOVQ $16,R1 - MOVL R1,_nprivates+0(SB) - - MOVL inargc-8(FP), R0 - MOVL $inargv-4(FP), R1 - MOVL R0, 8(R30) - MOVL R1, 12(R30) - JSR main(SB) -loop: - MOVL $_exitstr<>(SB), R0 - MOVL R0, 8(R30) - JSR exits(SB) - MOVQ $_divq(SB), R31 /* force loading of divq */ - MOVQ $_divl(SB), R31 /* force loading of divl */ - JMP loop - -DATA _exitstr<>+0(SB)/4, $"main" -GLOBL _exitstr<>+0(SB), $5 diff --git a/sys/src/libc/alpha/main9p.s b/sys/src/libc/alpha/main9p.s deleted file mode 100644 index 6e24054d7..000000000 --- a/sys/src/libc/alpha/main9p.s +++ /dev/null @@ -1,38 +0,0 @@ -#define NPRIVATES 16 - -TEXT _mainp(SB), 1, $16 - - MOVQ $setSB(SB), R29 - MOVL R0, _tos(SB) - - MOVQ $p-64(SP),R1 - MOVL R1,_privates+0(SB) - MOVQ $16,R1 - MOVL R1,_nprivates+0(SB) - JSR _profmain(SB) - MOVL __prof+4(SB), R0 - MOVL R0, __prof+0(SB) - MOVL inargc-4(FP), R0 - MOVL $inargv+0(FP), R1 - MOVL R0, 8(R30) - MOVL R1, 12(R30) - JSR main(SB) -loop: - MOVQ $exits<>(SB), R0 - MOVL R0, 8(R30) - JSR exits(SB) - MOVQ $_divq(SB), R31 /* force loading of divq */ - MOVQ $_divl(SB), R31 /* force loading of divl */ - MOVQ $_profin(SB), R31 /* force loading of profile */ - JMP loop - -TEXT _saveret(SB), 1, $0 -TEXT _savearg(SB), 1, $0 - RET - -TEXT _callpc(SB), 1, $0 - MOVL argp-8(FP), R0 - RET - -DATA exits<>+0(SB)/4, $"main" -GLOBL exits<>+0(SB), $5 diff --git a/sys/src/libc/alpha/memmove.s b/sys/src/libc/alpha/memmove.s deleted file mode 100644 index f0e822184..000000000 --- a/sys/src/libc/alpha/memmove.s +++ /dev/null @@ -1,201 +0,0 @@ -#define QUAD 8 -#define ALIGN 64 -#define BLOCK 64 - -TEXT memmove(SB), $0 -_memmove: - MOVL from+4(FP), R7 - MOVL n+8(FP), R10 - MOVQ R0, R6 - - CMPUGE R7, R0, R5 - BNE R5, _forward - - MOVQ R6, R8 /* end to address */ - ADDL R10, R6, R6 /* to+n */ - ADDL R10, R7, R7 /* from+n */ - - CMPUGE $ALIGN, R10, R1 /* need at least ALIGN bytes */ - BNE R1, _b1tail - -_balign: - AND $(ALIGN-1), R6, R1 - BEQ R1, _baligned - - MOVBU -1(R7), R2 - ADDL $-1, R6, R6 - MOVB R2, (R6) - ADDL $-1, R7, R7 - JMP _balign - -_baligned: - AND $(QUAD-1), R7, R1 /* is the source quad-aligned */ - BNE R1, _bunaligned - - ADDL $(BLOCK-1), R8, R9 -_bblock: - CMPUGE R9, R6, R1 - BNE R1, _b8tail - - MOVQ -64(R7), R22 - MOVQ -56(R7), R23 - MOVQ -48(R7), R24 - MOVQ -40(R7), R25 - MOVQ -32(R7), R2 - MOVQ -24(R7), R3 - MOVQ -16(R7), R4 - MOVQ -8(R7), R5 - - SUBL $64, R6, R6 - SUBL $64, R7, R7 - - MOVQ R22, (R6) - MOVQ R23, 8(R6) - MOVQ R24, 16(R6) - MOVQ R25, 24(R6) - MOVQ R2, 32(R6) - MOVQ R3, 40(R6) - MOVQ R4, 48(R6) - MOVQ R5, 56(R6) - JMP _bblock - -_b8tail: - ADDL $(QUAD-1), R8, R9 -_b8block: - CMPUGE R9, R6, R1 - BNE R1, _b1tail - - MOVQ -8(R7), R2 - SUBL $8, R6 - MOVQ R2, (R6) - SUBL $8, R7 - JMP _b8block - -_b1tail: - CMPUGE R8, R6, R1 - BNE R1, _ret - - MOVBU -1(R7), R2 - SUBL $1, R6, R6 - MOVB R2, (R6) - SUBL $1, R7, R7 - JMP _b1tail -_ret: - RET - -_bunaligned: - ADDL $(16-1), R8, R9 - -_bu8block: - CMPUGE R9, R6, R1 - BNE R1, _b1tail - - MOVQU -16(R7), R4 - MOVQU -8(R7), R3 - MOVQU (R7), R2 - SUBL $16, R6 - EXTQH R7, R2, R2 - EXTQL R7, R3, R5 - OR R5, R2, R11 - EXTQH R7, R3, R3 - EXTQL R7, R4, R4 - OR R3, R4, R13 - MOVQ R11, 8(R6) - MOVQ R13, (R6) - SUBL $16, R7 - JMP _bu8block - -_forward: - ADDL R10, R6, R8 /* end to address */ - - CMPUGE $ALIGN, R10, R1 /* need at least ALIGN bytes */ - BNE R1, _f1tail - -_falign: - AND $(ALIGN-1), R6, R1 - BEQ R1, _faligned - - MOVBU (R7), R2 - ADDL $1, R6, R6 - ADDL $1, R7, R7 - MOVB R2, -1(R6) - JMP _falign - -_faligned: - AND $(QUAD-1), R7, R1 /* is the source quad-aligned */ - BNE R1, _funaligned - - SUBL $(BLOCK-1), R8, R9 -_fblock: - CMPUGT R9, R6, R1 - BEQ R1, _f8tail - - MOVQ (R7), R2 - MOVQ 8(R7), R3 - MOVQ 16(R7), R4 - MOVQ 24(R7), R5 - MOVQ 32(R7), R22 - MOVQ 40(R7), R23 - MOVQ 48(R7), R24 - MOVQ 56(R7), R25 - - ADDL $64, R6, R6 - ADDL $64, R7, R7 - - MOVQ R2, -64(R6) - MOVQ R3, -56(R6) - MOVQ R4, -48(R6) - MOVQ R5, -40(R6) - MOVQ R22, -32(R6) - MOVQ R23, -24(R6) - MOVQ R24, -16(R6) - MOVQ R25, -8(R6) - JMP _fblock - -_f8tail: - SUBL $(QUAD-1), R8, R9 -_f8block: - CMPUGT R9, R6, R1 - BEQ R1, _f1tail - - MOVQ (R7), R2 - ADDL $8, R6 - ADDL $8, R7 - MOVQ R2, -8(R6) - JMP _f8block - -_f1tail: - CMPUGT R8, R6, R1 - BEQ R1, _fret - MOVBU (R7), R2 - ADDL $1, R6, R6 - ADDL $1, R7, R7 - MOVB R2, -1(R6) - JMP _f1tail - -_fret: - RET - -_funaligned: - SUBL $(16-1), R8, R9 -_fu8block: - CMPUGT R9, R6, R1 - BEQ R1, _f1tail - - MOVQU (R7), R2 - MOVQU 8(R7), R3 - MOVQU 16(R7), R4 - EXTQL R7, R2, R2 - EXTQH R7, R3, R5 - OR R5, R2, R11 - EXTQL R7, R3, R3 - MOVQ R11, (R6) - EXTQH R7, R4, R4 - OR R3, R4, R11 - MOVQ R11, 8(R6) - ADDL $16, R6 - ADDL $16, R7 - JMP _fu8block - -TEXT memcpy(SB), $0 - JMP _memmove diff --git a/sys/src/libc/alpha/memset.s b/sys/src/libc/alpha/memset.s deleted file mode 100644 index e3cfd468b..000000000 --- a/sys/src/libc/alpha/memset.s +++ /dev/null @@ -1,61 +0,0 @@ -TEXT memset(SB), $0 - MOVL R0, R6 - MOVBU data+4(FP), R2 - MOVL n+8(FP), R10 - - ADDL R10, R0, R8 - - CMPUGE $8, R10, R1 /* need at least 8 bytes */ - BNE R1, _1loop - - SLLQ $8, R2, R1 /* replicate the byte */ - OR R1, R2 - SLLQ $16, R2, R1 - OR R1, R2 - SLLQ $32, R2, R1 - OR R1, R2 - -_align: - AND $(8-1), R6, R1 - BEQ R1, _aligned - - MOVB R2, (R6) - ADDL $1, R6, R6 - JMP _align - -_aligned: - SUBL $(64-1), R8, R9 /* end pointer minus slop */ -_64loop: - CMPUGT R9, R6, R1 - BEQ R1, _8tail - - MOVQ R2, (R6) - MOVQ R2, 8(R6) - MOVQ R2, 16(R6) - MOVQ R2, 24(R6) - MOVQ R2, 32(R6) - MOVQ R2, 40(R6) - MOVQ R2, 48(R6) - MOVQ R2, 56(R6) - ADDL $64, R6, R6 - JMP _64loop - -_8tail: - SUBL $(8-1), R8, R9 -_8loop: - CMPUGT R9, R6, R1 - BEQ R1, _1loop - - MOVQ R2, (R6) - ADDL $8, R6 - JMP _8loop - -_1loop: - CMPUGT R8, R6, R1 - BEQ R1, _ret - MOVB R2, (R6) - ADDL $1, R6 - JMP _1loop - -_ret: - RET diff --git a/sys/src/libc/alpha/mkfile b/sys/src/libc/alpha/mkfile deleted file mode 100644 index ef66ac423..000000000 --- a/sys/src/libc/alpha/mkfile +++ /dev/null @@ -1,33 +0,0 @@ -objtype=alpha - -#include -#include - -void -notejmp(void *vr, jmp_buf j, int ret) -{ - struct Ureg *r = vr; - - r->r0 = ret; - if(ret == 0) - r->r0 = 1; - r->pc = j[JMPBUFPC]; - r->sp = j[JMPBUFSP]; - noted(NCONT); -} diff --git a/sys/src/libc/alpha/setjmp.s b/sys/src/libc/alpha/setjmp.s deleted file mode 100644 index dd423df02..000000000 --- a/sys/src/libc/alpha/setjmp.s +++ /dev/null @@ -1,14 +0,0 @@ -TEXT setjmp(SB), 1, $-8 - MOVL R30, (R0) - MOVL R26, 4(R0) - MOVQ $0, R0 - RET - -TEXT longjmp(SB), 1, $-8 - MOVL r+4(FP), R3 - BNE R3, ok /* ansi: "longjmp(0) => longjmp(1)" */ - MOVQ $1, R3 /* bless their pointed heads */ -ok: MOVL (R0), R30 - MOVL 4(R0), R26 - MOVL R3, R0 - RET diff --git a/sys/src/libc/alpha/tas.s b/sys/src/libc/alpha/tas.s deleted file mode 100644 index 613eb7b91..000000000 --- a/sys/src/libc/alpha/tas.s +++ /dev/null @@ -1,10 +0,0 @@ -TEXT _tas(SB), $-8 - MOVQ R0, R1 /* l */ -tas1: - MOVLL (R1), R0 /* l->key */ - BNE R0, tas2 - MOVQ $1, R2 - MOVLC R2, (R1) /* l->key = 1 */ - BEQ R2, tas1 /* write failed, try again? */ -tas2: - RET diff --git a/sys/src/libmach/7.c b/sys/src/libmach/7.c deleted file mode 100644 index 47c72b736..000000000 --- a/sys/src/libmach/7.c +++ /dev/null @@ -1,115 +0,0 @@ -/* - * alpha definition - */ -#include -#include -#include -#include "/alpha/include/ureg.h" -#include - -#define REGOFF(x) (ulong)(&((struct Ureg *) 0)->x) - -#define REGSIZE sizeof(struct Ureg) -#define FPREGSIZE (8*33) - -#define SP REGOFF(sp) -#define PC REGOFF(pc) -#define FP_REG(x) (REGSIZE+8*(x)) - -Reglist alphareglist[] = { - {"STATUS", REGOFF(status), RINT|RRDONLY, 'W'}, - {"TYPE", REGOFF(type), RINT|RRDONLY, 'W'}, - {"A0", REGOFF(a0), RINT|RRDONLY, 'W'}, - {"A1", REGOFF(a1), RINT|RRDONLY, 'W'}, - {"A2", REGOFF(a2), RINT|RRDONLY, 'W'}, - {"PC", PC, RINT, 'X'}, - {"SP", SP, RINT, 'X'}, - {"R29", REGOFF(r29), RINT, 'W'}, - {"R28", REGOFF(r28), RINT, 'W'}, - {"R27", REGOFF(r27), RINT, 'W'}, - {"R26", REGOFF(r26), RINT, 'W'}, - {"R25", REGOFF(r25), RINT, 'W'}, - {"R24", REGOFF(r24), RINT, 'W'}, - {"R23", REGOFF(r23), RINT, 'W'}, - {"R22", REGOFF(r22), RINT, 'W'}, - {"R21", REGOFF(r21), RINT, 'W'}, - {"R20", REGOFF(r20), RINT, 'W'}, - {"R19", REGOFF(r19), RINT, 'W'}, - {"R18", REGOFF(r18), RINT, 'W'}, - {"R17", REGOFF(r17), RINT, 'W'}, - {"R16", REGOFF(r16), RINT, 'W'}, - {"R15", REGOFF(r15), RINT, 'W'}, - {"R14", REGOFF(r14), RINT, 'W'}, - {"R13", REGOFF(r13), RINT, 'W'}, - {"R12", REGOFF(r12), RINT, 'W'}, - {"R11", REGOFF(r11), RINT, 'W'}, - {"R10", REGOFF(r10), RINT, 'W'}, - {"R9", REGOFF(r9), RINT, 'W'}, - {"R8", REGOFF(r8), RINT, 'W'}, - {"R7", REGOFF(r7), RINT, 'W'}, - {"R6", REGOFF(r6), RINT, 'W'}, - {"R5", REGOFF(r5), RINT, 'W'}, - {"R4", REGOFF(r4), RINT, 'W'}, - {"R3", REGOFF(r3), RINT, 'W'}, - {"R2", REGOFF(r2), RINT, 'W'}, - {"R1", REGOFF(r1), RINT, 'W'}, - {"R0", REGOFF(r0), RINT, 'W'}, - {"F0", FP_REG(0), RFLT, 'F'}, - {"F1", FP_REG(1), RFLT, 'F'}, - {"F2", FP_REG(2), RFLT, 'F'}, - {"F3", FP_REG(3), RFLT, 'F'}, - {"F4", FP_REG(4), RFLT, 'F'}, - {"F5", FP_REG(5), RFLT, 'F'}, - {"F6", FP_REG(6), RFLT, 'F'}, - {"F7", FP_REG(7), RFLT, 'F'}, - {"F8", FP_REG(8), RFLT, 'F'}, - {"F9", FP_REG(9), RFLT, 'F'}, - {"F10", FP_REG(10), RFLT, 'F'}, - {"F11", FP_REG(11), RFLT, 'F'}, - {"F12", FP_REG(12), RFLT, 'F'}, - {"F13", FP_REG(13), RFLT, 'F'}, - {"F14", FP_REG(14), RFLT, 'F'}, - {"F15", FP_REG(15), RFLT, 'F'}, - {"F16", FP_REG(16), RFLT, 'F'}, - {"F17", FP_REG(17), RFLT, 'F'}, - {"F18", FP_REG(18), RFLT, 'F'}, - {"F19", FP_REG(19), RFLT, 'F'}, - {"F20", FP_REG(20), RFLT, 'F'}, - {"F21", FP_REG(21), RFLT, 'F'}, - {"F22", FP_REG(22), RFLT, 'F'}, - {"F23", FP_REG(23), RFLT, 'F'}, - {"F24", FP_REG(24), RFLT, 'F'}, - {"F25", FP_REG(25), RFLT, 'F'}, - {"F26", FP_REG(26), RFLT, 'F'}, - {"F27", FP_REG(27), RFLT, 'F'}, - {"F28", FP_REG(28), RFLT, 'F'}, - {"F29", FP_REG(29), RFLT, 'F'}, - {"F30", FP_REG(30), RFLT, 'F'}, - {"F31", FP_REG(31), RFLT, 'F'}, - {"FPCR", FP_REG(32), RFLT, 'W'}, - { 0 } -}; - - /* the machine description */ -Mach malpha = -{ - "alpha", - MALPHA, /* machine type */ - alphareglist, /* register set */ - REGSIZE, /* number of bytes in reg set */ - FPREGSIZE, /* number of bytes in fp reg set */ - "PC", - "SP", - "R29", - "setSB", /* static base register name */ - 0, /* static base register value */ - 0x2000, /* page size */ - 0x80000000ULL, /* kernel base */ - 0xF0000000ULL, /* kernel text mask */ - 0x7FFFFFFFULL, /* user stack top */ - 4, /* quantization of pc */ - 4, /* szaddr */ - 8, /* szreg (not used?) */ - 4, /* szfloat */ - 8, /* szdouble */ -}; diff --git a/sys/src/libmach/7db.c b/sys/src/libmach/7db.c deleted file mode 100644 index bf101dd27..000000000 --- a/sys/src/libmach/7db.c +++ /dev/null @@ -1,925 +0,0 @@ -#include -#include -#include -#include -/* - * Alpha-specific debugger interface - */ - -static char *alphaexcep(Map*, Rgetter); -static int alphafoll(Map*, uvlong, Rgetter, uvlong*); -static int alphainst(Map*, uvlong, char, char*, int); -static int alphadas(Map*, uvlong, char*, int); -static int alphainstlen(Map*, uvlong); -/* - * Debugger interface - */ -Machdata alphamach = -{ - {0x80, 0, 0, 0}, /* break point */ - 4, /* break point size */ - - leswab, /* short to local byte order */ - leswal, /* long to local byte order */ - leswav, /* vlong to local byte order */ - risctrace, /* C traceback */ - riscframe, /* Frame finder */ - alphaexcep, /* print exception */ - 0, /* breakpoint fixup */ - leieeesftos, /* single precision float printer */ - leieeedftos, /* double precisioin float printer */ - alphafoll, /* following addresses */ - alphainst, /* print instruction */ - alphadas, /* dissembler */ - alphainstlen, /* instruction size */ -}; - -static char *illegaltype[] = { - "breakpoint", - "bugchk", - "gentrap", - "fen", - "illegal instruction", -}; - -static char * -alphaexcep(Map *map, Rgetter rget) -{ - ulong type, a0, a1; - static char buf[256]; - - type = (*rget)(map, "TYPE"); - a0 = (*rget)(map, "A0"); - a1 = (*rget)(map, "A1"); -/* a2 = (*rget)(map, "A2"); */ - - switch (type) { - case 1: /* arith */ - sprint(buf, "trap: arithmetic trap 0x%lux", a0); - break; - case 2: /* bad instr or FEN */ - if (a0 <= 4) - return illegaltype[a0]; - else - sprint(buf, "illegal instr trap, unknown type %lud", a0); - break; - case 3: /* intr */ - sprint(buf, "interrupt type %lud", a0); - break; - case 4: /* memory fault */ - sprint(buf, "fault %s addr=0x%lux", (a1&1)?"write":"read", a0); - break; - case 5: /* syscall() */ - return "system call"; - case 6: /* alignment fault */ - sprint(buf, "unaligned op 0x%lux addr 0x%lux", a1, a0); - break; - default: /* cannot happen */ - sprint(buf, "unknown exception type %lud", type); - break; - } - return buf; -} - - /* alpha disassembler and related functions */ - -static char FRAMENAME[] = ".frame"; - -typedef struct { - uvlong addr; - uchar op; /* bits 31-26 */ - uchar ra; /* bits 25-21 */ - uchar rb; /* bits 20-16 */ - uchar rc; /* bits 4-0 */ - long mem; /* bits 15-0 */ - long branch; /* bits 20-0 */ - uchar function; /* bits 11-5 */ - uchar literal; /* bits 20-13 */ - uchar islit; /* bit 12 */ - uchar fpfn; /* bits 10-5 */ - uchar fpmode; /* bits 15-11 */ - long w0; - long w1; - int size; /* instruction size */ - char *curr; /* fill point in buffer */ - char *end; /* end of buffer */ - char *err; /* error message */ -} Instr; - -static Map *mymap; - -static int -decode(uvlong pc, Instr *i) -{ - ulong w; - - if (get4(mymap, pc, &w) < 0) { - werrstr("can't read instruction: %r"); - return -1; - } - i->addr = pc; - i->size = 1; - i->op = (w >> 26) & 0x3F; - i->ra = (w >> 21) & 0x1F; - i->rb = (w >> 16) & 0x1F; - i->rc = w & 0x1F; - i->function = (w >> 5) & 0x7F; - i->mem = w & 0xFFFF; - if (i->mem & 0x8000) - i->mem -= 0x10000; - i->branch = w & 0x1FFFFF; - if (i->branch & 0x100000) - i->branch -= 0x200000; - i->function = (w >> 5) & 0x7F; - i->literal = (w >> 13) & 0xFF; - i->islit = (w >> 12) & 0x01; - i->fpfn = (w >> 5) & 0x3F; - i->fpmode = (w >> 11) & 0x1F; - i->w0 = w; - return 1; -} - -static int -mkinstr(uvlong pc, Instr *i) -{ -/* Instr x; */ - - if (decode(pc, i) < 0) - return -1; - -#ifdef frommips -/* we probably want to do something like this for alpha... */ - /* - * if it's a LUI followed by an ORI, - * it's an immediate load of a large constant. - * fix the LUI immediate in any case. - */ - if (i->op == 0x0F) { - if (decode(pc+4, &x) < 0) - return 0; - i->immediate <<= 16; - if (x.op == 0x0D && x.rs == x.rt && x.rt == i->rt) { - i->immediate |= (x.immediate & 0xFFFF); - i->w1 = x.w0; - i->size++; - return 1; - } - } -#endif - return 1; -} - -#pragma varargck argpos bprint 2 - -static void -bprint(Instr *i, char *fmt, ...) -{ - va_list arg; - - va_start(arg, fmt); - i->curr = vseprint(i->curr, i->end, fmt, arg); - va_end(arg); -} - -typedef struct Opcode Opcode; - -struct Opcode { - char *mnemonic; - void (*f)(Opcode *, Instr *); - char *ken; -}; - -static void format(char *, Instr *, char *); - -static int -plocal(Instr *i, char *m, char r, int store) -{ - int offset; - char *reg; - Symbol s; - - if (!findsym(i->addr, CTEXT, &s) || !findlocal(&s, FRAMENAME, &s)) - return 0; - if (s.value > i->mem) { - if(!getauto(&s, s.value-i->mem, CAUTO, &s)) - return 0; - reg = "(SP)"; - offset = i->mem; - } else { - offset = i->mem-s.value-8; - if (!getauto(&s, offset, CPARAM, &s)) - return 0; - reg = "(FP)"; - } - if (store) - bprint(i, "%s\t%c%d,%s+%d%s", m, r, i->ra, s.name, offset, reg); - else - bprint(i, "%s\t%s+%d%s,%c%d", m, s.name, offset, reg, r, i->ra); - return 1; -} - -static void -_load(Opcode *o, Instr *i, char r) -{ - char *m; - - m = o->mnemonic; - if (i->rb == 30 && plocal(i, m, r, 0)) - return; - if (i->rb == 29 && mach->sb) { - bprint(i, "%s\t", m); - i->curr += symoff(i->curr, i->end-i->curr, i->mem+mach->sb, CANY); - bprint(i, "(SB),%c%d", r, i->ra); - return; - } - format(m, i, o->ken); -} - -static void -load(Opcode *o, Instr *i) -{ - _load(o, i, 'R'); -} - -static void -loadf(Opcode *o, Instr *i) -{ - _load(o, i, 'F'); -} - -static void -_store(Opcode *o, Instr *i, char r) -{ - char *m; - - m = o->mnemonic; - if (i->rb == 30 && plocal(i, m, r, 1)) - return; - if (i->rb == 29 && mach->sb) { - bprint(i, "%s\t%c%d,", m, r, i->ra); - i->curr += symoff(i->curr, i->end-i->curr, i->mem+mach->sb, CANY); - bprint(i, "(SB)"); - return; - } - format(o->mnemonic, i, o->ken); -} - -static void -store(Opcode *o, Instr *i) -{ - _store(o, i, 'R'); -} - -static void -storef(Opcode *o, Instr *i) -{ - _store(o, i, 'F'); -} - -static void -misc(Opcode *o, Instr *i) -{ - char *f; - - USED(o); - switch (i->mem&0xFFFF) { - case 0x0000: - f = "TRAPB"; - break; - case 0x4000: - f = "MB"; - break; - case 0x8000: - f = "FETCH\t0(R%b)"; - break; - case 0xA000: - f = "FETCH_M\t0(R%b)"; - break; - case 0xC000: - f = "RPCC\tR%a"; - break; - case 0xE000: - f = "RC\tR%a"; - break; - case 0xF000: - f = "RS\tR%a"; - break; - default: - f = "%w"; - } - format(0, i, f); -} - -static char *jmpcode[4] = { "JMP", "JSR", "RET", "JSR_COROUTINE" }; - -static void -jmp(Opcode *o, Instr *i) -{ - int hint; - char *m; - - USED(o); - hint = (i->mem >> 14) & 3; - m = jmpcode[hint]; - if (i->ra == 31) { - if (hint == 2 && i->rb == 29) - bprint(i, m); - else - format(m, i, "(R%b)"); - } - else - format(m, i, "R%a,(R%b)"); -} - -static void -br(Opcode *o, Instr *i) -{ - if (i->ra == 31) - format(o->mnemonic, i, "%B"); - else - format(o->mnemonic, i, o->ken); -} - -static void -bsr(Opcode *o, Instr *i) -{ - if (i->ra == 26) - format(o->mnemonic, i, "%B"); - else - format(o->mnemonic, i, o->ken); -} - -static void -mult(Opcode *o, Instr *i) -{ - char *m; - - switch (i->function) { - case 0x00: - m = "MULL"; - break; - case 0x20: - m = "MULQ"; - break; - case 0x40: - m = "MULL/V"; - break; - case 0x60: - m = "MULQ/V"; - break; - case 0x30: - m = "UMULH"; - break; - default: - format("???", i, "%w"); - return; - } - format(m, i, o->ken); -} - -static char alphaload[] = "%l,R%a"; -static char alphafload[] = "%l,F%a"; -static char alphastore[] = "R%a,%l"; -static char alphafstore[] = "F%a,%l"; -static char alphabranch[] = "R%a,%B"; -static char alphafbranch[] = "F%a,%B"; -static char alphaint[] = "%v,R%a,R%c"; -static char alphafp[] = "F%b,F%a,F%c"; -static char alphafp2[] = "F%b,F%c"; -static char alphaxxx[] = "%w"; - -static Opcode opcodes[64] = { - "PAL", 0, alphaxxx, - "OPC01", 0, alphaxxx, - "OPC02", 0, alphaxxx, - "OPC03", 0, alphaxxx, - "OPC04", 0, alphaxxx, - "OPC05", 0, alphaxxx, - "OPC06", 0, alphaxxx, - "OPC07", 0, alphaxxx, - "MOVQA", load, alphaload, - "MOVQAH", load, alphaload, - "MOVBU", load, alphaload, /* v 3 */ - "MOVQU", load, alphaload, - "MOVWU", load, alphaload, /* v 3 */ - "MOVWU", store, alphastore, /* v 3 */ - "MOVBU", store, alphastore, /* v 3 */ - "MOVQU", store, alphastore, - 0, 0, 0, /* int arith */ - 0, 0, 0, /* logical */ - 0, 0, 0, /* shift */ - 0, mult, alphaint, - "OPC14", 0, alphaxxx, - "vax", 0, alphafp, /* vax */ - 0, 0, 0, /* ieee */ - 0, 0, 0, /* fp */ - 0, misc, alphaxxx, - "PAL19 [HW_MFPR]",0, alphaxxx, - "JSR", jmp, 0, - "PAL1B [HW_LD]",0, alphaxxx, - "OPC1C", 0, alphaxxx, - "PAL1D [HW_MTPR]",0, alphaxxx, - "PAL1E [HW_REI]",0, alphaxxx, - "PAL1F [HW_ST]",0, alphaxxx, - "MOVF", loadf, alphafload, - "MOVG", loadf, alphafload, - "MOVS", loadf, alphafload, - "MOVT", loadf, alphafload, - "MOVF", storef, alphafstore, - "MOVG", storef, alphafstore, - "MOVS", storef, alphafstore, - "MOVT", storef, alphafstore, - "MOVL", load, alphaload, - "MOVQ", load, alphaload, - "MOVLL", load, alphaload, - "MOVQL", load, alphaload, - "MOVL", store, alphastore, - "MOVQ", store, alphastore, - "MOVLC", store, alphastore, - "MOVQC", store, alphastore, - "JMP", br, alphabranch, - "FBEQ", 0, alphafbranch, - "FBLT", 0, alphafbranch, - "FBLE", 0, alphafbranch, - "JSR", bsr, alphabranch, - "FBNE", 0, alphafbranch, - "FBGE", 0, alphafbranch, - "FBGT", 0, alphafbranch, - "BLBC", 0, alphafbranch, - "BEQ", 0, alphabranch, - "BLT", 0, alphabranch, - "BLE", 0, alphabranch, - "BLBS", 0, alphabranch, - "BNE", 0, alphabranch, - "BGE", 0, alphabranch, - "BGT", 0, alphabranch, -}; - -static Opcode fpopcodes[64] = { - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - - "CVTLQ", 0, alphafp2, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - - "CPYS", 0, alphafp, - "CPYSN", 0, alphafp, - "CPYSE", 0, alphafp, - "???", 0, alphaxxx, - "MOVT", 0, "FPCR,F%a", - "MOVT", 0, "F%a,FPCR", - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "FCMOVEQ", 0, alphafp, - "FCMOVNE", 0, alphafp, - "FCMOVLT", 0, alphafp, - "FCMOVGE", 0, alphafp, - "FCMOVLE", 0, alphafp, - "FCMOVGT", 0, alphafp, - - "CVTQL", 0, alphafp2, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, -}; - -static Opcode ieeeopcodes[64] = { - "ADDS", 0, alphafp, - "SUBS", 0, alphafp, - "MULS", 0, alphafp, - "DIVS", 0, alphafp, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - - "ADDT", 0, alphafp, - "SUBT", 0, alphafp, - "MULT", 0, alphafp, - "DIVT", 0, alphafp, - "CMPTUN", 0, alphafp, - "CMPTEQ", 0, alphafp, - "CMPTLT", 0, alphafp, - "CMPTLE", 0, alphafp, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "CVTTS", 0, alphafp2, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "CVTTQ", 0, alphafp2, - - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "???", 0, alphaxxx, - "CVTQS", 0, alphafp2, - "???", 0, alphaxxx, - "CVTQT", 0, alphafp2, - "???", 0, alphaxxx, -}; - -static uchar amap[128] = { - [0x00] 1, - [0x40] 2, - [0x20] 3, - [0x60] 4, - [0x09] 5, - [0x49] 6, - [0x29] 7, - [0x69] 8, - [0x2D] 9, - [0x4D] 10, - [0x6D] 11, - [0x1D] 12, - [0x3D] 13, - [0x0F] 14, - [0x02] 15, - [0x0B] 16, - [0x12] 17, - [0x1B] 18, - [0x22] 19, - [0x2B] 20, - [0x32] 21, - [0x3B] 22, -}; - -static Opcode arithopcodes[64] = { - "???", 0, alphaxxx, - "ADDL", 0, alphaint, - "ADDL/V", 0, alphaint, - "ADDQ", 0, alphaint, - "ADDQ/V", 0, alphaint, - "SUBL", 0, alphaint, - "SUBL/V", 0, alphaint, - "SUBQ", 0, alphaint, - "SUBQ/V", 0, alphaint, - "CMPEQ", 0, alphaint, - "CMPLT", 0, alphaint, - "CMPLE", 0, alphaint, - "CMPULT", 0, alphaint, - "CMPULE", 0, alphaint, - "CMPBGE", 0, alphaint, - "S4ADDL", 0, alphaint, - "S4SUBL", 0, alphaint, - "S8ADDL", 0, alphaint, - "S8SUBL", 0, alphaint, - "S4ADDQ", 0, alphaint, - "S4SUBQ", 0, alphaint, - "S8ADDQ", 0, alphaint, - "S8SUBQ", 0, alphaint, -}; - -static uchar lmap[128] = { - [0x00] 1, - [0x20] 2, - [0x40] 3, - [0x08] 4, - [0x28] 5, - [0x48] 6, - [0x24] 7, - [0x44] 8, - [0x64] 9, - [0x26] 7, - [0x46] 8, - [0x66] 9, - [0x14] 10, - [0x16] 11, -}; - -static Opcode logicalopcodes[64] = { - "???", 0, alphaxxx, - "AND", 0, alphaint, - "OR", 0, alphaint, - "XOR", 0, alphaint, - "ANDNOT", 0, alphaint, - "ORNOT", 0, alphaint, - "XORNOT", 0, alphaint, - "CMOVEQ", 0, alphaint, - "CMOVLT", 0, alphaint, - "CMOVLE", 0, alphaint, - "CMOVNE", 0, alphaint, - "CMOVGE", 0, alphaint, - "CMOVGT", 0, alphaint, - "CMOVLBS", 0, alphaint, - "CMOVLBC", 0, alphaint, -}; - -static uchar smap[128] = { - [0x39] 1, - [0x3C] 2, - [0x34] 3, - [0x06] 4, - [0x16] 5, - [0x26] 6, - [0x36] 7, - [0x5A] 8, - [0x6A] 9, - [0x7A] 10, - [0x0B] 11, - [0x1B] 12, - [0x2B] 13, - [0x3B] 14, - [0x57] 15, - [0x67] 16, - [0x77] 17, - [0x02] 18, - [0x12] 19, - [0x22] 20, - [0x32] 21, - [0x52] 22, - [0x62] 23, - [0x72] 24, - [0x30] 25, - [0x31] 26, -}; - -static Opcode shiftopcodes[64] = { - "???", 0, alphaxxx, - "SLLQ", 0, alphaint, - "SRAQ", 0, alphaint, - "SRLQ", 0, alphaint, - "EXTBL", 0, alphaint, - "EXTWL", 0, alphaint, - "EXTLL", 0, alphaint, - "EXTQL", 0, alphaint, - "EXTWH", 0, alphaint, - "EXTLH", 0, alphaint, - "EXTQH", 0, alphaint, - "INSBL", 0, alphaint, - "INSWL", 0, alphaint, - "INSLL", 0, alphaint, - "INSQL", 0, alphaint, - "INSWH", 0, alphaint, - "INSLH", 0, alphaint, - "INSQH", 0, alphaint, - "MSKBL", 0, alphaint, - "MSKWL", 0, alphaint, - "MSKLL", 0, alphaint, - "MSKQL", 0, alphaint, - "MSKWH", 0, alphaint, - "MSKLH", 0, alphaint, - "MSKQH", 0, alphaint, - "ZAP", 0, alphaint, - "ZAPNOT", 0, alphaint, -}; - -static void -format(char *mnemonic, Instr *i, char *f) -{ - if (mnemonic) - format(0, i, mnemonic); - if (f == 0) - return; - if (mnemonic) - if (i->curr < i->end) - *i->curr++ = '\t'; - for ( ; *f && i->curr < i->end; f++) { - if (*f != '%') { - *i->curr++ = *f; - continue; - } - switch (*++f) { - - case 'a': - bprint(i, "%d", i->ra); - break; - - case 'b': - bprint(i, "%d", i->rb); - break; - - case 'c': - bprint(i, "%d", i->rc); - break; - - case 'v': - if (i->islit) - bprint(i, "$%ux", i->literal); - else - bprint(i, "R%d", i->rb); - break; - - case 'l': - bprint(i, "%lx(R%d)", i->mem, i->rb); - break; - - case 'i': - bprint(i, "$%lx", i->mem); - break; - - case 'B': - i->curr += symoff(i->curr, i->end-i->curr, - (i->branch<<2)+i->addr+4, CANY); - break; - - case 'w': - bprint(i, "[%lux]", i->w0); - break; - - case '\0': - *i->curr++ = '%'; - return; - - default: - bprint(i, "%%%c", *f); - break; - } - } - *i->curr = 0; -} - -static int -printins(Map *map, uvlong pc, char *buf, int n) -{ - Instr i; - Opcode *o; - uchar op; - - i.curr = buf; - i.end = buf+n-1; - mymap = map; - if (mkinstr(pc, &i) < 0) - return -1; - switch (i.op) { - - case 0x10: /* INTA */ - o = arithopcodes; - op = amap[i.function]; - break; - - case 0x11: /* INTL */ - o = logicalopcodes; - op = lmap[i.function]; - break; - - case 0x12: /* INTS */ - o = shiftopcodes; - op = smap[i.function]; - break; - - case 0x16: /* FLTI */ - o = ieeeopcodes; - op = i.fpfn; - break; - - case 0x17: /* FLTL */ - o = fpopcodes; - op = i.fpfn; - break; - - default: - o = opcodes; - op = i.op; - break; - } - if (o[op].f) - (*o[op].f)(&o[op], &i); - else - format(o[op].mnemonic, &i, o[op].ken); - return i.size*4; -} - -static int -alphainst(Map *map, uvlong pc, char modifier, char *buf, int n) -{ - USED(modifier); - return printins(map, pc, buf, n); -} - -static int -alphadas(Map *map, uvlong pc, char *buf, int n) -{ - Instr i; - - i.curr = buf; - i.end = buf+n; - mymap = map; - if (mkinstr(pc, &i) < 0) - return -1; - if (i.end-i.curr > 8) - i.curr = _hexify(buf, i.w0, 7); - if (i.size == 2 && i.end-i.curr > 9) { - *i.curr++ = ' '; - i.curr = _hexify(i.curr, i.w1, 7); - } - *i.curr = 0; - return i.size*4; -} - -static int -alphainstlen(Map *map, uvlong pc) -{ - Instr i; - - mymap = map; - if (mkinstr(pc, &i) < 0) - return -1; - return i.size*4; -} - -static int -alphafoll(Map *map, uvlong pc, Rgetter rget, uvlong *foll) -{ - char buf[8]; - Instr i; - - mymap = map; - if (mkinstr(pc, &i) < 0) - return -1; - - switch(i.op) { - case 0x1A: /* JMP/JSR/RET */ - sprint(buf, "R%d", i.rb); - foll[0] = (*rget)(map, buf); - return 1; - case 0x30: /* BR */ - case 0x34: /* BSR */ - foll[0] = pc+4 + (i.branch<<2); - return 1; - default: - if (i.op > 0x30) { /* cond */ - foll[0] = pc+4; - foll[1] = pc+4 + (i.branch<<2); - return 2; - } - foll[0] = pc+i.size*4; - return 1; - } -} diff --git a/sys/src/libmach/7obj.c b/sys/src/libmach/7obj.c deleted file mode 100644 index 2c6b11505..000000000 --- a/sys/src/libmach/7obj.c +++ /dev/null @@ -1,138 +0,0 @@ -/* - * 7obj.c - identify and parse an alpha object file - */ -#include -#include -#include -#include -#include "7c/7.out.h" -#include "obj.h" - -typedef struct Addr Addr; -struct Addr -{ - char type; - char sym; - char name; -}; -static Addr addr(Biobuf*); -static char type2char(int); -static void skip(Biobuf*, int); - -int -_is7(char *s) -{ - return s[0] == ANAME /* ANAME */ - && s[1] == D_FILE /* type */ - && s[2] == 1 /* sym */ - && s[3] == '<'; /* name of file */ -} - -int -_read7(Biobuf *bp, Prog *p) -{ - int as, n; - Addr a; - - as = Bgetc(bp); /* as */ - if(as < 0) - return 0; - p->kind = aNone; - p->sig = 0; - if(as == ANAME || as == ASIGNAME){ - if(as == ASIGNAME){ - Bread(bp, &p->sig, 4); - p->sig = leswal(p->sig); - } - p->kind = aName; - p->type = type2char(Bgetc(bp)); /* type */ - p->sym = Bgetc(bp); /* sym */ - n = 0; - for(;;) { - as = Bgetc(bp); - if(as < 0) - return 0; - n++; - if(as == 0) - break; - } - p->id = malloc(n); - if(p->id == 0) - return 0; - Bseek(bp, -n, 1); - if(Bread(bp, p->id, n) != n) - return 0; - return 1; - } - if(as == ATEXT) - p->kind = aText; - else if(as == AGLOBL) - p->kind = aData; - skip(bp, 5); /* reg(1), lineno(4) */ - a = addr(bp); - addr(bp); - if(a.type != D_OREG || a.name != D_STATIC && a.name != D_EXTERN) - p->kind = aNone; - p->sym = a.sym; - return 1; -} - -static Addr -addr(Biobuf *bp) -{ - Addr a; - vlong off; - - a.type = Bgetc(bp); /* a.type */ - skip(bp,1); /* reg */ - a.sym = Bgetc(bp); /* sym index */ - a.name = Bgetc(bp); /* sym type */ - switch(a.type){ - default: - case D_NONE: case D_REG: case D_FREG: case D_PREG: - case D_FCREG: case D_PCC: - break; - case D_OREG: - case D_CONST: - case D_BRANCH: - off = (uvlong)Bgetc(bp); - off |= (uvlong)Bgetc(bp) << 8; - off |= (uvlong)Bgetc(bp) << 16; - off |= (uvlong)Bgetc(bp) << 24; - off |= (uvlong)Bgetc(bp) << 32; - off |= (uvlong)Bgetc(bp) << 40; - off |= (uvlong)Bgetc(bp) << 48; - off |= (uvlong)Bgetc(bp) << 56; - if(off < 0) - off = -off; - if(a.sym && (a.name==D_PARAM || a.name==D_AUTO)) - _offset(a.sym, off); - break; - case D_SCONST: - skip(bp, NSNAME); - break; - case D_FCONST: - skip(bp, 8); - break; - } - return a; -} - -static char -type2char(int t) -{ - switch(t){ - case D_EXTERN: return 'U'; - case D_STATIC: return 'b'; - case D_AUTO: return 'a'; - case D_PARAM: return 'p'; - default: return UNKNOWN; - } -} - -static void -skip(Biobuf *bp, int n) -{ - while (n-- > 0) - Bgetc(bp); -} diff --git a/sys/src/libmach/mkfile b/sys/src/libmach/mkfile index 27ab477ae..3e8cc199e 100644 --- a/sys/src/libmach/mkfile +++ b/sys/src/libmach/mkfile @@ -18,7 +18,6 @@ FILES=\ 2\ 5\ 6\ - 7\ 8\ 9\ vdb\ @@ -27,7 +26,6 @@ FILES=\ qdb\ 2db\ 5db\ - 7db\ 8db\ vobj\ kobj\ @@ -35,7 +33,6 @@ FILES=\ 2obj\ 5obj\ 6obj\ - 7obj\ 8obj\ 9obj\ qobj\ @@ -59,7 +56,6 @@ CFLAGS=$CFLAGS -I/sys/src/cmd 2obj.$O: /sys/src/cmd/2c/2.out.h 5obj.$O: /sys/src/cmd/5c/5.out.h 6obj.$O: /sys/src/cmd/6c/6.out.h -7obj.$O: /sys/src/cmd/7c/7.out.h 8obj.$O: /sys/src/cmd/8c/8.out.h kobj.$O: /sys/src/cmd/kc/k.out.h qobj.$O: /sys/src/cmd/qc/q.out.h diff --git a/sys/src/libmp/alpha/mkfile b/sys/src/libmp/alpha/mkfile deleted file mode 100644 index d2117d321..000000000 --- a/sys/src/libmp/alpha/mkfile +++ /dev/null @@ -1,13 +0,0 @@ -objtype=alpha - -#include -#include -#include "threadimpl.h" - -/* first argument goes in a register and on the stack; avoid it */ -static void -launcheralpha(int, void (*f)(void *arg), void *arg) -{ - (*f)(arg); - threadexits(nil); -} - -void -_threadinitstack(Thread *t, void (*f)(void*), void *arg) -{ - ulong *tos; - - tos = (ulong*)&t->stk[t->stksize&~7]; - - *--tos = 0; /* pad arguments to 8 bytes */ - *--tos = (ulong)arg; - *--tos = (ulong)f; - *--tos = 0; /* first arg */ - - *--tos = 0; /* for alignment with... */ - *--tos = 0; /* ... place to store return PC */ - - t->sched[JMPBUFPC] = (ulong)launcheralpha+JMPBUFDPC; - t->sched[JMPBUFSP] = (ulong)tos; -} - diff --git a/sys/src/libthread/mkfile b/sys/src/libthread/mkfile index 9b4dd1517..eab7930b0 100644 --- a/sys/src/libthread/mkfile +++ b/sys/src/libthread/mkfile @@ -31,7 +31,6 @@ OFILES=\ CFILES=\ 386.c\ - alpha.c\ amd64.c\ arm.c\ channel.c\ diff --git a/sys/src/mkfile.proto b/sys/src/mkfile.proto index bc6022f5c..ba0b4ed63 100644 --- a/sys/src/mkfile.proto +++ b/sys/src/mkfile.proto @@ -2,8 +2,8 @@ # common mkfile parameters shared by all architectures # -OS=05678qv -CPUS=spim arm amd64 alpha 386 power mips +OS=0568qv +CPUS=spim arm amd64 386 power mips CFLAGS=-FTVw LEX=lex YACC=yacc