| 0,0 → 1,793 |
|---|
| //void PrintMem(void *mem); |
| //void CheckMem(); |
| |
| #include "port.h" |
| |
| #include <time.h> |
| #include <stdio.h> |
| #include <string.h> |
| #include <stdlib.h> |
| #include <ctype.h> |
| |
| |
| //#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 short ofsmnem[]; |
| extern unsigned char asmMnem[]; |
| extern char asmparam; |
| #endif |
| |
| #if !defined (_TOKA_) |
| extern unsigned char id[]; |
| extern 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 *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=""); |
| 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 */ |