27 |
|
char sbuf[64]; |
28 |
|
register int i; |
29 |
|
/* write format number */ |
30 |
< |
putint((long)OCTMAGIC, 2); |
30 |
> |
putint((long)(OCTMAGIC+sizeof(OBJECT)), 2); |
31 |
|
|
32 |
|
if (!(store & IO_BOUNDS)) |
33 |
|
return; |
108 |
|
int e; |
109 |
|
|
110 |
|
putint((long)(frexp(f,&e)*0x7fffffff), 4); |
111 |
< |
putint(e, 1); |
111 |
> |
putint((long)e, 1); |
112 |
|
} |
113 |
|
|
114 |
|
|
147 |
|
for (i = 0; i < o->oargs.nsargs; i++) |
148 |
|
putstr(o->oargs.sarg[i]); |
149 |
|
#ifdef IARGS |
150 |
< |
putint(o->oargs.niargs, 2); |
150 |
> |
putint((long)o->oargs.niargs, 2); |
151 |
|
for (i = 0; i < o->oargs.niargs; i++) |
152 |
< |
putint(o->oargs.iarg[i], 4); |
152 |
> |
putint((long)o->oargs.iarg[i], 4); |
153 |
|
#endif |
154 |
|
putint((long)o->oargs.nfargs, 2); |
155 |
|
for (i = 0; i < o->oargs.nfargs; i++) |