1 files changed, 55 insertions, 0 deletions
diff --git a/packages/libndsfpc/src/nds/arm9/exceptions.inc b/packages/libndsfpc/src/nds/arm9/exceptions.inc
new file mode 100644
index 0000000000..5dc10c5329
--- /dev/null
+++ b/packages/libndsfpc/src/nds/arm9/exceptions.inc
@@ -0,0 +1,55 @@
+(*
+  $Id: exceptions.inc 25 2007-12-10 21:06:46Z p4p3r0 $
+  ------------------------------------------------------------------------------
+  	Copyright (C) 2005
+  		Jason Rogers (dovoto)
+  		Dave Murphy (WinterMute)
+  	
+  	This software is provided 'as-is', without any express or implied
+  	warranty.  In no event will the authors be held liable for any
+  	damages arising from the use of this software.
+  	
+  	Permission is granted to anyone to use this software for any
+  	purpose, including commercial applications, and to alter it and
+  	redistribute it freely, subject to the following restrictions:
+  	
+  	1.	The origin of this software must not be misrepresented; you
+  		must not claim that you wrote the original software. If you use
+  		this software in a product, an acknowledgment in the product
+  		documentation would be appreciated but is not required.
+  	
+  	2.	Altered source versions must be plainly marked as such, and
+  		must not be misrepresented as being the original software.
+  	
+  	3.	This notice may not be removed or altered from any source
+  		distribution.
+  ------------------------------------------------------------------------------
+    
+    
+  Conversion by Legolas (http://itaprogaming.free.fr) for freepascal compiler
+  (http://www.freepascal.org)
+   
+  Copyright (C) 2006  Francesco Lombardi
+  Check http://sourceforge.net/projects/libndsfpc for updates
+   
+  ------------------------------------------------------------------------------
+
+  $Log$
+
+*)
+
+{$ifdef NDS_INTERFACE}
+const
+  EXCEPTION_VECTOR : ^VoidFunctionPointer = pointer($27FFD9C);
+
+var
+  exceptionC: ^VoidFunctionPointer; cvar; external;
+  exceptionStack: cuint32; cvar; external;
+  exceptionRegisters: pcint32; cvar; external;
+
+procedure enterException(); cdecl; external;
+procedure setExceptionHandler(handler: VoidFunctionPointer); cdecl; external;
+procedure defaultExceptionHandler(); cdecl; external;
+
+function getCPSR(): cuint32; cdecl; external;
+{$endif NDS_INTERFACE}