From 72b2ff141f4df64c01d2decea8059a602fdadcf0 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Thu, 23 Jul 1998 13:08:41 +0000
Subject: [PATCH] + Implemented DO_ASSERT function.

---
 rtl/inc/system.inc | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/rtl/inc/system.inc b/rtl/inc/system.inc
index 6cddbabde5..b19188b805 100644
--- a/rtl/inc/system.inc
+++ b/rtl/inc/system.inc
@@ -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