From cd275db151c5f5aa234c6f8fc8a8075c86785211 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Sat, 15 Jul 2023 13:59:07 +0200
Subject: [PATCH] * Fix compilation

---
 packages/libndsfpc/src/nds/arm9/sassert.inc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/packages/libndsfpc/src/nds/arm9/sassert.inc b/packages/libndsfpc/src/nds/arm9/sassert.inc
index a95989ed8d..81ea9177a9 100644
--- a/packages/libndsfpc/src/nds/arm9/sassert.inc
+++ b/packages/libndsfpc/src/nds/arm9/sassert.inc
@@ -1,12 +1,12 @@
 {$ifdef NDS_INTERFACE}
 procedure __sassert(const fileName: PAnsiChar; lineNumber: cint; const conditionString: PAnsiChar; const amessage: PAnsiChar); cdecl; external;
 procedure sassert(e: boolean; msg: ansistring); inline;
-procedure AssertErrorHandler(const Msg, Filename:ansistring; LineNumber: Integer; ErrorAddr: Pointer);
+procedure AssertErrorHandler(const Msg, Filename:shortstring; LineNumber: Integer; ErrorAddr: Pointer);
 
 {$endif NDS_INTERFACE}
 
 {$ifdef NDS_IMPLEMENTATION}
-procedure AssertErrorHandler(const Msg, Filename: Ansistring; LineNumber: Integer; ErrorAddr: Pointer);
+procedure AssertErrorHandler(const Msg, Filename: shortstring; LineNumber: Integer; ErrorAddr: Pointer);
 begin
   //ErrorAddr is address Assert will return to
   //(i.e. instruction following call to Assert).