chrissy
/
P8000
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ING_DB

This commit is contained in:
Oliver Lehmann 1989-07-17 09:52:00 +00:00
parent f7cf3b6320
commit e32309d10a
1 changed files with 51 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
WEGA/contrib/ingres/dbs/src/pqr/rg_error.c Normal file
View File

@ -0,0 +1,51 @@
/*
** --- RG_ERROR.C ------ ERROR MESSAGE PRINTER ------------------------------
**
** Version: @(#)rg_error.c 4.0 02/05/89
**
*/
# include <stdio.h>
# include "rg.h"
/*ARGSUSED*/
# ifdef P8000
rg_error(msg, a0, a1, a2, a3, a4, a5)
register char *msg;
register int a0;
register int a1;
register int a2;
register int a3;
register int a4;
register int a5;
{
extern int errno;
# else
rg_error(msg, av)
register char *msg;
int av;
{
register int *a;
extern int errno;
a = &av;
# endif
rg_flush();
fprintf(stderr, "\n******* PQR ---\tPAGE %3d\tLINE %3d\tTUPLE %3d\n\t",
SYS_page, SYS_line, SYS_tuple);
# ifdef P8000
fprintf(stderr, msg, a0, a1, a2, a3, a4, a5);
# else
fprintf(stderr, msg, a[0], a[1], a[2], a[3], a[4], a[5]);
# endif
fprintf(stderr, "\007\n");
if (errno)
{
fprintf(stderr, "\tBS error %d\n", errno);
errno = 0;
}
}