From 31b2f7d9e0744d6ddf93ef677155fd21550dc1d9 Mon Sep 17 00:00:00 2001 From: ceriel Date: Fri, 2 Oct 1987 12:53:04 +0000 Subject: [PATCH] take care of GTO --- util/ego/share/types.h | 3 +++ 1 file changed, 3 insertions(+) diff --git a/util/ego/share/types.h b/util/ego/share/types.h index f03e0b850..12fb15200 100644 --- a/util/ego/share/types.h +++ b/util/ego/share/types.h @@ -157,9 +157,12 @@ union pext_t { #define PF_ENVIRON 010 /* proc does a lxa or lxl */ #define PF_LPI 020 /* proc may be called indirect */ #define PF_CALINLOOP 040 /* proc ever called in a loop? (transitively) */ +#define PF_GTO 0100 /* proc may be entered via GTO instruction */ #define CALLED_IN_LOOP(p) p->p_flags1 |= PF_CALINLOOP #define IS_CALLED_IN_LOOP(p) (p->p_flags1 & PF_CALINLOOP) +#define IS_ENTERED_WITH_GTO(p) (p->p_flags1 & PF_GTO) +#define ENTERED_WITH_GTO(p) p->p_flags1 |= PF_GTO /* LOOPS */ -- 2.34.1