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

* fixed assert() to push/pop registers

Browse Source
This commit is contained in:
peter 1999-07-28 12:58:22 +00:00
parent 9ef6024cda
commit 00c8bda3b2
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/inc/system.inc
View File

@ -535,10 +535,16 @@ Procedure int_assert(Const Msg,FName:string;LineNo,ErrorAddr:Longint); [Public,A
type
TAssertErrorProc=procedure(const msg,fname:string;lineno,erroraddr:longint);
begin
asm
pushal
end;
if AssertErrorProc<>nil then
TAssertErrorProc(AssertErrorProc)(Msg,FName,LineNo,ErrorAddr)
else
HandleError(227);
asm
popal
end;
end;
@ -567,7 +573,10 @@ end;
{
$Log$
Revision 1.64 1999-07-05 20:04:27 peter
Revision 1.65 1999-07-28 12:58:22 peter
* fixed assert() to push/pop registers
Revision 1.64 1999/07/05 20:04:27 peter
* removed temp defines
Revision 1.63 1999/07/03 01:24:19 peter