_get_runtime.c
18a19,22
> /* ==== HP_PA: */
> /* Nachbilden von getrusage: */
> #include <sys/syscall.h>
> #define getrusage(a, b)  syscall(SYS_GETRUSAGE, a, b)
19a24
> 
26,28d30
< #include <sys/time.h>
< #include <sys/resource.h>
< #undef signal
30a33,35
> 
> #include <sys/time.h>
> #include <sys/resource.h>

_job.c
45,49c45,46
< extern errcode _jobOPcons0();
< extern errcode _jobOPcone0();
< extern errcode _jobOPOPdead_set();
< extern errcode _jobOP_wordvec_create();
< extern errcode _jobOPnew_environment();
---
> /* ==== HP_PA 700 */
> #include <sys/bsdtty.h>
440,441c437,438
< 	vec.sv_mask = 0xff7bf0e0;
< 	sigvec(SIGCHLD, &vec, 0);
---
> 	vec.sv_flags = 0xff7bf0e0;
> 	sigvec(SIGCHLD, vec, 0);
_rusage.c
15a16,19
> /* ==== HP_PA */
> /* Nachbilden von getrusage: */
> #include <sys/syscall.h>
> #define getrusage(a, b)  syscall(SYS_GETRUSAGE, a, b)
16a21
> 
23,25d27
< #include <sys/time.h>
< #include <sys/resource.h>
< #undef signal
27a30,32
> 
> #include <sys/time.h>
> #include <sys/resource.h>


