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

+ Implemented DO_ASSERT function.

Browse Source
This commit is contained in:
michael 1998-07-23 13:08:41 +00:00
parent efa00172ac
commit 72b2ff141f
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rtl/inc/system.inc
View File

@ -496,9 +496,22 @@ Begin
ExitProc:=@DoExitProc;
End;
{*****************************************************************************
Assert() support.
*****************************************************************************}
Procedure do_assert (Const Name : string; LineNo : Longint); [Public,Alias : 'FPC_DO_ASSERT'];
begin
writeln (stderr,'Assertion failed in ',Name,', line ',LineNo,'.');
end;
{
$Log$
Revision 1.21 1998-07-15 12:09:35 carl
Revision 1.22 1998-07-23 13:08:41 michael
+ Implemented DO_ASSERT function.
Revision 1.21 1998/07/15 12:09:35 carl
* would not compile under FPC v0.99.5
Revision 1.20 1998/07/13 21:19:12 florian