1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018 |
- /*
- * Code to check for library functions. If found, replaces procNNNN with the
- * library function name. Also checks startup code for correct DS, and the
- * address of main()
- * (C) Mike van Emmerik
- */
- #include <stdio.h>
- #include <stdlib.h>
- #ifdef __BORLAND__
- #include <mem.h>
- #else
- #include <memory.h>
- #endif
- #include <string.h>
- #include "dcc.h"
- #include "perfhlib.h"
- #define NIL -1 /* Used like NULL, but 0 is valid */
- /* Hash table structure */
- typedef struct HT_tag
- {
- char htSym[SYMLEN];
- byte htPat[PATLEN];
- } HT;
- /* Structure of the prototypes table. Same as the struct in parsehdr.h,
- except here we don't need the "next" index (the elements are already
- sorted by function name) */
- typedef
- struct ph_func_tag
- {
- char name[SYMLEN]; /* Name of function or arg */
- hlType typ; /* Return type */
- int numArg; /* Number of args */
- int firstArg; /* Index of first arg in chain */
- // int next; /* Index of next function in chain */
- bool bVararg; /* True if variable arguements */
- } PH_FUNC_STRUCT;
- #define NUM_PLIST 64 /* Number of entries to increase allocation by */
- /* statics */
- char buf[100]; /* A general purpose buffer */
- int numKeys; /* Number of hash table entries (keys) */
- int numVert; /* Number of vertices in the graph (also size of g[]) */
- unsigned PatLen; /* Size of the keys (pattern length) */
- unsigned SymLen; /* Max size of the symbols, including null */
- FILE *f; /* File being read */
- static char sSigName[100]; /* Full path name of .sig file */
- static word *T1base, *T2base; /* Pointers to start of T1, T2 */
- static word *g; /* g[] */
- static HT *ht; /* The hash table */
- static PH_FUNC_STRUCT *pFunc; /* Points to the array of func names */
- static hlType *pArg; /* Points to the array of param types */
- static int numFunc; /* Number of func names actually stored */
- static int numArg; /* Number of param names actually stored */
- #define DCCLIBS "dcclibs.dat" /* Name of the prototypes data file */
- /* prototypes */
- void grab(int n, FILE *f);
- word readFileShort(FILE *f);
- void readFileSection(word* p, int len, FILE *f);
- void cleanup(void);
- void checkStartup(STATE *state);
- void readProtoFile(void);
- void fixNewline(char *s);
- int searchPList(char *name);
- void checkHeap(char *msg); /* For debugging */
- void fixWildCards(byte pat[]); /* In fixwild.c */
- static boolT locatePattern(byte *source, Int iMin, Int iMax, byte *pattern,
- Int iPatLen, Int *index);
- /* * * * * * * * * * * * * * * *\
- * *
- * S t a r t P a t t e r n s ( V e n d o r i d ) *
- * *
- \* * * * * * * * * * * * * * * */
- static byte pattMsC5Start[] =
- {
- 0xB4, 0x30, /* Mov ah, 30 */
- 0xCD, 0x21, /* int 21 (dos version number) */
- 0x3C, 0x02, /* cmp al, 2 */
- 0x73, 0x02, /* jnb $+4 */
- 0xCD, 0x20, /* int 20 (exit) */
- 0xBF /* Mov di, DSEG */
- };
- static byte pattMsC8Start[] =
- {
- 0xB4, 0x30, /* Mov ah, 30 */
- 0xCD, 0x21, /* int 21 */
- 0x3C, 0x02, /* cmp al,2 */
- 0x73, 0x05, /* jnb $+7 */
- 0x33, 0xC0, /* xor ax, ax */
- 0x06, 0x50, /* push es:ax */
- 0xCB, /* retf */
- 0xBF /* mov di, DSEG */
- };
- static byte pattMsC8ComStart[] =
- {
- 0xB4, 0x30, /* Mov ah, 30 */
- 0xCD, 0x21, /* int 21 (dos version number) */
- 0x3C, 0x02, /* cmp al, 2 */
- 0x73, 0x01, /* jnb $+3 */
- 0xC3, /* ret */
- 0x8C, 0xDF /* Mov di, ds */
- };
- static byte pattBorl2Start[] =
- {
- 0xBA, WILD, WILD, /* Mov dx, dseg */
- 0x2E, 0x89, 0x16, /* mov cs:[], dx */
- WILD, WILD,
- 0xB4, 0x30, /* mov ah, 30 */
- 0xCD, 0x21, /* int 21 (dos version number) */
- 0x8B, 0x2E, 0x02, 0, /* mov bp, [2] */
- 0x8B, 0x1E, 0x2C, 0, /* mov bx, [2C] */
- 0x8E, 0xDA, /* mov ds, dx */
- 0xA3, WILD, WILD, /* mov [xx], ax */
- 0x8C, 0x06, WILD, WILD, /* mov [xx], es */
- 0x89, 0x1E, WILD, WILD, /* mov [xx], bx */
- 0x89, 0x2E, WILD, WILD, /* mov [xx], bp */
- 0xC7 /* mov [xx], -1 */
- };
- static byte pattBorl3Start[] =
- {
- 0xBA, WILD, WILD, /* Mov dx, dseg */
- 0x2E, 0x89, 0x16, /* mov cs:[], dx */
- WILD, WILD,
- 0xB4, 0x30, /* mov ah, 30 */
- 0xCD, 0x21, /* int 21 (dos version number) */
- 0x8B, 0x2E, 0x02, 0, /* mov bp, [2] */
- 0x8B, 0x1E, 0x2C, 0, /* mov bx, [2C] */
- 0x8E, 0xDA, /* mov ds, dx */
- 0xA3, WILD, WILD, /* mov [xx], ax */
- 0x8C, 0x06, WILD, WILD, /* mov [xx], es */
- 0x89, 0x1E, WILD, WILD, /* mov [xx], bx */
- 0x89, 0x2E, WILD, WILD, /* mov [xx], bp */
- 0xE8 /* call ... */
- };
- static byte pattBorl4on[] =
- {
- 0x9A, 0, 0, WILD, WILD /* Call init (offset always 0) */
- };
- static byte pattBorl4Init[] =
- {
- 0xBA, WILD, WILD, /* Mov dx, dseg */
- 0x8E, 0xDA, /* mov ds, dx */
- 0x8C, 0x06, WILD, WILD, /* mov [xx], es */
- 0x8B, 0xC4, /* mov ax, sp */
- 0x05, 0x13, 0, /* add ax, 13h */
- 0xB1, 0x04, /* mov cl, 4 */
- 0xD3, 0xE8, /* shr ax, cl */
- 0x8C, 0xD2 /* mov dx, ss */
- };
- static byte pattBorl5Init[] =
- {
- 0xBA, WILD, WILD, /* Mov dx, dseg */
- 0x8E, 0xDA, /* mov ds, dx */
- 0x8C, 0x06, 0x30, 0, /* mov [0030], es */
- 0x33, 0xED, /* xor bp, bp <----- */
- 0x8B, 0xC4, /* mov ax, sp */
- 0x05, 0x13, 0, /* add ax, 13h */
- 0xB1, 0x04, /* mov cl, 4 */
- 0xD3, 0xE8, /* shr ax, cl */
- 0x8C, 0xD2 /* mov dx, ss */
- };
- static byte pattBorl7Init[] =
- {
- 0xBA, WILD, WILD, /* Mov dx, dseg */
- 0x8E, 0xDA, /* mov ds, dx */
- 0x8C, 0x06, 0x30, 0, /* mov [0030], es */
- 0xE8, WILD, WILD, /* call xxxx */
- 0xE8, WILD, WILD, /* call xxxx... offset always 00A0? */
- 0x8B, 0xC4, /* mov ax, sp */
- 0x05, 0x13, 0, /* add ax, 13h */
- 0xB1, 0x04, /* mov cl, 4 */
- 0xD3, 0xE8, /* shr ax, cl */
- 0x8C, 0xD2 /* mov dx, ss */
- };
- static byte pattLogiStart[] =
- {
- 0xEB, 0x04, /* jmp short $+6 */
- WILD, WILD, /* Don't know what this is */
- WILD, WILD, /* Don't know what this is */
- 0xB8, WILD, WILD, /* mov ax, dseg */
- 0x8E, 0xD8 /* mov ds, ax */
- };
- static byte pattTPasStart[] =
- {
- 0xE9, 0x79, 0x2C /* Jmp 2D7C - Turbo pascal 3.0 */
- };
- /* * * * * * * * * * * * * * * *\
- * *
- * M a i n P a t t e r n s ( M o d e l i d ) *
- * *
- \* * * * * * * * * * * * * * * */
- /* This pattern works for MS and Borland, small and tiny model */
- static byte pattMainSmall[] =
- {
- 0xFF, 0x36, WILD, WILD, /* Push environment pointer */
- 0xFF, 0x36, WILD, WILD, /* Push argv */
- 0xFF, 0x36, WILD, WILD, /* Push argc */
- 0xE8, WILD, WILD /* call _main */
- /* 0x50, /* push ax... not in Borland V3 */
- /* 0xE8 /* call _exit */
- };
- /* Num bytes from start pattern to the relative offset of main() */
- #define OFFMAINSMALL 13
- /* This pattern works for MS and Borland, medium model */
- static byte pattMainMedium[] =
- {
- 0xFF, 0x36, WILD, WILD, /* Push environment pointer */
- 0xFF, 0x36, WILD, WILD, /* Push argv */
- 0xFF, 0x36, WILD, WILD, /* Push argc */
- 0x9A, WILD, WILD, WILD, WILD /* call far _main */
- /* 0x50 /* push ax */
- /* 0x0E, /* push cs NB not tested Borland */
- /* 0xE8 /* call _exit */
- };
- /* Num bytes from start pattern to the relative offset of main() */
- #define OFFMAINMEDIUM 13
- /* This pattern works for MS and Borland, compact model */
- static byte pattMainCompact[] =
- {
- 0xFF, 0x36, WILD, WILD, /* Push environment pointer lo */
- 0xFF, 0x36, WILD, WILD, /* Push environment pointer hi */
- 0xFF, 0x36, WILD, WILD, /* Push argv lo */
- 0xFF, 0x36, WILD, WILD, /* Push argv hi */
- 0xFF, 0x36, WILD, WILD, /* Push argc */
- 0xE8, WILD, WILD, /* call _main */
- /* 0x50, /* push ax */
- /* 0xE8 /* call _exit */
- };
- /* Num bytes from start pattern to the relative offset of main() */
- #define OFFMAINCOMPACT 21
- /* This pattern works for MS and Borland, large model */
- static byte pattMainLarge[] =
- {
- 0xFF, 0x36, WILD, WILD, /* Push environment pointer lo */
- 0xFF, 0x36, WILD, WILD, /* Push environment pointer hi */
- 0xFF, 0x36, WILD, WILD, /* Push argv lo */
- 0xFF, 0x36, WILD, WILD, /* Push argv hi */
- 0xFF, 0x36, WILD, WILD, /* Push argc */
- 0x9A, WILD, WILD, WILD, WILD /* call far _main */
- /* 0x50 /* push ax */
- /* 0x0E, /* push cs */
- /* 0xE8 /* call _exit */
- };
- /* Num bytes from start pattern to the relative offset of main() */
- #define OFFMAINLARGE 21
- /* * * * * * * * * * * * * * * *\
- * *
- * M i s c e l l a n e o u s P a t t e r n s *
- * *
- \* * * * * * * * * * * * * * * */
- /* This pattern is for the stack check code in Microsoft compilers */
- static byte pattMsChkstk[] =
- {
- 0x59, /* pop cx */
- 0x8B, 0xDC, /* mov bx, sp */
- 0x2B, 0xD8, /* sub bx, ax */
- 0x72, 0x0A, /* jb bad */
- 0x3B, 0x1E, WILD, WILD, /* cmp bx, XXXX */
- 0x72, 0x04, /* jb bad */
- 0x8B, 0xE3, /* mov sp, bx */
- 0xFF, 0xE1, /* jmp [cx] */
- 0x33, 0xC0, /* xor ax, ax */
- 0xE9 /* jmp XXXX */
- };
- /* This procedure is called to initialise the library check code */
- void SetupLibCheck(void)
- {
- word w, len;
- int i;
- if ((f = fopen(sSigName, "rb")) == NULL)
- {
- printf("Warning: cannot open signature file %s\n", sSigName);
- return;
- }
- readProtoFile();
- prog.bSigs = FALSE; /* False unless everything goes right */
- /* Read the parameters */
- grab(4, f);
- if (memcmp("dccs", buf, 4) != 0)
- {
- printf("Not a dcc signature file!\n");
- exit(3);
- }
- numKeys = readFileShort(f);
- numVert = readFileShort(f);
- PatLen = readFileShort(f);
- SymLen = readFileShort(f);
- if ((PatLen != PATLEN) || (SymLen != SYMLEN))
- {
- printf("Sorry! Compiled for sym and pattern lengths of %d and %d\n",
- SYMLEN, PATLEN);
- exit(1);
- }
- /* Initialise the perfhlib stuff. Also allocates T1, T2, g, etc */
- hashParams( /* Set the parameters for the hash table */
- numKeys, /* The number of symbols */
- PatLen, /* The length of the pattern to be hashed */
- 256, /* The character set of the pattern (0-FF) */
- 0, /* Minimum pattern character value */
- numVert); /* Specifies c, the sparseness of the graph.
- See Czech, Havas and Majewski for details */
- T1base = readT1();
- T2base = readT2();
- g = readG();
- /* Read T1 and T2 tables */
- grab(2, f);
- if (memcmp("T1", buf, 2) != 0)
- {
- printf("Expected 'T1'\n");
- exit(3);
- }
- len = (word) (PatLen * 256 * sizeof(word));
- w = readFileShort(f);
- if (w != len)
- {
- printf("Problem with size of T1: file %d, calc %d\n", w, len);
- exit(4);
- }
- readFileSection(T1base, len, f);
- grab(2, f);
- if (memcmp("T2", buf, 2) != 0)
- {
- printf("Expected 'T2'\n");
- exit(3);
- }
- w = readFileShort(f);
- if (w != len)
- {
- printf("Problem with size of T2: file %d, calc %d\n", w, len);
- exit(4);
- }
- readFileSection(T2base, len, f);
- /* Now read the function g[] */
- grab(2, f);
- if (memcmp("gg", buf, 2) != 0)
- {
- printf("Expected 'gg'\n");
- exit(3);
- }
- len = (word)(numVert * sizeof(word));
- w = readFileShort(f);
- if (w != len)
- {
- printf("Problem with size of g[]: file %d, calc %d\n", w, len);
- exit(4);
- }
- readFileSection(g, len, f);
- /* This is now the hash table */
- /* First allocate space for the table */
- if ((ht = (HT *)allocMem(numKeys * sizeof(HT))) == 0)
- {
- printf("Could not allocate hash table\n");
- exit(1);
- }
- grab(2, f);
- if (memcmp("ht", buf, 2) != 0)
- {
- printf("Expected 'ht'\n");
- exit(3);
- }
- w = readFileShort(f);
- if (w != numKeys * (SymLen + PatLen + sizeof(word)))
- {
- printf("Problem with size of hash table: file %d, calc %d\n", w, len);
- exit(6);
- }
- for (i=0; i < numKeys; i++)
- {
- if (fread(&ht[i], 1, SymLen + PatLen, f) != SymLen + PatLen)
- {
- printf("Could not read signature\n");
- exit(11);
- }
- }
- fclose(f);
- prog.bSigs = TRUE;
- }
- void
- CleanupLibCheck(void)
- {
- /* Deallocate all the stuff allocated in SetupLibCheck() */
- if (T1base) free(T1base);
- if (T1base) free(T2base);
- if (g) free(g);
- if (ht) free(ht);
- if (pFunc)free(pFunc);
- }
- /* Check this function to see if it is a library function. Return TRUE if
- it is, and copy its name to pProc->name
- */
- boolT LibCheck(Function & pProc)
- {
- long fileOffset;
- int h, i, j, arg;
- Int Idx;
- byte pat[PATLEN];
- if (prog.bSigs == FALSE)
- {
- /* No signatures... can't rely on hash parameters to be initialised
- so always return false */
- return FALSE;
- }
- fileOffset = pProc.procEntry; /* Offset into the image */
- if (fileOffset == prog.offMain)
- {
- /* Easy - this function is called main! */
- strcpy(pProc.name, "main");
- return FALSE;
- }
- memmove(pat, &prog.Image[fileOffset], PATLEN);
- fixWildCards(pat); /* Fix wild cards in the copy */
- h = hash(pat); /* Hash the found proc */
- /* We always have to compare keys, because the hash function will
- always return a valid index */
- if (memcmp(ht[h].htPat, pat, PATLEN) == 0)
- {
- /* We have a match. Save the name, if not already set */
- if (pProc.name[0] == '\0') /* Don't overwrite existing name */
- {
- /* Give proc the new name */
- strcpy(pProc.name, ht[h].htSym);
- }
- /* But is it a real library function? */
- i = NIL;
- if ((numFunc == 0) || (i=searchPList(ht[h].htSym)) != NIL)
- {
- pProc.flg |= PROC_ISLIB; /* It's a lib function */
- if (i != NIL)
- {
- /* Allocate space for the arg struct, and copy the hlType to
- the appropriate field */
- arg = pFunc[i].firstArg;
- pProc.args.numArgs = pFunc[i].numArg;
- pProc.args.sym.resize(pFunc[i].numArg);
- for (j=0; j < pFunc[i].numArg; j++)
- {
- pProc.args.sym[j].type = pArg[arg++];
- }
- if (pFunc[i].typ != TYPE_UNKNOWN)
- {
- pProc.retVal.type = pFunc[i].typ;
- pProc.flg |= PROC_IS_FUNC;
- switch (pProc.retVal.type) {
- case TYPE_LONG_SIGN: case TYPE_LONG_UNSIGN:
- pProc.liveOut = duReg[rDX] | duReg[rAX];
- break;
- case TYPE_WORD_SIGN: case TYPE_WORD_UNSIGN:
- pProc.liveOut = duReg[rAX];
- break;
- case TYPE_BYTE_SIGN: case TYPE_BYTE_UNSIGN:
- pProc.liveOut = duReg[rAL];
- break;
- /*** other types are not considered yet ***/
- }
- }
- if (pFunc[i].bVararg) pProc.flg |= PROC_VARARG;
- }
- }
- else if (i == NIL)
- {
- /* Have a symbol for it, but does not appear in a header file.
- Treat it as if it is not a library function */
- pProc.flg |= PROC_RUNTIME; /* => is a runtime routine */
- }
- }
- if (locatePattern(prog.Image, pProc.procEntry,
- pProc.procEntry+sizeof(pattMsChkstk),
- pattMsChkstk, sizeof(pattMsChkstk), &Idx))
- {
- /* Found _chkstk */
- strcpy(pProc.name, "chkstk");
- pProc.flg |= PROC_ISLIB; /* We'll say its a lib function */
- pProc.args.numArgs = 0; /* With no args */
- }
- return (boolT)((pProc.flg & PROC_ISLIB) != 0);
- }
- void grab(int n, FILE *f)
- {
- if (fread(buf, 1, n, f) != (unsigned)n)
- {
- printf("Could not grab\n");
- exit(11);
- }
- }
- word
- readFileShort(FILE *f)
- {
- byte b1, b2;
- if (fread(&b1, 1, 1, f) != 1)
- {
- printf("Could not read short\n");
- exit(11);
- }
- if (fread(&b2, 1, 1, f) != 1)
- {
- printf("Could not read short\n");
- exit(11);
- }
- return (word)(b2 << 8) + (word)b1;
- }
- // Read a section of the file, considering endian issues
- void
- readFileSection(word* p, int len, FILE* f)
- {
- for (int i=0; i < len; i += 2)
- {
- *p++ = readFileShort(f);
- }
- }
- /* The following two functions are dummies, since we don't call map() */
- void getKey(int i, byte **keys)
- {
- }
- void dispKey(int i)
- {
- }
- /* Search the source array between limits iMin and iMax for the pattern (length
- iPatLen). The pattern can contain wild bytes; if you really want to match
- for the pattern that is used up by the WILD byte, tough - it will match with
- everything else as well. */
- static boolT locatePattern(byte *source, Int iMin, Int iMax, byte *pattern, Int iPatLen,
- Int *index)
- {
- Int i, j;
- byte *pSrc; /* Pointer to start of considered source */
- Int iLast;
- iLast = iMax - iPatLen; /* Last source byte to consider */
- for (i=iMin; i <= iLast; i++)
- {
- pSrc = &source[i]; /* Start of current part of source */
- /* i is the index of the start of the moving pattern */
- for (j=0; j < iPatLen; j++)
- {
- /* j is the index of the byte being considered in the pattern. */
- if ((*pSrc++ != pattern[j]) && (pattern[j] != WILD))
- {
- /* A definite mismatch */
- break; /* Break to outer loop */
- }
- }
- if (j >= iPatLen)
- {
- /* Pattern has been found */
- *index = i; /* Pass start of pattern */
- return 1; /* Indicate success */
- }
- /* Else just try next value of i */
- }
- /* Pattern was not found */
- *index = -1; /* Invalidate index */
- return 0; /* Indicate failure */
- }
- void STATE::checkStartup()
- {
- /* This function checks the startup code for various compilers' way of
- loading DS. If found, it sets DS. This may not be needed in the future if
- pushing and popping of registers is implemented.
- Also sets prog.offMain and prog.segMain if possible */
- Int startOff; /* Offset into the Image of the initial CS:IP */
- Int i, rel, para, init;
- char chModel = 'x';
- char chVendor = 'x';
- char chVersion = 'x';
- char *pPath;
- char temp[4];
- startOff = ((dword)prog.initCS << 4) + prog.initIP;
- /* Check the Turbo Pascal signatures first, since they involve only the
- first 3 bytes, and false positives may be founf with the others later */
- if (locatePattern(prog.Image, startOff, startOff+5, pattBorl4on,sizeof(pattBorl4on), &i))
- {
- /* The first 5 bytes are a far call. Follow that call and
- determine the version from that */
- rel = LH(&prog.Image[startOff+1]); /* This is abs off of init */
- para= LH(&prog.Image[startOff+3]);/* This is abs seg of init */
- init = ((dword)para << 4) + rel;
- if (locatePattern(prog.Image, init, init+26, pattBorl4Init,
- sizeof(pattBorl4Init), &i))
- {
- setState(rDS, LH(&prog.Image[i+1]));
- printf("Borland Pascal v4 detected\n");
- chVendor = 't'; /* Trubo */
- chModel = 'p'; /* Pascal */
- chVersion = '4'; /* Version 4 */
- prog.offMain = startOff; /* Code starts immediately */
- prog.segMain = prog.initCS; /* At the 5 byte jump */
- goto gotVendor; /* Already have vendor */
- }
- else if (locatePattern(prog.Image, init, init+26, pattBorl5Init,
- sizeof(pattBorl5Init), &i))
- {
- setState( rDS, LH(&prog.Image[i+1]));
- printf("Borland Pascal v5.0 detected\n");
- chVendor = 't'; /* Trubo */
- chModel = 'p'; /* Pascal */
- chVersion = '5'; /* Version 5 */
- prog.offMain = startOff; /* Code starts immediately */
- prog.segMain = prog.initCS;
- goto gotVendor; /* Already have vendor */
- }
- else if (locatePattern(prog.Image, init, init+26, pattBorl7Init,
- sizeof(pattBorl7Init), &i))
- {
- setState( rDS, LH(&prog.Image[i+1]));
- printf("Borland Pascal v7 detected\n");
- chVendor = 't'; /* Trubo */
- chModel = 'p'; /* Pascal */
- chVersion = '7'; /* Version 7 */
- prog.offMain = startOff; /* Code starts immediately */
- prog.segMain = prog.initCS;
- goto gotVendor; /* Already have vendor */
- }
- }
- /* Search for the call to main pattern. This is compiler independant,
- but decides the model required. Note: must do the far data models
- (large and compact) before the others, since they are the same pattern
- as near data, just more pushes at the start. */
- if(prog.cbImage>0x180)
- {
- if (locatePattern(prog.Image, startOff, startOff+0x180, pattMainLarge,sizeof(pattMainLarge), &i))
- {
- rel = LH(&prog.Image[i+OFFMAINLARGE]); /* This is abs off of main */
- para= LH(&prog.Image[i+OFFMAINLARGE+2]);/* This is abs seg of main */
- /* Save absolute image offset */
- prog.offMain = ((dword)para << 4) + rel;
- prog.segMain = (word)para;
- chModel = 'l'; /* Large model */
- }
- else if (locatePattern(prog.Image, startOff, startOff+0x180, pattMainCompact,
- sizeof(pattMainCompact), &i))
- {
- rel = LHS(&prog.Image[i+OFFMAINCOMPACT]);/* This is the rel addr of main */
- prog.offMain = i+OFFMAINCOMPACT+2+rel; /* Save absolute image offset */
- prog.segMain = prog.initCS;
- chModel = 'c'; /* Compact model */
- }
- else if (locatePattern(prog.Image, startOff, startOff+0x180, pattMainMedium,
- sizeof(pattMainMedium), &i))
- {
- rel = LH(&prog.Image[i+OFFMAINMEDIUM]); /* This is abs off of main */
- para= LH(&prog.Image[i+OFFMAINMEDIUM+2]);/* This is abs seg of main */
- prog.offMain = ((dword)para << 4) + rel;
- prog.segMain = (word)para;
- chModel = 'm'; /* Medium model */
- }
- else if (locatePattern(prog.Image, startOff, startOff+0x180, pattMainSmall,
- sizeof(pattMainSmall), &i))
- {
- rel = LHS(&prog.Image[i+OFFMAINSMALL]); /* This is rel addr of main */
- prog.offMain = i+OFFMAINSMALL+2+rel; /* Save absolute image offset */
- prog.segMain = prog.initCS;
- chModel = 's'; /* Small model */
- }
- else if (memcmp(&prog.Image[startOff], pattTPasStart, sizeof(pattTPasStart)) == 0)
- {
- rel = LHS(&prog.Image[startOff+1]); /* Get the jump offset */
- prog.offMain = rel+startOff+3; /* Save absolute image offset */
- prog.offMain += 0x20; /* These first 32 bytes are setting up */
- prog.segMain = prog.initCS;
- chVendor = 't'; /* Turbo.. */
- chModel = 'p'; /* ...Pascal... (only 1 model) */
- chVersion = '3'; /* 3.0 */
- printf("Turbo Pascal 3.0 detected\n");
- printf("Main at %04X\n", prog.offMain);
- goto gotVendor; /* Already have vendor */
- }
- else
- {
- printf("Main could not be located!\n");
- prog.offMain = -1;
- }
- }
- else
- {
- printf("Main could not be located!\n");
- prog.offMain = -1;
- }
- printf("Model: %c\n", chModel);
- /* Now decide the compiler vendor and version number */
- if (memcmp(&prog.Image[startOff], pattMsC5Start, sizeof(pattMsC5Start)) == 0)
- {
- /* Yes, this is Microsoft startup code. The DS is sitting right here
- in the next 2 bytes */
- setState( rDS, LH(&prog.Image[startOff+sizeof(pattMsC5Start)]));
- chVendor = 'm'; /* Microsoft compiler */
- chVersion = '5'; /* Version 5 */
- printf("MSC 5 detected\n");
- }
- /* The C8 startup pattern is different from C5's */
- else if (memcmp(&prog.Image[startOff], pattMsC8Start, sizeof(pattMsC8Start)) == 0)
- {
- setState( rDS, LH(&prog.Image[startOff+sizeof(pattMsC8Start)]));
- printf("MSC 8 detected\n");
- chVendor = 'm'; /* Microsoft compiler */
- chVersion = '8'; /* Version 8 */
- }
- /* The C8 .com startup pattern is different again! */
- else if (memcmp(&prog.Image[startOff], pattMsC8ComStart,
- sizeof(pattMsC8ComStart)) == 0)
- {
- printf("MSC 8 .com detected\n");
- chVendor = 'm'; /* Microsoft compiler */
- chVersion = '8'; /* Version 8 */
- }
- else if (locatePattern(prog.Image, startOff, startOff+0x30, pattBorl2Start,
- sizeof(pattBorl2Start), &i))
- {
- /* Borland startup. DS is at the second byte (offset 1) */
- setState( rDS, LH(&prog.Image[i+1]));
- printf("Borland v2 detected\n");
- chVendor = 'b'; /* Borland compiler */
- chVersion = '2'; /* Version 2 */
- }
- else if (locatePattern(prog.Image, startOff, startOff+0x30, pattBorl3Start,
- sizeof(pattBorl3Start), &i))
- {
- /* Borland startup. DS is at the second byte (offset 1) */
- setState( rDS, LH(&prog.Image[i+1]));
- printf("Borland v3 detected\n");
- chVendor = 'b'; /* Borland compiler */
- chVersion = '3'; /* Version 3 */
- }
- else if (locatePattern(prog.Image, startOff, startOff+0x30, pattLogiStart,
- sizeof(pattLogiStart), &i))
- {
- /* Logitech modula startup. DS is 0, despite appearances */
- printf("Logitech modula detected\n");
- chVendor = 'l'; /* Logitech compiler */
- chVersion = '1'; /* Version 1 */
- }
- /* Other startup idioms would go here */
- else
- {
- printf("Warning - compiler not recognised\n");
- }
- gotVendor:
- /* Use the DCC environment variable to set where the .sig files will
- be found. Otherwise, assume current directory */
- pPath = getenv("DCC");
- if (pPath)
- {
- strcpy(sSigName, pPath); /* Use path given */
- if (sSigName[strlen(sSigName)-1] != '/')
- {
- strcat(sSigName, "/"); /* Append a slash if necessary */
- }
- }
- else
- {
- strcpy(sSigName, "./"); /* Current directory */
- }
- strcat(sSigName, "dcc");
- temp[1] = '\0';
- temp[0] = chVendor;
- strcat(sSigName, temp); /* Add vendor */
- temp[0] = chVersion;
- strcat(sSigName, temp); /* Add version */
- temp[0] = chModel;
- strcat(sSigName, temp); /* Add model */
- strcat(sSigName, ".sig"); /* Add extension */
- printf("Signature file: %s\n", sSigName);
- }
- /* DCCLIBS.DAT is a data file sorted on function name containing names and
- return types of functions found in include files, and the names and types
- of arguements. Only functions in this list will be considered library
- functions; others (like LXMUL@) are helper files, and need to be analysed
- by dcc, rather than considered as known functions. When a prototype is
- found (in searchPList()), the parameter info is written to the proc struct.
- */
- void
- readProtoFile(void)
- {
- FILE *fProto;
- char *pPath; /* Point to the environment string */
- char szProFName[81]; /* Full name of dclibs.lst */
- int i;
- /* Use the DCC environment variable to set where the dcclibs.lst file will
- be found. Otherwise, assume current directory */
- pPath = getenv("DCC");
- if (pPath)
- {
- strcpy(szProFName, pPath); /* Use path given */
- if (szProFName[strlen(szProFName)-1] != '/')
- {
- strcat(szProFName, "/"); /* Append a slash if necessary */
- }
- }
- else
- {
- strcpy(szProFName, "./"); /* Current directory */
- }
- strcat(szProFName, DCCLIBS);
- if ((fProto = fopen(szProFName, "rb")) == NULL)
- {
- printf("Warning: cannot open library prototype data file %s\n", szProFName);
- return;
- }
- grab(4, fProto);
- if (strncmp(buf, "dccp", 4) != 0)
- {
- printf("%s is not a dcc prototype file\n", szProFName);
- exit(1);
- }
- grab(2, fProto);
- if (strncmp(buf, "FN", 2) != 0)
- {
- printf("FN (Function Name) subsection expected in %s\n", szProFName);
- exit(2);
- }
- numFunc = readFileShort(fProto); /* Num of entries to allocate */
- /* Allocate exactly correct # entries */
- pFunc = (PH_FUNC_STRUCT*) allocMem(numFunc * sizeof(PH_FUNC_STRUCT));
- for (i=0; i < numFunc; i++)
- {
- fread(&pFunc[i], 1, SYMLEN, fProto);
- pFunc[i].typ = (hlType)readFileShort(fProto);
- pFunc[i].numArg = readFileShort(fProto);
- pFunc[i].firstArg = readFileShort(fProto);
- fread(&pFunc[i].bVararg, 1, 1, fProto);
- }
- grab(2, fProto);
- if (strncmp(buf, "PM", 2) != 0)
- {
- printf("PM (Parameter) subsection expected in %s\n", szProFName);
- exit(2);
- }
- numArg = readFileShort(fProto); /* Num of entries to allocate */
- /* Allocate exactly correct # entries */
- pArg = (hlType*) allocMem(numArg * sizeof(hlType));
- for (i=0; i < numArg; i++)
- {
- // fread(&pArg[i], 1, SYMLEN, fProto); /* No names to read as yet */
- pArg[i] = (hlType) readFileShort(fProto);
- }
- fclose(fProto);
- }
- int
- searchPList(char *name)
- {
- /* Search through the symbol names for the name */
- /* Use binary search */
- int mx, mn, i, res;
- mx = numFunc;
- mn = 0;
- while (mn < mx)
- {
- i = (mn + mx) /2;
- res = strcmp(pFunc[i].name, name);
- if (res == 0)
- {
- return i; /* Found! */
- }
- else
- {
- if (res < 0)
- {
- mn = i+1;
- }
- else
- {
- mx = i-1;
- }
- }
- }
- /* Still could be the case that mn == mx == required record */
- res = strcmp(pFunc[mn].name, name);
- if (res == 0)
- {
- return mn; /* Found! */
- }
- else
- {
- return NIL;
- }
- }
- #if DEBUG_HEAP
- void
- checkHeap(char *msg)
- /* HEAPCHK.C: This program checks the heap for
- * consistency and prints an appropriate message.
- */
- {
- int heapstatus;
- printf("%s\n", msg);
- /* Check heap status */
- heapstatus = _heapchk();
- switch( heapstatus )
- {
- case _HEAPOK:
- printf(" OK - heap is fine\n" );
- break;
- case _HEAPEMPTY:
- printf(" OK - heap is empty\n" );
- break;
- case _HEAPBADBEGIN:
- printf( "ERROR - bad start of heap\n" );
- break;
- case _HEAPBADNODE:
- printf( "ERROR - bad node in heap\n" );
- break;
- }
- }
- #endif
|