github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-03-05 10:44:07 +00:00
Code Issues Projects Releases Wiki Activity

Reformat all C source files with Clang-format in Google style w/ 100 col width.

Browse Source
This commit is contained in:
Nick Briggs
2017-05-28 18:08:18 -07:00
parent 691645d048
commit 156c3292f8
167 changed files with 40520 additions and 48069 deletions
Download Patch File Download Diff File Expand all files Collapse all files

47
src/array3.c Executable file → Normal file
View File

@@ -1,9 +1,6 @@
/* This is G-file @(#) array3.c Version 2.9 (10/12/88). copyright Xerox & Fuji Xerox */
static char *id = "@(#) array3.c 2.9 10/12/88";
/************************************************************************/
/* */
/* (C) Copyright 1989-95 Venue. All Rights Reserved. */
@@ -18,8 +15,6 @@ static char *id = "@(#) array3.c 2.9 10/12/88";
#include "version.h"
/************************************************************************/
/* */
/* A R R A Y 3 . C */
@@ -39,41 +34,37 @@ static char *id = "@(#) array3.c 2.9 10/12/88";
#include "my.h"
/*** N_OP_aref1 -- op 266 (array index) ***/
LispPTR N_OP_aref1(register LispPTR arrayarg, register LispPTR inx)
{
LispPTR N_OP_aref1(register LispPTR arrayarg, register LispPTR inx) {
register LispPTR baseL;
register int type, index;
register OneDArray *arrayblk;
LispPTR temp;
register int result;
register LispPTR baseL;
register int type, index;
register OneDArray *arrayblk;
LispPTR temp;
register int result;
/* for CREATECELL */
register DLword *wordp;
DLword *createcell68k(unsigned int type);
/* for CREATECELL */
register DLword *wordp;
DLword *createcell68k(unsigned int type);
/* verify array */
if (GetTypeNumber(arrayarg) != TYPE_ONED_ARRAY) ERROR_EXIT(inx);
arrayblk = (OneDArray *)Addr68k_from_LADDR(arrayarg);
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;
N_GetPos(inx, index, inx);
if (index >= arrayblk->totalsize) ERROR_EXIT(inx);
index += arrayblk->offset;
/* setup typenumber */
type = 0xFF & arrayblk->typenumber;
type = 0xFF & arrayblk->typenumber;
/* setup base */
baseL = arrayblk->base;
baseL = arrayblk->base;
/* disp on type */
/* disp on type */
#ifdef OS4
aref_switch(type, inx, baseL, index);
aref_switch(type, inx, baseL, index);
#else
return ( aref_switch(type, inx, baseL, index) );
return (aref_switch(type, inx, baseL, index));
#endif
} /* end N_OP_aref1() */