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

64
src/arith3.c Executable file → Normal file
View File

@@ -1,10 +1,7 @@
/* $Id: arith3.c,v 1.3 1999/05/31 23:35:21 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
/* $Id: arith3.c,v 1.3 1999/05/31 23:35:21 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved
*/
static char *id = "$Id: arith3.c,v 1.3 1999/05/31 23:35:21 sybalsky Exp $ Copyright (C) Venue";
/************************************************************************/
/* */
/* (C) Copyright 1989-95 Venue. All Rights Reserved. */
@@ -17,11 +14,8 @@ static char *id = "$Id: arith3.c,v 1.3 1999/05/31 23:35:21 sybalsky Exp $ Copyri
/* */
/************************************************************************/
#include "version.h"
/************************************************************************/
/* */
/* A R I T H 3 . C */
@@ -33,7 +27,6 @@ static char *id = "$Id: arith3.c,v 1.3 1999/05/31 23:35:21 sybalsky Exp $ Copyri
/* */
/************************************************************************/
#include "lispemul.h"
#include "lispmap.h"
#include "lspglob.h"
@@ -43,9 +36,6 @@ static char *id = "$Id: arith3.c,v 1.3 1999/05/31 23:35:21 sybalsky Exp $ Copyri
#include "cell.h"
#include "arith.h"
/************************************************************************/
/* */
/* N _ O P _ m a k e n u m b e r */
@@ -55,18 +45,14 @@ static char *id = "$Id: arith3.c,v 1.3 1999/05/31 23:35:21 sybalsky Exp $ Copyri
/* */
/************************************************************************/
LispPTR N_OP_makenumber(int tosm1, int tos)
{
LispPTR N_OP_makenumber(int tosm1, int tos) {
register int result;
if(((tosm1 & 0xFFFF0000) != S_POSITIVE) || ((tos & 0xFFFF0000) != S_POSITIVE))
ERROR_EXIT(tos);
if (((tosm1 & 0xFFFF0000) != S_POSITIVE) || ((tos & 0xFFFF0000) != S_POSITIVE)) ERROR_EXIT(tos);
result = ((tosm1 & 0xffff) << 16) | (tos & 0xffff);
N_ARITH_SWITCH(result);
} /* end OP_makenumber */
/************************************************************************/
/* */
/* N _ O P _ b o x i p l u s */
@@ -76,22 +62,19 @@ LispPTR N_OP_makenumber(int tosm1, int tos)
/* */
/************************************************************************/
LispPTR N_OP_boxiplus(register int a, int tos)
{
register int arg2;
LispPTR N_OP_boxiplus(register int a, int tos) {
register int arg2;
if( GetTypeNumber(a) == TYPE_FIXP )
{
N_GETNUMBER(tos, arg2, bad);
*((LispPTR *)Addr68k_from_LADDR(a)) += arg2;
return(a);
}
bad: ERROR_EXIT(tos);
if (GetTypeNumber(a) == TYPE_FIXP) {
N_GETNUMBER(tos, arg2, bad);
*((LispPTR *)Addr68k_from_LADDR(a)) += arg2;
return (a);
}
bad:
ERROR_EXIT(tos);
} /* OP_boxiplus */
/************************************************************************/
/* */
/* O P _ b o x i d i f f */
@@ -102,18 +85,15 @@ bad: ERROR_EXIT(tos);
/* */
/************************************************************************/
LispPTR N_OP_boxidiff(register int a, int tos)
{
register int arg2;
LispPTR N_OP_boxidiff(register int a, int tos) {
register int arg2;
if( GetTypeNumber(a) == TYPE_FIXP )
{
N_GETNUMBER(tos, arg2, bad);
*((LispPTR *)Addr68k_from_LADDR(a)) -= arg2;
return(a);
}
bad: ERROR_EXIT(tos);
if (GetTypeNumber(a) == TYPE_FIXP) {
N_GETNUMBER(tos, arg2, bad);
*((LispPTR *)Addr68k_from_LADDR(a)) -= arg2;
return (a);
}
bad:
ERROR_EXIT(tos);
} /* end OP_boxidiff */