Subversion Repositories Kolibri OS

//void PrintMem(void *mem);

//void CheckMem();

#include "port.h"

#include 

#include 

#include 

#include 

#include 

//#define DEBUGMODE

#define OPTVARCONST // Çàìåíà ïåðåìåííûõ ñîíñòàíòàìè

#define MAXNUMPATH 16

#define DATATYPES 9 	// number of data types

#define MAXDATA 65500 /* output run file buffer 65500 bytes */

#define DYNAMIC_USED 0

#define DYNAMIC      1

#define NOT_DYNAMIC 2 /* flag value specifing a non-dynamic proc */

#define DYNAMIC_SET 3

#define FILENAMESIZE 80

#define SHORTMAX	127 // largest 8 bit signed value

#define SHORTMIN -128 // smallest 8 bit signed value

#define IDLENGTH 65  /* length of significance of IDS + NULL, therefore 32 */

#define STRLEN 2048  /* length of string token holder */

#define MAXPOSTS 2048

#define SIZEBUF 16384

#define ID2S 6*DATATYPES

#define MAXSYSCOM 25

#define NUMNUM 32

#define NUMNUM64 64

#define OBJECTALIGN 4096	//âûðàâíèâàíèå ñåêöèé â ïàìÿòè

#define WARNCOUNT 15	//÷èñëî ðàçëè÷íûõ ïðåäóïðåæäåíèé

#define ver1 0

#define ver2 239

#define BETTA

#ifdef BETTA

#define betta " b26"

#else

#define betta ""

#endif

#include "const.h"

#include "struct.h"

#ifdef _UNIX_

	#ifndef stricmp

		#define stricmp strcasecmp

	#endif

#endif

#ifdef _UNIX_

	#ifndef O_BINARY

		#define O_BINARY 0

	#endif

#endif

extern unsigned char FixUpTable;	//çàïðåòèòü ñîçäàíèå òàáëèöè Fix UP for Windows

extern unsigned char WinMonoBlock;

extern unsigned int currentfileinfo;

#if !defined (_MAIN_)

extern char fobj;	//ïðèçíàê ãåíåðàöèè obj

extern char *rawfilename;

extern struct tm timeptr;

extern char outext[];

extern unsigned char compilerstr[];  /* compiler ID string */

extern LISTCOM *listcom;

extern unsigned char gwarning;

extern EWAR wartype,errfile;

extern int numfindpath;

extern char *findpath[];

extern char bufpath[];

extern unsigned int  startptr;

extern unsigned char wconsole;//ïðèçíàê ãåíåðàöèè êîíñîëüíîãî ïðèëîæåíèÿ windows

extern unsigned long ImageBase;

extern int numexport;

extern struct listexport *lexport;

extern unsigned char optstr;	//îïòèìèçàöèÿ ñòðîêîâûõ êîíñòàíò

extern unsigned char crif;	//check reply include file

extern unsigned char idasm;	//àññåìáëåðíûå èíñòðóêöèè ñ÷èòàòü èäåíòèôèêàòîðàìè

extern char modelmem;

extern char *stubfile;

extern char comsymbios;

extern unsigned char sobj;

extern short dllflag;

extern char *bufstr;	//áóôåð äëÿ ñòðîê èç ïðîöåäóð

extern int sbufstr;	//íà÷àëüíûé ðàçìåð ýòîãî áóôåðà

extern unsigned char wbss;	//ïîñò ïåðåìåííûå â îòäåëüíóþ ñåêöèþ

extern int numrel;	//÷èñëî ýëåìåíòîâ â òàáëèöå ïåðåìåùåíèé

extern unsigned char usestub;

extern char *winstub;

extern unsigned char dpmistub;

extern unsigned char useordinal;

extern int startupfile;

extern int alignproc,aligncycle;

extern FILE *hout;

extern unsigned char useDOS4GW;

