12.04.2008: обновление. Исправлен баг в brutalstrip, почём зря вырезавшей из dll секцию .reloc, в результате чего они не грузились.
http://www.chebmaster.narod.ru/soft/libs_chelinfo.html
Модератор: Модераторы
unit uDebug;
// ------------------------------------------------------------------
// Unit name: uDebug
// Author: Eddy Vluggen
// Purpose: Unit to make debugging easier
// ------------------------------------------------------------------
interface
function LoadAndParseMapFile: Boolean;
procedure CleanUpMapFile;
function GetMapAddressFromAddress(const Address: Cardinal): Cardinal;
function GetMapFileName: string;
function GetModuleNameFromAddress(const Address: Cardinal): string;
function GetProcNameFromAddress(const Address: Cardinal): string;
function GetLineNumberFromAddress(const Address: Cardinal): string;
******
Насколько brutalstrip эффективнее чем strip идущий с fpc (в плане уменьшения размера исполняемого файла)?
unit uDebug;
И дата - 2001 год - не звучит обнадёживапюще.
Ну у нас с Delphi7 он работает на ура
c:\chelinfo>fpc brutalstrip
Free Pascal Compiler version 2.2.0 [2007/11/14] for i386
Copyright (c) 1993-2007 by Florian Klaempfl
Target OS: Win32 for i386
Compiling brutalstrip.pp
Compiling un_lineinfo.pp
Compiling un_xtrctdwrflnfo.pp
un_xtrctdwrflnfo.pp(118,2) Warning: Illegal compiler directive "$IOERRORS"
un_xtrctdwrflnfo.pp(373,6) Note: Local variable "fo" not used
un_xtrctdwrflnfo.pp(374,3) Note: Local variable "IsExternal" not used
un_xtrctdwrflnfo.pp(647,30) Warning: Local variable "cofftable" does not seem to
be initialized
un_xtrctdwrflnfo.pp(560,8) Note: Local variable "j" not used
un_xtrctdwrflnfo.pp(562,5) Note: Local variable "p" not used
un_xtrctdwrflnfo.pp(563,5) Note: Local variable "ib" not used
un_xtrctdwrflnfo.pp(737,27) Warning: Mixing signed expressions and longwords giv
es a 64bit result
un_xtrctdwrflnfo.pp(679,8) Note: Local variable "j" not used
un_xtrctdwrflnfo.pp(679,11) Note: Local variable "n" not used
un_xtrctdwrflnfo.pp(679,23) Note: Local variable "rmv" not used
un_xtrctdwrflnfo.pp(680,5) Note: Local variable "dlil" is assigned but never use
d
un_xtrctdwrflnfo.pp(681,5) Note: Local variable "p" not used
un_xtrctdwrflnfo.pp(682,5) Note: Local variable "ib" not used
un_xtrctdwrflnfo.pp(682,17) Note: Local variable "maxrvl" not used
un_xtrctdwrflnfo.pp(115,3) Note: Local variable "ELFDlin" not used
un_xtrctdwrflnfo.pp(116,3) Note: Local variable "ZELFDlin" not used
un_xtrctdwrflnfo.pp(259,3) Note: Local variable "ExeFileName" not used
un_xtrctdwrflnfo.pp(260,3) Note: Local variable "header" not used
un_xtrctdwrflnfo.pp(261,3) Note: Local variable "strtab_header" not used
un_xtrctdwrflnfo.pp(262,3) Note: Local variable "cursec_header" not used
un_xtrctdwrflnfo.pp(264,3) Note: Local variable "buf" not used
un_lineinfo.pp(339,9) Note: Local variable "temp" is assigned but never used
un_lineinfo.pp(414,22) Warning: Mixing signed expressions and longwords gives a
64bit result
un_lineinfo.pp(418,34) Warning: Mixing signed expressions and longwords gives a
64bit result
un_lineinfo.pp(422,26) Warning: Mixing signed expressions and longwords gives a
64bit result
un_lineinfo.pp(468,38) Warning: Mixing signed expressions and longwords gives a
64bit result
un_lineinfo.pp(274,5) Note: Local variable "temp_length" not used
un_lineinfo.pp(281,5) Note: Local variable "c" not used
un_lineinfo.pp(283,5) Note: Local variable "b" not used
brutalstrip.pp(54,27) Error: Incompatible types: got "TMemoryStream" expected "T
FileStream"
brutalstrip.pp(68) Fatal: There were 1 errors compiling module, stopping
Fatal: Compilation aborted
Error: C:\lazarus\fpc\2.2.0\bin\i386-win32\ppc386.exe returned an error exitcode
(normal if you did not specify a source file to be compiled)
f,f2: TFileStream;
then f:= TMemoryStream.Create
Вернуться в Free Pascal Compiler
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 4