sources/int/genint.h

   1 /*     Loglan82 Compiler&Interpreter\r
   2      Copyright (C) 1993 Institute of Informatics, University of Warsaw\r
   3      Copyright (C)  1993, 1994 LITA, Pau\r
   4      \r
   5      This program is free software; you can redistribute it and/or modify\r
   6      it under the terms of the GNU General Public License as published by\r
   7      the Free Software Foundation; either version 2 of the License, or\r
   8      (at your option) any later version.\r
   9      \r
  10      This program is distributed in the hope that it will be useful,\r
  11      but WITHOUT ANY WARRANTY; without even the implied warranty of\r
  12      MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the\r
  13      GNU General Public License for more details.\r
  14      \r
  15              You should have received a copy of the GNU General Public License\r
  16              along with this program; if not, write to the Free Software\r
  17              Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.\r
  18 \r
  19  contacts:  Andrzej.Salwicki@univ-pau.fr\r
  20 \r
  21 or             Andrzej Salwicki\r
  22                 LITA   Departement d'Informatique\r
  23                 Universite de Pau\r
  24                 Avenue de l'Universite\r
  25                 64000 Pau   FRANCE\r
  26                  tel.  ++33 59923154    fax. ++33 59841696\r
  27 \r
  28 =======================================================================\r
  29 */\r
  30 \r
  31 #ifdef GEN\r
  32 #undef GEN\r
  33 #endif\r
  34 \r
  35 #if UNIX\r
  36 #include "../gen/genint.h"\r
  37 #else\r
  38 #include "..\gen\genint.h"\r
  39 #endif\r
  40 \r
  41 /* Variables : */\r
  42 \r
  43 extern protdescr *prototype[];\r
  44 extern word ipradr;         /* address of primitive type descriptions */\r
  45 extern word temporary;          /* address of global temporary variables */\r
  46 extern word strings;            /* base for string constants */\r
  47 extern word lastprot;           /* the last used prototype number */\r
  48 extern word freem;           /* first free cell in M */\r
  49 extern word currfile;     /* current file virtual address */\r
  50 \r