extern unsigned char use_env;	//ïåðåìåííàÿ îêðóæåíèÿ

extern unsigned char clearpost;

extern unsigned char uselea;

extern unsigned char regoverstack;

extern unsigned char shortimport;

extern char *namestartupfile;

extern unsigned char useinline;

extern unsigned char ocoff;

extern unsigned char ESPloc;

#endif

extern unsigned char string[STRLEN],string2[STRLEN+20];

#if !defined (_TOKC_)

extern unsigned int outptrsize;	//ðàçìåð âûõîäíîãî áóôåðà

extern unsigned char string3[STRLEN];

extern char *BackTextBlock;	//áóôåð äëÿ ïåðåíåñåííîãî òåêñòà

extern int SizeBackBuf;

extern unsigned char cha;

extern unsigned int inptr;

extern unsigned char AlignProc;

extern unsigned int secondcallnum;	//# of different second calls and labels

extern unsigned char header;

extern unsigned char killctrlc;

extern unsigned char optimizespeed;

extern unsigned char alignword;

extern unsigned int outptr,outptrdata;

extern unsigned char comfile;

extern unsigned char chip;

extern unsigned char dos1,dos2;

extern unsigned int stacksize;

extern int error;

extern unsigned char *output,*outputdata;

extern unsigned char notdoneprestuff;

extern unsigned long postsize;

extern unsigned int posts;

extern postinfo *postbuf;

extern int maxposts;

extern unsigned char cpu;

extern long runfilesize;

extern unsigned char *input; 	 /* dynamic input buffer */

extern unsigned int endinptr;		 /* end index of input array */

extern unsigned int localsize,paramsize;

extern char endoffile;

extern unsigned int current_proc_type; 	/* current procedure type */

extern unsigned char aligner;

extern unsigned int alignersize;

extern unsigned int datasize;

extern unsigned char warning;

extern unsigned int startStartup;

extern unsigned char useStartup;

extern unsigned int endStartup;

extern unsigned char notpost;

extern unsigned char am32; 		      // ðåæèì 32 áèòíîé àäðåñàöèè

extern unsigned int externnum;

extern unsigned char FastCallApi;	//ðàçðåøèòü áûñòðûé âûçîâ API ïðîöåäóð

extern unsigned char FixUp;	//Äåëàòü ëè òàáëèöó ïåðåìåùåíèé

extern void *liststring;	//öåïî÷êà èíôîðìàöèîííûõ áëîêîâ î ñòðîêàõ

extern struct FILEINFO *startfileinfo;

extern unsigned int totalmodule;

extern int retproc;

extern unsigned char splitdata;	//îòäåëèòü äàííûå îò êîäà

extern unsigned char AlignCycle;       //âûðàâíèâàòü íà÷àëà öèêëîâ

extern char param[];	//áóôåð äëÿ ïàðàìåòðîâ ïðîöåäóðû

extern unsigned char dynamic_flag;	//ôëàã îáðàáîòêè äèíàìè÷åñêèõ ýëåìåíòîâ

extern unsigned char setzeroflag;	//îïåðàöèÿ ìåíÿåò zero flag

extern unsigned char insertmode;

extern unsigned int numblocks;	//íîìåð âëîæåííîãî áëîêà

extern unsigned char notunreach;

extern idrec *staticlist;

extern unsigned int procedure_start; /* address of start of procedure */

extern int lastcommand;	//ïîñëåäíèé îïåðàòîð â áëîêå

extern unsigned int initBP;

extern unsigned char fstatic;

//extern int sizestack;	//ðàçìåð íå êîìïåíñèðîâàííûõ ïàðàìåòðîâ ôóíêöèé

extern unsigned char addstack;

extern unsigned long addESP;	//äîáàâêà ñòåêà

extern unsigned char blockproc;	//èäåòðàçáîðêà áëîêà ôóíêöèè

extern treelocalrec *tlr;	//öåïî÷êà ëîêàëüíûõ áëîêîâ

