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 *macro-buffer*)
   8
   9 (defvar *source-position*)
  10 (defvar *last-label* nil "Last label seen by the assembler.  This is
  11 used for generating the prefix for local labels.")
  12 (defvar *backpatch-list* nil)
  13
  14 (defvar *defining-relocations-p* nil)
  15
  16 (defvar *sections* nil)
  17 (defvar *current-section* nil "Current section we're assembling in.")
  18 ;; Things bound by new section.
  19 (defvar *object-stream* nil "Stream to object data.")
  20 (defvar *program-counter* nil "Program counter of current section.")
  21 (defvar *relocation-table* nil "Relocations, indexed by PC.")