d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

take care of GTO

Browse source
This commit is contained in:
ceriel 1987-10-02 12:53:04 +00:00
parent 102a2b1061
commit 31b2f7d9e0
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
util/ego/share/types.h
View file

@ -157,9 +157,12 @@ union pext_t {
#define PF_ENVIRON 010 /* proc does a lxa or lxl */ #define PF_ENVIRON 010 /* proc does a lxa or lxl */
#define PF_LPI 020 /* proc may be called indirect */ #define PF_LPI 020 /* proc may be called indirect */
#define PF_CALINLOOP 040 /* proc ever called in a loop? (transitively) */ #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 CALLED_IN_LOOP(p) p->p_flags1 |= PF_CALINLOOP
#define IS_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 */ /* LOOPS */