122 lines
7.1 KiB
C
122 lines
7.1 KiB
C
/* Pawn compiler
|
|
*
|
|
* Global (cross-module) variables.
|
|
*
|
|
* Copyright (c) ITB CompuPhase, 1997-2006
|
|
*
|
|
* This software is provided "as-is", without any express or implied warranty.
|
|
* In no event will the authors be held liable for any damages arising from
|
|
* the use of this software.
|
|
*
|
|
* Permission is granted to anyone to use this software for any purpose,
|
|
* including commercial applications, and to alter it and redistribute it
|
|
* freely, subject to the following restrictions:
|
|
*
|
|
* 1. The origin of this software must not be misrepresented; you must not
|
|
* claim that you wrote the original software. If you use this software in
|
|
* a product, an acknowledgment in the product documentation would be
|
|
* appreciated but is not required.
|
|
* 2. Altered source versions must be plainly marked as such, and must not be
|
|
* misrepresented as being the original software.
|
|
* 3. This notice may not be removed or altered from any source distribution.
|
|
*
|
|
* Version: $Id: scvars.c 3655 2006-10-23 20:17:52Z thiadmer $
|
|
*/
|
|
#include <stdio.h>
|
|
#include <stdlib.h> /* for _MAX_PATH */
|
|
#include "sc.h"
|
|
|
|
/* global variables
|
|
*
|
|
* All global variables that are shared amongst the compiler files are
|
|
* declared here.
|
|
*/
|
|
SC_VDEFINE symbol loctab; /* local symbol table */
|
|
SC_VDEFINE symbol glbtab; /* global symbol table */
|
|
SC_VDEFINE struct hashtable_t symbol_cache_ht;
|
|
SC_VDEFINE cell *litq; /* the literal queue */
|
|
SC_VDEFINE unsigned char pline[sLINEMAX+1]; /* the line read from the input file */
|
|
SC_VDEFINE const unsigned char *lptr; /* points to the current position in "pline" */
|
|
SC_VDEFINE constvalue tagname_tab={ NULL, "", 0, 0}; /* tagname table */
|
|
SC_VDEFINE constvalue libname_tab={ NULL, "", 0, 0}; /* library table (#pragma library "..." syntax) */
|
|
SC_VDEFINE constvalue *curlibrary=NULL; /* current library */
|
|
SC_VDEFINE int pc_addlibtable=TRUE; /* is the library table added to the AMX file? */
|
|
SC_VDEFINE symbol *curfunc; /* pointer to current function */
|
|
SC_VDEFINE char *inpfname; /* pointer to name of the file currently read from */
|
|
SC_VDEFINE char outfname[_MAX_PATH]; /* intermediate (assembler) file name */
|
|
SC_VDEFINE char binfname[_MAX_PATH]; /* binary file name */
|
|
SC_VDEFINE char errfname[_MAX_PATH]; /* error file name */
|
|
SC_VDEFINE char sc_ctrlchar=CTRL_CHAR; /* the control character (or escape character)*/
|
|
SC_VDEFINE char sc_ctrlchar_org=CTRL_CHAR; /* the default control character */
|
|
SC_VDEFINE int litidx=0; /* index to literal table */
|
|
SC_VDEFINE int litmax=sDEF_LITMAX; /* current size of the literal table */
|
|
SC_VDEFINE int stgidx=0; /* index to the staging buffer */
|
|
SC_VDEFINE int sc_labnum=0; /* number of (internal) labels */
|
|
SC_VDEFINE int staging=0; /* true if staging output */
|
|
SC_VDEFINE cell declared=0; /* number of local cells declared */
|
|
SC_VDEFINE cell glb_declared=0; /* number of global cells declared */
|
|
SC_VDEFINE cell code_idx=0; /* number of bytes with generated code */
|
|
SC_VDEFINE int ntv_funcid= 0; /* incremental number of native function */
|
|
SC_VDEFINE int errnum=0; /* number of errors */
|
|
SC_VDEFINE int warnnum=0; /* number of warnings */
|
|
SC_VDEFINE int sc_debug=sCHKBOUNDS; /* by default: bounds checking+assertions */
|
|
SC_VDEFINE int sc_packstr= FALSE; /* strings are packed by default? */
|
|
SC_VDEFINE int sc_asmfile= FALSE; /* create .ASM file? */
|
|
SC_VDEFINE int sc_listing= FALSE; /* create .LST file? */
|
|
SC_VDEFINE int sc_compress=TRUE; /* compress bytecode? */
|
|
SC_VDEFINE int sc_needsemicolon=TRUE; /* semicolon required to terminate expressions? */
|
|
SC_VDEFINE int sc_dataalign=sizeof(cell); /* data alignment value */
|
|
SC_VDEFINE int sc_alignnext=FALSE; /* must frame of the next function be aligned? */
|
|
SC_VDEFINE int pc_docexpr=FALSE; /* must expression be attached to documentation comment? */
|
|
SC_VDEFINE int curseg=0; /* 1 if currently parsing CODE, 2 if parsing DATA */
|
|
SC_VDEFINE cell pc_stksize=sDEF_AMXSTACK; /* default stack size */
|
|
SC_VDEFINE cell pc_amxlimit=0; /* default abstract machine size limit = none */
|
|
SC_VDEFINE cell pc_amxram=0; /* default abstract machine data size limit = none */
|
|
SC_VDEFINE int freading=FALSE; /* Is there an input file ready for reading? */
|
|
SC_VDEFINE int fline=0; /* the line number in the current file */
|
|
SC_VDEFINE symbol *line_sym=NULL; /* the line number constant (__line) */
|
|
SC_VDEFINE short fnumber=0; /* the file number in the file table (debugging) */
|
|
SC_VDEFINE short fcurrent=0; /* current file being processed (debugging) */
|
|
SC_VDEFINE short sc_intest=FALSE; /* true if inside a test */
|
|
SC_VDEFINE int pc_sideeffect=0; /* true if an expression causes a side-effect */
|
|
SC_VDEFINE int stmtindent=0; /* current indent of the statement */
|
|
SC_VDEFINE int indent_nowarn=FALSE; /* skip warning "217 loose indentation" */
|
|
SC_VDEFINE int sc_tabsize=8; /* number of spaces that a TAB represents */
|
|
SC_VDEFINE short sc_allowtags=TRUE; /* allow/detect tagnames in lex() */
|
|
SC_VDEFINE int sc_status; /* read/write status */
|
|
SC_VDEFINE int sc_rationaltag=0; /* tag for rational numbers */
|
|
SC_VDEFINE int rational_digits=0; /* number of fractional digits */
|
|
SC_VDEFINE int sc_allowproccall=0; /* allow/detect tagnames in lex() */
|
|
SC_VDEFINE short sc_is_utf8=FALSE; /* is this source file in UTF-8 encoding */
|
|
SC_VDEFINE char *pc_deprecate=NULL; /* if non-null, mark next declaration as deprecated */
|
|
SC_VDEFINE int sc_curstates=0; /* ID of the current state list */
|
|
SC_VDEFINE int pc_optimize=sOPTIMIZE_NOMACRO; /* (peephole) optimization level */
|
|
SC_VDEFINE int pc_memflags=0; /* special flags for the stack/heap usage */
|
|
SC_VDEFINE int pc_naked=FALSE; /* if true mark following function as naked */
|
|
SC_VDEFINE int pc_compat=FALSE; /* running in compatibility mode? */
|
|
SC_VDEFINE int pc_recursion=FALSE; /* enable detailed recursion report? */
|
|
|
|
SC_VDEFINE constvalue sc_automaton_tab = { NULL, "", 0, 0}; /* automaton table */
|
|
SC_VDEFINE constvalue sc_state_tab = { NULL, "", 0, 0}; /* state table */
|
|
|
|
SC_VDEFINE FILE *inpf = NULL; /* file read from (source or include) */
|
|
SC_VDEFINE FILE *inpf_org= NULL; /* main source file */
|
|
SC_VDEFINE FILE *outf = NULL; /* (intermediate) text file written to */
|
|
|
|
SC_VDEFINE jmp_buf errbuf;
|
|
|
|
SC_VDEFINE int emit_flags;
|
|
SC_VDEFINE int emit_stgbuf_idx;
|
|
|
|
#if !defined SC_LIGHT
|
|
SC_VDEFINE int sc_makereport=FALSE; /* generate a cross-reference report */
|
|
#endif
|
|
|
|
#if defined __WATCOMC__ && !defined NDEBUG
|
|
/* Watcom's CVPACK dislikes .OBJ files without functions */
|
|
static int dummyfunc(void)
|
|
{
|
|
return 0;
|
|
}
|
|
#endif
|