short *newcore(size) int size; {
register short *p,*q;
+ size = (size + sizeof(int) - 1) & ~(sizeof(int) - 1);
if( size < 2*MAXSHORT ) {
if ((p=freelist[size/sizeof(short)]) != (short *) 0)
freelist[size/sizeof(short)] = *(short **) p;
*/
main(argc,argv) int argc; char *argv[]; {
- short somespace[STACKROOM];
+ int somespace[STACKROOM];
progname = argv[0];
while (argc-->1 && **++argv == '-')
if (freopen(*argv,"r",stdin) == NULL)
error("Cannot open %s",*argv);
fileinit();
- coreinit(somespace,somespace+STACKROOM);
+ coreinit((short *)somespace,(short *)(somespace+STACKROOM));
getlines();
cleanup();
return(0);