WebSVN – Kolibri OS – Diff – /programs/develop/cmm/main.cpp


#define _MAIN_
 
#ifdef _UNIX_
#define DIV_PATH ':'			//äåëèòåëü ïóòåé â ïåðåìåííîé îêðóæåíèÿ PATH
#define DIV_FOLD '/'			//ýòèì ñèìâîëîì ðàçäåëÿþòñÿ ïàïêè â ïóòè ê ôàéëó
#endif
 
#ifdef _WIN32_
#define DIV_PATH ';'
#define DIV_FOLD '\\'
#endif
 
#ifdef _KOS_
#define DIV_PATH ';'
#define DIV_FOLD '/'
#endif
 
#include 
#include 
#include 
#include 
#include "tok.h"
 
static char **_Argv; //!!! simplest way to make your own variable
 
unsigned char compilerstr[]="SPHINX C-- 0.239";
char *rawfilename;					/* file name */
char *rawext;
LISTCOM *listcom;
EWAR wartype={NULL,NULL},errfile={NULL,NULL};
int numfindpath=0;
char *findpath[16];
char modelmem=TINY;
char *stubfile=NULL;
char *winstub=NULL;
FILE *hout=NULL;
char *namestartupfile="startup.h--";
 
char outext[4]="com";
short extflag=TRUE;//ðàñøèðåíèå ìîæíî ïðèñâîèòü
//int scrsize;
unsigned char gwarning=FALSE;
unsigned char sobj=FALSE;
unsigned char usestub=TRUE;
unsigned char dpmistub=FALSE;
short dllflag=FALSE;
static int numstr;
 
char meinfo[]=
	"\nEdition of this version by\n"
	"    Mishel Sheker\n"
	"    Fido 2:5021/3.40\n"
	"    E-Mail sheker@mail.ru\n"
	"    Russia";
 
time_t systime;
struct tm timeptr;
char comsymbios=FALSE;
char fobj=FALSE;	//ïðèçíàê ãåíåðàöèè obj
unsigned int	startptr = 0x100; 			// start address
unsigned char wconsole=FALSE;	//ïðèçíàê ãåíåðàöèè êîíñîëüíîãî ïðèëîæåíèÿ windows
unsigned char optstr=FALSE;	//îïòèìèçàöèÿ ñòðîêîâûõ êîíñòàíò
unsigned char crif=TRUE;	//check reply include file
unsigned char idasm=FALSE;	//àññåìáëåðíûå èíñòðóêöèè ñ÷èòàòü èäåíòèôèêàòîðàìè
unsigned char wbss=2;	//ïîñò ïåðåìåííûå â îòäåëüíóþ ñåêöèþ
unsigned char use_env=FALSE;	//ïåðåìåííàÿ îêðóæåíèÿ
int numrel=0;	//÷èñëî ýëåìåíòîâ â òàáëèöå ïåðåìåùåíèé
unsigned char useordinal=FALSE;
unsigned char useDOS4GW=FALSE;
unsigned char clearpost=FALSE;
unsigned char uselea=TRUE;
unsigned char regoverstack=TRUE;
unsigned char shortimport=FALSE;
unsigned char useinline=2;
unsigned char ocoff=FALSE;
unsigned char ESPloc=FALSE;
 
int startupfile=-1;
int alignproc=8,aligncycle=8;
 
char *usage[]={
"USAGE: C-- [options] [FILE_NAME.INI] [SOURCE_FILE_NAME]",
"",
"                       C-- COMPILER OPTIONS",
"",
"                           OPTIMIZATION",
"/OC  optimize for code size           /DE  enable temporary expansion variable",
"/OS  optimize for speed               /OST enable optimization string",
"/ON  enable optimization number       /AP[=n] align start function",
"/UST use startup code for variables   /AC[=n] align start cycles",
#ifdef OPTVARCONST
"/ORV replace variable on constant     /OIR skip repeated initializing register",
#else
"                                      /OIR skip repeated initializing register",
#endif
"",
"                          CODE GENERATION",
"/2   80286 code optimizations         /SA=#### start code address",
"/3   80386 code optimizations         /AL=## set value insert byte",
"/4   80486 code optimizations         /WFA fast call API functions",
"/5   pentium code optimizations       /IV  initial all variables",
"/A   enable address alignment         /SUV=#### start address variables",
"/AS[=n] def. alignment in structures  /LRS load in registers over stack",
"/UL  use 'lea' for adding registers   /JS  join stack calling functions",
"/BA  byte access to array",//             /ASP addressing local variable via ESP",
"",
"                           PREPROCESSOR",
"/IP=  include file path         /IA   assembly instructions as identifier",
"/D= defined identifier        /CRI- not check include file on repeated",
"/MIF= main input file           /IND= import name from dll",
"/SF=  other startup file",
"",
"                              LINKING",
"/AT    insert ATEXIT support block    /NS    disable stub",
"/ARGC  insert parse command line      /S=#####  set stack size",
"/P     insert parse command line      /WIB=##### set image base address",
"/C     insert CTRL ignoring code   /WFU   add Fix Up table, for Windows",
"/R     insert resize memory block     /WMB   create Windows mono block",
"/ENV   insert variable with environ   /WS= set name stub file for win32",
"/J0    disable initial jump to main() /WBSS  set post data in bss section",
"/J1    initial jump to main() short   /WO    call API functions on ordinals",
"/J2    initial jump to main() near    /CPA   clear post area",
"/STUB=  set name stub file      /WSI   short import table, for Windows",
"/DOS4GW file running with DOS4GW      /WAF=#### align Windows file (def 512)",
"/STM   startup code in main function",
"",
"                           OUTPUT FILES",
"/TEXE DOS EXE file (model TINY)       /D32  EXE file (32bit code for DOS)",
"/EXE  DOS EXE file (model SMALL)      /W32  EXE for Windows32 GUI",
"/OBJ  OBJ output file                 /W32C EXE for Windows32 console",
"/SOBJ slave OBJ output file           /DLL  DLL for Windows32",
"/COFF OBJ COFF output file            /DBG  create debug information",
"/SYM  COM file symbiosis              /LST  create assembly listing",
"/SYS  device (SYS) file               /B32  32bit binary files",
"/MEOS executable file for MeOS        /MAP  create function map file",
"/EXT=  set file extension",
"",
"                           MISCELLANEOUS",
"/HELP /H /? help, this info           /WORDS list of C-- reserved words",
"/W         enable warning             /LAI   list of assembler instructions",
"/WF= direct warnings to a file  /ME    display my name and my address",
"/MER=##    set maximum number errors  /X     disable SPHINX C-- header in output",
"/NW=##     disable selected warnings  /WE=## selected warning will be error",
//" /SCD        split code and date",
NULL};
 
char *dir[]={
	"ME",    "WORDS",   "SYM",   "LAI",
 
	"OBJ",   "SOBJ",    "J0",		 "J1",     "J2",    "C",     "R",
	"P",     "X",       "EXE",   "S",      "SYS",   "ARGC",  "TEXE",
	"ROM",   "W32",     "D32",   "W32C",   "AT",    "WFA",   "SA",
	"STM",   "SUV",     "UST",   "MIF",    "DLL", 	"DOS4GW","ENV",
	"CPA",   "WBSS",    "MEOS",  "SF",     "B32",   "WIB",   "DBG",
 
	"OS",    "OC",      "A",     "0",      "1",     "2",     "3",
	"4",     "5",       "6",     "7",      "8",     "9",     "W",
	"WF",    "DE",
	"ON",    "IP",      "STUB",  "NS",     "AP",    "D",     "OST",
	"CRI",   "IA",      "SCD",   "AL",     "WFU",   "IV",
	"MER",   "WMB",     "HELP",  "H",      "?",     "AC",    "WS",
	"IND",   "WO",      "NW",    "LST",    "AS",    "UL",    "LRS",
	"WSI",   "WAF",     "OIR",   "COFF",   "JS",    "BA",    "ASP",
#ifdef OPTVARCONST
	"ORV",
#endif
   "MAP",  "WE",   "EXT",   NULL};
 
enum {
	c_me,    c_key,     c_sym,   c_lasm,   c_endinfo=c_lasm,
 
	c_obj,   c_sobj,    c_j0,    c_j1,     c_j2,    c_ctrlc, c_r,
	c_p,     c_x,		    c_exe,   c_s,      c_sys,   c_arg,   c_texe,
	c_rom,   c_w32,     c_d32,   c_w32c,   c_at,    c_wfa,   c_sa,
	c_stm,   c_suv,     c_ust,   c_mif,    c_dll,   c_d4g,   c_env,
	c_cpa,   c_wbss,    c_meos,  c_sf,     c_b32,   c_wib,   c_dbg,
	c_endstart=c_dbg,
 
	c_os,    c_oc,      c_a,     c_0,      c_1,     c_2,     c_3,
	c_4,     c_5,       c_6,     c_7,      c_8,     c_9,     c_w,
	c_wf,    c_de,
	c_opnum, c_ip,      c_stub,  c_ns,     c_ap,    c_define,c_ost,
	c_cri,   c_ia,      c_scd,   c_al,     c_wfu,   c_iv,
	c_mer,   c_wmb,     c_help,  c_h,      c_hh,    c_ac,    c_ws,
	c_ind,   c_wo,      c_nw,    c_lst,    c_as,    c_ul,    c_lrs,
	c_wsi,   c_waf,     c_oir,   c_coff,   c_js,    c_ba,    c_asp,
#ifdef OPTVARCONST
	c_orv,
#endif
	c_map,   c_we,      c_ext,   c_end};
 
#define NUMEXT 6	//÷èñëî ðàçðåøåííûõ ðàñøèðåíèé êîìïèëèðóåìîãî ôàéëà
char extcompile[NUMEXT][4]={"c--","cmm","c","h--","hmm","h"};
 
#ifdef _KOS_
char __pgmname[256];
char __cmdline[256];
#endif
 
char *bufstr=NULL;	//áóôåð äëÿ ñòðîê èç ïðîöåäóð
int sbufstr=SIZEBUF;	//íà÷àëüíûé ðàçìåð ýòîãî áóôåðà
 
void compile();
void PrintInfo(char **str);
void LoadIni(char *name);
//void CheckNumStr();
void ListId(int num,unsigned char *list,short *ofs);
void printmemsizes();
void print8item(char *str);
void doposts(void);
void GetMemExeDat();
void AddJmpApi();
void startsymbiosys(char *symfile);
int writeoutput();
void BadCommandLine(char *str);
void  CheckExtenshions();
void ImportName(char *name);
void WarnUnusedVar();//ïðåäóïðåæäåíèÿ î íåèñïîëüçîâàííûõ ïðîöåäóðàõ è ïåðåìåííûõ
void MakeExeHeader(EXE_DOS_HEADER *exeheader);
void CheckPageCode(unsigned int ofs);
int MakePE();
int MakeObj();
void CheckUndefClassProc();
/*
void PrintTegList(structteg *tteg)
{
	if(tteg){
		PrintTegList(tteg->left);
		PrintTegList(tteg->right);
		puts(tteg->name);
	}
} */
 
//unsigned long maxusedmem=0;
 
void ErrOpenFile(char *str)
{
	printf("Unable to open file %s.\n",str);
}
 
int main(int argc,char *argv[])
{
int count;
unsigned char pari=FALSE;
	char *buffer;
	
	printf("\nSPHINX C-- Compiler   Version %d.%d%s   %s\r\n",ver1,ver2,betta,__DATE__);
		
//	scrsize=24;
	if(argc>1){
		_Argv=argv;// This make portable code
		bufstr=(char *)MALLOC(SIZEBUF);
		output=(unsigned char *)MALLOC((size_t)MAXDATA);
		outputdata=output;
		postbuf=(postinfo *)MALLOC(MAXPOSTS*sizeof(postinfo));
		strcpy((char *)string,argv[0]);
		rawext=strrchr((char *)string,DIV_FOLD);
		
		if(rawext!=NULL){
			rawext[0]=0;
			IncludePath((char *)string);
		} 
		rawfilename=getenv("C--");
		if(rawfilename!=NULL)IncludePath(rawfilename);
		
		rawfilename=rawext=NULL;
		LoadIni("c--.ini");	 
		
		for(count=1;count
			//if(argv[count][0]=='/'||argv[count][0]=='-'){
			if(argv[count][0]=='-'){
				if(SelectComand(argv[count]+1,&count)==c_end) BadCommandLine(argv[count]);
			}
			else{
				if(pari==FALSE){
					rawfilename=argv[count];
					pari=TRUE;
					if((rawext=strrchr(rawfilename,'.'))!=NULL){
						if(stricmp(rawext,".ini")==0){	//óêàçàí ini ôàéë
							rawfilename=NULL;
							rawext=NULL;
							LoadIni(argv[count]);
							if(rawfilename==NULL)pari=FALSE;
						}
						else{
							*rawext++=0;
							CheckExtenshions();
						}
					}
				}
			}
		}
	}
	if(rawfilename==NULL){
		PrintInfo(usage);
		exit( e_noinputspecified );
	}
	time(&systime); //òåêóùåå âðåìÿ
	memcpy(&timeptr,localtime(&systime),sizeof(tm));
	InitDefineConst();
	compile();
	if(error==0)exit(e_ok);
	exit(e_someerrors);
	return 0;
}
 
