|
|
/*
* Copyright Microsoft Corporation, 1987** This Module contains Proprietary Information of Microsoft* Corporation and should be treated as Confidential.*//*
* EXTERN.H: external declarations */
#include <malloc.h>
#include <memory.h>
#if NOT OSXENIX
#include <io.h>
#include <stdlib.h>
#endif
#include <string.h>
#include <search.h>
#ifdef _MBCS
#define _CRTVAR1
#include <mbctype.h>
#include <mbstring.h>
#define strchr _mbschr
#define strrchr _mbsrchr
#endif
#ifndef DECLSPEC_NORETURN
#if (_MSC_VER >= 1200)
#define DECLSPEC_NORETURN __declspec(noreturn)
#else
#define DECLSPEC_NORETURN
#endif
#endif
/****************************************************************
* * * External function declarations * * * ****************************************************************/
extern void AddContribution(unsigned short gsn, unsigned short offMin, unsigned short offMac, unsigned short cbPad);extern void AddContributor(SNTYPE gsn, unsigned long raComdat, unsigned long size);extern void NEAR AddLibPath(unsigned short i);extern void AddLibrary(unsigned char *psbName);extern void AddComdatUses(APROPCOMDAT*, APROPCOMDAT*);extern PLTYPE FAR * NEAR AddVmProp (PLTYPE FAR *list, RBTYPE rprop);extern void NEAR AllocateScratchSpace(void);extern void NEAR AllocComDat(void);extern void NEAR AllocSortBuffer(unsigned max, int AOrder);extern void NEAR AssignAddresses(void);extern void NEAR AssignDos3Addr(void);extern void NEAR AssignSegAddr(void);extern void AttachComdat(RBTYPE vrComdat, SNTYPE gsn);extern void NEAR BakPat(void);extern void BigEnSyms(void (*pproc)(APROPNAMEPTR papropName, RBTYPE rhte, RBTYPE rprop, WORD fNewHte), ATTRTYPE attr);#if QBLIB
extern void NEAR BldQbSymbols(unsigned short gsnQbSym);#endif
#if CMDMSDOS
extern void BreakLine(unsigned char *psb, void (*pfunc)(unsigned char *psb), char sepchar);#endif
extern void ChkInput(void);extern APROPSNPTR CheckClass(APROPSNPTR apropSn, RBTYPE rhteClass);#if OVERLAYS
extern void CheckOvl(APROPSNPTR apropSn, WORD iovFile);#endif
#if OEXE
extern void NEAR Check_edata_end(SNTYPE gsnTop, SEGTYPE segTop);extern void CheckSegmentsMemory(void);#if INMEM
extern void ChkSum(WORD,BYTE FAR *,FTYPE);#else
extern void ChkSum(WORD,BYTE *, WORD);#endif
#endif
#if FALSE
extern void CheckSum (WORD cb, BYTE *pb, WORD fOdd);#else
#define CheckSum(cb, pb, fOdd)
#endif
#if OSMSDOS
extern void CleanupNearHeap(void);#endif
extern void NEAR ComDatRc1(void);extern void NEAR ComDatRc2(void);extern void CputcQC(int ch);extern void CputsQC(char *str);extern void CputcStd(int ch);extern void CputsStd(char *str);#if EXE386
extern WORD NEAR CrossingPage(RLCPTR rlcp);#endif
extern short CURDSK(void);extern void CtrlC(void);#if SYMDEB
extern void NEAR DoComdatDebugging(void);extern void DebPublic(RBTYPE rprop, WORD type);extern void DebMd2(void);extern void DeclareStdIds(void);extern void NEAR Define_edata_end(APROPSNPTR papropSn);extern void DisplayBanner(void);extern WORD DoDebSrc(void);#endif
#if OSEGEXE
extern void NEAR DoIteratedFixups(unsigned short cb,unsigned char *pb);extern void ProcesNTables(char *pName);#endif
#if OSMSDOS
extern short Dos3AllocMem(short *pcparMem);#endif
extern void Dos3FreeMem(short saMem);extern void NEAR DrivePass(void (NEAR *pProcessPass)(void));extern void NEAR DupErr(BYTE *sb);extern void NEAR EmitStub(void);extern void EndPack(void *prun);extern void NEAR EndRec(void);extern PROPTYPE EnterName(BYTE *,ATTRTYPE, WORD);extern void ErrPrefix(void);extern RBTYPE NEAR ExtractMin(unsigned n);extern DECLSPEC_NORETURN void cdecl Fatal (MSGTYPE msg, ...);extern unsigned char FCHGDSK(int drive);extern int cdecl FGtAddr(const RBTYPE *rb1, const RBTYPE *rb2);extern int cdecl FGtName(const RBTYPE *rb1, const RBTYPE *rb2);extern void FindLib(char *sbLib);extern void NEAR FixBakpat(void);extern void FixComdatRa(void);extern void NEAR FixErrSub(MSGTYPE msg, RATYPE ra, WORD gsnFrame, WORD gsnTarget, RATYPE raTarget, FTYPE fErr);extern void NEAR FixOld(void);extern void NEAR FixNew(void);#ifdef LEGO
extern void NEAR FixNewKeep(void);#endif /* LEGO */
extern void NEAR FixOvlData(void);extern void NEAR FixRc2(void);extern void flskbd(void);extern void cdecl FmtPrint(char *fmt, ...);extern unsigned char fPathChr(char ch);extern void NEAR fpagcpy(char FAR *,char FAR *);extern void FreeHandle(void);extern void NEAR FreeSortBuffer(void);extern void FreeSymTab(void);#if EXE386
extern void FillInImportTable(void);extern void GenImportTable(void);extern APROPSNPTR GenSeg(unsigned char *sbName, unsigned char *sbClass, unsigned char ggr, unsigned short fPublic);#else
extern APROPSNPTR NEAR GenSeg(unsigned char *sbName, unsigned char *sbClass, unsigned char ggr, unsigned short fPublic);#endif
extern void NEAR GetBytes(unsigned char *pb,unsigned short n);extern void NEAR GetBytesNoLim(unsigned char *pb,unsigned short n);extern char * NEAR getdicpage(unsigned short pn);extern WORD GetGsnInfo(GSNINFO *pInfo);extern AHTEPTR GetHte(RBTYPE rprop);
#if CMDMSDOS
extern void NEAR GetLibAll(unsigned char *sbLib);extern void NEAR GetLine(unsigned char *pcmdlin,char *prompt);#endif
extern void GetLineOff(WORD *pLine, RATYPE *pRa);extern void NEAR GetLocName(unsigned char *psb);extern void GetLocSb(BYTE *);
#if DEBUG_HEAP_ALLOCS
extern BYTE FAR *GETMEM(unsigned size, char* pFile, int Line);#define GetMem(x) GETMEM((x), __FILE__, __LINE__)
#define REALLOC(x, y) REALLOC_((x), (y), __FILE__, __LINE__)
extern void *REALLOC_( void*, size_t, char* pFile, int Line);extern void FreeMem(void*);#else
extern BYTE FAR *GetMem(unsigned size);#define REALLOC realloc
#define FreeMem(x) free(x)
#endif
extern unsigned char * NEAR GetPropName(void FAR *ahte);
#if defined(M_I386) OR defined( _WIN32 )
extern WORD cbRec; /* Size of object record in bytes */extern BSTYPE bsInput; /* Current input file stream */#else
extern WORD NEAR Gets(void);#endif
extern RBTYPE NEAR GetSymPtr(unsigned n);extern unsigned short IFind(unsigned char *sb,unsigned char b);#if SYMDEB
extern void NEAR InitDeb1(void);extern void InitDbRhte(void);extern void InitializeWorld(void);extern WORD NEAR IsDebSeg(RBTYPE rhteClass, RBTYPE rhteSeg);#endif
#if USE_REAL
extern int IsDosxnt(void);extern int IsWin31(void);#endif
extern void NEAR InitEntTab(void);extern void InitP2Tabs (void);#if QBLIB
extern void NEAR InitQbLib(void);#endif
extern void NEAR InitSort(RBTYPE **buf, WORD *base1, WORD *lim1, WORD *base2, WORD *lim2 );extern void InitSym(void);extern void InitTabs(void);extern void initvm(void);#if EXE386
extern void InitVmBase(void);#endif
extern DECLSPEC_NORETURN void NEAR InvalidObject(void);
extern WORD NEAR GetIndexHard(WORD imin,WORD imax);extern WORD NEAR GetIndex(WORD imin,WORD imax);extern void KillRunfile(void);#if OEXE OR EXE386
extern void NEAR LChkSum(unsigned short cb,unsigned char *pb);#endif
extern DWORD NEAR LGets(void);extern void NEAR LibEnv(void);extern void NEAR LibrarySearch(void);extern void NEAR LinRec2(void);extern void NEAR LNmRc1(WORD fLocal);extern WORD NEAR LookupLibSym(unsigned char *psb);extern long NEAR MakeHole(long cb);extern void MkPubSym(unsigned char *sb, unsigned char ggr, unsigned short gsn, RATYPE ra);extern void NEAR ModRc1(void);#if EXE386
extern void MoveToVm(unsigned short cb, unsigned char *obData, unsigned short seg, RATYPE ra);#else
extern void NEAR MoveToVm(unsigned short cb, unsigned char *obData, unsigned short seg, RATYPE ra);#endif
#if OSEGEXE
extern unsigned short NEAR MpSaRaEto(unsigned short sa, RATYPE ra);#endif
extern BYTE FAR * NEAR msaNew(SEGTYPE seg);extern BYTE FAR * NEAR msaOld(SEGTYPE seg);extern void NewExport(unsigned char *sbEntry, unsigned char *sbInternal, unsigned short ordno, unsigned short flags);#if EXE386
extern void NewImport(unsigned char *sbEntry, unsigned long ordEntry, unsigned char *sbModule, unsigned char *sbInternal, unsigned short impFlags);extern void NEAR NewSeg(unsigned char *sbName, unsigned char *sbClass, unsigned short iOvl, unsigned long flags);#else
extern void NewImport(unsigned char *sbEntry, unsigned short ordEntry, unsigned char *sbModule, unsigned char *sbInternal);extern void NEAR NewSeg(unsigned char *sbName, unsigned char *sbClass, unsigned short iOvl, unsigned short flags);#endif
#if OSEGEXE
extern BSTYPE LinkOpenExe(BYTE *sbExe);#endif
#if SYMDEB
extern void OutDebSections(void);#endif
extern void NEAR OutDos3Exe(void);extern void NEAR OutEntTab(void);extern void cdecl OutError(MSGTYPE msg, ...);extern void OutFileCur(BSTYPE bs);extern void NEAR OutFixTab(SATYPE sa);extern void OutHeader(struct exe_hdr *prun);#if FEXEPACK
extern void OutPack(unsigned char *pb, unsigned cb);extern long Out5Pack(SATYPE sa, unsigned short *packed);#endif
extern void OutputIlk(void);extern void NEAR OutSas(void *mpsasec);extern void NEAR OutSegExe(void);#if EXE386
extern void NEAR OutExe386(void);#endif
extern void cdecl OutWarn (MSGTYPE msg, ...);extern void OutWord(unsigned short x);#define OutVm(va,cb) WriteExe(va, cb)
extern void NEAR PadToPage(unsigned short align);extern void NEAR PatchStub(long lfahdr, long lfaseg);extern void NEAR pagein(REGISTER char *pb, unsigned short fpn);extern void NEAR pageout(REGISTER char *pb, unsigned short fpn);extern void ParseCmdLine(int argc,char * *argv);extern void ParseDeffile(void);extern void PeelFlags(unsigned char *psb);extern void * PInit(void);extern void * PAlloc(void *, int);extern void PFree(void *);extern void PReinit(void *);extern void PrintGroupOrigins(APROPNAMEPTR papropGroup, RBTYPE rhte, RBTYPE rprop, WORD fNewHte);extern void PrintMap(void);#if QBLIB
extern void NEAR PrintQbStart(void);#endif
extern void ProcFlag(unsigned char *psb);extern void ProcObject(unsigned char *psbObj);extern void NEAR ProcP1(void);extern void NEAR ProcP2(void);extern int cdecl PromptQC(unsigned char *sbNew, MSGTYPE msg, int msgparm, MSGTYPE pmt, int pmtparm);extern int cdecl PromptStd(unsigned char *sbNew, MSGTYPE msg, int msgparm, MSGTYPE pmt, int pmtparm);extern PROPTYPE NEAR PropAdd(RBTYPE rhte, unsigned char attr);extern PROPTYPE NEAR PropRhteLookup(RBTYPE rhte, unsigned char attr, unsigned char fCreate);extern RBTYPE NEAR RhteFromProp(APROPPTR aprop);extern PROPTYPE NEAR PropSymLookup(BYTE *, ATTRTYPE, WORD);#if QBLIB
extern int cdecl QbCompSym(const RBTYPE *prb1, const RBTYPE *prb2);#endif
#if USE_REAL
extern int RelockConvMem(void);extern void RealMemExit(void);extern int MakeConvMemPageable(void);#endif
#if AUTOVM
extern RBTYPE NEAR RbAllocSymNode(unsigned short cb);#else
extern RBTYPE NEAR RbAllocSymNode(unsigned short cb);#endif
extern char * ReclaimVM(unsigned short cnt);extern void ReclaimScratchSpace(void);extern void NEAR RecordSegmentReference(SEGTYPE seg, RATYPE ra, SEGTYPE segDst);extern int NEAR relscr(void);extern void NEAR ReleaseRlcMemory(void);extern void resetmax(void);#if SYMDEB
extern void SaveCode(SNTYPE gsn, DWORD cb, DWORD raInit);#endif
#if OSEGEXE
#if EXE386
extern RATYPE NEAR SaveFixup(SATYPE obj, DWORD page, RLCPTR rlcp);extern void EmitFixup(SATYPE objTarget, DWORD raTarget, WORD locKind, DWORD virtAddr);#else
extern RATYPE NEAR SaveFixup(unsigned short saLoc, RLCPTR rlcp);#endif
#endif
extern unsigned short SaveInput(unsigned char *psbFile, long lfa, unsigned short ifh, unsigned short iov);extern void SavePropSym(APROPNAMEPTR prop, RBTYPE rhte, RBTYPE rprop, WORD fNewHte);extern WORD SbCompare(unsigned char *ps1, unsigned char *ps2, unsigned short fncs);extern unsigned char SbSuffix(unsigned char *sb, unsigned char *sbSuf, unsigned short fIgnoreCase);extern void SbUcase(unsigned char *sb);extern int NEAR SearchPathLink(char FAR *lpszPath, char *pszFile, int ifh, WORD fStripPath);extern void SetDosseg(void);extern void NEAR SetupOverlays(void);extern BSTYPE NEAR ShrOpenRd(char *pname);
#if NEWSYM
#if NOT NOASM AND (CPU8086 OR CPU286)
extern void SmallEnSyms(void (*pproc)(APROPNAMEPTR papropName, RBTYPE rhte, RBTYPE rprop, WORD fNewHte), ATTRTYPE attr);#endif
#endif /* NEWSYM */
#if NEWIO
extern int NEAR SmartOpen(char *sbInput, int ifh);#endif
#if EXE386
extern void SortPtrTable(void);#endif
extern void NEAR SortSyms(ATTRTYPE attr, void (*savf)(APROPNAMEPTR prop, RBTYPE rhte, RBTYPE rprop, WORD fNewHte), int (cdecl *scmpf)(const RBTYPE *sb1, const RBTYPE *sb2), void (NEAR *hdrf)(ATTRTYPE attr), void (NEAR *lstf)(WORD irbMac, ATTRTYPE attr));extern void NEAR Store(RBTYPE element);#if SYMDEB OR OVERLAYS
extern unsigned char * StripDrivePath(unsigned char *sb);#endif
#if WIN_3
void cdecl SysFatal (MSGTYPE msg);#endif
extern void StripPath(unsigned char *sb);extern char * cdecl swapin(long vp,unsigned short fp);extern void termvm(void);extern long NEAR TypLen(void);extern void UndecorateSb (char FAR* sbSrc, char FAR* sbDst, unsigned cbDst);extern void UpdateComdatContrib(#if ILINK
WORD fIlk,#endif
WORD fMap);extern void UpdateFileParts(unsigned char *psbOld, unsigned char *psbUpdate);extern void cdecl UserKill(void);extern WORD NEAR WGetsHard(void);extern WORD NEAR WGets(void);
#if CMDMSDOS
extern void NEAR ValidateRunFileName(BYTE *ValidExtension, WORD ForceExtension, WORD WarnUser);#endif
#if ( NOT defined( M_I386 ) ) AND ( NOT defined( _WIN32 ) )
extern void WriteExe(void FAR *pb, unsigned cb);#endif
extern void WriteZeros(unsigned cb);#if EXE386
extern DWORD WriteExportTable(DWORD *expSize, DWORD timestamp);extern DWORD WriteImportTable(DWORD *impSize, DWORD timestamp, DWORD *mpsaLfa);#endif
extern unsigned short zcheck(unsigned char *pb,unsigned short cb);extern int NEAR yyparse(void);
/* No argument type lists */extern char FAR *brkctl(); /* Xenix call for new memory */extern long NEAR msa386(SATYPE sa);
/*
* Version-dependent macro and function declarations. Hide some #ifdef's * from the source code. */#if NEWSYM
#if AUTOVM
extern BYTE FAR * NEAR FetchSym(RBTYPE rb, WORD fDirty);extern BYTE FAR * NEAR FetchSym1(RBTYPE rb, WORD fDirty);#define MARKVP() markvp()
#else
#define FetchSym(a,b) (a)
#define MARKVP()
#define markvp()
#endif
#if defined(M_I386) OR defined( _WIN32 )
#define GetFarSb(a) (a)
#else
extern char *GetFarSb(RBTYPE psb);#endif
#else
extern BYTE *FetchSym(RBTYPE,FTYPE);#define MARKVP() markvp()
#define GetFarSb(a) (BYTE *)(a)
#endif
#if NEWSYM
extern FTYPE NEAR SbNewComp(BYTE *, BYTE FAR *, FTYPE);extern void OutSb(BSTYPE f, BYTE *pb);#else
#define SbNewComp SbCompare
#endif
#if ECS
extern int GetTxtChr(BSTYPE bs);#else
#define GetTxtChr(a) getc(a)
#endif
#if NEWSYM AND NOT NOASM AND (CPU286 OR CPU8086)
extern void (*pfEnSyms)(void (*pproc)(APROPNAMEPTR papropName, RBTYPE rhte, RBTYPE rprop, WORD fNewHte), ATTRTYPE attr);#define EnSyms(a,b) (*pfEnSyms)(a,b)
#else
#define EnSyms(a,b) BigEnSyms(a,b)
#endif
#if OSMSDOS
extern FTYPE fNoprompt;#else
#define fNoprompt TRUE
#endif
#if CPU8086 OR CPU286
#define FMALLOC _fmalloc
#define FFREE _ffree
#define FMEMSET _fmemset
#define FREALLOC _frealloc
#define FMEMCPY _fmemcpy
#define FSTRLEN _fstrlen
#define FSTRCPY _fstrcpy
#else
#define FMALLOC malloc
#define FFREE free
#define FMEMSET memset
#define FREALLOC realloc
#define FMEMCPY memcpy
#define FSTRLEN strlen
#define FSTRCPY strcpy
#endif
#if WIN_3
#define EXIT WinAppExit
extern FTYPE fSeverity; /* Severity for QW_ERROR message */extern void ReportVersion(void );extern void ErrorMsg( char *pszError );extern void __cdecl ErrMsgWin (char *fmt);extern void WErrorMsg( char *pszError );extern void WinAppExit( short RetCode );extern void ProcessWinArgs( char FAR *pszCmdLine );extern void ParseLinkCmdStr( void );extern void ReportProgress( char *pszStatus );extern void SendPacket(void *pPacket);extern void __cdecl StatMsgWin (char *fmt, int p1);extern void StatHdrWin ( char *pszHdr );extern void WinYield( void );extern void CputcWin(int ch);extern void CputsWin(char *str);#else
#define EXIT exit
#endif
/****************************************************************
* * * External data declarations * * * ****************************************************************/
extern char FAR *lpszLink;extern char FAR *lpszPath;extern char FAR *lpszTMP;extern char FAR *lpszLIB;extern char FAR *lpszQH;extern char FAR *lpszHELPFILES;extern char FAR *lpszCmdLine;#if OSEGEXE
extern RBTYPE procOrder; /* Procedure order as defined in .DEF file */#endif
extern BSTYPE bsErr; /* Error message file stream */extern BSTYPE bsInput; /* Current input file stream */extern BSTYPE bsLst; /* Listing (map) file stream */extern BSTYPE bsRunfile; /* Executable file stream */extern WORD cbBakpat; /* # bytes in backpatch area */extern WORD cbRec; /* Size of object record in bytes */extern WORD cErrors; /* Number of non-fatal errors */extern int (cdecl *cmpf)(const RBTYPE *sb1, const RBTYPE *sb2); /* Pointer to sorting comparator */#if OMF386
extern FTYPE f386; /* True if 386 binary */#endif
#if (OSEGEXE AND defined(LEGO)) OR EXE386
extern FTYPE fKeepFixups; /* TRUE if FLAT offset fixups have to be poropagated to the .EXE file */#endif
#if EXE386
extern SNTYPE gsnImport; /* Global index of Import Address Table segment */extern GRTYPE ggrFlat; /* Group number of pseudo-group FLAT */extern FTYPE fFullMap; /* More map information */extern FTYPE fKeepVSize; /* TRUE if VSIZE to be set */#endif
extern WORD extMac; /* Count of EXTDEFs */extern WORD extMax; /* Maximum number of EXTDEFs */extern int ExitCode; /* Linker exit code */extern FTYPE fFullMap; /* More map information */extern FTYPE fCommon; /* True if any communal variables */extern FTYPE fC8IDE; /* True if running under C8 IDE */extern FTYPE fDelexe; /* True if /DELEXECUTABLE is on */extern FTYPE fDrivePass; /* True if executing DrivePass() */extern FTYPE fFarCallTrans; /* True if /FARCALLTRANSLATION on */extern FTYPE fFarCallTransSave; /* Previous state of fFarCallTrans */extern FTYPE fIgnoreCase; /* True if ignoring case */extern FTYPE fInOverlay; /* True if parsing overlay spec */extern FTYPE fLibPass; /* True if in library pass */extern FTYPE fLibraryFile; /* True if input from library */extern FTYPE fListAddrOnly; /* True if sorting by address only */extern FTYPE fLstFileOpen; /* True of map file open */extern FTYPE fScrClosed; /* True if scratch file closed */extern FTYPE fSkipFixups; /* True if skipping COMDAT and its fixups */extern FTYPE fUndefinedExterns; /* True if any unresolved externals */extern FTYPE fExeStrSeen; /* True if EXESTR comment seen */extern FTYPE fPackFunctions; /* True if elimination uncalled COMDATs */#if TCE
extern FTYPE fTCE; /* True if /PACKF:MAX = Transitive Comdat Elimination */#endif
#if USE_REAL
extern FTYPE fUseReal; /* True if using conv memory for paging */extern FTYPE fSwNoUseReal; /* True if switch /NOUSEREAL set */#endif
#if O68K
extern FTYPE f68k; /* True if target is a 68k */extern FTYPE fTBigEndian; /* True if target is big-endian */extern BYTE iMacType; /* Type of Macintosh exe */#endif /* O68K */
extern GRTYPE ggrDGroup; /* Group number of DGROUP */extern GRTYPE ggrMac; /* Count of global GRPDEFs */extern GRTYPE grMac; /* Count of local GRPDEFs */extern SNTYPE gsnMac; /* Count of global SEGDEFs */extern SNTYPE gsnMax; /* Maximum number of SEGDEFs */extern SNTYPE gsnStack; /* Glob. SEGDEF no. of STACK segment */extern SNTYPE gsnText; /* Global SEGDEF for _TEXT segment */extern WORD ifhLibCur; /* File index of current library */extern WORD ifhLibMac; /* Count of library files */extern long lfaLast; /* Last file position */extern WORD lnameMac; /* Count of LNAMEs */extern WORD lnameMax; /* Max count of LNAMEs */extern unsigned char LINKREV; /* Release number */extern unsigned char LINKVER; /* Version number */extern WORD modkey; /* Module ID key */extern SNTYPE *mpextgsn; /* f(EXTDEF no.) = glob. SEGDEF no. */extern RATYPE *mpextra; /* f(EXTDEF no.) = symbol offset */extern RBTYPE FAR *mpextprop; /* f(EXTDEF no.) = external name property */extern SNTYPE mpggrgsn[]; /* f(glob GRPDEF) = glob. SEGDEF no. */extern GRTYPE *mpgrggr; /* f(loc. GRPDEF #) = glob. GRPDEF # */#if FAR_SEG_TABLES
extern RATYPE FAR *mpgsndra; /* f(glob SEGDEF) = segment offset */extern BYTE FAR *mpgsnfCod; /* f(glob SEGDEF) = true if code */extern RBTYPE FAR *mpgsnrprop; /* f(glob SEGDEF) = property cell */extern SEGTYPE FAR *mpgsnseg; /* f(glob SEGDEF) = segment number */extern RATYPE FAR *mpsegraFirst; /* f(segment #) = offset of 1st byte */extern SATYPE FAR *mpsegsa; /* f(seg) = sa */extern BYTE FAR * FAR *mpsegMem; /* f(segment) = memory image */extern BYTE FAR * FAR *mpsaMem; /* f(segment) = memory image */#else
extern RATYPE *mpgsndra; /* f(glob SEGDEF) = segment offset */extern BYTE *mpgsnfCod; /* f(glob SEGDEF) = true if code */extern RBTYPE *mpgsnrprop; /* f(glob SEGDEF) = property cell */extern SEGTYPE *mpgsnseg; /* f(glob SEGDEF) = segment number */extern RATYPE *mpsegraFirst; /* f(segment #) = offset of 1st byte */extern SATYPE *mpsegsa; /* f(seg) = sa */#endif
extern SNTYPE *mpsngsn; /* f(local SEGDEF) = global SEGDEF */extern RBTYPE mpifhrhte[]; /* f(lib. index) = library name */extern long *mpitypelen; /* f(TYPDEF no.) = type length */extern WORD *mpityptyp; /* f(TYPDEF no.) = TYPDEF no. */extern RBTYPE FAR *mplnamerhte; /* f(LNAME no.) = hash table addr */extern BYTE *psbRun; /* Name of run file */extern WORD pubMac; /* Count of PUBDEFs */extern APROPCOMDAT *pActiveComdat;extern int QCExtDefDelta; /* QC incremental compilation support */extern int QCLinNumDelta; /* EXTDEF and LINNUM deltas */extern WORD symMac; /* Number of symbols defined */extern long raStart; /* Program starting address */#if NOT NEWSYM OR AUTOVM
#if AUTOVM
extern WORD rbMacSyms;#else
extern RBTYPE rbMacSyms; /* Count of symbol table entries */#endif
#endif
extern RECTTYPE rect; /* Current record type */#if RGMI_IN_PLACE
extern BYTE *rgmi;extern BYTE bufg[DATAMAX + 4];#else
extern BYTE rgmi[DATAMAX + 4];#define bufg rgmi
#endif
/* Array of code or data */extern RBTYPE rhteBegdata; /* "BEGDATA" */extern RBTYPE rhteBss; /* "BSS" */extern RBTYPE rhteFirstObject;/* Name of first object file */extern RBTYPE rhteRunfile; /* Name of run file */extern RBTYPE rhteStack; /* "STACK" */extern RBTYPE rprop1stFile; /* Property cell of 1st file */extern RBTYPE rprop1stOpenFile;/* Property cell of 1st open file */extern RBTYPE r1stFile; /* 1st input file */extern SBTYPE sbModule; /* Name of current module */extern SEGTYPE segCodeLast; /* Last (highest) code segment */extern SEGTYPE segDataLast; /* Last (highest) data segment */extern SEGTYPE segLast; /* Last (highest) segment */extern SEGTYPE segStart; /* Program starting segment */extern WORD snkey; /* SEGDEF ID key */extern SNTYPE snMac; /* Local count of SEGDEFs */extern WORD typMac; /* Local count of TYPDEFs */extern WORD vcbData; /* # bytes in data record */extern WORD vcln; /* # line-no entries on line */extern FTYPE vfCreated; /* True if symbol property created */extern FTYPE vfLineNos; /* True if line numbers requested */extern FTYPE vfMap; /* True if public symbols requeste */extern FTYPE vfNewOMF; /* True if OMF extensions */extern FTYPE vfNoDefaultLibrarySearch; /* True if not searching def. libs. */extern FTYPE vfPass1; /* True if executing Pass 1 */extern SNTYPE vgsnCur; /* SEGDEF no. of current segment */extern SNTYPE vgsnLineNosPrev;/* Previous SEGDEF no. for linnums */extern int vmfd; /* VM scratch file handle */#if EXE386
extern DWORD vpageCur; /* Current object page number */#endif
extern RATYPE vraCur; /* Current data record offset */extern RECTTYPE vrectData; /* Type of current data record */extern RBTYPE vrhte; /* Address of hash table entry */extern RBTYPE vrhteCODEClass; /* "CODE" */extern RBTYPE vrhteFile; /* Name of current file */extern RBTYPE vrprop; /* Address of property cell */extern RBTYPE vrpropFile; /* Prop. cell of current file */extern RBTYPE vrpropTailFile; /* Prop. cell of last file */extern SEGTYPE vsegCur; /* Current segment */extern WORD ExeStrLen; // Length of EXE strings in buffer
extern WORD ExeStrMax; // Length of EXE strings buffer
extern char FAR *ExeStrBuf; // EXE strings buffer
#if FDEBUG
extern FTYPE fDebug; /* True if /INFORMATION on */#endif
#if CMDXENIX
extern WORD symlen; /* Maximum symbol length */#endif
#if OSMSDOS
extern char bigbuf[LBUFSIZ];/* File I/O buffer */extern FTYPE fPauseRun; /* True if /PAUSE */extern BYTE chRunFile; /* Run file drive LETTER */extern BYTE chListFile; /* List file drive NUMBER */extern RBTYPE rhteLstfile; /* Name of list file */extern BYTE DskCur; /* Default drive number */#endif
#if C8_IDE
extern char msgBuf[]; /* Message buffer */#endif
#if LIBMSDOS
extern long libHTAddr; /* Offset of dictionary */#endif
#if SYMDEB
extern FTYPE fSkipPublics; /* True if no public subsection */extern FTYPE fSymdeb; /* True if /CODEVIEW */extern FTYPE fCVpack; /* True if CV packing requested */extern FTYPE fTextMoved; /* True if /DOSSEG & !/NONULLS */extern int NullDelta; /* _TEXT was moved by so many bytes */extern SEGTYPE segDebFirst; /* First debug segment */extern SEGTYPE segDebLast; /* Last debug segment */extern FTYPE fDebSeg; /* True if datarec from debug segment */extern WORD ObjDebTotal; /* Total number of OBJ modules with debug info */extern RBTYPE rhteDebSrc; /* Class "DEBSRC" virt addr */extern RBTYPE rhteDebSym; /* Class "DEBSYM" virt addr */extern RBTYPE rhteDebTyp; /* Class "DEBTYP" virt addr */extern RBTYPE rhteTypes;extern RBTYPE rhteSymbols;extern RBTYPE rhte0Types;extern RBTYPE rhte0Symbols;#if OSEGEXE
extern WORD cbImpSeg; /* Size of $$IMPORTS segment */extern SNTYPE gsnImports; /* $$IMPORTS global segment number */extern char bufExportsFileName[]; /* Name of exports file */#endif
#endif
#if OSEGEXE
extern SNTYPE gsnAppLoader; /* Aplication loader global segment number */extern RBTYPE vpropAppLoader; /* Pointer to application loader name */#if EXE386
extern DWORD hdrSize; /* Default size of .EXE header */extern DWORD virtBase; /* Virtual base address of memory image */extern DWORD cbEntTab; /* Count of bytes in Export Address Table */extern DWORD cbAuxTab; /* Count of bytes in Auxiliary Data Table */extern DWORD cbNamePtr; /* Count of bytes in Export Name Pointer Table */extern DWORD cbOrdinal; /* Count of bytes in Export Ordinal Table */extern DWORD cbExpName; /* Count of bytes in Export Name Table */extern WORD cGateSel; /* Number of selectors required by call-gate exports */extern DWORD cbImports; /* # bytes in Imported Names table */extern DWORD cbImportsMod; /* # bytes in Imported Module Names table */extern DWORD *mpsaVMArea; /* VM area for AREASA(sa) */extern DWORD *mpsaBase; /* Base virtual address of memory object */extern WORD cChainBuckets; /* Count of entry table chain buckets */extern DWORD cbStack; /* Reserved size of stack in bytes */extern DWORD cbStackCommit; /* Commited size of stack in bytes */extern DWORD cbHeap; /* Reserved size of heap in bytes */extern DWORD cbHeapCommit; /* Commited size of heap in bytes */#else
extern WORD cbEntTab; /* Count of bytes in Entry Table */extern WORD cbImports; /* # bytes in Imported Names table */extern WORD cbHeap; /* Size of heap in bytes */extern WORD cbStack; /* Size of stack in bytes */#endif
extern WORD cFixupBuckets; /* Count of entry table buckets */extern long chksum32; /* Long checksum */extern WORD cMovableEntries;/* Count of movable entries */#if EXE386
extern DWORD dfCode; /* Default code segment attributes */extern DWORD dfData; /* Default data segment attributes */#else
extern WORD dfCode; /* Default code segment attributes */extern WORD dfData; /* Default data segment attributes */#endif
extern WORD expMac; /* Count of exported names */extern FTYPE fHeapMax; /* True if heap size = 64k - size of DGROUP */extern FTYPE fRealMode; /* True if REALMODE specified */extern FTYPE fStub; /* True if DOS3 stub given */extern FTYPE fWarnFixup; /* True if /WARNFIXUP */extern BYTE TargetOs; /* Target operating system */#if EXE386
extern BYTE TargetSubsys; /* Target operating subsystem */extern BYTE UserMajorVer; /* User program version */extern BYTE UserMinorVer; /* User program version */#endif
extern BYTE ExeMajorVer; /* Executable major version number */extern BYTE ExeMinorVer; /* Executable minor version number */extern EPTYPE FAR * FAR *htsaraep; /* Hash SA:RA to entry point */extern DWORD FAR *mpsacb; /* f(sa) = # bytes */#if O68K
extern DWORD *mpsadraDP; /* offset from start of segment to DP */#endif
extern DWORD FAR *mpsacbinit; /* f(sa) = # initialized bytes */#if EXE386
extern DWORD *mpsacrlc; /* f(sa) = # relocations */extern DWORD *mpsaflags; /* f(sa) = segment attributes */extern WORD *mpextflags; /* f(glob. EXTDEF) = flags */#else
extern RLCHASH FAR * FAR *mpsaRlc; /* f(sa) = relocations hash vector */extern WORD FAR *mpsaflags; /* f(sa) = segment attributes */extern BYTE FAR *mpextflags; /* f(glob. EXTDEF) = flags */#endif
extern WORD raChksum; /* Offset for checksum */extern RBTYPE rhteDeffile; /* Name of definitions file */extern RBTYPE rhteModule; /* Name of module */extern RBTYPE rhteStub; /* Name of DOS3 stub program */extern WORD fileAlign; /* Segment alignment shift count */#if EXE386
extern WORD pageAlign; /* Page alignment shift count */extern WORD objAlign; /* Memory object alignment shift count */#endif
extern SATYPE saMac; /* Count of physical segments */extern WORD vepMac; /* Count of entry point records */#if EXE386
extern WORD vFlags; /* Image flags */extern WORD dllFlags; /* DLL flags */#else
extern WORD vFlags; /* Program flags word */#endif
extern BYTE vFlagsOthers; /* Other program flags */#endif /* OSEGEXE */
extern FTYPE fExePack; /* True if /EXEPACK */#if PCODE
extern FTYPE fMPC;extern FTYPE fIgnoreMpcRun; /* True if /PCODE:NOMPC */#endif
#if ODOS3EXE
extern FTYPE fBinary; /* True if producing .COM file */extern WORD cparMaxAlloc; /* Max # paragraphs to ask for */extern WORD csegsAbs; /* Number of absolute segments */extern WORD dosExtMode; /* DOS extender mode */extern FTYPE fNoGrpAssoc; /* True if ignoring group association */extern SEGTYPE segResLast; /* Number of highest resident segment */extern WORD vchksum; /* DOS3 checksum word */extern FTYPE vfDSAlloc; /* True if allocating DGROUP high */#if FEXEPACK
extern FRAMERLC FAR mpframeRlc[]; /* f(frame number) = run time relocs */#endif
#endif /* ODOS3EXE */
#if OVERLAYS
extern FTYPE fOverlays; /* True if overlays specified */extern FTYPE fOldOverlay; /* True if /OLDOVERLAY set */extern FTYPE fDynamic; /* True if dynamic overlays */extern SNTYPE gsnOvlData; /* Global SEGDEF of OVERLAY_DATA */extern SNTYPE gsnOverlay; /* Global SEGDEF of OVERLAY_THUNKS */extern SNTYPE FAR *htgsnosn; /* Hash(glob SEGDEF) = overlay segnum */extern SNTYPE FAR *mposngsn; /* f(ovl segnum) = global SEGDEF */extern IOVTYPE FAR *mpsegiov; /* f(seg number) = overlay number */extern RUNRLC FAR *mpiovRlc; /* f(overlay number) = run time relocs */extern ALIGNTYPE FAR *mpsegalign; /* f(seg number) = alignment type */extern SNTYPE osnMac; /* Count of overlay segments */extern BYTE vintno; /* Overlay interrupt number */extern WORD iovFile; /* Overlay number of input file */extern WORD iovMac; /* Count of overlays */extern WORD ovlThunkMax; /* Number of thunks that will fit into thunk segment */extern WORD ovlThunkMac; /* Current number of allocated thunks */#else
#define iovMac 0
#endif
#if OIAPX286
extern long absAddr; /* Absolute program starting address */extern FTYPE fPack; /* True if packing segments */extern SATYPE *mpstsa; /* f(seg table number) = selector */extern SATYPE stBias; /* Segment selector bias */extern SATYPE stDataBias; /* Data segment selector bias */extern SATYPE stLast; /* Last segment table entry */extern WORD stMac; /* Count of seg table entries */#if EXE386
extern WORD xevmod; /* Virtual module information */extern RATYPE rbaseText; /* Text relocation factor */extern RATYPE rbaseData; /* Data relocation factor */extern FTYPE fPageswitch; /* True if -N given */extern BYTE cblkPage; /* # 512-byte blocks in pagesize */#endif
#endif
#if OIAPX286 OR ODOS3EXE
extern GRTYPE *mpextggr; /* f(EXTDEF) = global GRPDEF */extern long FAR *mpsegcb; /* f(segment number) = size in bytes */extern BYTE FAR *mpsegFlags; /* f(segment number) = flags */extern char *ompimisegDstIdata; /* pointer to LIDATA relocations */#endif
#if DOSEXTENDER AND NOT WIN_NT
extern WORD cdecl _fDosExt; /* TRUE if running under DOS extender */#endif
#if OXOUT OR OIAPX286
extern FTYPE fIandD; /* True if "pure" (-i) */extern FTYPE fLarge; /* True if FAR data */extern FTYPE fLocals; /* True if including local symbols */extern FTYPE fMedium; /* True if FAR code */extern FTYPE fMixed; /* True if mixed model */extern FTYPE fSymbol; /* True if including symbol table */extern WORD xever; /* Xenix version number */#endif
#if WIN_3
#define fZ1 TRUE
#else
#if QCLINK
extern FTYPE fZ1;#endif
#endif
#if QCLINK OR Z2_ON
extern FTYPE fZ2;#endif
#if ILINK
extern FTYPE fZincr;extern FTYPE fQCIncremental;extern FTYPE fIncremental;extern WORD imodFile;extern WORD locMac; /* count of LPUBDEFs */extern WORD imodCur;#endif
extern WORD cbPadCode; /* code padding size */extern WORD cbPadData; /* data padding size */
#if OEXE
extern FTYPE fDOSExtended;extern FTYPE fNoNulls; /* True if /NONULLS given */extern FTYPE fPackData; /* True if /PACKDATA given */extern FTYPE fPackSet; /* True if /PACK or /NOPACK given */extern FTYPE fSegOrder; /* True if special DOS seg order */extern DWORD packLim; /* Code seg packing limit */extern DWORD DataPackLim; /* Data seg packing limit */#endif
#if OSEGEXE AND ODOS3EXE
extern FTYPE fOptimizeFixups;/* True if fixups optimization possible */extern void (NEAR *pfProcFixup)();#endif
/* Ptr to FIXUPP processing routine */extern RBTYPE mpggrrhte[]; /* f(global GRPDEF) = name */#if FAR_SEG_TABLES
extern SNTYPE FAR *mpseggsn; /* f(segment #) = global SEGDEF */#else
extern SNTYPE *mpseggsn; /* f(segment #) = global SEGDEF */#endif
extern FTYPE fNoEchoLrf; /* True if not echoing response file */extern FTYPE fNoBanner; /* True if not displaing banner */extern FTYPE BannerOnScreen; /* True if banner displayed */
#if CMDMSDOS
extern BYTE bSep; /* Separator character */extern BYTE chMaskSpace; /* Space mask character */extern FTYPE fEsc; /* True if command line escaped */extern FTYPE fStuffed; /* Put-back-character flag */extern RBTYPE rgLibPath[]; /* Default library paths */extern WORD cLibPaths; /* Count of library paths */extern char CHSWITCH; /* Switch character */#if OSMSDOS
extern int (cdecl *pfPrompt)(unsigned char *sbNew, MSGTYPE msg, int msgparm, MSGTYPE pmt, int pmtparm); /* Pointer to prompt routine */#endif
#endif /* CMDMSDOS */
#if QBLIB
extern FTYPE fQlib; /* True if generating Quick-library */#else
#define fQlib FALSE
#endif
extern char *lnknam; /* Name of linker */#if NEWSYM
extern long cbSymtab; /* # bytes in symbol table */#endif /* NEWSYM */
extern void (*pfCputc)(int ch); /* Ptr to char output routine */extern void (*pfCputs)(char *str); /* Ptr to string output routine */#if NEWIO
extern RBTYPE rbFilePrev; /* Pointer to previous file */extern char mpifhfh[]; /* f(lib no.) = file handle */#endif
#if MSGMOD AND OSMSDOS
#if defined(M_I386) OR defined( _WIN32 )
#define GetMsg(x) GET_MSG(x)
#else
extern char FAR * PASCAL __FMSG_TEXT ( unsigned ); /* Get a msg from the message segment */extern char * GetMsg(unsigned short num);#define __NMSG_TEXT(x) GetMsg(x)
#endif
#endif
#if MSGMOD AND OSXENIX
#define __FMSG_TEXT __NMSG_TEXT
#define GetMsg(x) __NMSG_TEXT(x)
#endif
#if NOT MSGMOD
#define GetMsg(x) (x)
#define __NMSG_TEXT(x) (x)
#endif
#define SEV_WARNING 0
#define SEV_ERROR 1
#define SEV_NOTIFICATION 2 /* Possible sev. of QW_ERROR message */
#if NEW_LIB_SEARCH
extern void StoreUndef(APROPNAMEPTR, RBTYPE, RBTYPE, WORD);extern FTYPE fStoreUndefsInLookaside;#endif
#if RGMI_IN_PLACE
BYTE FAR * PchSegAddress(WORD cb, SEGTYPE seg, RATYPE ra);#endif
#if ALIGN_REC
extern BYTE *pbRec; // data for current record
extern char recbuf[8192]; // record buffer...
#endif
//////////////// inline functions ////////////////////
__inline void NEAR SkipBytes(WORD n){#if ALIGN_REC
pbRec += n; cbRec -= n;#elif WIN_NT
WORD cbRead; SBTYPE skipBuf;
cbRec -= n; // Update byte count
while (n) // While there are bytes to skip
{ cbRead = n < sizeof(SBTYPE) ? n : sizeof(SBTYPE); if (fread(skipBuf, 1, cbRead, bsInput) != cbRead) InvalidObject(); n -= cbRead; }#else
FILE *f = bsInput;
if ((WORD)f->_cnt >= n) { f->_cnt -= n; f->_ptr += n; } else if(fseek(f,(long) n,1)) InvalidObject(); cbRec -= n; /* Update byte count */#endif
}
#if ALIGN_REC
__inline WORD NEAR Gets(void){ cbRec--; return *pbRec++;}#else
__inline WORD NEAR Gets(void){ --cbRec; return(getc(bsInput));}#endif
__inline WORD NEAR GetIndex(WORD imin,WORD imax){#if ALIGN_REC
WORD w;
if (*pbRec & 0x80) { w = (pbRec[0] & 0x7f) << 8 | pbRec[1]; pbRec += 2; cbRec -= 2; } else { w = *pbRec++; cbRec--; }
if(w < imin || w > imax) InvalidObject(); return w;
#else
WORD index;
FILE *f = bsInput;
if (f->_cnt && (index = *(BYTE *)f->_ptr) < 0x80) { f->_cnt--; f->_ptr++; cbRec--; if(index < imin || index > imax) InvalidObject(); return(index); /* Return a good value */ }
return GetIndexHard(imin, imax);#endif
}
#if ALIGN_REC
__inline WORD NEAR WGets(void){ WORD w = getword(pbRec); pbRec += sizeof(WORD); cbRec -= sizeof(WORD); return w;}#else
__inline WORD NEAR WGets(void){ FILE *f = bsInput;
// NOTE: this code will only work on a Little Endian machine
if (f->_cnt >= sizeof(WORD)) { WORD w = *(WORD *)(f->_ptr); f->_ptr += sizeof(WORD); f->_cnt -= sizeof(WORD); cbRec -= sizeof(WORD); return w; } else return WGetsHard();}#endif
__inline WORD NEAR WSGets(void){ cbRec -= 2; return (WORD)(getc(bsInput) | (getc(bsInput) << 8));}
__inline int Qwrite(char *pch, int cb, FILE *f){ if (f->_cnt >= cb) { memcpy(f->_ptr, pch, cb); f->_ptr += cb; f->_cnt -= cb; return cb; }
return fwrite(pch, 1, cb, f);}
#ifdef NEWSYM
__inline void OutSb(BSTYPE f, BYTE *pb){ Qwrite(&pb[1],B2W(pb[0]),f);}#endif
#if defined( M_I386 ) OR defined( _WIN32 )
extern void NoRoomForExe(void);
#if DISPLAY_ON
#pragma inline_depth(0)
__inline void WriteExe(void FAR *pb, unsigned cb){ WORD i,iTotal=0,j=1;
if (Qwrite((char *) pb, (int)cb, bsRunfile) != (int)cb) { NoRoomForExe(); }
if(TurnDisplayOn) { fprintf( stdout,"\r\nOutVm : %lx bytes left\r\n", cb); for(i=0; i<cb; i++) { if(j==1) { fprintf( stdout,"\r\n\t%04X\t",iTotal); }
fprintf( stdout,"%02X ",*((char*)pb+i)); iTotal++; if(++j > 16) j=1;
}
fprintf( stdout,"\r\n"); }}
#pragma inline_depth()
#else // DISPLAY NOT ON
#define WriteExe(pb,cb) \
if (Qwrite((char *)(pb),(int)(cb),bsRunfile) != (int)(cb)) NoRoomForExe()
#endif
#endif
#if ALIGN_REC
__inline void GetBytes(BYTE *pb, WORD n){ if (n >= SBLEN || n > cbRec) InvalidObject();
memcpy(pb, pbRec, n); cbRec -= n; pbRec += n;}
__inline DWORD LGets(){ // NOTE: this code will only work on a Little-Endian machine
DWORD dw = getdword(pbRec); pbRec += sizeof(dw); cbRec -= sizeof(dw); return dw;}
__inline void GetBytesNoLim(BYTE *pb, WORD n){ if (n > cbRec) InvalidObject();
memcpy(pb, pbRec, n); pbRec += n; cbRec -= n;}
#endif
|
