mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 14:48:18 +02:00
407e9d173b
pstatmnt.pas, statement: * check whether the constructor is called as an instance or class method nflw.pas, tlabelnode.pass_1: * don't check the owner of the labelsym when there is none (happens with internally created labels like for e.g. exception handling) + added test git-svn-id: trunk@25068 -
31 lines
497 B
ObjectPascal
31 lines
497 B
ObjectPascal
{ %NORUN }
|
|
|
|
{$mode macpas}
|
|
{$extendedsyntax off}
|
|
{$modeswitch exceptions+}
|
|
{$modeswitch class+}
|
|
|
|
program tw17598;
|
|
|
|
uses
|
|
sysutils;
|
|
|
|
type
|
|
EMyException =
|
|
class( Exception)
|
|
constructor Create( theMessage: Ansistring);
|
|
end;
|
|
|
|
constructor EMyException.Create( theMessage: Ansistring);
|
|
begin
|
|
inherited Create( theMessage)
|
|
end;
|
|
|
|
begin
|
|
try
|
|
raise EMyException.Create( 'my exception raised')
|
|
except
|
|
ShowException( ExceptObject, ExceptAddr)
|
|
end
|
|
end.
|