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:17 +08:00
parent cefebdb5db
commit e6ba8034f0
2 changed files with 19 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
mach/z80/cg/mach.c
View file

@ -4,16 +4,13 @@
*
*/
#ifndef NORCSID
static char rcs_mach[] = "$Id$" ;
static char rcs_h[] = RCS_H ;
#endif
/*
* machine dependent back end routines for the Zilog Z80 (as well as Intel 8080)
*/
con_part(sz,w) register sz; word w; {
void con_part(register int sz, word w)
{
while (part_size % sz)
part_size++;
@ -31,15 +28,15 @@ con_part(sz,w) register sz; word w; {
part_size += sz;
}
con_mult(sz) word sz; {
long atol();
void con_mult(word sz)
{
if (argval != 4)
fatal("bad icon/ucon size");
fprintf(codefile, ".data4\t%ld\n", atol(str));
}
con_float() {
void con_float(void)
{
static int been_here;
int sz = argval;
@ -56,9 +53,8 @@ con_float() {
}
}
prolog(nlocals) full nlocals; {
void prolog(full nlocals)
{
fprintf(codefile,"\tpush\tiy\n\tld\thl,0\n\tadd\thl,sp\n\tpush\thl\n\tpop\tiy\n");
switch (nlocals) {
case 8: fprintf(codefile,"\tpush\thl\n");
@ -72,7 +68,8 @@ prolog(nlocals) full nlocals; {
}
}
mes(type) word type ; {
void mes(word type)
{
int argt ;
switch ( (int)type ) {

11
mach/z80/cg/mach.h
View file

@ -2,9 +2,8 @@
* (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
* See the copyright notice in the ACK home directory, in the file "Copyright".
*/
#ifndef NORCSID
#define RCS_H "$Id$"
#endif
#include "tables.h"
#include "types.h"
#define ex_ap(y) fprintf(codefile,".extern %s\n",y)
#define in_ap(y) /* nothing */
@ -33,3 +32,9 @@
#define fmt_id(fs, ft) sprintf(ft, "_%s", fs)
#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);