Return to machdep.h CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / ucb / pascal / px

Annotation of 43BSDTahoe/ucb/pascal/px/machdep.h, revision 1.1.1.1

1.1       root        1: /*
                      2:  * Copyright (c) 1980 Regents of the University of California.
                      3:  * All rights reserved.  The Berkeley software License Agreement
                      4:  * specifies the terms and conditions for redistribution.
                      5:  *
                      6:  *     @(#)machdep.h   5.2 (Berkeley) 11/12/86
                      7:  */
                      8: 
                      9: #ifdef ADDR32
                     10: #define pushaddr push4
                     11: #define popaddr (char *)pop4
                     12: #endif ADDR32
                     13: #ifdef ADDR16
                     14: #define pushaddr push2
                     15: #define popaddr (char *)pop2
                     16: #endif ADDR16
                     17: 
                     18: /*
                     19:  * Machine specific macros for reading quantities from the
                     20:  * interpreter instruction stream. Operands in the instruction
                     21:  * stream are aligned to short, but not long boundries. Blockmarks
                     22:  * are always long aligned. Stack alignment indicates whether the
                     23:  * stack is short or long aligned. Stack alignment is assumed to
                     24:  * be no more than long aligned for ADDR32 machines, short aligned
                     25:  * for ADDR16 machines.
                     26:  */
                     27: #if defined(vax) || defined(mc68000) || defined(pdp11)
                     28: #define PCLONGVAL(target) target = *pc.lp++
                     29: #define GETLONGVAL(target, srcptr) target = *(long *)(srcptr)
                     30: #define STACKALIGN(target, value) target = ((value) + 1) &~ 1
                     31: #endif vax || mc68000 || pdp11
                     32: 
                     33: #ifdef tahoe
                     34: #define PCLONGVAL(target) target = *pc.sp++ << 16, target += *pc.usp++
                     35: #define GETLONGVAL(target, srcptr) \
                     36:        tsp = (short *)(srcptr), \
                     37:        target = *tsp++ << 16, target += *(unsigned short *)tsp
                     38: #define STACKALIGN(target, value) target = ((value) + 3) &~ 3
                     39: #endif tahoe

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.