mirror of
https://github.com/Interlisp/maiko.git
synced 2026-01-16 00:04:59 +00:00
cfc0046675
Remove duplicate external function definitions from gcdata.h renamed: inc/gc.h -> inc/gcdata.h modified: src/array2.c modified: src/array4.c modified: src/array6.c modified: src/asmbbt.c modified: src/asmbitblt.c modified: src/bbtsub.c modified: src/car-cdr.c modified: src/conspage.c modified: src/fvar.c modified: src/gc.c modified: src/gcarray.c modified: src/gccode.c modified: src/gcfinal.c modified: src/gchtfind.c modified: src/gcmain3.c modified: src/gcoflow.c modified: src/gcr.c modified: src/gcrcell.c modified: src/gcscan.c modified: src/gvar2.c modified: src/initsout.c modified: src/loopsops.c modified: src/mkcell.c modified: src/rplcons.c modified: src/storage.c modified: src/xc.c modified: src/z2.c
60 lines
1.6 KiB
C
60 lines
1.6 KiB
C
/* This is G-file @(#) array6.c Version 2.10 (4/21/92). copyright Xerox & Fuji Xerox */
|
|
static char *id = "@(#) array6.c 2.10 4/21/92";
|
|
|
|
/************************************************************************/
|
|
/* */
|
|
/* (C) Copyright 1989-95 Venue. All Rights Reserved. */
|
|
/* Manufactured in the United States of America. */
|
|
/* */
|
|
/************************************************************************/
|
|
|
|
#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 "gcdata.h"
|
|
#include "mkcelldefs.h"
|
|
#include "arith.h"
|
|
#include "my.h"
|
|
|
|
#include "array6defs.h"
|
|
#include "gchtfinddefs.h"
|
|
|
|
/*** N_OP_aset2 -- op 357 (new-value array index0 index1) ***/
|
|
LispPTR N_OP_aset2(register LispPTR data, LispPTR arrayarg, LispPTR inx0, LispPTR inx1) {
|
|
register int type;
|
|
register LispArray *arrayblk;
|
|
register LispPTR base;
|
|
register int new;
|
|
register int index, temp;
|
|
int j;
|
|
|
|
/* verify array */
|
|
if (GetTypeNumber(arrayarg) != TYPE_TWOD_ARRAY) ERROR_EXIT(inx1);
|
|
arrayblk = (LispArray *)Addr68k_from_LADDR(arrayarg);
|
|
base = arrayblk->base;
|
|
|
|
/* test and setup index */
|
|
N_GetPos(inx1, temp, inx1);
|
|
if (temp >= (j = arrayblk->Dim1)) ERROR_EXIT(inx1);
|
|
N_GetPos(inx0, index, inx1);
|
|
if (index >= arrayblk->Dim0) ERROR_EXIT(inx1);
|
|
index *= j;
|
|
index += temp;
|
|
|
|
/* setup typenumber */
|
|
type = 0xFF & arrayblk->typenumber;
|
|
|
|
/* disp on type */
|
|
aset_switch(type, inx1);
|
|
|
|
doufn:
|
|
ERROR_EXIT(inx1);
|
|
|
|
} /* end N_OP_aset2() */
|