Return to lget.c CVS log

Up to [MW Coherent from dump] / coherent / b / bin / c / common

coherent

/*
 * Standard stream library for the
 * C compiler and other compilers that use
 * C compiler factilities.
 * Input an lval_t.
 */
#include <stdio.h>
#ifdef   vax
#include "INC$LIB:mch.h"
#else
#include "mch.h"
#endif

lval_t
lget()
{
	register char *p;
	register n;
	lval_t   l;

	p = &l;
	n = sizeof(lval_t);
	do {
		*p++ = bget();
	} while (--n);
	return (l);
}

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.