void CheckExtenshions()
{
int i;
	for(i=0;i
		if(stricmp(rawext,extcompile[i])==0)break;
	}
	if(i==NUMEXT){
	 	printf("Bad input file extension '%s'.",rawext);
	  exit(e_badinputfilename);
	}
}
 
void compile()
{
long segments_required;
union{
	long longhold;
	void *nextstr;
};
//ñîçäàòü èìÿ ôàéëà ñ ïðåäóïðåæäåíèÿìè è åñëè îí åñòü óäàëèòü
	errfile.name=(char *)MALLOC(strlen(rawfilename)+5);
	sprintf(errfile.name,"%s.err",rawfilename);
	if(stat(errfile.name,(struct stat *)string2)==0)remove(errfile.name);
//åñëè åñòü èìÿ ôàéëà äëÿ ïðåäóïðåæäåíèé ïðîâåðèòü åãî ñóùåñòâîâàíèå è óäàëèòü.
	if(wartype.name!=NULL){
		if(stat(wartype.name,(struct stat *)string2)==0)remove(wartype.name);
	}
	puts("Compiling Commenced . . .");
	if(rawext!=NULL)sprintf((char *)string,"%s.%s",rawfilename,rawext);
	else{
		for(unsigned int i=0;i
			sprintf((char *)string,"%s.%s",rawfilename,extcompile[i]);
			if(stat((char *)string,(struct stat *)string2)==0)break;
		}
	}
	linenumber=0;
	initregstat();
#ifdef OPTVARCONST
	CreateMainLVIC();
#endif
#ifdef __NEWLEX__
	inittokn();
#endif
	compilefile((char *)string,2); //ñîáñòâåííî ðàçáîðêà è êîìïèëÿöèÿ
	puts("Link . . .");
	if(comfile==file_w32&&wbss==2){
		wbss=FALSE;
		if(wconsole==FALSE)wbss=TRUE;
	}
	if(notdoneprestuff==TRUE)doprestuff();	//startup code
	if(endifcount>=0)preerror("?endif expected before end of file");
	AddObj();
	docalls();	//äîáàâèòü âíåøíèå ïðîöåäóðû
	addinitvar();
	CheckUndefClassProc();
	if(undefoffstart!=NULL){	//âûäàòü ñïèñîê íåèçâåñòíûõ ññûëîê
		UNDEFOFF *curptr=undefoffstart;
		for(;;){
			char holdstr[80];
			UNDEFOFF *ocurptr;
			linenumber=curptr->pos->line;
			sprintf(holdstr,"\'%s\' offset undefined",curptr->name);
			currentfileinfo=curptr->pos->file;
			preerror(holdstr);
			free(curptr->pos);
			if(curptr->next==NULL)break;
			ocurptr=curptr->next;
			free(curptr);
			curptr=ocurptr;
		}
		free(curptr);
	}
	while(liststring!=NULL){
		STRING_LIST *ins;
		ins=(STRING_LIST *)liststring;
		nextstr=ins->next;
		free(liststring);
		liststring=nextstr;
	}
	free(bufstr);
	if(warning==TRUE&&wact[7].usewarn)WarnUnusedVar();//ïðåäóïðåæäåíèÿ î íåèñïîëüçîâàííûõ ïðîöåäóðàõ è ïåðåìåííûõ
	if(numstrtbl)CreatStrTabRes();	//çàâåðøèòü ñîçäàíèå ðåñóðñîâ
	if(fobj==FALSE){
		if(comfile==file_w32&&error==0){
			AddJmpApi();	//êîñâåííûå âûçîâû API
			CreatWinStub();
		}
		longhold=outptr;
		if(comfile==file_rom){
			ooutptr=outptr;
			if(modelmem==SMALL){
				*(short *)&output[stackstartaddress]=(short)(((outptrdata+postsize+stacksize)/4+1)*4);
				*(short *)&output[dataromstart]=(short)(outptr+4);
				*(short *)&output[dataromsize]=(short)(outptrdata/2);
//				printf("outptr=%d outptrdate=%d outptrsize=%d\n",outptr,outptrdata,outptrsize);
				for(unsigned int i=0;i
			}
			if(romsize==0){
				unsigned int i=outptr/1024;
				if((outptr%1024)!=0)i++;
				if(i>32)i=64;
				else if(i>16)i=32;
				else if(i>8)i=16;
				else if(i>4)i=8;
				else if(i>2)i=4;
		 		romsize=i*1024;
				output[2]=(unsigned char)(romsize/512);
			}
			if(outptr>=romsize)preerror("The size of a code is more than the size of the ROM");
			for(;outptr
			unsigned char summa=0;
			for(unsigned int i=0;i
			output[romsize-1]-=summa;
			outptr=ooutptr;
		}
		else if(modelmem==SMALL&&comfile==file_exe){ // if an EXE file
			longhold+=AlignCD(CS,16);
//			if((outptr%16)!=0)outptr+=16-outptr%16;// paragraph align the end of the code seg
			if(((long)outptrdata+(long)postsize+(long)stacksize)>65535L)
					preerror("Data and stack total exceeds 64k");
		}
		else if(comfile==file_sys){
			for(int i=0;i
				searchvar((listcom+i)->name);
				*(short *)&output[syscom+i*2]=(unsigned short)itok.number;
			}
			free(listcom);
		}
		else longhold+=(long)postsize+(long)(stacksize);
		if(am32==0&&longhold>65535L&&!(modelmem==TINY&&(!resizemem)))preerror("Code, data and stack total exceeds 64k");
		if(posts>0)doposts();  //Óñòàíîâèòü àäðåñà âûçîâîâ ïðîöåäóð è ïåðåõîäîâ
		if(resizemem&&comfile==file_com){
			segments_required=(outptr+postsize+stacksize+15)/16;
			*(short *)&output[resizesizeaddress]=(short)segments_required;
			*(short *)&output[stackstartaddress]=(short)(segments_required*16);
		}
	}
	deinitregstat();
#ifdef OPTVARCONST
	KillMainLVIC();
#endif
//	puts("List Teg name:");
//	PrintTegList(tegtree);
	printf("COMPILING FINISHED.  Errors: %d\n",error);
	if(error==0){
		if(cpu>=1){
			char m1[12];
			switch(cpu){
				case 5:
					strcpy(m1,"Pentium");
					break;
				case 6:
					strcpy(m1,"MMX");
					break;
				case 7:
					strcpy(m1,"Pentium II");
					break;
				case 8:
					strcpy(m1,"Pentium III");
					break;
				case 9:
					strcpy(m1,"Pentium IV");
					break;
				default: sprintf(m1,"80%d86",cpu);
			}
			printf("CPU required: %s or greater.\n",m1);
		}
		runfilesize=outptr-startptr;
		if(comfile==file_rom)runfilesize=romsize;
		else if(modelmem==SMALL&&comfile==file_exe){
			runfilesize+=outptrdata-startptrdata+0x20;
			postsize+=postsize%2;
			stacksize=(stacksize+15)/16*16;
		}
		else if((comfile==file_exe||comfile==file_d32)&&modelmem==TINY)
				runfilesize+=0x20;
		printmemsizes();
		endinptr=outptr;
		if(writeoutput()==0)printf("Run File Saved (%ld bytes).\n",runfilesize);
		if(comfile==file_w32&&fobj==FALSE)printf("Created file of a format PE for Windows.\nFor alignment section code, added %u zero bytes.\n",filingzerope);
//		else if(FILEALIGN&&fobj==FALSE)printf("For alignment file, added %u zero bytes.\n",filingzerope);
	}
		if(pdbg)DoTDS();
}
 
void printmemsizes()
{
long stacklong;
unsigned int stackword;
unsigned int postword,codeword;
	postword=postsize;
	codeword=outptr-startptr;
	stackword=stacksize;
	if(comfile==file_com||(comfile==file_exe&&modelmem==TINY)){
		if(resizemem==0){
			stacklong=0xFFFE - outptr - postsize;
			stackword=stacklong;
		}
		codeword=codeword-datasize-alignersize;
	}
	else if(comfile==file_sys)stackword=sysstack;
	else if(comfile==file_exe||comfile==file_rom)datasize=outptrdata;
	else if(comfile==file_d32)codeword-=datasize;
	printf("Code: %u bytes, Data: %u bytes, Post: %u bytes, Stack: %u bytes\n"
			,codeword,datasize,postword,stackword);
	for(int i=0;i
		switch((postbuf+i)->type){
			case CODE_SIZE:
				*(short *)&output[(postbuf+i)->loc]+=codeword;
				break;
			case CODE_SIZE32:
				*(long *)&output[(postbuf+i)->loc]+=codeword;
				break;
			case DATA_SIZE:
				*(short *)&output[(postbuf+i)->loc]+=datasize;
				break;
			case DATA_SIZE32:
				*(long *)&output[(postbuf+i)->loc]+=datasize;
				break;
			case POST_SIZE:
				*(short *)&output[(postbuf+i)->loc]+=postword;
				break;
			case POST_SIZE32:
				*(long *)&output[(postbuf+i)->loc]+=postword;
				break;
			case STACK_SIZE:
				*(short *)&output[(postbuf+i)->loc]+=stackword;
				break;
			case STACK_SIZE32:
				*(long *)&output[(postbuf+i)->loc]+=stackword;
				break;
		}
	}
}
 
void PrintInfo(char **str)
{
	numstr=1;
	for(int i=0;str[i]!=NULL;i++){
		puts(str[i]);
//		CheckNumStr();
	}
}
 
/*void CheckNumStr()
{
#ifndef _UNIX_
	if(((numstr+1)%(scrsize-1))==0&&outfile!=0){
		puts("Press any key...");
		getch();
	}
	numstr++;
#endif
} */
 
void strbtrim(char *st)
{
int i;
char *p,*q;
	p=q=st;
	while(isspace(*p))p++;	//ïîêà íåçíà÷àùèå ñèìâîëû
	while(*p)*q++=*p++;     //ïåðåìåñòèòü ñòðîêó
	*q='\0';
	for(i=strlen(st)-1;isspace(st[i])&&i>=0;i--);
	st[i+1]='\0';
}
 
unsigned long getnumber(unsigned char *buf)
{
int temp2;
unsigned long retnum;
unsigned char *oinput;
unsigned int oinptr,oendinptr;
	if(!isdigit(buf[0]))return 0;
	oinptr=inptr;
	oinput=input;
	oendinptr=endinptr;
	input=buf;
	inptr=0;
	endinptr=256;
	retnum=scannumber(&temp2);
	inptr=oinptr;
	input=oinput;
	endinptr=oendinptr;
	return retnum;
}
 
int SelectComand(char *pptr,int *count)
{
int i;
unsigned char neg=FALSE;
char *ptr;
int len;
	if((ptr=strchr(pptr,';'))!=NULL)*ptr=0;// èùåì êîììåíòàðèé îòñåêàåì âñå ïîñëå íåãî
        if((ptr=strchr(pptr,'='))!=NULL){ // èùåì çíàê ðàâåíñòâà
		*ptr=0; // äåëèì
		ptr++;
	  strbtrim(ptr);	//óáðàòü ëèøíèå ïðîáåëû
	}
  strbtrim(pptr);	//óáðàòü ëèøíèå ïðîáåëû
	if(*pptr==0)return c_end+1;	//ïóñòàÿ ñòðîêà
	if((i=strlen(pptr))>1&&pptr[i-1]=='-'){
		neg=TRUE;
		pptr[i-1]=0;
	}
	strupr(pptr);
	for(i=0;dir[i]!=NULL;i++){
		if(strcmp(dir[i],pptr)==0){
			if((i<=c_endinfo)&&count==0){
				char buf[80];
				sprintf(buf,"Option '%s' is used only in command line",dir[i]);
				preerror(buf);
				return i;
			}
			if(i<=c_endstart&¬doneprestuff!=TRUE){
errlate:
				char buf[80];
				sprintf(buf,"Too late used '#pragma option %s'",dir[i]);
				preerror(buf);
				return i;
			}
			switch(i){
				case c_j0: jumptomain=(unsigned char)(neg!=FALSE?CALL_NEAR:CALL_NONE); header=(unsigned char)0^neg; break;
				case c_j1: jumptomain=(unsigned char)CALL_SHORT; header=(unsigned char)1; break;
				case c_j2: jumptomain=(unsigned char)(neg==FALSE?CALL_NEAR:CALL_NONE); header=(unsigned char)1^neg; break;
				case c_ctrlc: killctrlc=(unsigned char)1^neg; break;
				case c_os: optimizespeed=(unsigned char)1^neg; break;
				case c_oc: optimizespeed=(unsigned char)0^neg; break;
				case c_r: resizemem=(unsigned char)1^neg; break;
				case c_p: parsecommandline=(unsigned char)1^neg; break;
				case c_a: alignword=(unsigned char)1^neg; break;
				case c_sym:
					startptr=0x100;
					comsymbios=TRUE;
					*count=*count+1;
          startsymbiosys(_Argv[*count]);
					break;
				case c_0: chip=0; break;
				case c_1: chip=1; break;
				case c_2: chip=2; break;
				case c_3: chip=3; break;
				case c_4: chip=4; break;
				case c_5: chip=5; break;
				case c_6: chip=6; break;	//MMX
				case c_7: chip=7; break;  //Pro
				case c_8: chip=8; break;  //PII
				case c_9: chip=9; break;  //PIII
				case c_x: header=(unsigned char)0^neg; break;
				case c_exe:
					comfile=file_exe;
					modelmem=SMALL;
					splitdata=TRUE;
					GetMemExeDat();
					if(extflag) strcpy(outext,"exe");
					startptr=0; 			// start address
					startptrdata=0; 	// data start address
					dos1=2;
					dos2=0;
					break;
				case c_sys:
					comfile=file_sys;
					if(extflag) strcpy(outext,"sys");
					startptr=0; 		// start address
					startptrdata=0; 	// data start address
					jumptomain=CALL_NONE;
					header=0;
					break;
				case c_sobj:
					sobj=TRUE;
					FixUp=TRUE;
					jumptomain=CALL_NONE;
				case c_obj:
					fobj=TRUE;
//					if(comfile==file_d32)FixUp=TRUE;
					FastCallApi=FALSE;
					break;
				case c_me:
					puts(meinfo);
					exit( e_ok );
				case c_key:
					int j,jj;
					puts("LIST OF RESERVED IDENTIFIERS:");
					numstr=1;
					ListId(53,id,idofs);
					for(j=0;j
						puts(id2[j]);
//						CheckNumStr();
					}
					for(jj=0;jj<2;jj++){
						for(j=0;j<8;j++)printf("%s ",regs[jj][j]);
						puts("");
//						CheckNumStr();
					}
					for(j=0;j<8;j++)printf("%s ",begs[j]);
					puts("");
//					CheckNumStr();
					for(j=0;j<6;j++)printf("%s ",segs[j]);
					print8item("ST(%d) ");
					puts("ST");
					print8item("st(%d) ");
					puts("st");
					exit(e_ok);
				case c_lasm:
					puts("LIST OF SUPPORTED ASSEMBLER INSTRUCTIONS:");
					numstr=1;
					ListId(26,asmMnem,ofsmnem);
					exit(e_ok);
				case c_s:
					if(ptr==NULL)return c_end;
					if((stacksize=getnumber((unsigned char *)ptr))==0){
						puts("Bad stack size.");
						exit(e_unknowncommandline);
					}
					stacksize=Align(stacksize,4);
					break;
				case c_w:
					gwarning=(unsigned char)TRUE^neg;
					break;
				case c_wf:
					if(wartype.name)free(wartype.name);
					wartype.name=BackString(ptr);
					break;
				case c_de:
					divexpand=(unsigned char)TRUE^neg;
					break;
				case c_opnum:
					optnumber=(unsigned char)TRUE^neg;
					break;
				case c_ip:
					IncludePath(ptr);
					break;
				case c_arg:
					parsecommandline=(unsigned char)TRUE^neg;
					fargc=(unsigned char)TRUE^neg;
					break;
				case c_texe:
					if(extflag) strcpy(outext,"exe");
					comfile=file_exe;
					break;
				case c_rom:
					if(extflag) strcpy(outext,"rom");
					comfile=file_rom;
					startptr=0;
					startptrdata=0; 	// data start address
					GetMemExeDat();
					break;
				case c_dll:
					wconsole=TRUE;
					dllflag=TRUE;
					if(extflag) strcpy(outext,"dll");
					comfile=file_w32;
					FixUpTable=TRUE;
					goto nexpardll;
 
/*					FixUp=TRUE;
					startptrdata=startptr=0;
					am32=TRUE;
					if(chip<3)chip=3;
					if(FILEALIGN==0)FILEALIGN=512;
					break;*/
				case c_w32c:
					wconsole=TRUE;
					goto init_w32;
				case c_w32:
					wconsole=FALSE;
					dllflag=FALSE;
init_w32:
					comfile=file_w32;
					goto nexpar;
				case c_d32:
					comfile=file_d32;
nexpar:
					if(extflag) strcpy(outext,"exe");
nexpardll:
					FixUp=TRUE;
					startptrdata=startptr=0;
					am32=TRUE;
					if(chip<3)chip=3;
					if(FILEALIGN==0)FILEALIGN=512;
					break;
				case c_meos:
					comfile=file_meos;
					am32=TRUE;
					startptrdata=startptr=0;
					if(extflag) strcpy(outext,"");
					if(chip<3)chip=3;
					break;
				case c_b32:
					comfile=file_bin;
					am32=TRUE;
					startptrdata=startptr=0;
					if(extflag) strcpy(outext,"bin");
					FixUp=TRUE;
					ImageBase=0;
					if(chip<3)chip=3;
					break;
				case c_stub:
					if(stubfile)free(stubfile);
					stubfile=BackString(ptr);
					dpmistub=FALSE;
					if(stricmp(stubfile,"dpmi")==0){
						if(notdoneprestuff!=TRUE)goto errlate;
						dpmistub=TRUE;
						usestub=FALSE;
					}
					break;
				case c_ns:
					usestub=(unsigned char)0^neg;
					break;
				case c_ap:
					AlignProc=(unsigned char)1^neg;
					if(ptr!=NULL){
						alignproc=getnumber((unsigned char *)ptr);
						if(alignproc<1||alignproc>4096)alignproc=8;
					}
					break;
				case c_define:
					addconsttotree(ptr,TRUE);
					break;
				case c_ost:
					optstr=(unsigned char)TRUE^neg;
					break;
				case c_cri:
					crif=(unsigned char)1^neg;
					break;
				case c_ia:
					idasm=(unsigned char)1^neg;
					break;
				case c_dbg:
					dbg&=0xFE;
					char c;
					c=(unsigned char)1^neg;
					dbg|=c;
					if(!neg)InitDbg();
					break;
				case c_scd:
/*-----------------13.08.00 23:01-------------------
 áóäåò ââåäåíà ïîñëå äîðàáîòêè äèíàìè÷åñêèõ ïðîöåäóð
	--------------------------------------------------*/
					splitdata=(unsigned char)1^neg;
					if(modelmem==SMALL)splitdata=TRUE;
					break;
				case c_al:
					if(ptr==NULL)return c_end;
					aligner=(unsigned char)getnumber((unsigned char *)ptr);
					break;
				case c_at:
					atex=(unsigned char)1^neg;
					break;
				case c_wfa:
					FastCallApi=(unsigned char)1^neg;
					break;
				case c_wfu:
					FixUpTable=(unsigned char)1^neg;
					break;
				case c_wib:
					if(ptr==NULL)return c_end;
					ImageBase=getnumber((unsigned char *)ptr);
					break;
				case c_iv:
					notpost=(unsigned char)1^neg;
					break;
				case c_mer:
					if(ptr==NULL)return c_end;
					if((maxerrors=getnumber((unsigned char *)ptr))==0)maxerrors=16;
					break;
				case c_sa:
					if(ptr==NULL)return c_end;
					startptrdata=startptr=getnumber((unsigned char *)ptr);
					break;
				case c_stm:
					startuptomain=(unsigned char)1^neg;
					break;
				case c_suv:
					if(ptr==NULL)return c_end;
					startStartup=getnumber((unsigned char *)ptr);
					break;
				case c_wmb:
					WinMonoBlock=(unsigned char)1^neg;
					break;
				case c_ust:
					useStartup=(unsigned char)1^neg;
					break;
				case c_help:
				case c_h:
				case c_hh:
					PrintInfo(usage);
					exit(e_ok);
				case c_mif:
					if(ptr==NULL)return c_end;
					if(rawfilename!=NULL){
						free(rawfilename);
						rawfilename=NULL;
					}
					if(rawext!=NULL){
						free(rawext);
						rawext=NULL;
					}
					char *temp;
        	if((temp=strrchr(ptr,'.'))!=NULL){
						*temp++=0;
						rawext=BackString(temp);
						CheckExtenshions();
 	  	    }
					rawfilename=BackString(ptr);
					break;
				case c_ac:
					AlignCycle=(unsigned char)1^neg;
					if(ptr!=NULL){
						aligncycle=getnumber((unsigned char *)ptr);
						if(aligncycle<1&&aligncycle>4096)aligncycle=8;
					}
					break;
				case c_ws:	//dos-stub for windows programs
					if(winstub)free(winstub);
					winstub=BackString(ptr);
					break;
				case c_ind:
					ImportName(ptr);
					break;
				case c_wbss:
					wbss=(unsigned char)1^neg;
					break;
				case c_wo:
					useordinal=(unsigned char)1^neg;
					break;
				case c_nw:
					if(ptr==NULL)return c_end;
					len=getnumber((unsigned char *)ptr);
					if(len>0&&len<=WARNCOUNT)wact[len-1].usewarn=(unsigned char)0^neg;
					break;
				case c_we:
					if(ptr==NULL)return c_end;
					len=getnumber((unsigned char *)ptr);
					if(len>0&&len<=WARNCOUNT){
						if(neg)wact[len-1].fwarn=warningprint;
						else wact[len-1].fwarn=preerror3;
					}
					break;
				case c_lst:
					SetLST(neg);
					break;
				case c_d4g:
					useDOS4GW=(unsigned char)1^neg;
					break;
				case c_env:
					use_env=(unsigned char)1^neg;
					break;
				case c_cpa:
					clearpost=(unsigned char)1^neg;
					break;
				case c_ul:
					uselea=(unsigned char)1^neg;
					break;
				case c_as:
					if(ptr){
						len=getnumber((unsigned char *)ptr);
						if(caselong(len)!=NUMNUM)strpackdef=len;
					}
					else strpackdef=(neg==FALSE?8:1);
					strpackcur=strpackdef;
					break;
				case c_lrs:
					regoverstack=(unsigned char)1^neg;
					break;
				case c_wsi:
					shortimport=(unsigned char)1^neg;
					break;
				case c_waf:
					if(ptr!=NULL){
						FILEALIGN=Align(getnumber((unsigned char *)ptr),16);
					}
					break;
				case c_sf:
					if(ptr==NULL)return c_end;
					namestartupfile=BackString(ptr);
					break;
				case c_oir:
					optinitreg=(unsigned char)1^neg;
					break;
				case c_coff:
					ocoff=(unsigned char)1^neg;
					break;
				case c_js:
					addstack=(unsigned char)1^neg;
					if(addstack==0)RestoreStack();
					break;
				case c_ba:
					bytesize=(unsigned char)1^neg;
					break;
				case c_asp:
					if(blockproc)goto errlate;
					else ESPloc=(unsigned char)1^neg;
					break;
#ifdef OPTVARCONST
				case c_orv:
					replasevar=(unsigned char)1^neg;
					if(replasevar&&listvic)ClearLVIC();
					break;
				case c_map:
					mapfile=(unsigned char)1^neg;
					break;
#endif
				case c_ext:     //***lev***
					strcpy(outext,BackString(ptr)); //***lev***
					extflag=FALSE; //÷òîáû ðàñøèðåíèå íå ïåðåçàáèâàëîñü äðóãèìè êëþ÷àìè, åñëè îíè èäóò ïîçæå
					break;  //***lev***
			}
			break;
		}
	}
	return i;
}
 
void SetLST(unsigned char neg)
{
	if(((dbg&2)>>1)==neg){
		dbg&=0xFD;
		unsigned char c=(unsigned char)((1^neg)<<1);
		dbg|=c;
		if(neg){
			if((dbg&0xFE)==0)dbgact=TRUE;
			AddEndLine();
		}
		else{
			InitDbg();
			if(notdoneprestuff!=TRUE)dbgact=FALSE;	//startup cod
		}
	}
}
 
void print8item(char *str)
{
//	CheckNumStr();
	for(int j=0;j<8;j++)printf(str,j);
	puts("");
}
 
 
 
 
void _loadIni(FILE *inih)
{
	char m1[256];
	for(;;){
		if(fgets(m1,255,inih)==NULL)break;
		if(SelectComand(m1,0)==c_end)BadCommandLine(m1);
	}
	fclose(inih);
}
 
void LoadIni(char *name)
{
FILE *inih;
char m1[256];
 
							// load name
	if (inih = fopen(name,"rb"))
	{_loadIni(inih);return;}
	
	if(strcmp(name,"c--.ini")!=0)
			return;
 
							//load findpath[0]\c--.ini
	if (findpath[0]!=0)
	{
		sprintf(m1,"%s%s",findpath[0],name);
		if (inih = fopen(m1,"rb"))
		{_loadIni(inih);return;}
	}
							//load PATH[i=0..end]/c--.ini
	char* pth = getenv("PATH");	
	if (pth != 0)
	{
		char* start;
		int size;
		start = pth;	
		while(*start) 
		{
			size = 0;
			char* endp = strchr(start, DIV_PATH);
			size = (endp == 0)? strlen(start): endp-start;
			strncpy(m1, start, size);
			start += size + 1;
			if (m1[size - 1] != DIV_FOLD)
				m1[size++] = '/';
			
			strcpy(m1 + size,"c--.ini");
			if (inih = fopen(m1,"rb"))
			{_loadIni(inih);return;}
		}
	}
#ifdef _KOS_
								//for KolibriOS: load program_dir/c--.ini 
	int p;
	strcpy(m1,__pgmname);
	p = strlen(m1);
	while ((*(m1+p)!='/') && (p != 0))
		p--;
	if (p){
		p++;
		strcpy(m1+p,"c--.ini");
		if (inih = fopen(m1,"rb"))
		{_loadIni(inih);return;}
	}
								//for KolibriOS: load /rd/0/settings/c--.ini 
	inih = fopen("/rd/1/settings/c--.ini","rb");
	for(;;){
		if(fgets(m1,255,inih)==NULL)break;
		if(SelectComand(m1,0)==c_end)BadCommandLine(m1);
	}
	fclose(inih);
	return;
#endif //_KOS_		
}
			
/*****************************************************************************
* .NAME   : MALLOC
* .TITLE  : Âûäåëÿåò ïàìÿòü ñ îáðàáîòêîé îøèáîê.
*****************************************************************************/
void OutMemory()
{
	preerror("Compiler out of memory");
	exit(e_outofmemory);
}
 
void * MALLOC (unsigned long size)
{
void *mem;
	mem=malloc(size);
	if(mem==NULL)OutMemory();
 
//	if(((unsigned long)mem+size)>maxusedmem)maxusedmem=(unsigned long)mem+size;
 
	return mem;
}
 
void *REALLOC(void *block,unsigned long size)
{
void *mem;
	mem=realloc(block,size);
	if(mem==NULL)OutMemory();
 
//	if(((unsigned long)mem+size)>maxusedmem)maxusedmem=(unsigned long)mem+size;
 
	return mem;
}
 
void IncludePath(char *buf)
{
	char divfold[3];
	sprintf(divfold,"%c",DIV_FOLD);
	if(numfindpath
		int len=strlen(buf);
		if(buf[len-1]==DIV_FOLD)buf[len-1]=0;
		else len++;
		char *a=(char *)MALLOC(len+1);
		strcpy(a,buf);
		strcat(a,divfold);
		findpath[numfindpath]=a;
		numfindpath++;
		findpath[numfindpath]="";
	}
	else puts("Too many include paths");
}
 
void doposts()
{
unsigned long addvalue,i,addval,addvalw32=0,addvalbss=0;
	if(splitdata&&modelmem==TINY&&outptrdata){
		memcpy((char *)&output[outptr],(char *)&outputdata[0],outptrdata);
		addval=outptr;
		outptr+=outptrdata;
		outptrdata=outptr;
	}
	addvalue=outptrdata;
	if(comfile==file_bin)addvalbss=addvalw32=ImageBase;
	else if(comfile==file_w32){
		addvalbss=addvalw32=ImageBase+vsizeheader;
		if(postsize&&wbss){
			addvalw32+=Align(postsize,OBJECTALIGN);
			addvalue=0;
		}
	}
	else{
		if((outptrdata%2)==1){	/* alignment of entire post data block manditory */
			addvalue++;	//íà÷àëî íåèíèö.äàííûõ
			postsize++;
		}
/*		if(am32&&(outptrdata%4)==2){
			addvalue+=2;	//íà÷àëî íåèíèö.äàííûõ
			postsize+=2;
		}*/
	}
	if(am32==0&&(MAXDATA-outptrdata)
	for(i=0;i
		switch((postbuf+i)->type){
			case POST_VAR:
				*(short *)&output[(postbuf+i)->loc]+=(short)addvalue;
				break;
			case POST_VAR32:
				*(long *)&output[(postbuf+i)->loc]+=addvalue+addvalbss;
				numrel++;
				break;
			case FIX_VAR32:
			case FIX_CODE32:
				*(long *)&output[(postbuf+i)->loc]+=addvalw32;
				numrel++;
				break;
			case FIX_CODE_ADD:
				if(am32){
					*(long *)&output[(postbuf+i)->loc]+=addvalw32+(postbuf+i)->num;
					(postbuf+i)->type=(unsigned short)FIX_VAR32;
				}
				else{
					*(short *)&output[(postbuf+i)->loc]+=(short)(addval+(postbuf+i)->num);
					(postbuf+i)->type=(unsigned short)FIX_VAR;
				}
				numrel++;
				break;
			case DATABLOCK_VAR:
				*(short *)&output[(postbuf+i)->loc]+=(short)addval;
				if(FixUp)(postbuf+i)->type=(unsigned short)FIX_VAR;
				break;
			case DATABLOCK_VAR32:
				*(long *)&output[(postbuf+i)->loc]+=addval+addvalw32;
				if(FixUp)(postbuf+i)->type=(unsigned short)FIX_VAR32;
				numrel++;
				break;
		}
	}
	ooutptr=addvalue;	//ñîõðàíèòü íà÷àëî post äëÿ debug;
}
 
void GetMemExeDat()
{
	if(outputdata==output&&outputdata!=0)outputdata=(unsigned char *)MALLOC((size_t)MAXDATA);
}
 
void ListId(int numfirstchar,unsigned char *list,short *ofs)
{
char buf[40];
	for(int i=0;i
		if((short)ofs[i]!=-1){
			if(i<26)buf[0]=(char)('A'+i);
			else if(i==26)buf[0]='_';
			else buf[0]=(char)(i-27+'a');
			unsigned char *ii=(unsigned char *)(list+ofs[i]);
			while(*(short *)&*ii!=-1){
				ii+=2;
				strcpy(buf+1,(char *)ii);
				ii+=strlen((char *)ii)+1;
				puts(buf);
//				CheckNumStr();
			}
		}
	}
}
 
int writeoutput()
{
EXE_DOS_HEADER exeheader;  // header for EXE format
	if(fobj){
		if(comfile==file_w32&&ocoff)return MakeCoff();
		return MakeObj();
	}
	if(comfile==file_w32)return MakePE();
	if(comfile==file_meos)return MakeMEOS();
	if(comfile==file_bin)return MakeBin32();
	memset(&exeheader,0,sizeof(EXE_DOS_HEADER));
	if(comfile==file_d32){
		if(usestub){
			MakeLE();
			runfilesize+=ftell(hout)-32;
			goto savecode;
		}
		else goto exefile;
	}
	if(comfile==file_com||comfile==file_sys||comfile==file_rom){
		hout=CreateOutPut(outext,"wb");
		if(fwrite(output+startptr,comfile==file_rom?romsize:outptr-startptr,1,hout)!=1){
			ErrWrite();
			return(-1);
		}
	}
	else if(comfile==file_exe){
exefile:
		hout=CreateOutPut(outext,"wb");
		MakeExeHeader(&exeheader);
		if(fwrite(&exeheader,sizeof(EXE_DOS_HEADER),1,hout)!=1){
errwr:
			fclose(hout);
			hout=NULL;
			ErrWrite();
			return(-1);
		}
		outputcodestart=ftell(hout);
savecode:
		if(fwrite(output+startptr,outptr-startptr,1,hout)!=1)goto errwr;
		if(modelmem==SMALL&&outptrdata!=0){
			if(fwrite(outputdata,outptrdata,1,hout)!=1)goto errwr;
		}
	}
	fclose(hout);
	hout=NULL;
	return(0);
}
 
long CopyFile(FILE *in,FILE *out)
{
char tbuf[1024];
long loads=0;
unsigned int len;
	do{
		len=fread(tbuf,1,1024,in);
		if(fwrite(tbuf,1,len,out)!=len){
			ErrWrite();
			return -1;
		}
		loads+=len;
	}while(len==1024);
	return loads;
}
 
unsigned int EntryPoint()
{
ITOK btok;
int bb=tk_id;
unsigned char bufmain[]="main";
unsigned char buf2[]="__startupproc";
unsigned char *buf;
	if(comfile==file_com)return startptr;
	btok.number=0;
//	if(jumptomain!=CALL_NONE||(comfile==file_w32&&dllflag))buf=buf2;
//	else buf=bufmain;
 
	if(jumptomain==CALL_NONE){
		if(useDOS4GW)buf=buf2;
		else buf=bufmain;
	}
	else buf=buf2;
 
	searchtree(&btok,&bb,buf);
	if(bb==tk_id){
		if(comfile==file_w32&&dllflag)return 0xffffffff;
		printf("Error! Entry point '%s' is not found.\n",buf);
		exit(e_entrynotfound);
	}
	return btok.number;
}
 
void MakeExeHeader(EXE_DOS_HEADER *exeheader)
{
long paragraphsrequired;
unsigned short count,i;
int pointstart;
	exeheader->sign=0x5a4D;				 // MZ
//	if(modelmem==TINY&&comfile==file_exe)pointstart=0x100;
/*	else*/ pointstart=EntryPoint();
	count=(unsigned short)(runfilesize%512);
	i=(unsigned short)(runfilesize/512);
	exeheader->numlastbyte=count;
	exeheader->numpage=(unsigned short)(count==0?i:i+1);
	exeheader->headsize=2; 		// size of header in paragraphs (2 paragraphs)
	exeheader->initIP=(unsigned short)pointstart;	 // IP at entry (0x0000)
	paragraphsrequired=(outptr+outptrdata+postsize+stacksize+15)/16;
	if(modelmem==TINY&&comfile==file_exe){
		exeheader->initSS=0xFFF0; 		 // displacement of SS
		exeheader->initSP=0xFFFE; // intial value of SP
		exeheader->initCS=0xfff0;						 // displacement of CS (0x0000)
		if(!resizemem){
			exeheader->minmem=0xfff;	// min-paragraphs
			exeheader->maxmem=0xffff;	// max-paragraphs
		}
		else{
			paragraphsrequired-=0x10;
			exeheader->initSP=(unsigned short)(paragraphsrequired*16); // intial value of SP
			exeheader->minmem=(unsigned short)paragraphsrequired;	// min-paragraphs
			exeheader->maxmem=(unsigned short)paragraphsrequired;	// max-paragraphs
		}
	}
	else if(comfile==file_d32){
		exeheader->initSP=(unsigned short)stacksize; // intial value of SP
		exeheader->initSS=(unsigned short)((outptr+postsize+15)/16); // displacement of SS
		exeheader->initCS=(unsigned short)((pointstart/65536)*4096);
		if(resizemem){
			exeheader->minmem=(unsigned short)paragraphsrequired;	// min-paragraphs
			exeheader->maxmem=(unsigned short)paragraphsrequired;	// max-paragraphs
		}
		else exeheader->maxmem=(unsigned short)0xFFFF;	// max-paragraphs
	}
	else{
		exeheader->initSS=(unsigned short)(outptr/16); 		 // displacement of SS
		exeheader->initSP=(unsigned short)(outptrdata+postsize+stacksize); // intial value of SP
		exeheader->minmem=(unsigned short)paragraphsrequired;	// min-paragraphs
		exeheader->maxmem=(unsigned short)paragraphsrequired;	// max-paragraphs
	}
	exeheader->ofsreloc=0x1c;						 // offset of first relocation item (0x0000)
}
 
void startsymbiosys(char *symfile)
{
unsigned int size;
int filehandle;
long filesize;
	outptr=startptr;
	if((filehandle=open(symfile,O_BINARY|O_RDONLY))==-1){;
		ErrOpenFile(symfile);
		exit(e_symbioerror);
	}
	if((filesize=getfilelen(filehandle))!=-1L){
		if(filesize+outptr
			size=filesize;
			if((unsigned int)read(filehandle,output+outptr,size)!=size){
				close(filehandle);
				puts("Error reading symbio COM file.");
				exit(e_symbioerror);
			}
			outptr+=size;
		}
		else{
			puts("Symbio COM file is too large.");
			exit(e_symbioerror);
		}
	}
	else{
		puts("Unable to determine symbio COM file size.");
		exit(e_symbioerror);
	}
	close(filehandle);
	outptrdata=outptr;
	outputcodestart=outptr-startptr;
	addconsttotree("__comsymbios",TRUE);
}
 
void BadCommandLine(char *str)
{
	printf("Unknown or bad command line option '%s'.\n",str);
//					PrintInfo(usage);
	exit(e_unknowncommandline);
}
 
void warnunused(struct idrec *ptr)
{
//static count=0;
	if(ptr!=NULL){
		if(ptr->count==0&&startupfile!=ptr->file){
			linenumber=ptr->line;
			currentfileinfo=ptr->file;
			int i=0;
			switch(ptr->rectok){
				case tk_proc:
					if(ptr->recsegm!=NOT_DYNAMIC||strcmp(ptr->recid,mesmain)==0)break;
					i++;
				case tk_structvar:
					i++;
				case tk_charvar:
				case tk_bytevar:
				case tk_intvar:
				case tk_wordvar:
				case tk_longvar:
				case tk_dwordvar:
				case tk_floatvar:
				case tk_pointer:
				case tk_qword:
				case tk_double:
					if(i<=1&&(ptr->recpost==DYNAMIC_VAR||ptr->recpost==DYNAMIC_POST))break;
					warningnotused(ptr->recid,i);
					break;
			}
		}
		warnunused(ptr ->left);
		warnunused(ptr ->right);
	}
}
 
void WarnUnusedVar()//ïðåäóïðåæäåíèÿ î íåèñïîëüçîâàííûõ ïðîöåäóðàõ è ïåðåìåííûõ
{
	warnunused(treestart);
	for(unsigned int i=0;istlist);
}
 
void addinitvar()
{
unsigned int i;
	if(numfloatconst){	//âñòàâèòü êîíñòàíòû float è ïðèâÿçàòü èõ
		if(alignword||optimizespeed)AlignCD(DS,chip>5?16:4);
		for(i=0;i
			if((postbuf+i)->type==POST_FLOATNUM){
				if(am32)*(unsigned long *)&output[(postbuf+i)->loc]=outptrdata+(postbuf+i)->num;
				else *(unsigned short *)&output[(postbuf+i)->loc]=(unsigned short)(outptrdata+(postbuf+i)->num);
				if(FixUp)(postbuf+i)->type=FIX_VAR32;
				else killpost(i--);
			}
		}
		for(i=0;i
			if(dbg&2){
				if((floatnum+i)->type==tk_float)sprintf((char *)string,"const float %f",(floatnum+i)->fnum);
				else sprintf((char *)string,"const double %f",(floatnum+i)->dnum);
				AddDataNullLine(4,(char *)string);
			}
			outdwordd((floatnum+i)->num[0]);
			if((floatnum+i)->type!=tk_float){
				outdwordd((floatnum+i)->num[1]);
				datasize+=4;
			}
			datasize+=4;
		}
		free(floatnum);
		numfloatconst=0;
		floatnum=NULL;
	}
	for(i=0;i<(unsigned int)numswtable;i++){	//ñîçäàòü è âñòàâèòü òàáëèöû switch
		int j;
		FSWI *swt=swtables+i;
		if(alignword)AlignCD(DS,swt->type);
		if(dbg&2)AddDataNullLine((char)swt->type,"switch table address");
		if(am32==FALSE){	//âñòàâèòü â êîä àäðåñ òàáëèöû
			*(unsigned short *)&output[swt->ptb]=(unsigned short)outptrdata;
		}
		else *(unsigned long *)&output[swt->ptb]=outptrdata;
		unsigned char oam32=am32;
		am32=(unsigned char)(swt->type/2-1);
 
		unsigned long val=swt->defal;
		int oline=outptrdata;
		for(j=0;jsizetab;j++){	//çàïîëíèòü òàáëèöó çíà÷åíèÿìè ïî óìîë÷àíèþ
//			if((swt->info+jj)->type==singlcase)
			AddReloc(DS);
			if(am32)outdwordd(val);
			else outwordd(val);
		}
		if(swt->mode==2){
			if(dbg&2)AddDataNullLine((char)swt->razr,"switch table value");
			if(oam32==FALSE){	//âñòàâèòü â êîä àäðåñ òàáëèöû
				*(unsigned short *)&output[swt->ptv]=(unsigned short)outptrdata;
			}
			else *(unsigned long *)&output[swt->ptv]=outptrdata;
		}
		int ii=0;	//ñ÷åò÷èê case
		for(int jj=0;jjnumcase;jj++){
			j=(swt->info+jj)->value;	//çíà÷åíèå
			val=(swt->info+jj)->postcase;
			if((swt->info+jj)->type==singlcase){
				if(swt->mode==1){
					if(am32==FALSE)*(unsigned short *)&outputdata[oline+j*2]=(unsigned short)val;
					else *(unsigned long *)&outputdata[oline+j*4]=val;
				}
				else{
					if(am32==FALSE)*(unsigned short *)&outputdata[oline+ii*2]=(unsigned short)val;
					else *(unsigned long *)&outputdata[oline+ii*4]=val;
					switch(swt->razr){
						case r8: opd(j); break;
						case r16: outwordd(j); break;
						case r32: outdwordd(j); break;
					}
					ii++;
				}
			}
			else{
				jj++;
				for(;(unsigned int)j<=(swt->info+jj)->value;j++){
					if(swt->mode==1){
						if(am32==FALSE)*(unsigned short *)&outputdata[oline+j*2]=(unsigned short)val;
						else *(unsigned long *)&outputdata[oline+j*4]=val;
					}
					else{
						if(am32==FALSE)*(unsigned short *)&outputdata[oline+ii*2]=(unsigned short)val;
						else *(unsigned long *)&outputdata[oline+ii*4]=val;
						switch(swt->razr){
							case r8: opd(j); break;
							case r16: outwordd(j); break;
							case r32: outdwordd(j); break;
						}
						ii++;
					}
				}
			}
		}
		am32=oam32;
		free(swt->info);
	}
	if(numswtable){
		free(swtables);
		numswtable=0;
	}
 
	for(i=0;i
		if((postbuf+i)->type==DIN_VAR||(postbuf+i)->type==DIN_VAR32){
			idrec *ptr=(idrec *)(postbuf+i)->num;
//			printf("post=%u num=%08X %s\n",ptr->recpost,ptr->recnumber,ptr->recid);
			if(ptr->recpost==USED_DIN_VAR)setdindata(ptr,i);
			else{
				if((postbuf+i)->type==DIN_VAR){
					*(unsigned short *)&output[(postbuf+i)->loc]+=(unsigned short)(ptr->recnumber);
				}
				else{
//					printf("loc=%08X num=%08X\n",*(unsigned long *)&output[(postbuf+i)->loc],ptr->recnumber);
					*(unsigned long *)&output[(postbuf+i)->loc]+=ptr->recnumber;
				}
			}
			if(FixUp)(postbuf+i)->type=(unsigned short)((postbuf+i)->type==DIN_VAR?FIX_VAR:FIX_VAR32);
			else killpost(i--);
		}
	}
	dopoststrings();
}
 
void setdindata(idrec *ptr,int i)
{
unsigned char *oldinput;
unsigned int oldinptr,oldendinptr;
unsigned char bcha;
unsigned int oline,ofile;
char *ostartline;
	if(alignword){
		if(ptr->rectok==tk_structvar)alignersize+=AlignCD(DS,2);	//âûðîâíÿòü
		else alignersize+=AlignCD(DS,GetVarSize(ptr->rectok));
	}
//	printf("loc=%08X out=%08X num=%08X\n",*(unsigned long *)&output[(postbuf+i)->loc],outptrdata,ptr->recnumber);
	if((postbuf+i)->type==DIN_VAR)*(unsigned short *)&output[(postbuf+i)->loc]+=(unsigned short)(outptrdata);
	else *(unsigned long *)&output[(postbuf+i)->loc]+=outptrdata;
	ptr->recpost=0;
	ptr->recnumber+=outptrdata;
	oline=linenum2;
	ofile=currentfileinfo;
	oldinput=input;
	oldinptr=inptr2;
	bcha=cha2;
	oldendinptr=endinptr;
	input=(unsigned char *)ptr->sbuf;
	inptr2=1;
	ostartline=startline;
	startline=(char*)input;
	cha2=input[0];
	linenum2=ptr->line;
	currentfileinfo=ptr->file;
	endinptr=strlen((char *)input);
	endinput=startline+endinptr;
	endoffile=0;
	tok=ptr->rectok;
	if(tok==tk_structvar)datasize+=initstructvar((structteg *)ptr->newid,ptr->recrm);
	else{
long type,ssize;
unsigned char typev;
		if(tok>=tk_charvar&&tok<=tk_doublevar){
			type=tok-(tk_charvar-tk_char);
			typev=variable;
			ssize=typesize(type);
		}
		else if(tok==tk_pointer){
			typev=pointer;
			type=itok.type;
			if(am32==FALSE&&((itok.flag&f_far)==0))ssize=2;
			else ssize=4;
		}
		datasize+=initglobalvar(type,ptr->recsize/ssize,ssize,typev);
	}
	free(input);
	linenum2=oline;
	currentfileinfo=ofile;
	input=oldinput;
	inptr2=oldinptr;
	cha2=bcha;
	endinptr=oldendinptr;
	endoffile=0;
	startline=ostartline;
}
 
FILE *CreateOutPut(char *ext,char *mode)
{
char buf[256];
FILE *diskout;
	sprintf(buf,"%s.%s",rawfilename,ext);
	if((diskout=fopen(buf,mode))==NULL){
		ErrOpenFile(buf);
		exit(e_notcreateoutput);
	}
	return diskout;
}
 
int numundefclassproc=0;
idrec **undefclassproc;
 
void AddUndefClassProc()
{
	if(numundefclassproc==0)undefclassproc=(idrec **)MALLOC(sizeof(idrec **));
	else undefclassproc=(idrec **)REALLOC(undefclassproc,sizeof(idrec **)*(numundefclassproc+1));
	undefclassproc[numundefclassproc]=itok.rec;
	numundefclassproc++;
}
 
void CheckUndefClassProc()
{
	for(int i=0;i
		idrec *ptr=undefclassproc[i];
		if(ptr->rectok==tk_undefproc){
			currentfileinfo=ptr->file;
			linenumber=ptr->line;
			thisundefined(ptr->recid);
		}
	}
}
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
errlate:
>
>
>
>
>
>
>
>
>

Rev 6447	Rev 6618
1	#define _MAIN_	1	#define _MAIN_
2		2
3	#ifdef _UNIX_	3	#ifdef _UNIX_
4	#define DIV_PATH ':' //äåëèòåëü ïóòåé â ïåðåìåííîé îêðóæåíèÿ PATH	4	#define DIV_PATH ':' //äåëèòåëü ïóòåé â ïåðåìåííîé îêðóæåíèÿ PATH
5	#define DIV_FOLD '/' //ýòèì ñèìâîëîì ðàçäåëÿþòñÿ ïàïêè â ïóòè ê ôàéëó	5	#define DIV_FOLD '/' //ýòèì ñèìâîëîì ðàçäåëÿþòñÿ ïàïêè â ïóòè ê ôàéëó
6	#endif	6	#endif
7		7
8	#ifdef _WIN32_	8	#ifdef _WIN32_
9	#define DIV_PATH ';'	9	#define DIV_PATH ';'
10	#define DIV_FOLD '\\'	10	#define DIV_FOLD '\\'
11	#endif	11	#endif
12		12
13	#ifdef _KOS_	13	#ifdef _KOS_
14	#define DIV_PATH ';'	14	#define DIV_PATH ';'
15	#define DIV_FOLD '/'	15	#define DIV_FOLD '/'
16	#endif	16	#endif
17		17
18	#include	18	#include
-		19	#include
-		20	#include
19	#include	21	#include
20	#include "tok.h"	22	#include "tok.h"
21		23
22	static char **_Argv; //!!! simplest way to make your own variable	24	static char **_Argv; //!!! simplest way to make your own variable
23		25
24	unsigned char compilerstr[]="SPHINX C-- 0.239";	26	unsigned char compilerstr[]="SPHINX C-- 0.239";
25	char rawfilename; / file name */	27	char rawfilename; / file name */
26	char *rawext;	28	char *rawext;
27	LISTCOM *listcom;	29	LISTCOM *listcom;
28	EWAR wartype={NULL,NULL},errfile={NULL,NULL};	30	EWAR wartype={NULL,NULL},errfile={NULL,NULL};
29	int numfindpath=0;	31	int numfindpath=0;
30	char *findpath[16];	32	char *findpath[16];
31	char modelmem=TINY;	33	char modelmem=TINY;
32	char *stubfile=NULL;	34	char *stubfile=NULL;
33	char *winstub=NULL;	35	char *winstub=NULL;
34	FILE *hout=NULL;	36	FILE *hout=NULL;
35	char *namestartupfile="startup.h--";	37	char *namestartupfile="startup.h--";
36		38
37	char outext[4]="com";	39	char outext[4]="com";
38	short extflag=TRUE;//ðàñøèðåíèå ìîæíî ïðèñâîèòü	40	short extflag=TRUE;//ðàñøèðåíèå ìîæíî ïðèñâîèòü
39	//int scrsize;	41	//int scrsize;
40	unsigned char gwarning=FALSE;	42	unsigned char gwarning=FALSE;
41	unsigned char sobj=FALSE;	43	unsigned char sobj=FALSE;
42	unsigned char usestub=TRUE;	44	unsigned char usestub=TRUE;
43	unsigned char dpmistub=FALSE;	45	unsigned char dpmistub=FALSE;
44	short dllflag=FALSE;	46	short dllflag=FALSE;
45	static int numstr;	47	static int numstr;
46		48
47	char meinfo[]=	49	char meinfo[]=
48	"\nEdition of this version by\n"	50	"\nEdition of this version by\n"
49	" Mishel Sheker\n"	51	" Mishel Sheker\n"
50	" Fido 2:5021/3.40\n"	52	" Fido 2:5021/3.40\n"
51	" E-Mail sheker@mail.ru\n"	53	" E-Mail sheker@mail.ru\n"
52	" Russia";	54	" Russia";
53		55
54	time_t systime;	56	time_t systime;
55	struct tm timeptr;	57	struct tm timeptr;
56	char comsymbios=FALSE;	58	char comsymbios=FALSE;
57	char fobj=FALSE; //ïðèçíàê ãåíåðàöèè obj	59	char fobj=FALSE; //ïðèçíàê ãåíåðàöèè obj
58	unsigned int startptr = 0x100; // start address	60	unsigned int startptr = 0x100; // start address
59	unsigned char wconsole=FALSE; //ïðèçíàê ãåíåðàöèè êîíñîëüíîãî ïðèëîæåíèÿ windows	61	unsigned char wconsole=FALSE; //ïðèçíàê ãåíåðàöèè êîíñîëüíîãî ïðèëîæåíèÿ windows
60	unsigned char optstr=FALSE; //îïòèìèçàöèÿ ñòðîêîâûõ êîíñòàíò	62	unsigned char optstr=FALSE; //îïòèìèçàöèÿ ñòðîêîâûõ êîíñòàíò
61	unsigned char crif=TRUE; //check reply include file	63	unsigned char crif=TRUE; //check reply include file
62	unsigned char idasm=FALSE; //àññåìáëåðíûå èíñòðóêöèè ñ÷èòàòü èäåíòèôèêàòîðàìè	64	unsigned char idasm=FALSE; //àññåìáëåðíûå èíñòðóêöèè ñ÷èòàòü èäåíòèôèêàòîðàìè
63	unsigned char wbss=2; //ïîñò ïåðåìåííûå â îòäåëüíóþ ñåêöèþ	65	unsigned char wbss=2; //ïîñò ïåðåìåííûå â îòäåëüíóþ ñåêöèþ
64	unsigned char use_env=FALSE; //ïåðåìåííàÿ îêðóæåíèÿ	66	unsigned char use_env=FALSE; //ïåðåìåííàÿ îêðóæåíèÿ
65	int numrel=0; //÷èñëî ýëåìåíòîâ â òàáëèöå ïåðåìåùåíèé	67	int numrel=0; //÷èñëî ýëåìåíòîâ â òàáëèöå ïåðåìåùåíèé
66	unsigned char useordinal=FALSE;	68	unsigned char useordinal=FALSE;
67	unsigned char useDOS4GW=FALSE;	69	unsigned char useDOS4GW=FALSE;
68	unsigned char clearpost=FALSE;	70	unsigned char clearpost=FALSE;
69	unsigned char uselea=TRUE;	71	unsigned char uselea=TRUE;
70	unsigned char regoverstack=TRUE;	72	unsigned char regoverstack=TRUE;
71	unsigned char shortimport=FALSE;	73	unsigned char shortimport=FALSE;
72	unsigned char useinline=2;	74	unsigned char useinline=2;
73	unsigned char ocoff=FALSE;	75	unsigned char ocoff=FALSE;
74	unsigned char ESPloc=FALSE;	76	unsigned char ESPloc=FALSE;
75		77
76	int startupfile=-1;	78	int startupfile=-1;
77	int alignproc=8,aligncycle=8;	79	int alignproc=8,aligncycle=8;
78		80
79	char *usage[]={	81	char *usage[]={
80	"USAGE: C-- [options] [FILE_NAME.INI] [SOURCE_FILE_NAME]",	82	"USAGE: C-- [options] [FILE_NAME.INI] [SOURCE_FILE_NAME]",
81	"",	83	"",
82	" C-- COMPILER OPTIONS",	84	" C-- COMPILER OPTIONS",
83	"",	85	"",
84	" OPTIMIZATION",	86	" OPTIMIZATION",
85	"/OC optimize for code size /DE enable temporary expansion variable",	87	"/OC optimize for code size /DE enable temporary expansion variable",
86	"/OS optimize for speed /OST enable optimization string",	88	"/OS optimize for speed /OST enable optimization string",
87	"/ON enable optimization number /AP[=n] align start function",	89	"/ON enable optimization number /AP[=n] align start function",
88	"/UST use startup code for variables /AC[=n] align start cycles",	90	"/UST use startup code for variables /AC[=n] align start cycles",
89	#ifdef OPTVARCONST	91	#ifdef OPTVARCONST
90	"/ORV replace variable on constant /OIR skip repeated initializing register",	92	"/ORV replace variable on constant /OIR skip repeated initializing register",
91	#else	93	#else
92	" /OIR skip repeated initializing register",	94	" /OIR skip repeated initializing register",
93	#endif	95	#endif
94	"",	96	"",
95	" CODE GENERATION",	97	" CODE GENERATION",
96	"/2 80286 code optimizations /SA=#### start code address",	98	"/2 80286 code optimizations /SA=#### start code address",
97	"/3 80386 code optimizations /AL=## set value insert byte",	99	"/3 80386 code optimizations /AL=## set value insert byte",
98	"/4 80486 code optimizations /WFA fast call API functions",	100	"/4 80486 code optimizations /WFA fast call API functions",
99	"/5 pentium code optimizations /IV initial all variables",	101	"/5 pentium code optimizations /IV initial all variables",
100	"/A enable address alignment /SUV=#### start address variables",	102	"/A enable address alignment /SUV=#### start address variables",
101	"/AS[=n] def. alignment in structures /LRS load in registers over stack",	103	"/AS[=n] def. alignment in structures /LRS load in registers over stack",
102	"/UL use 'lea' for adding registers /JS join stack calling functions",	104	"/UL use 'lea' for adding registers /JS join stack calling functions",
103	"/BA byte access to array",// /ASP addressing local variable via ESP",	105	"/BA byte access to array",// /ASP addressing local variable via ESP",
104	"",	106	"",
105	" PREPROCESSOR",	107	" PREPROCESSOR",
106	"/IP= include file path /IA assembly instructions as identifier",	108	"/IP= include file path /IA assembly instructions as identifier",
107	"/D= defined identifier /CRI- not check include file on repeated",	109	"/D= defined identifier /CRI- not check include file on repeated",
108	"/MIF= main input file /IND= import name from dll",	110	"/MIF= main input file /IND= import name from dll",
109	"/SF= other startup file",	111	"/SF= other startup file",
110	"",	112	"",
111	" LINKING",	113	" LINKING",
112	"/AT insert ATEXIT support block /NS disable stub",	114	"/AT insert ATEXIT support block /NS disable stub",
113	"/ARGC insert parse command line /S=##### set stack size",	115	"/ARGC insert parse command line /S=##### set stack size",
114	"/P insert parse command line /WIB=##### set image base address",	116	"/P insert parse command line /WIB=##### set image base address",
115	"/C insert CTRL ignoring code /WFU add Fix Up table, for Windows",	117	"/C insert CTRL ignoring code /WFU add Fix Up table, for Windows",
116	"/R insert resize memory block /WMB create Windows mono block",	118	"/R insert resize memory block /WMB create Windows mono block",
117	"/ENV insert variable with environ /WS= set name stub file for win32",	119	"/ENV insert variable with environ /WS= set name stub file for win32",
118	"/J0 disable initial jump to main() /WBSS set post data in bss section",	120	"/J0 disable initial jump to main() /WBSS set post data in bss section",
119	"/J1 initial jump to main() short /WO call API functions on ordinals",	121	"/J1 initial jump to main() short /WO call API functions on ordinals",
120	"/J2 initial jump to main() near /CPA clear post area",	122	"/J2 initial jump to main() near /CPA clear post area",
121	"/STUB= set name stub file /WSI short import table, for Windows",	123	"/STUB= set name stub file /WSI short import table, for Windows",
122	"/DOS4GW file running with DOS4GW /WAF=#### align Windows file (def 512)",	124	"/DOS4GW file running with DOS4GW /WAF=#### align Windows file (def 512)",
123	"/STM startup code in main function",	125	"/STM startup code in main function",
124	"",	126	"",
125	" OUTPUT FILES",	127	" OUTPUT FILES",
126	"/TEXE DOS EXE file (model TINY) /D32 EXE file (32bit code for DOS)",	128	"/TEXE DOS EXE file (model TINY) /D32 EXE file (32bit code for DOS)",
127	"/EXE DOS EXE file (model SMALL) /W32 EXE for Windows32 GUI",	129	"/EXE DOS EXE file (model SMALL) /W32 EXE for Windows32 GUI",
128	"/OBJ OBJ output file /W32C EXE for Windows32 console",	130	"/OBJ OBJ output file /W32C EXE for Windows32 console",
129	"/SOBJ slave OBJ output file /DLL DLL for Windows32",	131	"/SOBJ slave OBJ output file /DLL DLL for Windows32",
130	"/COFF OBJ COFF output file /DBG create debug information",	132	"/COFF OBJ COFF output file /DBG create debug information",
131	"/SYM COM file symbiosis /LST create assembly listing",	133	"/SYM COM file symbiosis /LST create assembly listing",
132	"/SYS device (SYS) file /B32 32bit binary files",	134	"/SYS device (SYS) file /B32 32bit binary files",
133	"/MEOS executable file for MeOS /MAP create function map file",	135	"/MEOS executable file for MeOS /MAP create function map file",
134	"/EXT= set file extension",	136	"/EXT= set file extension",
135	"",	137	"",
136	" MISCELLANEOUS",	138	" MISCELLANEOUS",
137	"/HELP /H /? help, this info /WORDS list of C-- reserved words",	139	"/HELP /H /? help, this info /WORDS list of C-- reserved words",
138	"/W enable warning /LAI list of assembler instructions",	140	"/W enable warning /LAI list of assembler instructions",
139	"/WF= direct warnings to a file /ME display my name and my address",	141	"/WF= direct warnings to a file /ME display my name and my address",
140	"/MER=## set maximum number errors /X disable SPHINX C-- header in output",	142	"/MER=## set maximum number errors /X disable SPHINX C-- header in output",
141	"/NW=## disable selected warnings /WE=## selected warning will be error",	143	"/NW=## disable selected warnings /WE=## selected warning will be error",
142	//" /SCD split code and date",	144	//" /SCD split code and date",
143	NULL};	145	NULL};
144		146
145	char *dir[]={	147	char *dir[]={
146	"ME", "WORDS", "SYM", "LAI",	148	"ME", "WORDS", "SYM", "LAI",
147		149
148	"OBJ", "SOBJ", "J0", "J1", "J2", "C", "R",	150	"OBJ", "SOBJ", "J0", "J1", "J2", "C", "R",
149	"P", "X", "EXE", "S", "SYS", "ARGC", "TEXE",	151	"P", "X", "EXE", "S", "SYS", "ARGC", "TEXE",
150	"ROM", "W32", "D32", "W32C", "AT", "WFA", "SA",	152	"ROM", "W32", "D32", "W32C", "AT", "WFA", "SA",
151	"STM", "SUV", "UST", "MIF", "DLL", "DOS4GW","ENV",	153	"STM", "SUV", "UST", "MIF", "DLL", "DOS4GW","ENV",
152	"CPA", "WBSS", "MEOS", "SF", "B32", "WIB", "DBG",	154	"CPA", "WBSS", "MEOS", "SF", "B32", "WIB", "DBG",
153		155
154	"OS", "OC", "A", "0", "1", "2", "3",	156	"OS", "OC", "A", "0", "1", "2", "3",
155	"4", "5", "6", "7", "8", "9", "W",	157	"4", "5", "6", "7", "8", "9", "W",
156	"WF", "DE",	158	"WF", "DE",
157	"ON", "IP", "STUB", "NS", "AP", "D", "OST",	159	"ON", "IP", "STUB", "NS", "AP", "D", "OST",
158	"CRI", "IA", "SCD", "AL", "WFU", "IV",	160	"CRI", "IA", "SCD", "AL", "WFU", "IV",
159	"MER", "WMB", "HELP", "H", "?", "AC", "WS",	161	"MER", "WMB", "HELP", "H", "?", "AC", "WS",
160	"IND", "WO", "NW", "LST", "AS", "UL", "LRS",	162	"IND", "WO", "NW", "LST", "AS", "UL", "LRS",
161	"WSI", "WAF", "OIR", "COFF", "JS", "BA", "ASP",	163	"WSI", "WAF", "OIR", "COFF", "JS", "BA", "ASP",
162	#ifdef OPTVARCONST	164	#ifdef OPTVARCONST
163	"ORV",	165	"ORV",
164	#endif	166	#endif
165	"MAP", "WE", "EXT", NULL};	167	"MAP", "WE", "EXT", NULL};
166		168
167	enum {	169	enum {
168	c_me, c_key, c_sym, c_lasm, c_endinfo=c_lasm,	170	c_me, c_key, c_sym, c_lasm, c_endinfo=c_lasm,
169		171
170	c_obj, c_sobj, c_j0, c_j1, c_j2, c_ctrlc, c_r,	172	c_obj, c_sobj, c_j0, c_j1, c_j2, c_ctrlc, c_r,
171	c_p, c_x, c_exe, c_s, c_sys, c_arg, c_texe,	173	c_p, c_x, c_exe, c_s, c_sys, c_arg, c_texe,
172	c_rom, c_w32, c_d32, c_w32c, c_at, c_wfa, c_sa,	174	c_rom, c_w32, c_d32, c_w32c, c_at, c_wfa, c_sa,
173	c_stm, c_suv, c_ust, c_mif, c_dll, c_d4g, c_env,	175	c_stm, c_suv, c_ust, c_mif, c_dll, c_d4g, c_env,
174	c_cpa, c_wbss, c_meos, c_sf, c_b32, c_wib, c_dbg,	176	c_cpa, c_wbss, c_meos, c_sf, c_b32, c_wib, c_dbg,
175	c_endstart=c_dbg,	177	c_endstart=c_dbg,
176		178
177	c_os, c_oc, c_a, c_0, c_1, c_2, c_3,	179	c_os, c_oc, c_a, c_0, c_1, c_2, c_3,
178	c_4, c_5, c_6, c_7, c_8, c_9, c_w,	180	c_4, c_5, c_6, c_7, c_8, c_9, c_w,
179	c_wf, c_de,	181	c_wf, c_de,
180	c_opnum, c_ip, c_stub, c_ns, c_ap, c_define,c_ost,	182	c_opnum, c_ip, c_stub, c_ns, c_ap, c_define,c_ost,
181	c_cri, c_ia, c_scd, c_al, c_wfu, c_iv,	183	c_cri, c_ia, c_scd, c_al, c_wfu, c_iv,
182	c_mer, c_wmb, c_help, c_h, c_hh, c_ac, c_ws,	184	c_mer, c_wmb, c_help, c_h, c_hh, c_ac, c_ws,
183	c_ind, c_wo, c_nw, c_lst, c_as, c_ul, c_lrs,	185	c_ind, c_wo, c_nw, c_lst, c_as, c_ul, c_lrs,
184	c_wsi, c_waf, c_oir, c_coff, c_js, c_ba, c_asp,	186	c_wsi, c_waf, c_oir, c_coff, c_js, c_ba, c_asp,
185	#ifdef OPTVARCONST	187	#ifdef OPTVARCONST
186	c_orv,	188	c_orv,
187	#endif	189	#endif
188	c_map, c_we, c_ext, c_end};	190	c_map, c_we, c_ext, c_end};
189		191
190	#define NUMEXT 6 //÷èñëî ðàçðåøåííûõ ðàñøèðåíèé êîìïèëèðóåìîãî ôàéëà	192	#define NUMEXT 6 //÷èñëî ðàçðåøåííûõ ðàñøèðåíèé êîìïèëèðóåìîãî ôàéëà
191	char extcompile[NUMEXT][4]={"c--","cmm","c","h--","hmm","h"};	193	char extcompile[NUMEXT][4]={"c--","cmm","c","h--","hmm","h"};
192		194
193	#ifdef _KOS_	195	#ifdef _KOS_
194	char __pgmname[256];	196	char __pgmname[256];
195	char __cmdline[256];	197	char __cmdline[256];
196	#endif	198	#endif
197		199
198	char *bufstr=NULL; //áóôåð äëÿ ñòðîê èç ïðîöåäóð	200	char *bufstr=NULL; //áóôåð äëÿ ñòðîê èç ïðîöåäóð
199	int sbufstr=SIZEBUF; //íà÷àëüíûé ðàçìåð ýòîãî áóôåðà	201	int sbufstr=SIZEBUF; //íà÷àëüíûé ðàçìåð ýòîãî áóôåðà
200		202
201	void compile();	203	void compile();
202	void PrintInfo(char **str);	204	void PrintInfo(char **str);
203	void LoadIni(char *name);	205	void LoadIni(char *name);
204	//void CheckNumStr();	206	//void CheckNumStr();
205	void ListId(int num,unsigned char list,short ofs);	207	void ListId(int num,unsigned char list,short ofs);
206	void printmemsizes();	208	void printmemsizes();
207	void print8item(char *str);	209	void print8item(char *str);
208	void doposts(void);	210	void doposts(void);
209	void GetMemExeDat();	211	void GetMemExeDat();
210	void AddJmpApi();	212	void AddJmpApi();
211	void startsymbiosys(char *symfile);	213	void startsymbiosys(char *symfile);
212	int writeoutput();	214	int writeoutput();
213	void BadCommandLine(char *str);	215	void BadCommandLine(char *str);
214	void CheckExtenshions();	216	void CheckExtenshions();
215	void ImportName(char *name);	217	void ImportName(char *name);
216	void WarnUnusedVar();//ïðåäóïðåæäåíèÿ î íåèñïîëüçîâàííûõ ïðîöåäóðàõ è ïåðåìåííûõ	218	void WarnUnusedVar();//ïðåäóïðåæäåíèÿ î íåèñïîëüçîâàííûõ ïðîöåäóðàõ è ïåðåìåííûõ
217	void MakeExeHeader(EXE_DOS_HEADER *exeheader);	219	void MakeExeHeader(EXE_DOS_HEADER *exeheader);
218	void CheckPageCode(unsigned int ofs);	220	void CheckPageCode(unsigned int ofs);
219	int MakePE();	221	int MakePE();
220	int MakeObj();	222	int MakeObj();
221	void CheckUndefClassProc();	223	void CheckUndefClassProc();
222	/*	224	/*
223	void PrintTegList(structteg *tteg)	225	void PrintTegList(structteg *tteg)
224	{	226	{
225	if(tteg){	227	if(tteg){
226	PrintTegList(tteg->left);	228	PrintTegList(tteg->left);
227	PrintTegList(tteg->right);	229	PrintTegList(tteg->right);
228	puts(tteg->name);	230	puts(tteg->name);
229	}	231	}
230	} */	232	} */
231		233
232	//unsigned long maxusedmem=0;	234	//unsigned long maxusedmem=0;
233		235
234	void ErrOpenFile(char *str)	236	void ErrOpenFile(char *str)
235	{	237	{
236	printf("Unable to open file %s.\n",str);	238	printf("Unable to open file %s.\n",str);
237	}	239	}
238		240
239	int main(int argc,char *argv[])	241	int main(int argc,char *argv[])
240	{	242	{
241	int count;	243	int count;
242	unsigned char pari=FALSE;	244	unsigned char pari=FALSE;
243	char *buffer;	245	char *buffer;
244		246
245	printf("\nSPHINX C-- Compiler Version %d.%d%s %s\r\n",ver1,ver2,betta,__DATE__);	247	printf("\nSPHINX C-- Compiler Version %d.%d%s %s\r\n",ver1,ver2,betta,__DATE__);
246		248
247	// scrsize=24;	249	// scrsize=24;
248	if(argc>1){	250	if(argc>1){
249	_Argv=argv;// This make portable code	251	_Argv=argv;// This make portable code
250	bufstr=(char *)MALLOC(SIZEBUF);	252	bufstr=(char *)MALLOC(SIZEBUF);
251	output=(unsigned char *)MALLOC((size_t)MAXDATA);	253	output=(unsigned char *)MALLOC((size_t)MAXDATA);
252	outputdata=output;	254	outputdata=output;
253	postbuf=(postinfo )MALLOC(MAXPOSTSsizeof(postinfo));	255	postbuf=(postinfo )MALLOC(MAXPOSTSsizeof(postinfo));
254	strcpy((char *)string,argv[0]);	256	strcpy((char *)string,argv[0]);
255	rawext=strrchr((char *)string,DIV_FOLD);	257	rawext=strrchr((char *)string,DIV_FOLD);
256		258
257	if(rawext!=NULL){	259	if(rawext!=NULL){
258	rawext[0]=0;	260	rawext[0]=0;
259	IncludePath((char *)string);	261	IncludePath((char *)string);
260	}	262	}
261	rawfilename=getenv("C--");	263	rawfilename=getenv("C--");
262	if(rawfilename!=NULL)IncludePath(rawfilename);	264	if(rawfilename!=NULL)IncludePath(rawfilename);
263		265
264	rawfilename=rawext=NULL;	266	rawfilename=rawext=NULL;
265	LoadIni("c--.ini");	267	LoadIni("c--.ini");
266		268
267	for(count=1;count	269	for(count=1;count
268	//if(argv[count][0]=='/'\|\|argv[count][0]=='-'){	270	//if(argv[count][0]=='/'\|\|argv[count][0]=='-'){
269	if(argv[count][0]=='-'){	271	if(argv[count][0]=='-'){
270	if(SelectComand(argv[count]+1,&count)==c_end) BadCommandLine(argv[count]);	272	if(SelectComand(argv[count]+1,&count)==c_end) BadCommandLine(argv[count]);
271	}	273	}
272	else{	274	else{
273	if(pari==FALSE){	275	if(pari==FALSE){
274	rawfilename=argv[count];	276	rawfilename=argv[count];
275	pari=TRUE;	277	pari=TRUE;
276	if((rawext=strrchr(rawfilename,'.'))!=NULL){	278	if((rawext=strrchr(rawfilename,'.'))!=NULL){
277	if(stricmp(rawext,".ini")==0){ //óêàçàí ini ôàéë	279	if(stricmp(rawext,".ini")==0){ //óêàçàí ini ôàéë
278	rawfilename=NULL;	280	rawfilename=NULL;
279	rawext=NULL;	281	rawext=NULL;
280	LoadIni(argv[count]);	282	LoadIni(argv[count]);
281	if(rawfilename==NULL)pari=FALSE;	283	if(rawfilename==NULL)pari=FALSE;
282	}	284	}
283	else{	285	else{
284	*rawext++=0;	286	*rawext++=0;
285	CheckExtenshions();	287	CheckExtenshions();
286	}	288	}
287	}	289	}
288	}	290	}
289	}	291	}
290	}	292	}
291	}	293	}
292	if(rawfilename==NULL){	294	if(rawfilename==NULL){
293	PrintInfo(usage);	295	PrintInfo(usage);
294	exit( e_noinputspecified );	296	exit( e_noinputspecified );
295	}	297	}
296	time(&systime); //òåêóùåå âðåìÿ	298	time(&systime); //òåêóùåå âðåìÿ
297	memcpy(&timeptr,localtime(&systime),sizeof(tm));	299	memcpy(&timeptr,localtime(&systime),sizeof(tm));
298	InitDefineConst();	300	InitDefineConst();
299	compile();	301	compile();
300	if(error==0)exit(e_ok);	302	if(error==0)exit(e_ok);
301	exit(e_someerrors);	303	exit(e_someerrors);
302	return 0;	304	return 0;
303	}	305	}
304		306
305	void CheckExtenshions()	307	void CheckExtenshions()
306	{	308	{
307	int i;	309	int i;
308	for(i=0;i	310	for(i=0;i
309	if(stricmp(rawext,extcompile[i])==0)break;	311	if(stricmp(rawext,extcompile[i])==0)break;
310	}	312	}
311	if(i==NUMEXT){	313	if(i==NUMEXT){
312	printf("Bad input file extension '%s'.",rawext);	314	printf("Bad input file extension '%s'.",rawext);
313	exit(e_badinputfilename);	315	exit(e_badinputfilename);
314	}	316	}
315	}	317	}
316		318
317	void compile()	319	void compile()
318	{	320	{
319	long segments_required;	321	long segments_required;
320	union{	322	union{
321	long longhold;	323	long longhold;
322	void *nextstr;	324	void *nextstr;
323	};	325	};
324	//ñîçäàòü èìÿ ôàéëà ñ ïðåäóïðåæäåíèÿìè è åñëè îí åñòü óäàëèòü	326	//ñîçäàòü èìÿ ôàéëà ñ ïðåäóïðåæäåíèÿìè è åñëè îí åñòü óäàëèòü
325	errfile.name=(char *)MALLOC(strlen(rawfilename)+5);	327	errfile.name=(char *)MALLOC(strlen(rawfilename)+5);
326	sprintf(errfile.name,"%s.err",rawfilename);	328	sprintf(errfile.name,"%s.err",rawfilename);
327	if(stat(errfile.name,(struct stat *)string2)==0)remove(errfile.name);	329	if(stat(errfile.name,(struct stat *)string2)==0)remove(errfile.name);
328	//åñëè åñòü èìÿ ôàéëà äëÿ ïðåäóïðåæäåíèé ïðîâåðèòü åãî ñóùåñòâîâàíèå è óäàëèòü.	330	//åñëè åñòü èìÿ ôàéëà äëÿ ïðåäóïðåæäåíèé ïðîâåðèòü åãî ñóùåñòâîâàíèå è óäàëèòü.
329	if(wartype.name!=NULL){	331	if(wartype.name!=NULL){
330	if(stat(wartype.name,(struct stat *)string2)==0)remove(wartype.name);	332	if(stat(wartype.name,(struct stat *)string2)==0)remove(wartype.name);
331	}	333	}
332	puts("Compiling Commenced . . .");	334	puts("Compiling Commenced . . .");
333	if(rawext!=NULL)sprintf((char *)string,"%s.%s",rawfilename,rawext);	335	if(rawext!=NULL)sprintf((char *)string,"%s.%s",rawfilename,rawext);
334	else{	336	else{
335	for(unsigned int i=0;i	337	for(unsigned int i=0;i
336	sprintf((char *)string,"%s.%s",rawfilename,extcompile[i]);	338	sprintf((char *)string,"%s.%s",rawfilename,extcompile[i]);
337	if(stat((char )string,(struct stat )string2)==0)break;	339	if(stat((char )string,(struct stat )string2)==0)break;
338	}	340	}
339	}	341	}
340	linenumber=0;	342	linenumber=0;
341	initregstat();	343	initregstat();
342	#ifdef OPTVARCONST	344	#ifdef OPTVARCONST
343	CreateMainLVIC();	345	CreateMainLVIC();
344	#endif	346	#endif
345	#ifdef __NEWLEX__	347	#ifdef __NEWLEX__
346	inittokn();	348	inittokn();
347	#endif	349	#endif
348	compilefile((char *)string,2); //ñîáñòâåííî ðàçáîðêà è êîìïèëÿöèÿ	350	compilefile((char *)string,2); //ñîáñòâåííî ðàçáîðêà è êîìïèëÿöèÿ
349	puts("Link . . .");	351	puts("Link . . .");
350	if(comfile==file_w32&&wbss==2){	352	if(comfile==file_w32&&wbss==2){
351	wbss=FALSE;	353	wbss=FALSE;
352	if(wconsole==FALSE)wbss=TRUE;	354	if(wconsole==FALSE)wbss=TRUE;
353	}	355	}
354	if(notdoneprestuff==TRUE)doprestuff(); //startup code	356	if(notdoneprestuff==TRUE)doprestuff(); //startup code
355	if(endifcount>=0)preerror("?endif expected before end of file");	357	if(endifcount>=0)preerror("?endif expected before end of file");
356	AddObj();	358	AddObj();
357	docalls(); //äîáàâèòü âíåøíèå ïðîöåäóðû	359	docalls(); //äîáàâèòü âíåøíèå ïðîöåäóðû
358	addinitvar();	360	addinitvar();
359	CheckUndefClassProc();	361	CheckUndefClassProc();
360	if(undefoffstart!=NULL){ //âûäàòü ñïèñîê íåèçâåñòíûõ ññûëîê	362	if(undefoffstart!=NULL){ //âûäàòü ñïèñîê íåèçâåñòíûõ ññûëîê
361	UNDEFOFF *curptr=undefoffstart;	363	UNDEFOFF *curptr=undefoffstart;
362	for(;;){	364	for(;;){
363	char holdstr[80];	365	char holdstr[80];
364	UNDEFOFF *ocurptr;	366	UNDEFOFF *ocurptr;
365	linenumber=curptr->pos->line;	367	linenumber=curptr->pos->line;
366	sprintf(holdstr,"\'%s\' offset undefined",curptr->name);	368	sprintf(holdstr,"\'%s\' offset undefined",curptr->name);
367	currentfileinfo=curptr->pos->file;	369	currentfileinfo=curptr->pos->file;
368	preerror(holdstr);	370	preerror(holdstr);
369	free(curptr->pos);	371	free(curptr->pos);
370	if(curptr->next==NULL)break;	372	if(curptr->next==NULL)break;
371	ocurptr=curptr->next;	373	ocurptr=curptr->next;
372	free(curptr);	374	free(curptr);
373	curptr=ocurptr;	375	curptr=ocurptr;
374	}	376	}
375	free(curptr);	377	free(curptr);
376	}	378	}
377	while(liststring!=NULL){	379	while(liststring!=NULL){
378	STRING_LIST *ins;	380	STRING_LIST *ins;
379	ins=(STRING_LIST *)liststring;	381	ins=(STRING_LIST *)liststring;
380	nextstr=ins->next;	382	nextstr=ins->next;
381	free(liststring);	383	free(liststring);
382	liststring=nextstr;	384	liststring=nextstr;
383	}	385	}
384	free(bufstr);	386	free(bufstr);
385	if(warning==TRUE&&wact[7].usewarn)WarnUnusedVar();//ïðåäóïðåæäåíèÿ î íåèñïîëüçîâàííûõ ïðîöåäóðàõ è ïåðåìåííûõ	387	if(warning==TRUE&&wact[7].usewarn)WarnUnusedVar();//ïðåäóïðåæäåíèÿ î íåèñïîëüçîâàííûõ ïðîöåäóðàõ è ïåðåìåííûõ
386	if(numstrtbl)CreatStrTabRes(); //çàâåðøèòü ñîçäàíèå ðåñóðñîâ	388	if(numstrtbl)CreatStrTabRes(); //çàâåðøèòü ñîçäàíèå ðåñóðñîâ
387	if(fobj==FALSE){	389	if(fobj==FALSE){
388	if(comfile==file_w32&&error==0){	390	if(comfile==file_w32&&error==0){
389	AddJmpApi(); //êîñâåííûå âûçîâû API	391	AddJmpApi(); //êîñâåííûå âûçîâû API
390	CreatWinStub();	392	CreatWinStub();
391	}	393	}
392	longhold=outptr;	394	longhold=outptr;
393	if(comfile==file_rom){	395	if(comfile==file_rom){
394	ooutptr=outptr;	396	ooutptr=outptr;
395	if(modelmem==SMALL){	397	if(modelmem==SMALL){
396	(short )&output[stackstartaddress]=(short)(((outptrdata+postsize+stacksize)/4+1)*4);	398	(short )&output[stackstartaddress]=(short)(((outptrdata+postsize+stacksize)/4+1)*4);
397	(short )&output[dataromstart]=(short)(outptr+4);	399	(short )&output[dataromstart]=(short)(outptr+4);
398	(short )&output[dataromsize]=(short)(outptrdata/2);	400	(short )&output[dataromsize]=(short)(outptrdata/2);
399	// printf("outptr=%d outptrdate=%d outptrsize=%d\n",outptr,outptrdata,outptrsize);	401	// printf("outptr=%d outptrdate=%d outptrsize=%d\n",outptr,outptrdata,outptrsize);
400	for(unsigned int i=0;i	402	for(unsigned int i=0;i
401	}	403	}
402	if(romsize==0){	404	if(romsize==0){
403	unsigned int i=outptr/1024;	405	unsigned int i=outptr/1024;
404	if((outptr%1024)!=0)i++;	406	if((outptr%1024)!=0)i++;
405	if(i>32)i=64;	407	if(i>32)i=64;
406	else if(i>16)i=32;	408	else if(i>16)i=32;
407	else if(i>8)i=16;	409	else if(i>8)i=16;
408	else if(i>4)i=8;	410	else if(i>4)i=8;
409	else if(i>2)i=4;	411	else if(i>2)i=4;
410	romsize=i*1024;	412	romsize=i*1024;
411	output[2]=(unsigned char)(romsize/512);	413	output[2]=(unsigned char)(romsize/512);
412	}	414	}
413	if(outptr>=romsize)preerror("The size of a code is more than the size of the ROM");	415	if(outptr>=romsize)preerror("The size of a code is more than the size of the ROM");
414	for(;outptr	416	for(;outptr
415	unsigned char summa=0;	417	unsigned char summa=0;
416	for(unsigned int i=0;i	418	for(unsigned int i=0;i
417	output[romsize-1]-=summa;	419	output[romsize-1]-=summa;
418	outptr=ooutptr;	420	outptr=ooutptr;
419	}	421	}
420	else if(modelmem==SMALL&&comfile==file_exe){ // if an EXE file	422	else if(modelmem==SMALL&&comfile==file_exe){ // if an EXE file
421	longhold+=AlignCD(CS,16);	423	longhold+=AlignCD(CS,16);
422	// if((outptr%16)!=0)outptr+=16-outptr%16;// paragraph align the end of the code seg	424	// if((outptr%16)!=0)outptr+=16-outptr%16;// paragraph align the end of the code seg
423	if(((long)outptrdata+(long)postsize+(long)stacksize)>65535L)	425	if(((long)outptrdata+(long)postsize+(long)stacksize)>65535L)
424	preerror("Data and stack total exceeds 64k");	426	preerror("Data and stack total exceeds 64k");
425	}	427	}
426	else if(comfile==file_sys){	428	else if(comfile==file_sys){
427	for(int i=0;i	429	for(int i=0;i
428	searchvar((listcom+i)->name);	430	searchvar((listcom+i)->name);
429	(short )&output[syscom+i*2]=(unsigned short)itok.number;	431	(short )&output[syscom+i*2]=(unsigned short)itok.number;
430	}	432	}
431	free(listcom);	433	free(listcom);
432	}	434	}
433	else longhold+=(long)postsize+(long)(stacksize);	435	else longhold+=(long)postsize+(long)(stacksize);
434	if(am32==0&&longhold>65535L&&!(modelmem==TINY&&(!resizemem)))preerror("Code, data and stack total exceeds 64k");	436	if(am32==0&&longhold>65535L&&!(modelmem==TINY&&(!resizemem)))preerror("Code, data and stack total exceeds 64k");
435	if(posts>0)doposts(); //Óñòàíîâèòü àäðåñà âûçîâîâ ïðîöåäóð è ïåðåõîäîâ	437	if(posts>0)doposts(); //Óñòàíîâèòü àäðåñà âûçîâîâ ïðîöåäóð è ïåðåõîäîâ
436	if(resizemem&&comfile==file_com){	438	if(resizemem&&comfile==file_com){
437	segments_required=(outptr+postsize+stacksize+15)/16;	439	segments_required=(outptr+postsize+stacksize+15)/16;
438	(short )&output[resizesizeaddress]=(short)segments_required;	440	(short )&output[resizesizeaddress]=(short)segments_required;
439	(short )&output[stackstartaddress]=(short)(segments_required*16);	441	(short )&output[stackstartaddress]=(short)(segments_required*16);
440	}	442	}
441	}	443	}
442	deinitregstat();	444	deinitregstat();
443	#ifdef OPTVARCONST	445	#ifdef OPTVARCONST
444	KillMainLVIC();	446	KillMainLVIC();
445	#endif	447	#endif
446	// puts("List Teg name:");	448	// puts("List Teg name:");
447	// PrintTegList(tegtree);	449	// PrintTegList(tegtree);
448	printf("COMPILING FINISHED. Errors: %d\n",error);	450	printf("COMPILING FINISHED. Errors: %d\n",error);
449	if(error==0){	451	if(error==0){
450	if(cpu>=1){	452	if(cpu>=1){
451	char m1[12];	453	char m1[12];
452	switch(cpu){	454	switch(cpu){
453	case 5:	455	case 5:
454	strcpy(m1,"Pentium");	456	strcpy(m1,"Pentium");
455	break;	457	break;
456	case 6:	458	case 6:
457	strcpy(m1,"MMX");	459	strcpy(m1,"MMX");
458	break;	460	break;
459	case 7:	461	case 7:
460	strcpy(m1,"Pentium II");	462	strcpy(m1,"Pentium II");
461	break;	463	break;
462	case 8:	464	case 8:
463	strcpy(m1,"Pentium III");	465	strcpy(m1,"Pentium III");
464	break;	466	break;
465	case 9:	467	case 9:
466	strcpy(m1,"Pentium IV");	468	strcpy(m1,"Pentium IV");
467	break;	469	break;
468	default: sprintf(m1,"80%d86",cpu);	470	default: sprintf(m1,"80%d86",cpu);
469	}	471	}
470	printf("CPU required: %s or greater.\n",m1);	472	printf("CPU required: %s or greater.\n",m1);
471	}	473	}
472	runfilesize=outptr-startptr;	474	runfilesize=outptr-startptr;
473	if(comfile==file_rom)runfilesize=romsize;	475	if(comfile==file_rom)runfilesize=romsize;
474	else if(modelmem==SMALL&&comfile==file_exe){	476	else if(modelmem==SMALL&&comfile==file_exe){
475	runfilesize+=outptrdata-startptrdata+0x20;	477	runfilesize+=outptrdata-startptrdata+0x20;
476	postsize+=postsize%2;	478	postsize+=postsize%2;
477	stacksize=(stacksize+15)/16*16;	479	stacksize=(stacksize+15)/16*16;
478	}	480	}
479	else if((comfile==file_exe\|\|comfile==file_d32)&&modelmem==TINY)	481	else if((comfile==file_exe\|\|comfile==file_d32)&&modelmem==TINY)
480	runfilesize+=0x20;	482	runfilesize+=0x20;
481	printmemsizes();	483	printmemsizes();
482	endinptr=outptr;	484	endinptr=outptr;
483	if(writeoutput()==0)printf("Run File Saved (%ld bytes).\n",runfilesize);	485	if(writeoutput()==0)printf("Run File Saved (%ld bytes).\n",runfilesize);
484	if(comfile==file_w32&&fobj==FALSE)printf("Created file of a format PE for Windows.\nFor alignment section code, added %u zero bytes.\n",filingzerope);	486	if(comfile==file_w32&&fobj==FALSE)printf("Created file of a format PE for Windows.\nFor alignment section code, added %u zero bytes.\n",filingzerope);
485	// else if(FILEALIGN&&fobj==FALSE)printf("For alignment file, added %u zero bytes.\n",filingzerope);	487	// else if(FILEALIGN&&fobj==FALSE)printf("For alignment file, added %u zero bytes.\n",filingzerope);
486	}	488	}
487	if(pdbg)DoTDS();	489	if(pdbg)DoTDS();
488	}	490	}
489		491
490	void printmemsizes()	492	void printmemsizes()
491	{	493	{
492	long stacklong;	494	long stacklong;
493	unsigned int stackword;	495	unsigned int stackword;
494	unsigned int postword,codeword;	496	unsigned int postword,codeword;
495	postword=postsize;	497	postword=postsize;
496	codeword=outptr-startptr;	498	codeword=outptr-startptr;
497	stackword=stacksize;	499	stackword=stacksize;
498	if(comfile==file_com\|\|(comfile==file_exe&&modelmem==TINY)){	500	if(comfile==file_com\|\|(comfile==file_exe&&modelmem==TINY)){

Subversion Repositories Kolibri OS

(root)/programs/develop/cmm/main.cpp – Rev 6447 → 6618