paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-01 22:09:28 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ important comment added

Browse Source
This commit is contained in:
carl 1998-08-17 12:24:16 +00:00
parent 6cc16ea7f1
commit 1dd8fe99d5
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rtl/inc/system.inc
View File

@ -276,9 +276,6 @@ End;
{$R-}
{$Q-}
{ PLEASE DO NOT OPTIMIZE BECAUSE THEY ACTUALLY WORK CORRECTLY - unless }
{ you want me to go violent :) (CEC) }
Procedure UseSeed(seed : Longint);Forward;
@ -439,6 +436,13 @@ End;
Procedure Do_exit;[Public,Alias: '__EXIT'];
{
Don't call this direct, the call is generated by the compiler
and by the halt procedure.
NOTICE: (CEC - 14/Aug/1998)
The order of calling this routine must not be changed, especially
regarding doerror, doerror should only be set by handlerror
and runerror and nowhere else, as certain system units require
exit procedures to clean up, and they rely on this behavior as not
to call themselves recursively.
}
var
current_exit : Procedure;
@ -530,7 +534,10 @@ end;
{
$Log$
Revision 1.27 1998-08-13 16:22:11 jonas
Revision 1.28 1998-08-17 12:24:16 carl
+ important comment added
Revision 1.27 1998/08/13 16:22:11 jonas
* random now returns a value between 0 and max-1 instead of between 0 and max
Revision 1.26 1998/08/11 00:05:26 peter