d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

ANSI C conversion

Browse source
This commit is contained in:
carl 2019-05-11 01:11:26 +08:00
parent e6ba8034f0
commit 708c1ba1b0
2 changed files with 19 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
mach/z8000/cg/mach.c
View file

@ -9,8 +9,8 @@
* machine dependent back end routines for the z8000
*/
con_part(sz,w) register sz; word w; {
void con_part(register int sz, word w)
{
while (part_size % sz)
part_size++;
if (part_size == TEM_WSIZE)
@ -27,15 +27,15 @@ con_part(sz,w) register sz; word w; {
part_size += sz;
}
con_mult(sz) word sz; {
void con_mult(word sz)
{
if (sz != 4)
fatal("bad icon/ucon size");
fprintf(codefile,"\t.data4 %s\n", str);
}
con_float() {
void con_float(void)
{
static int been_here;
if (argval != 4 && argval != 8)
fatal("bad fcon size");
@ -58,7 +58,8 @@ string holstr(n) word n; {
}
*/
prolog(nlocals) full nlocals; {
void prolog(full nlocals)
{
fprintf(codefile,"\tpush\t*RR14, R13\n\tld\tR13, R15\n");
if (nlocals == 0)
@ -67,7 +68,8 @@ prolog(nlocals) full nlocals; {
fprintf(codefile,"\tsub\tR15, $%d\n",nlocals);
}
mes(type) word type ; {
void mes(word type)
{
int argt ;
switch ( (int)type ) {

10
mach/z8000/cg/mach.h
View file

@ -1,8 +1,10 @@
/* $Id$ */
/*
* (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
* See the copyright notice in the ACK home directory, in the file "Copyright".
*/
#include "tables.h"
#include "types.h"
#define ex_ap(y) fprintf(codefile,".extern %s\n",y)
#define in_ap(y) /* nothing */
@ -28,3 +30,9 @@
#define fmt_id(sf,st) sprintf(st,"_%s", sf)
#define BSS_INIT 0
void con_float(void);
void con_mult(word sz);
void con_part(register int sz, word w);
void mes(word type);
void prolog(full nlocals);