Add em22 compile, change EM machine executable format to put proc table in text

[Ack-5.5.git] / util / int / proctab.c

diff --git a/util/int/proctab.c b/util/int/proctab.c
index 24ff249..4c18ec0 100644 (file)
--- a/util/int/proctab.c
+++ b/util/int/proctab.c
@@ -7,68 +7,39 @@
 #include       "logging.h"
 #include       "global.h"
 #include       "log.h"
-#include       "alloc.h"
+#include       "memdirect.h"
+#include       "text.h"
 #include       "proctab.h"
 
-struct proc *proctab;
-PRIVATE long pr_cnt;
+struct proc proctab; /* changes when PI changes */
 
-init_proctab()
+read_proctab(p, pt)
+       register ptr p;
+       register struct proc *pt;
 {
-       proctab = (struct proc *)
-                       Malloc(NProc * sizeof (struct proc), "proctable");
-       pr_cnt = 0;
+       p *= psize * 3;
+       pt->pr_nloc = p_in_text(p);
+       p += psize;
+       pt->pr_ep = p_in_text(p);
+       p += psize;
+       pt->pr_ff = pt->pr_ep + p_in_text(p);
 }
 
-add_proc(nloc, ep)
-       size nloc;
-       ptr ep;
-{
-       register struct proc *pr = &proctab[pr_cnt++];
-       register struct proc *p;
-       register ptr ff = DB;
-
-       LOG((" r6 add_proc: pr_cnt = %ld, nloc = %lu, ep = %lu",
-                               pr_cnt-1, nloc, ep));
-       if (ep > DB)
-               fatal("procedure entry point outside text segment");
-
-       pr->pr_nloc = nloc;
-       pr->pr_ep = ep;
-       /* examine all old proc descriptors */
-       for (p = &proctab[0]; p < pr; p++) {
-               if (    /* the old one starts earlier */
-                       p->pr_ep < pr->pr_ep
-               &&      /* it seems to end later */
-                       p->pr_ff > pr->pr_ep
-               ) {     /* update its limit */
-                       p->pr_ff = pr->pr_ep;
-               }
-               if (    /* the old one starts later */
-                       p->pr_ep > pr->pr_ep
-               &&      /* our limit is beyond the old procedure entry point*/
-                       ff > p->pr_ep
-               ) {     /* update our limit */
-                       ff = p->pr_ep;
-               }
-       }
-       pr->pr_ff = ff;
-}
-
-end_init_proctab()
-{
 #ifdef LOGGING
+dump_proctab()
+{
        register long p;
 
        if (!check_log(" r6"))
                return;
 
        for (p = 0; p < NProc; p++) {
-               register struct proc *pr = &proctab[p];
+               struct proc pt;
 
+               read_proctab(p, &pt);
                LOG((" r5: proctab[%ld]: nloc = %d, ep = %lu, ff = %lu",
-                               p, pr->pr_nloc, pr->pr_ep, pr->pr_ff));
+                               p, pt.pr_nloc, pt.pr_ep, pt.pr_ff));
        }
-#endif /* LOGGING */
 }
+#endif /* LOGGING */