[unix-history] / usr / src / cmd / f77 / vaxx.c

#include <stdio.h>
#include "defines"
#include "locdefs"


prchars(fp, s)
FILEP fp;
int *s;
{

fprintf(fp, ".byte 0%o,0%o\n", s[0], s[1]);
}


pruse(fp, s)
FILEP fp;
char *s;
{
fprintf(fp, "\t%s\n", s);
}


prskip(fp, k)
FILEP fp;
ftnint k;
{
fprintf(fp, "\t.space\t%ld\n", k);
}


prcomblock(fp, name)
FILEP fp;
char *name;
{
fprintf(fp, LABELFMT, name);
}
Commit	Line	Data
0d57d6f5 TL	1	#include <stdio.h>
	2	#include "defines"
	3	#include "locdefs"
	4
	5
	6
	7	prchars(fp, s)
	8	FILEP fp;
	9	int *s;
	10	{
	11
	12	fprintf(fp, ".byte 0%o,0%o\n", s[0], s[1]);
	13	}
	14
	15
	16
	17	pruse(fp, s)
	18	FILEP fp;
	19	char *s;
	20	{
	21	fprintf(fp, "\t%s\n", s);
	22	}
	23
	24
	25
	26	prskip(fp, k)
	27	FILEP fp;
	28	ftnint k;
	29	{
	30	fprintf(fp, "\t.space\t%ld\n", k);
	31	}
	32
	33
	34
	35
	36
	37	prcomblock(fp, name)
	38	FILEP fp;
	39	char *name;
	40	{
	41	fprintf(fp, LABELFMT, name);
	42	}