mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-15 11:29:16 +02:00
* do not save bx, cx, si and di in the msdos and intr functions, as preserving them isn't required for the pascal calling convention
git-svn-id: branches/i8086@24308 -
This commit is contained in:
parent
926dd1b41e
commit
ff5091cfb8
@ -102,11 +102,7 @@ FPC_INTR:
|
|||||||
mov al, byte [ss:bp + 6]
|
mov al, byte [ss:bp + 6]
|
||||||
mov byte [cs:int_number], al
|
mov byte [cs:int_number], al
|
||||||
push es
|
push es
|
||||||
push di
|
|
||||||
push bx
|
|
||||||
push cx
|
|
||||||
mov si, [ss:bp + 4]
|
mov si, [ss:bp + 4]
|
||||||
push si
|
|
||||||
push ds
|
push ds
|
||||||
mov ax, word [si + 16]
|
mov ax, word [si + 16]
|
||||||
mov es, ax
|
mov es, ax
|
||||||
@ -150,10 +146,6 @@ int_number:
|
|||||||
mov word [si + 18], ax
|
mov word [si + 18], ax
|
||||||
|
|
||||||
pop ds
|
pop ds
|
||||||
pop si
|
|
||||||
pop cx
|
|
||||||
pop bx
|
|
||||||
pop di
|
|
||||||
pop es
|
pop es
|
||||||
pop bp
|
pop bp
|
||||||
ret 4
|
ret 4
|
||||||
|
Loading…
Reference in New Issue
Block a user