Hi Mattias,
see below changes to writeln statement.
From: pewilliams2...@live.com
To: lazarus@lists.lazarus.freepascal.org
Date: Sun, 26 Dec 2010 14:07:45 +1100
Subject: [Lazarus] (no subject)
Dear Mattias,
Here are my attempts to find your memory leak. So far it does not compile. Too
many parameters.
See attached file.
/lazarus/lcl/interfaces/win32/win32object.inc
PEW
procedure TWin32WidgetSet.AppInit(var ScreenInfo: TScreenInfo);const
Win32ClassesToInit: array[0..5] of DWord = (ICC_DATE_CLASSES,
ICC_UPDOWN_CLASS, ICC_TAB_CLASSES, ICC_PROGRESS_CLASS, ICC_BAR_CLASSES,
ICC_PAGESCROLLER_CLASS);var ICC: TINITCOMMONCONTROLSEX; SysMenu: HMENU;
Handle: HWND; DC: HDC; AIcon: HICON; i: integer; f: Text;begin
Assert(False, 'Trace:Win32Object.Init - Start'); if not WinRegister then
begin Assert(False, 'Trace:Win32Object.Init - Register Failed');
DebugLn('Trace:Win32Object.Init - Register Failed'); Exit; end
// lines added by PEW 26 December 2010 else begin Assign(f,
'/tmp/AppInit_backtrace.txt'); Rewrite(f); try // end lines added by
PEW 26 December 2010
OleInitialize(nil);
[...]
// lines added by PEW 26 December 2010 except on e: Exception
do begin
> Writeln(f, e.ClassName, ' : ', e.Message);
// I think this should be
Writeln(f, e.ClassName + ' : ' + e.Message);
DumpExceptionBackTrace(f); end; end; Close(f);
end; // try end; // if // end lines added by PEW 26 December 2010end;
--
_______________________________________________
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
--
_______________________________________________
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