_wordvec.c
36,37d35
< /* ALPHA TODO: more general, lstore, index*, move_rl get_,set_byte */
< 
129d137
< /* for 32-bit systems 
131a140,142
> /*
> 	ans1->num = (wv.str->data[bi+1] << 8) || wv.str->data[bi];
> 	ans2->num = (wv.str->data[bi+3] << 8) || wv.str->data[bi+2];
133,134d143
< 	ans1->num = (temp & 0xffffffff00000000) >> CLUREFSZ*4;
< 	ans2->num = temp & 0xffffffff;
148d156
< /* 32-bit systems
149a158,162
> /*
> 	wv.str->data[bi] = r.num & 0xff;
> 	wv.str->data[bi+1] = (r.num >> 8) & 0xff;
> 	wv.str->data[bi+2] = l.num & 0xff;
> 	wv.str->data[bi+3] = (l.num >> 8) & 0xff;
151,152d163
< 	wv.vec->data[i.num-1] = (r.num & 0xffffffff) | 
< 				((l.num & 0xffffffff) << CLUREFSZ*4);
166d176
< /* 32-bit system
167a178,181
> /*
> 	wv.str->data[bi+1] = (l.num >> 8) & 0xff;
> 	wv.str->data[bi+2] = (l.num >> 16) & 0xff;
> 	wv.str->data[bi+3] = b.num & 0xff;
169,170d182
< 	wv.vec->data[i.num-1] = l.num & 0xffffffffffff | 
< 			((b.num & 0xffff) << CLUREFSZ*2/3);
203,218d214
< 		case 5:
< 			temp = temp >> 32;
< 			temp = temp & 0xff;
< 			break;
< 		case 6:
< 			temp = temp >> 40;
< 			temp = temp & 0xff;
< 			break;
< 		case 7:
< 			temp = temp >> 48;
< 			temp = temp & 0xff;
< 			break;
< 		case 8:
< 			temp = temp >> 56;
< 			temp = temp & 0xff;
< 			break;
255,270d254
< 		case 5:
< 			temp = temp & ~0xff00000000;
< 			temp = temp | (c.num << 32);
< 			break;
< 		case 6:
< 			temp = temp & ~0xff0000000000;
< 			temp = temp | (c.num << 40);
< 			break;
< 		case 7:
< 			temp = temp & ~0xff000000000000;
< 			temp = temp | (c.num << 48);
< 			break;
< 		case 8:
< 			temp = temp & ~0xff00000000000000;
< 			temp = temp | (c.num << 56);
< 			break;
306c294
< 			temp = temp & 0xffff000000;
---
> 			temp = temp & ~0xff000000;
308,327d295
< 			ans->num = temp;
< 			break;
< 		case 5:
< 			temp = temp & 0xffff00000000;
< 			temp = temp >> 32;
< 			ans->num = temp;
< 			break;
< 		case 6:
< 			temp = temp & 0xffff0000000000;
< 			temp = temp >> 40;
< 			ans->num = temp;
< 			break;
< 		case 7:
< 			temp = temp & 0xffff000000000000;
< 			temp = temp >> 48;
< 			ans->num = temp;
< 			break;
< 		case 8:
< 			temp = temp & ~0xff00000000000000;
< 			temp = temp >> 56;
368c339
< 			temp = temp & ~0xffff000000;
---
> 			temp = temp & ~0xff000000;
371,390d341
< 			break;
< 		case 5:
< 			temp = temp & ~0xffff00000000;
< 			temp = temp | (n.num << 32);
< 			wv.vec->data[wi] = temp;
< 			break;
< 		case 6:
< 			temp = temp & ~0xffff0000000000;
< 			temp = temp | (n.num << 40);
< 			wv.vec->data[wi] = temp;
< 			break;
< 		case 7:
< 			temp = temp & ~0xffff000000000000;
< 			temp = temp | (n.num << 48);
< 			wv.vec->data[wi] = temp;
< 			break;
< 		case 8:
< 			temp = temp & ~0xff00000000000000;
< 			temp = temp | (n.num << 56);
< 			wv.vec->data[wi] = temp;
392c343
< 			temp = temp & ~0x00000000000000ff;
---
> 			temp = temp & ~0x000000ff;
419c374
< 			temp = temp & 0xffffffffffffff00;
---
> 			temp = temp & 0xffffff00;
422c377
< 			temp2 = (temp2 & 0xff) << 56;
---
> 			temp2 = (temp2 & 0xff) << 24;
426c381
< 			temp = temp & 0xffffffffffff0000;
---
> 			temp = temp & 0xffff0000;
429c384
< 			temp2 = (temp2 & 0xffff) << 48;
---
> 			temp2 = (temp2 & 0xffff) << 16;
433c388
< 			temp = temp & ~0xffffffffff000000;
---
> 			temp = temp & ~0xff000000;
436c391
< 			temp2 = (temp2 & 0xffffff) << 40;
---
> 			temp2 = (temp2 & 0xff) << 8;
438,461d392
< 		case 5:
< 			temp = temp & ~0xffffffff00000000;
< 			temp = temp >> 32;
< 			temp2 = wv.vec->data[wi+1];
< 			temp2 = (temp2 & 0xffffffff) << 32;
< 			ans->num = temp | temp2;
< 		case 6:
< 			temp = temp & ~0xffffff0000000000;
< 			temp = temp >> 40;
< 			temp2 = wv.vec->data[wi+1];
< 			temp2 = (temp2 & 0xffffffffff) << 24;
< 			ans->num = temp | temp2;
< 		case 7:
< 			temp = temp & ~0xffff000000000000;
< 			temp = temp >> 48;
< 			temp2 = wv.vec->data[wi+1];
< 			temp2 = (temp2 & 0xffffffffffff) << 16;
< 			ans->num = temp | temp2;
< 		case 8:
< 			temp = temp & ~0xff00000000000000;
< 			temp = temp >> 56;
< 			temp2 = wv.vec->data[wi+1];
< 			temp2 = (temp2 & 0xffffffffffffff) << 8;
< 			ans->num = temp | temp2;
485c416
< 			temp = temp & ~0xffffffffffffff00;
---
> 			temp = temp & ~0xffffff00;
494c425
< 			temp = temp & ~0xffffffffffff0000;
---
> 			temp = temp & ~0xffff0000;
503c434
< 			temp = temp & ~0xffffffffff000000;
---
> 			temp = temp & ~0xff000000;
511,546d441
< 		case 5:
< 			temp = temp & ~0xffffffffff000000;
< 			temp = temp | (n.num << 32);
< 			wv.vec->data[wi] = temp;
< 			temp = wv.vec->data[wi+1];
< 			temp = temp & ~0x00ffffff;
< 			temp = temp | ((n.num & 0xffffff00) >> 8);
< 			wv.vec->data[wi+1] = temp;
< 			break;
< 		case 6:
< 			temp = temp & ~0xffffffffff000000;
< 			temp = temp | (n.num << 40);
< 			wv.vec->data[wi] = temp;
< 			temp = wv.vec->data[wi+1];
< 			temp = temp & ~0x00ffffff;
< 			temp = temp | ((n.num & 0xffffff00) >> 8);
< 			wv.vec->data[wi+1] = temp;
< 			break;
< 		case 7:
< 			temp = temp & ~0xffffffffff000000;
< 			temp = temp | (n.num << 48);
< 			wv.vec->data[wi] = temp;
< 			temp = wv.vec->data[wi+1];
< 			temp = temp & ~0x00ffffff;
< 			temp = temp | ((n.num & 0xffffff00) >> 8);
< 			wv.vec->data[wi+1] = temp;
< 			break;
< 		case 8:
< 			temp = temp & ~0xffffffffff000000;
< 			temp = temp | (n.num << 56);
< 			wv.vec->data[wi] = temp;
< 			temp = wv.vec->data[wi+1];
< 			temp = temp & ~0x00ffffff;
< 			temp = temp | ((n.num & 0xffffff00) >> 8);
< 			wv.vec->data[wi+1] = temp;
< 			break;