extern treelocalrec *btlr;	//öåïî÷êà èñïîëüçîâàíûõ ëîêàëüíûõ áëîêîâ

extern int returntype; 				 /* return type, (void, byte, word, ...) */

#endif

extern int tok,tok2;

#if !defined (_TOKR_)

extern char useasm;

extern unsigned short ofsmnem[];

extern unsigned char asmMnem[];

extern char asmparam;

#endif

#if !defined (_TOKA_)

extern unsigned char id[];

extern unsigned short idofs[];

extern char id2[ID2S][9];

extern char regs[2][8][4];

extern char begs[8][3];

extern char segs[8][3];

extern struct idrec *treestart;

extern unsigned int linenum2;

extern unsigned int inptr2;

extern unsigned char cha2;

extern char displaytokerrors;

extern char *bufrm;

extern UNDEFOFF *undefoffstart;

extern DLLLIST *listdll;

extern char skipfind;

extern struct structteg *tegtree;			//ãëîáàëüíûé ñðèñîê òåãîâ

extern struct structteg *ltegtree;		//ëîêàëüíûé ñðèñîê òåãîâ

//extern struct idrec *lstructlist; //ñïèñîê ëîêàëüíûõ ñòðóêòóð

extern struct idrec *definestart;

extern SINFO strinf;

extern char *startline, *endinput;

extern ITOK structadr;

extern int scanlexmode;

extern COM_MOD *cur_mod;

extern unsigned char bytesize;

#endif

#if !defined (_TOKE_)

extern int maxerrors;

extern char mesmain[];

extern int endifcount;

extern int sysstack;

extern int sysnumcom;

extern int syscom;

extern unsigned char fargc;

extern unsigned char jumptomain;

extern unsigned int  startptrdata;

extern unsigned char parsecommandline;

extern unsigned int romsize;

extern unsigned char resizemem;

extern unsigned int resizesizeaddress;

extern unsigned int stackstartaddress;

extern int dataromstart,dataromsize;

extern unsigned char startuptomain;

extern unsigned char dosstring;

extern unsigned int numdomain;	//÷èñëî ïðîöåäóð çàïóñêàåìûõ äî main

extern char *domain;	//áóôåð èìåí ïðîöåäóð çàïóñêàåìûõ äî main

extern unsigned char usedirectiv;	//èäåò îáðàáîòêà äèðåêòèâû

extern unsigned char atex;

extern unsigned int postnumflag;	//ôëàã ïîñëåäíåãî èäåíòèôèêàòîðà â âû÷èñëåíèè íîìåðà

extern unsigned char sdp_mode;	//ðåæèì ïðèíóäèòåëüíîé âûãðóçêè äèíàìè÷åñêèõ ïðîöåäóð

extern int calcnumber;

extern int strpackdef;

extern int strpackcur;

#ifdef DEBUGMODE

extern int debug;

#endif

extern int dirmode;

#endif

extern ITOK itok,itok2,ptok;

#if !defined (_TOKB_)

extern int divexpand;

extern int optnumber;

extern char *badadr;

extern LISTFLOAT *floatnum;	//ñïèñîê float êîíñòàíò

extern unsigned int numfloatconst;

extern unsigned int ofsfloatlist;

#endif

extern unsigned int linenumber;

#if !defined (_DEBUG_)

extern unsigned int ooutptr;

extern unsigned int outputcodestart;

extern unsigned char dbg,dbgact;

extern unsigned int pdbg;      // number of post entrys

#endif

#if !defined (_OUTPE_)

extern unsigned long ImageBase;

extern unsigned long vsizeheader; //âèðòóàëüíûé ðàçìåð çàãîëîâêà.

extern int filingzerope;

extern unsigned long FILEALIGN;	// âûðàâíèâàíèå ñåêöèé â ôàéëå

#endif

#if !defined (_ERRORS_)

extern WARNACT wact[];

