OpenCores
URL https://opencores.org/ocsvn/raptor64/raptor64/trunk

Subversion Repositories raptor64

[/] [raptor64/] [trunk/] [software/] [c64/] [source/] [Cglbdef.c] - Rev 51

Compare with Previous | Blame | View Log

#include        <stdio.h>
#include        "c.h"
#include        "expr.h"
#include "Statement.h"
#include        "gen.h"
/*
 *	68000 C compiler
 *
 *	Copyright 1984, 1985, 1986 Matthew Brandt.
 *  all commercial rights reserved.
 *
 *	This compiler is intended as an instructive tool for personal use. Any
 *	use for profit without the written consent of the author is prohibited.
 *
 *	This compiler may be distributed freely for non-commercial use as long
 *	as this notice stays intact. Please forward any enhancements or questions
 *	to:
 *
 *		Matthew Brandt
 *		Box 920337
 *		Norcross, Ga 30092
 */
 
/*******************************************************
	Modified to support Raptor64 'C64' language
	by Robert Finch
	robfinch@opencores.org
*******************************************************/
 
/*      global definitions      */
 
FILE            *input = 0,
                *list = 0,
                *output = 0;
FILE			*outputG = 0;
int incldepth = 0;
int             lineno = 0;
int             nextlabel = 0;
int             lastch = 0;
int             lastst = 0;
char            lastid[33] = "";
char            laststr[MAX_STRLEN + 1] = "";
__int64			ival = 0;
double          rval = 0.0;
 
TABLE           gsyms[257],// = {0,0},
	           lsyms = {0,0};
SYM             *lasthead = NULL;
struct slit     *strtab = NULL;
int             lc_static = 0;
int             lc_auto = 0;
struct snode    *bodyptr = 0;
int             global_flag = 1;
TABLE           defsyms = {0,0};
int             save_mask = 0;          /* register save mask */
TYP             tp_int, tp_econst;
 
int isPascal = FALSE;
int isOscall = FALSE;
int isInterrupt = FALSE;
int isNocall = FALSE;
int optimize = TRUE;
int exceptions = FALSE;
SYM *currentFn = NULL;
int callsFn = FALSE;
 
char nmspace[20][100];
 
 
 
 

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.