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

+ Adapted assert to Delphi format

Browse Source
This commit is contained in:
michael 1998-07-23 19:53:20 +00:00
parent 892964eaf2
commit e639e7b163
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rtl/inc/system.inc
View File

@ -500,15 +500,24 @@ End;
Assert() support.
*****************************************************************************}
Procedure do_assert (Const Name : string; LineNo : Longint); [Public,Alias : 'FPC_DO_ASSERT'];
Procedure do_assert (Const Name,Msg : string; LineNo : Longint); [Public,Alias : 'FPC_DO_ASSERT'];
begin
writeln (stderr,'Assertion failed in ',Name,', line ',LineNo,'.');
If msg='' then
write (stderr,'Assertion failed. ')
else
write (stderr,msg);
writeln (stderr,'(File : ',name,', line ',LineNo,'.');
flush (stderr);
runerror (227);
end;
{
$Log$
Revision 1.22 1998-07-23 13:08:41 michael
Revision 1.23 1998-07-23 19:53:20 michael
+ Adapted assert to Delphi format
Revision 1.22 1998/07/23 13:08:41 michael
+ Implemented DO_ASSERT function.
Revision 1.21 1998/07/15 12:09:35 carl