extern unsigned char mapfile;

#endif

#if !defined (_DISASM_)

extern unsigned char seg_size;   /* default size is 16 */

extern unsigned long instruction_offset;

#endif

#if !defined (_SWITCH_)

extern FSWI *swtables;

extern int numswtable;

#endif

#if !defined (_CLASS_)

extern structteg *searchteg;

extern int destructor;

#endif

#if !defined (_RES_)

extern unsigned char *resbuf;

extern unsigned int curposbuf;

extern int numres;	//òåêóùåå ÷èñëî ðåñóðñîâ

extern int numstrtbl;

#endif

extern unsigned char idxregs[5];

// start of procedure pre-definitions

/*-----------------19.09.98 17:18-------------------

	 Ôóíêöèè îïðåäåëåííûå â main.cpp

--------------------------------------------------*/

void *MALLOC(unsigned long size);

void *REALLOC(void *block,unsigned long size);

void IncludePath(char *buf);

int SelectComand(char *pptr,int *count);

void strbtrim(char *st);

unsigned long  Align(unsigned long size,unsigned long val);

int AlignCD(char segm,int val);	//âûðàâíÿòü äàííûå èëè êîä

void ErrOpenFile(char *str);

unsigned int EntryPoint();

long CopyFile(FILE *in,FILE *out);

unsigned long getnumber(unsigned char *buf);

void addinitvar();

FILE *CreateOutPut(char *ext,char *mode);

void SetLST(unsigned char neg);

void AddUndefClassProc();

int MakeCoff();

void setdindata(idrec *ptr,int i);

/*-----------------08.03.98 20:10-------------------

 Ôóíêöèè îïðåäåëåíûå â toka.c

--------------------------------------------------*/

void CheckAllMassiv(char *&buf,int sizeel,SINFO *strc,ITOK *ctok=&itok,int reg1=idxregs[0],int reg2=idxregs[1]);

void docalls(); //attempt to declare undefs from library and dynamic proc's

int FindOff(unsigned char *name,int base);

void nextchar();	//îïð â toke

void nexttok();

void whitespace(); //ïðîïóñê íçíà÷àùèõ ñèìâîëîâ

int searchtree(ITOK *itk4,int *tk4,unsigned char *strin4);

void AddUndefOff(int segm,char *ostring);

void InitStruct();	//èíèöèàëèçèðîâàòü ñòðóêòóðó

unsigned long LocalStruct(int flag,int *localline);	//èíèöèàëèçèðîâàòü ëîêàëüíóþ ñòðóêòóðó

struct structteg * FindTeg(int Global,char *name=itok.name);	//íàéòè òåã

void dostruct();

int FastSearch(unsigned char *list,short unsigned *ofs,int type,char *str);

void FindDirectiv();

unsigned long long scannumber(int *rm);

void FastTok(int mode,int *tok4=&tok,ITOK *itok4=&itok);

unsigned int initstructvar(structteg *tteg,int numel);

unsigned int ScanTok3();

int GetVarSize(int var);

void compressoffset(ITOK *thetok);

void AddDynamicList(idrec *ptr);

int CheckUseAsUndef(unsigned char *name);

int CheckMassiv(char *&buf,int sizeel,int treg,int *idx=0,int *base=0,long *num=0);

void AutoDestructor();

void dodelete();

void donew();

void RunNew(int size);

int CallDestructor(structteg *searcht);

int FindUseName(char *name);	//ïîèñê ññûëîê íà òåêóùåå èìÿ

void DateToStr(char *buf);

int CalcRm16(int base,int idx);

int CheckDef();

void SetNewStr(char *name);

struct structteg *CreatTeg(int Global,int useunion=FALSE,int noname=FALSE);

void InitStruct2(unsigned int flag,structteg *tteg);

unsigned long LocalStruct2(int flag,int *localline,int binptr,char bcha,structteg *tteg);

