mirror of
https://github.com/Interlisp/maiko.git
synced 2026-01-16 00:04:59 +00:00
533c935e72
* Fix some warnings in main.c main.c:678: narrowing conversion from 'unsigned long' to signed type 'int' is implementation-defined main.c:493: The return value from the call to 'seteuid' is not checked. * Fix some warnings in array operations Instead of extracting typenumbers to an 'int', use the unsigned typenumber directly array3.c:49: narrowing conversion from 'unsigned int' to signed type 'int' is implementation-defined array4.c:61: narrowing conversion from 'unsigned int' to signed type 'int' is implementation-defined array5.c:63: narrowing conversion from 'unsigned int' to signed type 'int' is implementation-defined array6.c:50: narrowing conversion from 'unsigned int' to signed type 'int' is implementation-defined * Resolve type mismatches for version numbers and propp flag dir.c:1849: narrowing conversion from 'unsigned int' to signed type 'int' dir.c:1850: narrowing conversion from 'unsigned int' to signed type 'int' dir.c:2114: narrowing conversion from 'unsigned long' to signed type 'int' dir.c:2207: narrowing conversion from 'unsigned int' to signed type 'int' * Resolve type mismatches for version numbers and strlen result type dsk.c:1072: narrowing conversion from 'unsigned long' to signed type 'int' dsk.c:1108: narrowing conversion from 'unsigned long' to signed type 'int' dsk.c:1549: narrowing conversion from 'unsigned long' to signed type 'int' dsk.c:1712: narrowing conversion from 'unsigned long' to signed type 'int' dsk.c:1751: narrowing conversion from 'unsigned long' to signed type 'int' dsk.c:3426: narrowing conversion from 'unsigned int' to signed type 'int' * Resolve type mismatches for strlen result type ufs.c:213: narrowing conversion from 'unsigned long' to signed type 'int' ufs.c:404: narrowing conversion from 'unsigned long' to signed type 'int' * Resolve type error uutils.c:117: 'signed char' to 'int' conversion [bugprone-signed-char-misuse,cert-str34-c]
69 lines
1.8 KiB
C
69 lines
1.8 KiB
C
/* This is G-file @(#) array4.c Version 2.7 (10/12/88). copyright Xerox & Fuji Xerox */
|
|
|
|
/************************************************************************/
|
|
/* */
|
|
/* (C) Copyright 1989-95 Venue. All Rights Reserved. */
|
|
/* Manufactured in the United States of America. */
|
|
/* */
|
|
/************************************************************************/
|
|
|
|
#include "version.h"
|
|
|
|
/************************************************************************/
|
|
/* */
|
|
/* A R R A Y 4 . C */
|
|
/* */
|
|
/* Contains: N_OP_aset1 */
|
|
/* */
|
|
/************************************************************************/
|
|
|
|
#include <stdio.h>
|
|
#include "lispemul.h"
|
|
#include "lspglob.h"
|
|
#include "adr68k.h"
|
|
#include "lispmap.h"
|
|
#include "lsptypes.h"
|
|
#include "mkcelldefs.h"
|
|
#include "arith.h"
|
|
#include "gcdata.h"
|
|
#include "my.h"
|
|
|
|
#include "array4defs.h"
|
|
#include "gchtfinddefs.h"
|
|
|
|
/*** N_OP_aset1 -- op 267 (new-value array index) ***/
|
|
|
|
/************************************************************************/
|
|
/* */
|
|
/* N _ O P _ a s e t 1 */
|
|
/* */
|
|
/* 1-dimensional array setter. */
|
|
/* */
|
|
/************************************************************************/
|
|
|
|
LispPTR N_OP_aset1(register LispPTR data, LispPTR arrayarg, register int inx) {
|
|
register OneDArray *arrayblk;
|
|
register LispPTR base;
|
|
register int new;
|
|
register int index;
|
|
|
|
/* verify array */
|
|
if (GetTypeNumber(arrayarg) != TYPE_ONED_ARRAY) ERROR_EXIT(inx);
|
|
arrayblk = (OneDArray *)Addr68k_from_LADDR(arrayarg);
|
|
|
|
/* test and setup index */
|
|
N_GetPos(inx, index, inx);
|
|
if (index >= arrayblk->totalsize) ERROR_EXIT(inx);
|
|
index += arrayblk->offset;
|
|
|
|
/* setup base */
|
|
base = arrayblk->base;
|
|
|
|
/* disp on type */
|
|
aset_switch(arrayblk->typenumber, inx);
|
|
|
|
doufn:
|
|
ERROR_EXIT(inx);
|
|
|
|
} /* end N_OP_aset1() */
|