[Lazarus] (no subject)

[Peter Williams]

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);          DumpExceptionBackTrace(f);        end;      end;      Close(f);    end; // try  end; // if  // end lines added by PEW 26 December 2010end;
 		 	   		  
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20101226/c9e2c7f0/attachment-0002.html>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: win32object.inc
Type: application/x-wine-extension-inc
Size: 25820 bytes
Desc: not available
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20101226/c9e2c7f0/attachment-0002.bin>