void retoldscanmode(int mode);

void ExpandRm(int rm,int sib,int *zoom,int *base,int *idx);

void BackMod();

/*-----------------08.03.98 21:45-------------------

 Ôóíêöèè îïðåäåëåíûå â tokb.h

--------------------------------------------------*/

void AddReloc(int segm=itok.segm);

int doalmath(int sign,char **ofsstr);

int do_e_axmath(int sign,int razr,char **ofsstr);

void getintoal(int gtok,ITOK *gstok,char *&gbuf,SINFO *gstr); /* AH may also be changed */

void getinto_e_ax(int sign,int gtok,ITOK *gstok,char *&gbuf,SINFO *gstr,int razr,int useAX=FALSE);

int  doeaxfloatmath(int itreturn=tk_reg32,int reg=AX,int addop=0);

int dobytevar(int sign,int terminater=tk_semicolon); 	// byte, char

int do_d_wordvar(int sign,int razr,int terminater=tk_semicolon); 		 /* signed or unsigned 16 bit memory variable */

int doreg_32(int reg,int razr,int terminater=tk_semicolon);

void doseg(int seg);

int caselong(unsigned long val);

int dobeg(int beg,int terminater=tk_semicolon);

void dobegmath(int beg);	/* math done is on all begs except AL */

void doregmath_32(int reg,int razr,int sign,char **ofsstr,int i=0);	/* math done is on all regs except AX */

int getintobeg(int beg,char **ofsstr);

int getintoreg_32(int reg,int razr,int sign,char **ofsstr,int useloop=TRUE); /* get into word reg (except AX) with enum */

void outaddress(ITOK *outtok);

void FloatToNumer(int addop=0);

int dofloatvar(int addop=0,int retrez=tk_floatvar,int terminater=tk_semicolon);

void fwait3();

void AddFloatConst(long long fnumber,int type=tk_float);

void setwordpost(ITOK *); 					 /* for post word num setting */

void setwordext(long *id);

void RegMulNum(int reg,unsigned long num,int razr,int sign,int *expand,int flag);

int OnlyNumber(int sign);

void PopSeg(int seg);

void PushSeg(int seg);

void MovRegNum(int razr,int relocf,unsigned long number,int reg);

int CheckMinusNum();

int getintoreg(int reg,int razr,int sign,char **ofsstr);

void dobits();

void bits2reg(int reg,int razr);

void getoperand(int reg=BX);

int optnumadd(unsigned long num,int reg,int razr,int vop);

int MultiAssign(int razr,int usereg,int npointr=0);

void CheckInitBP();

void RestoreBP();

void fistp_stack(int addop=0);

void fld_stack(int size);

void fildq_stack();

void cpointr(int reg,int numpointr);

int doqwordvar(int terminater=tk_semicolon);	//64 bit memory variable

void doreg64(int reg,int terminater=tk_semicolon);

void doregmath64(int reg);

void getintoreg64(int reg);

void float2stack(int num);

void dofloatstack(int num);

/*-----------------08.03.98 20:59-------------------

 Ôóíêöèè îïðåäåëåíûå â tokc.c

--------------------------------------------------*/

localrec * addlocalvar(char *str,int tok,unsigned int num,int addmain=FALSE);

int addpoststring(int segm=CS,int len=itok.number, int term=itok.flag); 	 /* add a string to the post queue */

void define_locallabel();

unsigned int dofrom();

unsigned int doextract();

int doparams();			/* do stack procedure parameter pushing */

int swapparam();

long updatetree();

void addacall(unsigned int idnum,unsigned char callkind);

idrec * addtotree(char *keystring);

void compilefile(char *filename,int firstflag);

void convert_returnvalue(int expectedreturn,int actualreturn);

int doid (char uppercase,int expectedreturn);

void insert_dynamic(int insert=FALSE);

int macros(int expectedreturn);

void op(int byte);

