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

Subversion Repositories Kolibri OS

(root)/programs/develop/cmm/main.cpp @ 7134 – Rev 9705 → 9717