mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-16 23:21:57 +02:00
- removed the unnecessary for the pascal calling convention register save/restores in DirectPutPixelX
git-svn-id: trunk@41049 -
This commit is contained in:
parent
93fe4d789e
commit
4dfee9efc9
@ -2695,12 +2695,6 @@ const CrtAddress: word = 0;
|
||||
Procedure DirectPutPixelX(X,Y: smallint); assembler;
|
||||
{ note: still needs or/and/notput support !!!!! (JM) }
|
||||
asm
|
||||
push ax
|
||||
push bx
|
||||
push cx
|
||||
push dx
|
||||
push es
|
||||
push di
|
||||
{$IFDEF REGCALL}
|
||||
mov cl, al
|
||||
mov di, dx
|
||||
@ -2734,12 +2728,6 @@ const CrtAddress: word = 0;
|
||||
xor al,ah { xor it and return value into AL }
|
||||
@MovMode:
|
||||
mov es:[di], al
|
||||
pop di
|
||||
pop es
|
||||
pop dx
|
||||
pop cx
|
||||
pop bx
|
||||
pop ax
|
||||
end;
|
||||
{$endif asmgraph}
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user