void opd(int byte);	//âûâîä áàéòà â ñåãìåíò äàííûõ

void op66(int ctoc);

int op67(int ctok);

void outqwordd (unsigned long long);

void outqword (unsigned long long);

void outdwordd (unsigned long);

void outdword (unsigned long);

void outwordd (unsigned int);

void outword (unsigned int);

void outseg(ITOK *outtok,unsigned int locadd);

int procdo(int expectedreturn);

int updatecall(unsigned int which,unsigned int where,unsigned int top);

void AddBackBuf(int,char);

void CharToBackBuf(char c);

void missingpar(char *name=(char *)"");

int CheckCodeSize();

void CheckPosts();

int doanyundefproc(int jumpsend=FALSE);

int doanyproc(int jumpsend=FALSE);

void killpost(unsigned int poz);

char *BackString(char *str);

DLLLIST *FindDLL();

long initglobalvar(int type,long elements,long ssize,char typev);

int typesize(int vartype);

void dopoststrings();

char *dynamic_var();

void uptdbr(/*int usesw=FALSE*/);

void docommand(); 		/* do a single command */

//int CheckStopBlock();

void MakeBreak(unsigned char typeb);

void SetBreakLabel();

void SetContinueLabel();

void CheckDir();

int SkipParam();

long GetBitMask(int ofs,int size);

void AddPostData(unsigned int loop);

//void NotPostUnion();

unsigned int initparamproc();

void CorrectStack(unsigned int num);

int testInitVar(int checkaldef=TRUE);

void declareparamreg();

void declareparamstack(); /* declare procedure parameters */

void declareparams(); 		 /* declare procedure parameters */

void declarelocals(int mode,int finline=FALSE); 		 /* declare locals */

void doblock2();

void doblock();

void setreturn();

int CidOrID();

void dynamic_proc();

void setproc(int defflag);

void define_procedure();

void doregparams();

int CheckDeclareProc();

int loadfile(char *filename,int firstflag);

void RestoreStack();

void IsUses(idrec *rec);

int SkipBlock();

void declareanonim();

void declareunion();

void startblock();

void endblock();

void LLabel();

void AddApiToPost(unsigned int num);

/*-----------------08.03.98 20:06-------------------

 ôóíêöèè îïðåäåëåíû â toke.c

--------------------------------------------------*/

void jumperror(unsigned int line,char *type);

void beep();			 /* beep for any internal errors */

void codeexpected();

void datatype_expected(int type=0);

unsigned long doconstdwordmath();

signed long doconstlongmath();

long doconstfloatmath();

void dwordvalexpected();

void idalreadydefined();

void illegalfloat();

void internalerror (char *str);// serious internal compiler error message

void maxoutputerror();

void maxwordpostserror();

void nextseminext();

void numexpected(int type=0);

void operatorexpected();

void seminext();

void shortjumptoolarge();

void stringexpected();

void swaperror();

void SwTok(int want);

void unabletoopen(char *str);

void unexpectedeof();

void unknowncompop();

void valueexpected();

void varexpected(int type);

void wordvalexpected();

int includeit(int type);

int includeproc();

int CheckMacros();

void tobigpost();

void expected (char ch);

int expecting(int want);

void outprocedure(unsigned char *array,unsigned int length);

void preerror(char *str);//error on currentline with line number and file name

void thisundefined(char *str,int next=TRUE);

void addconsttotree(char *keystring,long long constvalue,int type=tk_dword);

void directive();

void doenum();

void doprestuff(); //do initial code things, like resize mem, jump to main...

void searchvar(char *name,int err=1);

void expectingoperand(int want);

void InitDefineConst();

unsigned long long doconstqwordmath();

long long doconstdoublemath();

int calclongnumber(long *retnum,long number,int operand);

int calcqwordnumber(unsigned long long *retnum,unsigned long long number,int operand);

int calcdwordnumber(unsigned long *retnum,unsigned long number,int operand);

