github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-02-02 23:01:25 +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

56
src/gvar2.c Executable file → Normal file
View File

@@ -1,12 +1,6 @@
/* $Id: gvar2.c,v 1.3 1999/05/31 23:35:33 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
/* $Id: gvar2.c,v 1.3 1999/05/31 23:35:33 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
static char *id = "$Id: gvar2.c,v 1.3 1999/05/31 23:35:33 sybalsky Exp $ Copyright (C) Venue";
/************************************************************************/
/* */
/* (C) Copyright 1989-95 Venue. All Rights Reserved. */
@@ -21,9 +15,6 @@ static char *id = "$Id: gvar2.c,v 1.3 1999/05/31 23:35:33 sybalsky Exp $ Copyrig
#include "version.h"
#include <stdio.h>
#include "lispemul.h"
#include "lsptypes.h"
@@ -34,8 +25,6 @@ static char *id = "$Id: gvar2.c,v 1.3 1999/05/31 23:35:33 sybalsky Exp $ Copyrig
#include "cell.h"
#include "dbprint.h"
/************************************************************************/
/* */
/* N _ O P _ g v a r _ */
@@ -51,29 +40,25 @@ static char *id = "$Id: gvar2.c,v 1.3 1999/05/31 23:35:33 sybalsky Exp $ Copyrig
/* * If Hash Table is overflow, call fn1ext. */
/* */
/************************************************************************/
LispPTR N_OP_gvar_(register LispPTR tos, unsigned int atom_index)
{
register LispPTR *pslot; /* pointer to argued GVAR slot */
LispPTR N_OP_gvar_(register LispPTR tos, unsigned int atom_index) {
register LispPTR *pslot; /* pointer to argued GVAR slot */
#ifdef BIGATOMS
if (0 != (atom_index & SEGMASK))
pslot = (LispPTR *) Addr68k_from_LADDR(atom_index + NEWATOM_VALUE_OFFSET);
else
if (0 != (atom_index & SEGMASK))
pslot = (LispPTR *)Addr68k_from_LADDR(atom_index + NEWATOM_VALUE_OFFSET);
else
#endif /* BIGATOMS */
#ifdef BIGVM
pslot = ((LispPTR *) AtomSpace) + (5 * atom_index) + NEWATOM_VALUE_PTROFF;
pslot = ((LispPTR *)AtomSpace) + (5 * atom_index) + NEWATOM_VALUE_PTROFF;
#else
pslot = (LispPTR *) Valspace + atom_index;
pslot = (LispPTR *)Valspace + atom_index;
#endif /* BIGVM */
DEBUGGER(if (tos&0xF0000000) error("Setting GVAR with high bits on"));
FRPLPTR(((struct xpointer*)pslot)->addr, tos);
return(tos);
}
DEBUGGER(if (tos & 0xF0000000) error("Setting GVAR with high bits on"));
FRPLPTR(((struct xpointer *)pslot)->addr, tos);
return (tos);
}
/************************************************************************/
/* */
@@ -89,13 +74,10 @@ LispPTR N_OP_gvar_(register LispPTR tos, unsigned int atom_index)
/* */
/************************************************************************/
LispPTR N_OP_rplptr(register LispPTR tos_m_1, register LispPTR tos, unsigned int alpha)
{
register DLword *pslot; /* pointer to argued slot (68 address) */
pslot = Addr68k_from_LADDR(tos_m_1 + alpha );
FRPLPTR( ((struct xpointer*)pslot)->addr,tos);
return(tos_m_1);
}
LispPTR N_OP_rplptr(register LispPTR tos_m_1, register LispPTR tos, unsigned int alpha) {
register DLword *pslot; /* pointer to argued slot (68 address) */
pslot = Addr68k_from_LADDR(tos_m_1 + alpha);
FRPLPTR(((struct xpointer *)pslot)->addr, tos);
return (tos_m_1);
}