mirror of
https://github.com/Interlisp/maiko.git
synced 2026-01-16 08:15:31 +00:00
ffff6ee267
modified: array.c modified: array3.c modified: car-cdr.c modified: chardev.c modified: conspage.c modified: ldeboot.c modified: sxhash.c modified: unixfork.c
68 lines
2.1 KiB
C
68 lines
2.1 KiB
C
/* @(#) array.c Version 2.8 (12/23/88). copyright envos & Fuji Xerox */
|
|
static char *id = "@(#) array.c 2.8 12/23/88 (envos & Fuji Xerox)";
|
|
|
|
/************************************************************************/
|
|
/* */
|
|
/* (C) Copyright 1989-95 Venue. All Rights Reserved. */
|
|
/* Manufactured in the United States of America. */
|
|
/* */
|
|
/* The contents of this file are proprietary information */
|
|
/* belonging to Venue, and are provided to you under license. */
|
|
/* They may not be further distributed or disclosed to third */
|
|
/* parties without the specific permission of Venue. */
|
|
/* */
|
|
/************************************************************************/
|
|
|
|
#include "version.h"
|
|
|
|
#include <stdio.h>
|
|
#include "lispemul.h"
|
|
#include "lspglob.h"
|
|
#include "adr68k.h"
|
|
#include "lispmap.h"
|
|
#include "lsptypes.h"
|
|
#include "emlglob.h"
|
|
#include "arith.h"
|
|
#include "my.h"
|
|
|
|
/************************************************************
|
|
OP_claref -- op 372/9 (base typenumber index)
|
|
|
|
type size typenumber
|
|
0 0 0 unsigned : 1 bit
|
|
0 3 3 unsigned : 8 bits
|
|
0 4 4 unsigned : 16 bits
|
|
1 4 20 signed : 16 bits
|
|
1 6 22 signed : 32 bits
|
|
2 6 38 pointer : 32 bits
|
|
3 6 54 float : 32 bits
|
|
4 3 67 character : 8 bits
|
|
4 4 68 character : 16 bits
|
|
5 6 86 Xpointer : 32 bits
|
|
|
|
|
|
***********************************************************/
|
|
|
|
/*** N_OP_misc3 -- op 372/9 (base typenumber index) ***/
|
|
LispPTR N_OP_misc3(LispPTR baseL, LispPTR typenumber, LispPTR inx, int alpha) {
|
|
register int index, type;
|
|
|
|
/* for CREATECELL */
|
|
DLword *createcell68k(unsigned int type);
|
|
|
|
if (alpha != 9) ERROR_EXIT(inx);
|
|
/* test and setup index */
|
|
N_GetPos(inx, index, inx);
|
|
|
|
/* test and setup typenumber */
|
|
N_GetPos(typenumber, type, inx);
|
|
|
|
/* disp on type */
|
|
#ifdef OS4
|
|
aref_switch(type, inx, baseL, index);
|
|
#else
|
|
return (aref_switch(type, inx, baseL, index));
|
|
#endif
|
|
|
|
} /* end N_OP_misc3() */
|