int calcfloatnumber(float *retnum,float number,int operand);

int calcdoublenumber(double *retnum,double number,int operand);

/*-----------------08.03.98 22:24-------------------

 Ôóíêöèè îïðåäåëåíûå â tokr.c

--------------------------------------------------*/

void doasm(int next=FALSE);

int short_ok(long thenumber,int reg32=FALSE);

void callloc(long loc); 	/* produce CALL # */

void callloc0();

void cbw(void);

int GOTO();

void expecting2(int want);

unsigned char gotol(int faradd);

void jumploc(long loc); 		/* produce JUMP # */

void jumploc0();

void movsb(void);

void movsd(void);

void movsw(void);

void popes(); 	/* produce POP ES */

void pushds();	/* produce PUSH DS */

void pushss();

void ret(); 	 /* produce RET */

void retf();	 /* produce RETF */

void stosb(void);

void stosd(void);

void stosw(void);

void fwait();

void xorAHAH(void); 	/* produce XOR AH,AH */

void xorAXAX(void); 	/* produce XOR AX,AX */

void xorEAXEAX(void); 	/* produce XOR EAX,EAX */

void nextexpecting2(int want);

void tobedefined(int callkind,int expectedreturn);

void cwdq(int razr);

void Leave();

void CheckIP();

int iTest(int mode=0);

void ZeroReg(int reg, int razr);

int Push(ITOK *wtok=NULL);

/*-----------------08.08.00 22:50-------------------

 errors.cpp

	--------------------------------------------------*/

void warningstring();

void warningexpand();

void warningjmp(char *str2,int line=linenumber,int file=currentfileinfo);

void warningreg(char *str2);

void preerror3(char *str,unsigned int line,unsigned int file=currentfileinfo);// error message at a different than current line

void unableopenfile(char *name);

void tegnotfound();

void errstruct();

void  warningdefined(char *);

void extraparam(char *name="");

void warningretsign();

void ErrWrite();

void ErrReadStub();

void warningnotused(char *name,int type);

void regBXDISIBPexpected();

void reg32expected(int type=0);

void InvOperComp();

void warningusenotintvar(char *name);

void warningdestroyflags();

void warningunreach();

void unuseableinput();

void redeclare(char *name);

void undefclass(char *name);

void badinfile(char *name);

void errorreadingfile(char *name);

void expectederror(char *str);

void unknowntype();

void unknownstruct (char *name,char *sname);

void unknowntagstruct (char *name);

void warninline();

void ZeroMassiv();

void bytevalexpected(int type);

void FindStopTok();

//void not_union_static();

extern void edpip(int num=0);

void waralreadinit(char *reg);

void waralreadinitreg(char *reg,char *reg2);

void OnlyComFile();

void warnsize();

void destrdestreg();

void qwordvalexpected();

void fpustdestroed();

void unknownobj(char *name);

void FindEndLex();

void fpu0expected();

void unknownpragma(char *name);

void warpragmapackpop();

void SkipBlock2();

void warreplasevar(char *name);

void warcompneqconst();

void warcompeqconst();

void warpointerstruct();

void warESP();

void waralreadinitvar(char *name,unsigned int num);

void warningprint(char *str,unsigned int line,unsigned int file);

void notexternfun();

void AddDataLine(char ssize/*,char typev*/);

void mapfun(int);

/*-----------------24.01.01 01:42-------------------

 disasm.cpp

	--------------------------------------------------*/

void undata(unsigned ofs,unsigned long len,unsigned int type);

void unassemble(unsigned long ofs);

/*-----------------25.01.01 23:02-------------------

 debug.cpp

	--------------------------------------------------*/

void AddLine(int SkipLine=FALSE);

void DoTDS();

void InitDbg();

void KillLastLine();

void AddDataNullLine(char ssize/* new!!! */,char *name=NULL);

void AddCodeNullLine(char *name=NULL);

void AddEndLine();

