mirror of
https://github.com/Interlisp/maiko.git
synced 2026-01-28 12:39:28 +00:00
Reformat all C source files with Clang-format in Google style w/ 100 col width.
This commit is contained in:
Nick Briggs
234
src/arith4.c
Executable file → Normal file
234
src/arith4.c
Executable file → Normal file
@@ -1,8 +1,7 @@
|
||||
/* $Id: arith4.c,v 1.3 1999/05/31 23:35:21 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
|
||||
/* $Id: arith4.c,v 1.3 1999/05/31 23:35:21 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved
|
||||
*/
|
||||
static char *id = "$Id: arith4.c,v 1.3 1999/05/31 23:35:21 sybalsky Exp $ Copyright (C) Venue";
|
||||
|
||||
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
/* (C) Copyright 1989-95 Venue. All Rights Reserved. */
|
||||
@@ -15,20 +14,16 @@ static char *id = "$Id: arith4.c,v 1.3 1999/05/31 23:35:21 sybalsky Exp $ Copyri
|
||||
/* */
|
||||
/************************************************************************/
|
||||
|
||||
|
||||
#include "version.h"
|
||||
|
||||
|
||||
|
||||
|
||||
/***********************************************************************/
|
||||
/*
|
||||
File Name : arith4.c
|
||||
File Name : arith4.c
|
||||
|
||||
Including : OP_times2 326Q(OP_itimes2 332Q)
|
||||
Including : OP_times2 326Q(OP_itimes2 332Q)
|
||||
|
||||
OP_quot 327Q(OP_iquot 333Q)
|
||||
OP_reminder 334Q
|
||||
OP_quot 327Q(OP_iquot 333Q)
|
||||
OP_reminder 334Q
|
||||
|
||||
*/
|
||||
/**********************************************************************/
|
||||
@@ -43,168 +38,161 @@ static char *id = "$Id: arith4.c,v 1.3 1999/05/31 23:35:21 sybalsky Exp $ Copyri
|
||||
#include "medleyfp.h"
|
||||
#include "arith.h"
|
||||
|
||||
|
||||
|
||||
/**********************************************************************/
|
||||
/*
|
||||
|
||||
Func name : N_OP_times2(itimes2)
|
||||
Func name : N_OP_times2(itimes2)
|
||||
|
||||
*/
|
||||
/**********************************************************************/
|
||||
int N_OP_times2(int tosm1, int tos)
|
||||
{
|
||||
register int arg1,arg2;
|
||||
register int result;
|
||||
int N_OP_times2(int tosm1, int tos) {
|
||||
register int arg1, arg2;
|
||||
register int result;
|
||||
|
||||
|
||||
|
||||
N_GETNUMBER( tosm1, arg1, doufn );
|
||||
N_GETNUMBER( tos, arg2, doufn );
|
||||
N_GETNUMBER(tosm1, arg1, doufn);
|
||||
N_GETNUMBER(tos, arg2, doufn);
|
||||
|
||||
#ifdef SUN3_OS3_OR_OS4_IL
|
||||
|
||||
result = mpy32(arg1, arg2);
|
||||
N_ARITH_SWITCH(result);
|
||||
dummy: mpy_err_label();
|
||||
result = mpy32(arg1, arg2);
|
||||
N_ARITH_SWITCH(result);
|
||||
dummy:
|
||||
mpy_err_label();
|
||||
|
||||
#else
|
||||
|
||||
result = arg1 * arg2;
|
||||
if ((arg2 !=0) &&((result / arg2) != arg1) ) goto doufn2;
|
||||
N_ARITH_SWITCH(result);
|
||||
result = arg1 * arg2;
|
||||
if ((arg2 != 0) && ((result / arg2) != arg1)) goto doufn2;
|
||||
N_ARITH_SWITCH(result);
|
||||
|
||||
#endif
|
||||
|
||||
doufn2: ERROR_EXIT(tos);
|
||||
doufn: return(N_OP_ftimes2(tosm1, tos));
|
||||
|
||||
doufn2:
|
||||
ERROR_EXIT(tos);
|
||||
doufn:
|
||||
return (N_OP_ftimes2(tosm1, tos));
|
||||
|
||||
} /* end N_OP_times2 */
|
||||
|
||||
int N_OP_itimes2(int tosm1, int tos)
|
||||
{
|
||||
register int arg1,arg2;
|
||||
register int result;
|
||||
int N_OP_itimes2(int tosm1, int tos) {
|
||||
register int arg1, arg2;
|
||||
register int result;
|
||||
|
||||
|
||||
N_IGETNUMBER( tosm1, arg1, doufn );
|
||||
N_IGETNUMBER( tos, arg2, doufn );
|
||||
N_IGETNUMBER(tosm1, arg1, doufn);
|
||||
N_IGETNUMBER(tos, arg2, doufn);
|
||||
|
||||
#ifdef SUN3_OS3_OR_OS4_IL
|
||||
|
||||
result = impy32(arg1, arg2);
|
||||
N_ARITH_SWITCH(result);
|
||||
dummy: impy_err_label();
|
||||
result = impy32(arg1, arg2);
|
||||
N_ARITH_SWITCH(result);
|
||||
dummy:
|
||||
impy_err_label();
|
||||
|
||||
#else
|
||||
|
||||
result = arg1 * arg2;
|
||||
if ((arg2 !=0) &&( (result / arg2) != arg1) ) {goto doufn;}
|
||||
N_ARITH_SWITCH(result);
|
||||
result = arg1 * arg2;
|
||||
if ((arg2 != 0) && ((result / arg2) != arg1)) { goto doufn; }
|
||||
N_ARITH_SWITCH(result);
|
||||
|
||||
#endif
|
||||
|
||||
doufn: ERROR_EXIT(tos);
|
||||
|
||||
doufn:
|
||||
ERROR_EXIT(tos);
|
||||
|
||||
} /* end N_OP_itimes2 */
|
||||
|
||||
/**********************************************************************/
|
||||
/*
|
||||
|
||||
Func name : N_OP_quot(iquot)
|
||||
|
||||
*/
|
||||
/**********************************************************************/
|
||||
int N_OP_quot(int tosm1, int tos) {
|
||||
register int arg1, arg2;
|
||||
register int result;
|
||||
|
||||
N_GETNUMBER(tosm1, arg1, doufn);
|
||||
N_GETNUMBER(tos, arg2, doufn);
|
||||
if (arg2 == 0) goto doufn2;
|
||||
|
||||
#ifdef SUN3_OS3_OR_OS4_IL
|
||||
|
||||
result = quot32(arg1, arg2);
|
||||
N_ARITH_SWITCH(result);
|
||||
dummy:
|
||||
quot_err_label();
|
||||
|
||||
#else
|
||||
|
||||
result = arg1 / arg2; /* lmm: note: no error case!! */
|
||||
N_ARITH_SWITCH(result);
|
||||
#endif
|
||||
doufn2:
|
||||
ERROR_EXIT(tos);
|
||||
doufn:
|
||||
return (N_OP_fquotient(tosm1, tos));
|
||||
|
||||
} /* end N_OP_quot */
|
||||
|
||||
int N_OP_iquot(int tosm1, int tos) {
|
||||
register int arg1, arg2;
|
||||
register int result;
|
||||
|
||||
N_IGETNUMBER(tosm1, arg1, doufn);
|
||||
N_IGETNUMBER(tos, arg2, doufn);
|
||||
if (arg2 == 0) goto doufn;
|
||||
|
||||
#ifdef SUN3_OS3_OR_OS4_IL
|
||||
|
||||
result = iquot32(arg1, arg2);
|
||||
N_ARITH_SWITCH(result);
|
||||
dummy:
|
||||
iquot_err_label();
|
||||
|
||||
#else
|
||||
|
||||
result = arg1 / arg2;
|
||||
N_ARITH_SWITCH(result);
|
||||
|
||||
#endif
|
||||
|
||||
doufn:
|
||||
ERROR_EXIT(tos);
|
||||
|
||||
} /* end N_OP_quot */
|
||||
|
||||
/**********************************************************************/
|
||||
/*
|
||||
|
||||
Func name : N_OP_quot(iquot)
|
||||
|
||||
*/
|
||||
/**********************************************************************/
|
||||
int N_OP_quot(int tosm1, int tos)
|
||||
{
|
||||
register int arg1,arg2;
|
||||
register int result;
|
||||
|
||||
|
||||
N_GETNUMBER( tosm1, arg1, doufn );
|
||||
N_GETNUMBER( tos, arg2, doufn );
|
||||
if (arg2 == 0) goto doufn2;
|
||||
|
||||
#ifdef SUN3_OS3_OR_OS4_IL
|
||||
|
||||
result = quot32(arg1, arg2);
|
||||
N_ARITH_SWITCH(result);
|
||||
dummy: quot_err_label();
|
||||
|
||||
#else
|
||||
|
||||
result = arg1/arg2; /* lmm: note: no error case!! */
|
||||
N_ARITH_SWITCH(result);
|
||||
#endif
|
||||
doufn2: ERROR_EXIT(tos);
|
||||
doufn: return(N_OP_fquotient(tosm1, tos));
|
||||
|
||||
} /* end N_OP_quot */
|
||||
|
||||
int N_OP_iquot(int tosm1, int tos)
|
||||
{
|
||||
register int arg1,arg2;
|
||||
register int result;
|
||||
|
||||
|
||||
N_IGETNUMBER( tosm1, arg1, doufn );
|
||||
N_IGETNUMBER( tos, arg2, doufn );
|
||||
if (arg2 == 0) goto doufn;
|
||||
|
||||
#ifdef SUN3_OS3_OR_OS4_IL
|
||||
|
||||
result = iquot32(arg1, arg2);
|
||||
N_ARITH_SWITCH(result);
|
||||
dummy: iquot_err_label();
|
||||
|
||||
#else
|
||||
|
||||
result = arg1/arg2;
|
||||
N_ARITH_SWITCH(result);
|
||||
|
||||
#endif
|
||||
|
||||
doufn: ERROR_EXIT(tos);
|
||||
|
||||
} /* end N_OP_quot */
|
||||
|
||||
|
||||
/**********************************************************************/
|
||||
/*
|
||||
|
||||
Func name : N_OP_iremainder
|
||||
Func name : N_OP_iremainder
|
||||
|
||||
*/
|
||||
/**********************************************************************/
|
||||
|
||||
int N_OP_iremainder(int tosm1, int tos)
|
||||
{
|
||||
register int arg1,arg2;
|
||||
register int result;
|
||||
int N_OP_iremainder(int tosm1, int tos) {
|
||||
register int arg1, arg2;
|
||||
register int result;
|
||||
|
||||
|
||||
N_IGETNUMBER( tosm1, arg1, doufn );
|
||||
N_IGETNUMBER( tos, arg2, doufn );
|
||||
if (arg2 == 0) goto doufn;
|
||||
N_IGETNUMBER(tosm1, arg1, doufn);
|
||||
N_IGETNUMBER(tos, arg2, doufn);
|
||||
if (arg2 == 0) goto doufn;
|
||||
|
||||
#ifdef SUN3_OS3_OR_OS4_IL
|
||||
|
||||
result = irem32(arg1, arg2);
|
||||
N_ARITH_SWITCH(result);
|
||||
dummy: irem_err_label();
|
||||
result = irem32(arg1, arg2);
|
||||
N_ARITH_SWITCH(result);
|
||||
dummy:
|
||||
irem_err_label();
|
||||
|
||||
#else
|
||||
|
||||
result = arg1 % arg2;
|
||||
N_ARITH_SWITCH(result);
|
||||
result = arg1 % arg2;
|
||||
N_ARITH_SWITCH(result);
|
||||
|
||||
#endif
|
||||
|
||||
doufn: ERROR_EXIT(tos);
|
||||
doufn:
|
||||
ERROR_EXIT(tos);
|
||||
|
||||
} /* end N_OP_iremainder */
|
||||
|
||||
|
||||
Reference in New Issue
Block a user