/packages/libndsfpc/examples/debugging/exceptionTest/exceptionTest.pp
https://github.com/slibre/freepascal · Puppet · 24 lines · 17 code · 7 blank · 0 comment · 1 complexity · c3f25609653d793479363f415542d5f4 MD5 · raw file
- 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.