special-variables.lisp

   1
   2 (in-package :m68k-assembler)
   3
   4
   5 (defvar *defining-macro-p* nil)
   6 (defvar *defining-rept-p* nil)
   7 (defvar *defining-conditional-compilation-p* nil)
   8 (defvar *macro-buffer*)
   9
  10 (defvar *source-position*)
  11 (defvar *last-label* nil "Last label seen by the assembler.  This is
  12 used for generating the prefix for local labels.")
  13 (defvar *backpatch-list* nil)
  14
  15 (defvar *defining-relocations-p* nil)
  16
  17 (defvar *sections* nil)
  18 (defvar *current-section* nil "Current section we're assembling in.")
  19 ;; Things bound by new section.
  20 (defvar *object-stream* nil "Stream to object data.")
  21 (defvar *program-counter* nil "Program counter of current section.")
  22 (defvar *relocation-table* nil "Relocations, indexed by PC.")