github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-02-14 19:56: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

33
src/subr0374.c Executable file → Normal file
View File

@@ -1,7 +1,7 @@
/* $Id: subr0374.c,v 1.3 1999/05/31 23:35:43 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
/* $Id: subr0374.c,v 1.3 1999/05/31 23:35:43 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved
*/
static char *id = "$Id: subr0374.c,v 1.3 1999/05/31 23:35:43 sybalsky Exp $ Copyright (C) Venue";
/************************************************************************/
/* */
/* (C) Copyright 1989-95 Venue. All Rights Reserved. */
@@ -26,12 +26,12 @@ static char *id = "$Id: subr0374.c,v 1.3 1999/05/31 23:35:43 sybalsky Exp $ Copy
/********************************************************/
/*
subr_k_trace()
subr_k_trace()
subr----0130 for katana trace
first argument is base address of
error message in Lisp.
second argument is length of message.
subr----0130 for katana trace
first argument is base address of
error message in Lisp.
second argument is length of message.
*/
/********************************************************/
@@ -40,16 +40,13 @@ static char *id = "$Id: subr0374.c,v 1.3 1999/05/31 23:35:43 sybalsky Exp $ Copy
#include "adr68k.h"
#include "lspglob.h"
LispPTR subr_k_trace(LispPTR *args)
{
int len;
char *base;
LispPTR subr_k_trace(LispPTR *args) {
int len;
char *base;
len = 0xFFFF & args[1];
base = (char *)Addr68k_from_LADDR(args[0]);
while(len-- > 0)
putc(*base++ , stderr);
putc('\n', stderr);
return (NIL);
len = 0xFFFF & args[1];
base = (char *)Addr68k_from_LADDR(args[0]);
while (len-- > 0) putc(*base++, stderr);
putc('\n', stderr);
return (NIL);
}