123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100 |
- {
- TIGCC IDE
- Copyright (C) 2000-2004 Sebastian Reichelt
- Copyright (C) 2005 Kevin Kofler
- This program is free software; you can redistribute it and/or modify
- it under the terms of the GNU General Public License as published by
- the Free Software Foundation; either version 2, or (at your option)
- any later version.
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- GNU General Public License for more details.
- You should have received a copy of the GNU General Public License
- along with this program; if not, write to the Free Software Foundation,
- Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
- }
- unit LinkDLLUnit;
- interface
- uses
- Classes;
- const
- LinkLibCurInterfaceVersion = 17;
- llcdTI92 = $01;
- llcdTI89 = $02;
- llcdTI92Plus = $04;
- llcdV200 = $08;
- llcdFlagTitanium = $100;
- llffTIOS = 0;
- llffTIOSUpgrade = 1;
- llffGDBCOFF = 2;
- llfrMain = 0;
- llfrData = 1;
- llfrDebuggingInfo = 2;
- llmtError = 0;
- llmtWarning = 1;
- type
- TLinkLibDestFile = packed record
- Data: Pointer;
- end;
- TLinkLibDataVarInfo = packed record
- VarName: PChar;
- CreateCopy,
- CopyOnlyIfArchived: WordBool;
- end;
- TLinkLibOptimizeInfo = packed record
- RemoveUnused,
- OptimizeRelocs,
- OptimizeNOPs,
- OptimizeReturns,
- OptimizeBranches,
- OptimizeMoves,
- OptimizeTests,
- OptimizeCalcs,
- UseFLineJumps,
- Use4ByteFLineJumps,
- CutRanges,
- ReorderSections,
- MergeConstants: WordBool;
- ProgramSize,
- DataSize,
- BSSSize,
- RelocCount,
- NativeRelocCount,
- OptimizeBranchesResult,
- OptimizeMovesResult,
- OptimizeTestsResult,
- OptimizeCalcsResult,
- UseFLineJumpsResult,
- CutRangesResult,
- NearAssemblyResult: LongInt;
- end;
- PCharArray = array [0..MaxListSize-1] of PChar;
- PPChar = ^PCharArray;
- TLinkLibGetInterfaceVersion = function: LongInt; cdecl;
- TLinkLibGetOutputFile = function (var DestFile: TLinkLibDestFile; FileSize, DestCalc, FileRole, FileFormat, FileType: LongInt; Extension: PChar; Executable: WordBool; var EffectiveSize: LongInt): WordBool; cdecl;
- TLinkLibFinalizeOutputFile = procedure (var DestFile: TLinkLibDestFile); cdecl;
- TLinkLibError = procedure (FileName, Text: PChar; MessageType: LongInt); cdecl;
- TLinkLibLinkFiles = function (ObjectFiles, ArchiveFiles: PPChar; ErrorMessage: TLinkLibError; GetOutputFile: TLinkLibGetOutputFile; FinalizeOutputFile: TLinkLibFinalizeOutputFile; NativeMode, FlashOS, Fargo: WordBool; var DataVarInfo: TLinkLibDataVarInfo; var OptimizeInfo: TLinkLibOptimizeInfo; OmitBSSInitialization: WordBool): ShortInt; cdecl;
- TLinkLibCreateArchive = function (DestFile: PChar; ObjectFiles: PPChar; ErrorMessage: TLinkLibError; NoNames: WordBool): ShortInt; cdecl;
- implementation
- end.
|