paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 01:29:19 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/i386/i386.inc
View File

@ -548,6 +548,7 @@ procedure runerror(w : word);[alias: 'runerror'];
errorcode:=w; errorcode:=w;
exitcode:=w; exitcode:=w;
erroraddr:=pointer(get_addr); erroraddr:=pointer(get_addr);
DoError := TRUE;
errorbase:=get_error_bp; errorbase:=get_error_bp;
halt(errorcode); halt(errorcode);
end; end;
@ -727,7 +728,10 @@ end;
{ {
$Log$ $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 + IO-Error and Overflow now print address in hex
Revision 1.14 1998/07/01 15:29:58 peter Revision 1.14 1998/07/01 15:29:58 peter