mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-13 14:31:59 +02:00
23 lines
423 B
ObjectPascal
23 lines
423 B
ObjectPascal
unit uw24801;
|
|
{$MODE objfpc}{$H+}
|
|
interface
|
|
uses
|
|
Classes,sysutils;
|
|
function f: string; inline; //causing internal error
|
|
implementation
|
|
|
|
function f: string;
|
|
var msg : string;
|
|
begin
|
|
//***** this is the block causing internal error
|
|
try
|
|
raise exception.create('asdfasdf');
|
|
except
|
|
on E: exception do begin
|
|
msg := E.Message;
|
|
result:=msg;
|
|
end;
|
|
end;
|
|
end;
|
|
end.
|