|
|
1.1 root 1: /*
2: * Standard stream library for the C compiler and other compilers that use
3: * C compiler facilities.
4: * Output an lval_t.
5: */
6: #include <stdio.h>
7: #ifdef vax
8: #include "INC$LIB:mch.h"
9: #else
10: #include "mch.h"
11: #endif
12:
13: lput(l)
14: lval_t l;
15: {
16: register unsigned char *p;
17: register n;
18: lval_t templ;
19:
20: templ = l;
21: p = &templ;
22: n = sizeof(lval_t);
23: do {
24: bput(*p++);
25: } while (--n);
26: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.