Algol 68 Genie

a68g-masks.h

     
   1  //! @file a68g-masks.h
   2  //! @author J. Marcel van der Veer
   3  
   4  //! @section Copyright
   5  //!
   6  //! This file is part of Algol68G - an Algol 68 compiler-interpreter.
   7  //! Copyright 2001-2025 J. Marcel van der Veer [algol68g@xs4all.nl].
   8  
   9  //! @section License
  10  //!
  11  //! This program is free software; you can redistribute it and/or modify it 
  12  //! under the terms of the GNU General Public License as published by the 
  13  //! Free Software Foundation; either version 3 of the License, or 
  14  //! (at your option) any later version.
  15  //!
  16  //! This program is distributed in the hope that it will be useful, but 
  17  //! WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY 
  18  //! or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for 
  19  //! more details. You should have received a copy of the GNU General Public 
  20  //! License along with this program. If not, see [http://www.gnu.org/licenses/].
  21  
  22  //! @section Synopsis
  23  //!
  24  //! Bit masks.
  25  
  26  #if !defined (__A68G_MASKS_H__)
  27  #define __A68G_MASKS_H__
  28  
  29  // Status macros
  30  #define STATUS_CLEAR(p, q) {STATUS (p) &= (~(q));}
  31  #define STATUS_SET(p, q) {STATUS (p) |= (q);}
  32  #define STATUS_TEST(p, q) ((STATUS (p) & (q)) != (unt) 0)
  33  
  34  // Status masks
  35  #define NULL_MASK                 ((STATUS_MASK_T) 0x00000000)
  36  #define IN_HEAP_MASK              ((STATUS_MASK_T) 0x00000001)
  37  #define IN_FRAME_MASK             ((STATUS_MASK_T) 0x00000002)
  38  #define IN_STACK_MASK             ((STATUS_MASK_T) 0x00000004)
  39  #define IN_COMMON_MASK            ((STATUS_MASK_T) 0x00000008)
  40  #define INIT_MASK                 ((STATUS_MASK_T) 0x00000010)
  41  #define PLUS_INF_MASK             ((STATUS_MASK_T) 0x00000020)
  42  #define MINUS_INF_MASK            ((STATUS_MASK_T) 0x00000040)
  43  #define CONSTANT_MASK             ((STATUS_MASK_T) 0x00000080)
  44  #define BLOCK_GC_MASK             ((STATUS_MASK_T) 0x00000100)
  45  #define COOKIE_MASK               ((STATUS_MASK_T) 0x00000200)
  46  #define SCOPE_ERROR_MASK          ((STATUS_MASK_T) 0x00000200)
  47  #define ALLOCATED_MASK            ((STATUS_MASK_T) 0x00000400)
  48  #define STANDENV_PROC_MASK        ((STATUS_MASK_T) 0x00000800)
  49  #define COLOUR_MASK               ((STATUS_MASK_T) 0x00001000)
  50  #define MODULAR_MASK              ((STATUS_MASK_T) 0x00002000)
  51  #define OPTIMAL_MASK              ((STATUS_MASK_T) 0x00004000)
  52  #define SERIAL_MASK               ((STATUS_MASK_T) 0x00008000)
  53  #define CROSS_REFERENCE_MASK      ((STATUS_MASK_T) 0x00010000)
  54  #define TREE_MASK                 ((STATUS_MASK_T) 0x00020000)
  55  #define CODE_MASK                 ((STATUS_MASK_T) 0x00040000)
  56  #define NOT_NEEDED_MASK           ((STATUS_MASK_T) 0x00080000)
  57  #define SOURCE_MASK               ((STATUS_MASK_T) 0x00100000)
  58  #define ASSERT_MASK               ((STATUS_MASK_T) 0x00200000)
  59  #define NIL_MASK                  ((STATUS_MASK_T) 0x00400000)
  60  #define SKIP_PROCEDURE_MASK       ((STATUS_MASK_T) 0x00800000)
  61  #define SKIP_FORMAT_MASK          ((STATUS_MASK_T) 0x00800000)
  62  #define SKIP_ROW_MASK                  ((STATUS_MASK_T) 0x00800000)
  63  #define INTERRUPTIBLE_MASK        ((STATUS_MASK_T) 0x01000000)
  64  #define BREAKPOINT_MASK           ((STATUS_MASK_T) 0x02000000)
  65  #define BREAKPOINT_TEMPORARY_MASK ((STATUS_MASK_T) 0x04000000)
  66  #define BREAKPOINT_INTERRUPT_MASK ((STATUS_MASK_T) 0x08000000)
  67  #define BREAKPOINT_WATCH_MASK     ((STATUS_MASK_T) 0x10000000)
  68  #define BREAKPOINT_TRACE_MASK     ((STATUS_MASK_T) 0x20000000)
  69  #define SEQUENCE_MASK             ((STATUS_MASK_T) 0x40000000)
  70  #define BREAKPOINT_ERROR_MASK     ((STATUS_MASK_T) 0xffffffff)
  71  
  72  // CODEX masks
  73  
  74  #define PROC_DECLARATION_MASK ((STATUS_MASK_T) 0x00000001)
  75  
  76  #endif
Deze website is gearchiveerd door de KB, nationale bibliotheek.

This website is archived by the National Library of the Netherlands.