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

* assert now halts with exitcode 227 (as Delphi does)

Browse Source
This commit is contained in:
carl 2002-09-18 18:32:01 +00:00
parent 0fd4413f84
commit 23f2c80911
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/inc/system.inc
View File

@ -732,6 +732,7 @@ begin
write(stderr,msg);
Writeln(stderr,' (',FName,', line ',LineNo,').');
Writeln(stderr,'');
Halt(227);
end;
@ -756,7 +757,10 @@ end;
{
$Log$
Revision 1.34 2002-09-07 15:07:46 peter
Revision 1.35 2002-09-18 18:32:01 carl
* assert now halts with exitcode 227 (as Delphi does)
Revision 1.34 2002/09/07 15:07:46 peter
* old logs removed and tabs fixed
Revision 1.33 2002/08/19 19:34:02 peter