paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 05:19:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix compilation

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-07-15 13:59:07 +02:00
parent 49697077fa
commit cd275db151
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/libndsfpc/src/nds/arm9/sassert.inc
View File

@ -1,12 +1,12 @@
{$ifdef NDS_INTERFACE} {$ifdef NDS_INTERFACE}
procedure __sassert(const fileName: PAnsiChar; lineNumber: cint; const conditionString: PAnsiChar; const amessage: PAnsiChar); cdecl; external; procedure __sassert(const fileName: PAnsiChar; lineNumber: cint; const conditionString: PAnsiChar; const amessage: PAnsiChar); cdecl; external;
procedure sassert(e: boolean; msg: ansistring); inline; 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} {$endif NDS_INTERFACE}
{$ifdef NDS_IMPLEMENTATION} {$ifdef NDS_IMPLEMENTATION}
procedure AssertErrorHandler(const Msg, Filename: Ansistring; LineNumber: Integer; ErrorAddr: Pointer); procedure AssertErrorHandler(const Msg, Filename: shortstring; LineNumber: Integer; ErrorAddr: Pointer);
begin begin
//ErrorAddr is address Assert will return to //ErrorAddr is address Assert will return to
//(i.e. instruction following call to Assert). //(i.e. instruction following call to Assert).