mirror of
https://github.com/c64scene-ar/llvm-6502.git
synced 2025-01-15 07:34:33 +00:00
cce5a349d9
consists mostly of changing sloppy K&R C code to slightly more disciplined K&R C code, and doing the usual things to shut gcc up. git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@12877 91177308-0d34-0410-b5e6-96231b3b80d8
121 lines
1.9 KiB
C
121 lines
1.9 KiB
C
/* Copyright (c) 1988 Bellcore
|
|
** All Rights Reserved
|
|
** Permission is granted to copy or use this program, EXCEPT that it
|
|
** may not be sold for profit, the copyright notice must be reproduced
|
|
** on copies, and credit should be given to Bellcore where it is due.
|
|
** BELLCORE MAKES NO WARRANTY AND ACCEPTS NO LIABILITY FOR THIS PROGRAM.
|
|
*/
|
|
|
|
|
|
#ifndef lint
|
|
static char rcsid[]= "$Header$";
|
|
#endif
|
|
|
|
#include <stdio.h>
|
|
#include "misc.h"
|
|
#include "visual.h"
|
|
#include "output.h"
|
|
#include <stdlib.h>
|
|
|
|
/*
|
|
** various routines used throughout the program
|
|
*/
|
|
|
|
static int _Z_qflag = 0;
|
|
|
|
void
|
|
Z_setquiet()
|
|
{
|
|
_Z_qflag = 1;
|
|
}
|
|
|
|
char Z_err_buf[Z_LINELEN];
|
|
|
|
#ifndef NOCHATTER
|
|
/*
|
|
** I/O coverup to reassure users with HUGE files
|
|
** that spiff is doing something
|
|
*/
|
|
void
|
|
Z_chatter(str)
|
|
char *str;
|
|
{
|
|
if (!_Z_qflag)
|
|
{
|
|
(void) fputs("spiff -- ",stderr);
|
|
(void) fputs(str,stderr);
|
|
}
|
|
}
|
|
#endif
|
|
|
|
/*
|
|
** complain unless you've been told to be quiet
|
|
*/
|
|
void
|
|
Z_complain(str)
|
|
char *str;
|
|
{
|
|
if (!_Z_qflag)
|
|
(void) fputs(str,stderr);
|
|
}
|
|
|
|
/*
|
|
** quit with an error code
|
|
*/
|
|
static void
|
|
_Z_errexit()
|
|
{
|
|
(void) exit(2);
|
|
}
|
|
|
|
/*
|
|
** complain and die
|
|
*/
|
|
void
|
|
_Z_qfatal(str)
|
|
char *str;
|
|
{
|
|
V_cleanup(); /* try reset the device to normal */
|
|
O_cleanup(); /* " " " " " " */
|
|
Z_complain(str);
|
|
_Z_errexit();
|
|
}
|
|
|
|
/*
|
|
** scream and die
|
|
*/
|
|
void
|
|
Z_fatal(str)
|
|
char *str;
|
|
{
|
|
V_cleanup(); /* try reset the device to normal */
|
|
O_cleanup(); /* " " " " " " */
|
|
(void) fputs(str,stderr);
|
|
_Z_errexit();
|
|
}
|
|
|
|
/*
|
|
** allocate memory with error checking
|
|
*/
|
|
int*
|
|
_Z_myalloc(k)
|
|
int k;
|
|
{
|
|
int *tmp;
|
|
if ((tmp = (int*) calloc((unsigned)k,(unsigned)1)))
|
|
{
|
|
return(tmp);
|
|
}
|
|
Z_fatal("Out of Memory\n");
|
|
return(tmp); /* boilerplate to shut up lint */
|
|
}
|
|
|
|
void
|
|
Z_exceed(d)
|
|
int d;
|
|
{
|
|
(void) sprintf(Z_err_buf,
|
|
"The files differ in more than %d places\n", d);
|
|
_Z_qfatal(Z_err_buf);
|
|
}
|