projects / unix-history / blame
| Commit | Line | Data |
|---|---|---|
| 505bf312 KB |
1 | /*- |
| 2 | * Copyright (c) 1980 The Regents of the University of California. | |
| 3 | * All rights reserved. | |
| 4 | * | |
| 5 | * %sccs.include.redist.c% | |
| 1259848a | 6 | * |
| 505bf312 | 7 | * @(#)machdep.h 5.4 (Berkeley) %G% |
| 1259848a | 8 | */ |
| 20199215 | 9 | |
| a7012926 | 10 | #ifdef ADDR32 |
| 24ba2374 KM |
11 | #define pushaddr(x) push4((long)(x)) |
| 12 | #define popaddr() (char *)pop4() | |
| a7012926 KM |
13 | #endif ADDR32 |
| 14 | #ifdef ADDR16 | |
| 24ba2374 KM |
15 | #define pushaddr(x) push2((short)(x)) |
| 16 | #define popaddr() (char *)pop2() | |
| a7012926 | 17 | #endif ADDR16 |
| f41725f5 | 18 | |
| 24ba2374 KM |
19 | #define popfile() (FILE *)(popaddr()) |
| 20 | ||
| 21 | #if defined(pdp11) | |
| 22 | #define popint pop2 | |
| 23 | #define pushint push2 | |
| 24 | #else | |
| 25 | #define popint pop4 | |
| 26 | #define pushint push4 | |
| 27 | #endif | |
| 28 | ||
| f41725f5 KM |
29 | /* |
| 30 | * Machine specific macros for reading quantities from the | |
| 31 | * interpreter instruction stream. Operands in the instruction | |
| 32 | * stream are aligned to short, but not long boundries. Blockmarks | |
| 33 | * are always long aligned. Stack alignment indicates whether the | |
| 34 | * stack is short or long aligned. Stack alignment is assumed to | |
| 35 | * be no more than long aligned for ADDR32 machines, short aligned | |
| 36 | * for ADDR16 machines. | |
| 37 | */ | |
| 38 | #if defined(vax) || defined(mc68000) || defined(pdp11) | |
| 39 | #define PCLONGVAL(target) target = *pc.lp++ | |
| 40 | #define GETLONGVAL(target, srcptr) target = *(long *)(srcptr) | |
| 41 | #define STACKALIGN(target, value) target = ((value) + 1) &~ 1 | |
| 42 | #endif vax || mc68000 || pdp11 | |
| 43 | ||
| 44 | #ifdef tahoe | |
| 45 | #define PCLONGVAL(target) target = *pc.sp++ << 16, target += *pc.usp++ | |
| 46 | #define GETLONGVAL(target, srcptr) \ | |
| 47 | tsp = (short *)(srcptr), \ | |
| 48 | target = *tsp++ << 16, target += *(unsigned short *)tsp | |
| 49 | #define STACKALIGN(target, value) target = ((value) + 3) &~ 3 | |
| 50 | #endif tahoe | |
| 24ba2374 KM |
51 | |
| 52 | /* | |
| 53 | * The following macros implement all accesses to the interpreter stack. | |
| 54 | * | |
| 55 | * They used to be hard-coded assembler stuff massaged into the compiler | |
| 56 | * output by sed scripts, but things are cleaner now. | |
| 57 | * | |
| 58 | * The STACKSIZE is an arbitrary value. I picked 100K since it was unlikely | |
| 59 | * that anybody's program would run out of stack. Automatic allocation | |
| 60 | * would be nice, maybe procedure call should check for enough space + slop | |
| 61 | * and expand it if necessary. Expanding the stack will require | |
| 62 | * pointer relocation if it moves, though. Probably better would be a | |
| 63 | * command line option to set the stack size. | |
| 64 | */ | |
| 65 | #define STACKSIZE 100000 | |
| 66 | #define setup() { \ | |
| 67 | extern char *malloc(); \ | |
| 68 | stack.cp = STACKSIZE + malloc((unsigned)STACKSIZE); \ | |
| 69 | } | |
| 70 | #ifndef tahoe | |
| 71 | #define push2(x) (*--stack.sp) = (x) | |
| 72 | #else | |
| 73 | #define push2(x) (*--stack.lp) = (x) << 16 | |
| 74 | #endif | |
| 75 | #define push4(x) (*--stack.lp) = (x) | |
| 76 | #define push8(x) (*--stack.dbp) = (x) | |
| 77 | #define pushsze8(x) (*--stack.s8p) = (x) | |
| 78 | #define pushsp(x) (stack.cp -= (x)) | |
| 79 | #ifndef tahoe | |
| 80 | #define pop2() (*stack.sp++) | |
| 81 | #else | |
| 82 | #define pop2() (*stack.lp++) >> 16 | |
| 83 | #endif | |
| 84 | #define pop4() (*stack.lp++) | |
| 85 | #define pop8() (*stack.dbp++) | |
| 86 | #define popsze8() (*stack.s8p++) | |
| 87 | #define popsp(x) (void)(stack.cp += (x)) | |
| 88 | #define enableovrflo() /*nop*/ | |
| 89 | #define disableovrflo() /*nop*/ |