mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 19:08:18 +02:00
24 lines
442 B
ObjectPascal
24 lines
442 B
ObjectPascal
{ %OPT=-Seh -vh }
|
|
{ %norun }
|
|
{$mode objfpc}
|
|
|
|
program Project1;
|
|
|
|
uses
|
|
SysUtils;
|
|
|
|
procedure RaiseException(AReturnAddress : CodePointer);
|
|
begin
|
|
raise Exception.Create('message') at AReturnAddress;
|
|
end;
|
|
|
|
procedure RaiseException(AReturnAddress : CodePointer;AFrame : Pointer);
|
|
begin
|
|
raise Exception.Create('message') at AReturnAddress,AFrame;
|
|
end;
|
|
|
|
begin
|
|
RaiseException(CodePointer(10));
|
|
RaiseException(CodePointer(10),Pointer(1234));
|
|
end.
|