paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-14 06:46:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

* small bug fix to get it compiled with bugfix version !!

Browse Source 
(again the asmmode problem !!!
    Peter it was really not the best idea you had !!)
This commit is contained in:
pierre 1998-08-04 14:34:38 +00:00
parent d48489373f
commit cf0cb6a5b5
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rtl/dos/go32v2/system.pp
View File

@ -165,18 +165,18 @@ begin
{$ifdef SYSTEMDEBUG} {$ifdef SYSTEMDEBUG}
movl U_SYSTEM_LOWESTSTACK,%ebx movl U_SYSTEM_LOWESTSTACK,%ebx
cmpl %eax,%ebx cmpl %eax,%ebx
jb _is_not_lowest jb .L_is_not_lowest
movl %eax,U_SYSTEM_LOWESTSTACK movl %eax,U_SYSTEM_LOWESTSTACK
_is_not_lowest: .L_is_not_lowest:
{$endif SYSTEMDEBUG} {$endif SYSTEMDEBUG}
movl __stkbottom,%ebx movl __stkbottom,%ebx
cmpl %eax,%ebx cmpl %eax,%ebx
jae __short_on_stack jae .L__short_on_stack
popl %ebx popl %ebx
popl %eax popl %eax
leave leave
ret $4 ret $4
__short_on_stack: .L__short_on_stack:
{ can be usefull for error recovery !! } { can be usefull for error recovery !! }
popl %ebx popl %ebx
popl %eax popl %eax
@ -1057,7 +1057,12 @@ Begin
End. End.
{ {
$Log$ $Log$
Revision 1.13 1998-07-30 13:26:22 michael Revision 1.14 1998-08-04 14:34:38 pierre
* small bug fix to get it compiled with bugfix version !!
(again the asmmode problem !!!
Peter it was really not the best idea you had !!)
Revision 1.13 1998/07/30 13:26:22 michael
+ Added support for ErrorProc variable. All internal functions are required + Added support for ErrorProc variable. All internal functions are required
to call HandleError instead of runerror from now on. to call HandleError instead of runerror from now on.
This is necessary for exception support. This is necessary for exception support.