level0/syssrc/compiler-helpers-low.f

   1 ;; Native x86 GNU/Linux Forth System, Direct Threaded Code
   2 ;; compiler helper words
   3 ;;
   4 ;; Copyright (C) 2020 Ketmar Dark // Invisible Vector
   5 ;;
   6 ;; This program is free software: you can redistribute it and/or modify
   7 ;; it under the terms of the GNU General Public License as published by
   8 ;; the Free Software Foundation, version 3 of the License ONLY.
   9 ;;
  10 ;; This program is distributed in the hope that it will be useful,
  11 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  12 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13 ;; GNU General Public License for more details.
  14 ;;
  15 ;; You should have received a copy of the GNU General Public License
  16 ;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
  17
  18 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  19 : (HIDDEN)    ( -- )  (WFLAG-HIDDEN) (set-latest-wflag) ;
  20 : (PUBLIC)    ( -- )  (WFLAG-HIDDEN) (reset-latest-wflag) ;
  21 : (NORETURN)  ( -- )  (WFLAG-NORETURN) (toggle-latest-wflag) ;
  22
  23
  24 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  25 : PUBLIC::
  26   [compile] : (public)
  27 ;
  28
  29 : HIDDEN::
  30   [compile] : (hidden)
  31 ;