|
@@ -276,9 +276,6 @@ End;
|
|
|
{$R-}
|
|
{$R-}
|
|
|
{$Q-}
|
|
{$Q-}
|
|
|
|
|
|
|
|
-{ PLEASE DO NOT OPTIMIZE BECAUSE THEY ACTUALLY WORK CORRECTLY - unless }
|
|
|
|
|
-{ you want me to go violent :) (CEC) }
|
|
|
|
|
-
|
|
|
|
|
Procedure UseSeed(seed : Longint);Forward;
|
|
Procedure UseSeed(seed : Longint);Forward;
|
|
|
|
|
|
|
|
|
|
|
|
@@ -439,6 +436,13 @@ End;
|
|
|
Procedure Do_exit;[Public,Alias: '__EXIT'];
|
|
Procedure Do_exit;[Public,Alias: '__EXIT'];
|
|
|
{
|
|
{
|
|
|
Don't call this direct, the call is generated by the compiler
|
|
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
|
|
var
|
|
|
current_exit : Procedure;
|
|
current_exit : Procedure;
|
|
@@ -530,7 +534,10 @@ end;
|
|
|
|
|
|
|
|
{
|
|
{
|
|
|
$Log$
|
|
$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
|
|
* 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
|
|
Revision 1.26 1998/08/11 00:05:26 peter
|
carl