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

* remove Jonas unnecessary (but correct) code

Browse Source
This commit is contained in:
pierre 2000-02-28 11:17:48 +00:00
parent 63aea60fdb
commit 1ce3442161
1 changed files with 5 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
rtl/go32v2/v2prt0.as
View File

@ -396,15 +396,9 @@ brk_common:
movl %eax, %ebx /* size not limit */ movl %eax, %ebx /* size not limit */
shrl $16, %ebx /* BX:CX size */ shrl $16, %ebx /* BX:CX size */
movw $0x0902, %ax /* disable interrupts */ movw $0x0900, %ax /* disable interrupts */
int $0x31 int $0x31
movl %eax,___sbrk_interrupt_state movl %eax,___sbrk_interrupt_state
testb %al,%al
jz interrupts_already_disabled
movw $0x0900,%eax
int $0x31
interrupts_already_disabled:
lcall sbrk16_api_ofs lcall sbrk16_api_ofs
setc %dl /* Save carry */ setc %dl /* Save carry */
@ -456,11 +450,7 @@ interrupts_already_disabled:
int $0x31 int $0x31
movl ___sbrk_interrupt_state,%eax /* restore interrupts */ movl ___sbrk_interrupt_state,%eax /* restore interrupts */
testb %al,%al
je do_not_enable
movw $0x0901,%eax
int $0x31 int $0x31
do_not_enable:
movl ___djgpp_selector_limit, %edx movl ___djgpp_selector_limit, %edx
12: incl %edx /* Size not limit */ 12: incl %edx /* Size not limit */
testb $0x60, __crt0_startup_flags /* include/crt0.h */ testb $0x60, __crt0_startup_flags /* include/crt0.h */
@ -916,7 +906,10 @@ ___PROXY_LEN:
/* /*
$Log$ $Log$
Revision 1.11 2000-02-27 11:21:17 pierre Revision 1.12 2000-02-28 11:17:48 pierre
* remove Jonas unnecessary (but correct) code
Revision 1.11 2000/02/27 11:21:17 pierre
* Enormous bug in mouse fix fixed * Enormous bug in mouse fix fixed
Revision 1.10 2000/02/23 12:46:11 jonas Revision 1.10 2000/02/23 12:46:11 jonas