mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-07-14 14:05:59 +02:00
25 lines
658 B
ObjectPascal
25 lines
658 B
ObjectPascal
program exceptionTest;
|
|
|
|
{$mode objfpc}
|
|
|
|
uses
|
|
ctypes, nds9;
|
|
|
|
// The default exception handler displays the exception type - data abort or undefined instruction
|
|
// you can relate the exception to your code using arm-eabi-addr2line -e <elf file> <address>
|
|
// assuming you built with debug info this will display a source file and a line number
|
|
// The address of the instruction is shown as pc, beside the address which faulted
|
|
// the rest of the screen is a dump of the registers.
|
|
|
|
begin
|
|
// install the default exception handler
|
|
defaultExceptionHandler();
|
|
|
|
// generate an exception
|
|
pu32(8192)^ := 100;
|
|
|
|
while true do
|
|
swiWaitForVBlank();
|
|
|
|
end.
|