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

* Put back DoError, DO NOT TOUCH!

Browse Source
This commit is contained in:
carl 1998-07-02 12:55:04 +00:00
parent a546945c4d
commit fbe85528a9
1 changed files with 5 additions and 1 deletions

6
rtl/i386/i386.inc
View File

@ -548,6 +548,7 @@ procedure runerror(w : word);[alias: 'runerror'];
errorcode:=w;
exitcode:=w;
erroraddr:=pointer(get_addr);
DoError := TRUE;
errorbase:=get_error_bp;
halt(errorcode);
end;
@ -727,7 +728,10 @@ end;
{
$Log$
Revision 1.15 1998-07-02 12:19:32 carl
Revision 1.16 1998-07-02 12:55:04 carl
* Put back DoError, DO NOT TOUCH!
Revision 1.15 1998/07/02 12:19:32 carl
+ IO-Error and Overflow now print address in hex
Revision 1.14 1998/07/01 15:29:58 peter