#ifdef DEBUGMODE

void printdebuginfo();

#endif

//void AddMainLine();

/*-----------------12.04.01 22:46-------------------

 outpe

	--------------------------------------------------*/

void CreatStub(char *name);

void CreatWinStub();

void ChSize(long size);

/*-----------------12.04.01 22:57-------------------

 outle

	--------------------------------------------------*/

int MakeLE();

int MakeMEOS();

int MakeBin32();

/*-----------------08.12.01 23:43-------------------

 pointer

	--------------------------------------------------*/

void dopointer();

void dovalpointer();

void getpointeradr(ITOK *gstok,char *&gbuf,SINFO *gstr,int numpointer,int razr,int reg=BX);

void dopointerproc();

/*-----------------09.12.01 00:28-------------------

 new_type

	--------------------------------------------------*/

void convert_type(int *sign,int *rettype,int *pointr,int reg=BX);

/*-----------------23.12.01 02:39-------------------

 class

	--------------------------------------------------*/

void doclassproc(unsigned int);

void AddThis();

/*-----------------27.01.02 23:39-------------------

 res

	--------------------------------------------------*/

void input_res();

int MakeRes(unsigned long ofsres,LISTRELOC **listrel);

void CreatStrTabRes();

/*-----------------14.04.03 21:31-------------------

 optreg

--------------------------------------------------*/

void initregstat();

void deinitregstat();

void IDXToReg(char *name,int size,int reg);

int CheckIDXReg(char *name,int size,int reg);

void IDZToReg(char *name,int reg,int razr);

int CheckIDZReg(char *name,int reg,int razr);

void clearregstat(int regs=0);

void ConstToReg(unsigned long num,int reg,int razr);

void ClearReg(int reg);

int RegSwapReg(int reg1,int reg2,int razr);

char *GetLecsem(int stop1,int stop2=tk_eof,int type=-1);

REGISTERSTAT *BakRegStat();

void CopyRegStat(REGISTERSTAT *bak);

void KillVar(char *name);

void CompareRegStat(REGISTERSTAT *bak);

int RegToReg(int regd,int regs,int razr);

void GenRegToReg(int regd,int reds,int razr);

void GetEndLex(int stop1,int stop2=tk_eof,int type=-1);

int GetRegNumber(int reg,unsigned long *num,int razr);

int GetNumberR(int reg,unsigned long *num,int razr,unsigned long number);

void FreeStat(REGISTERSTAT *bak);

void AddRegVar(int reg, int razr,ITOK *itok4);

int GetRegVar(ITOK *itok4);

#ifdef OPTVARCONST

void CreateMainLVIC();

void KillMainLVIC();

void ClearLVIC();

int Const2Var(ITOK *itok4,long long num,int typenum);

void ClearVarByNum(ITOK *itok4);

int UpdVarConst(ITOK *itok4,long long num,int typenum,int operand);

void FreeGlobalConst();

int CheckRegToConst(int reg,ITOK *itok4,int razr);

int CheckUpdRegToConst(int reg,ITOK *itok4,int operand,int razr);

int SwapVarConst(ITOK *itok2,ITOK *itok4);

int SwapVarRegConst(int reg,ITOK *itok4,int razr);

int CheckConstVar(ITOK *itok4);

//int CheckConstVar2(ITOK *itok4,long long *num,int *typenum);

void CheckConstVar3(int *tok4,ITOK *itok4,int razr);

void Const2VarRec(LVIC *varconst);

#endif

#ifndef _REGOPT_

extern unsigned char optinitreg;

#ifdef OPTVARCONST

extern unsigned char replasevar;

extern LVIC *listvic;

#endif

#endif

/*-----------------------

libobj

 -------------------------*/

void AddNameObj(char *name,int typefind,int type);

void AddObj();

#ifdef __NEWLEX__

void inittokn();

void doblockstart(char *);

#endif

/* end of TOK.H */