For some reason the linespacing was doubled after pasting the text of the
e-mail (from Word) through the clipboard.
The structure of the code looked like this:
T_Main = class(TForm);
...
private
Obj1: TOtherObj;
Obj2: TOtherObj;
. . .
end;
procedure T_Main.Button1Click(Sender: TObject);
begin
with Obj1 do
begin
SomeProcedure(Obj2);
end;
end;
----- Original Message -----
From: <[EMAIL PROTECTED]>
To: "General mailing list" <lazarus@lazarus.freepascal.org>
Sent: Wednesday, May 28, 2008 5:32 PM
Subject: Re: [Lazarus] External: SIGSEGV
> Thanks to All of You who have tried to help!.
>
>
>
> I have located the problem and found a solution, but was not able to
> reproduce it yet in a separate test app.
>
>
>
>
>
> The structure of the code looked like this:
>
>
>
> MyObj = class;
>
> private
>
> Obj1: TOtherObj;
>
> Obj2: TOtherObj;
>
> . . .
>
> end;
>
>
>
> procedure T_Main.Button1Click(Sender: TObject);
>
> begin
>
> with Obj1 do begin
>
> SomeProcedure(Obj2);
>
> end;
>
> end;
>
>
>
> The exception occurred while reading "Obj2";
>
>
>
> The problem completely disappeared after removing the "with ..." block,
> which was actually unnecessary junk code since no Obj1 property or method
> was used in that block.
>
>
>
>
>
> I am not sure, but Obj1 and Ojb2 being of the same type, and Obj1 not
> being used may have had something to do with it. Just guessing. :)
>
>
>
> I will try to make a bug report, when I will be able to reproduce the bug.
>
>
>
> Thanks for your help again!
>
>
>
> - Leslie -
>
>
>
>
>
> ----- Original Message -----
> From: "Boguslaw Brandys" <[EMAIL PROTECTED]>
> To: "General mailing list" <lazarus@lazarus.freepascal.org>
> Sent: Tuesday, May 27, 2008 9:15 PM
> Subject: Re: [Lazarus] External: SIGSEGV
>
>
>> Michael Van Canneyt wrote:
>>>
>>> On Tue, 27 May 2008, Jon Foster wrote:
>>>
>>>> SIGSEGV (otherwise known as a segfault) is a *nix signal indicating
>>>> that the an illegal address was
>>>> accessed. Normally it can't be caught with a try...except. You have to
>>>> muck about with signals to catch it
>>>> with try ... except.
>>>
>>> This is not correct.
>>> The RTL catches this signal and converts this to an exception, if you
>>> use the sysutils unit.
>>>
>>> Michael.
>>> _______________________________________________
>>> Lazarus mailing list
>>> Lazarus@lazarus.freepascal.org
>>> http://www.lazarus.freepascal.org/mailman/listinfo/lazarus
>>>
>>
>> My advice: test program outside of the Lazarus IDE.If it crashes then
>> it's not an IDE, but I suspect it's all about gdb.
>>
>>
>> Regards
>> Boguslaw
>> _______________________________________________
>> Lazarus mailing list
>> Lazarus@lazarus.freepascal.org
>> http://www.lazarus.freepascal.org/mailman/listinfo/lazarus
>>
>
_______________________________________________
Lazarus mailing list
Lazarus@lazarus.freepascal.org
http://www.lazarus.freepascal.org/mailman/listinfo/lazarus
