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

- removed the unnecessary for the pascal calling convention register save/restores in DirectPutPixelX

Browse Source 
git-svn-id: trunk@41049 -
This commit is contained in:
nickysn 2019-01-24 16:06:05 +00:00
parent 93fe4d789e
commit 4dfee9efc9
1 changed files with 0 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packages/graph/src/msdos/graph.pp
View File

@ -2695,12 +2695,6 @@ const CrtAddress: word = 0;
Procedure DirectPutPixelX(X,Y: smallint); assembler; Procedure DirectPutPixelX(X,Y: smallint); assembler;
{ note: still needs or/and/notput support !!!!! (JM) } { note: still needs or/and/notput support !!!!! (JM) }
asm asm
push ax
push bx
push cx
push dx
push es
push di
{$IFDEF REGCALL} {$IFDEF REGCALL}
mov cl, al mov cl, al
mov di, dx mov di, dx
@ -2734,12 +2728,6 @@ const CrtAddress: word = 0;
xor al,ah { xor it and return value into AL } xor al,ah { xor it and return value into AL }
@MovMode: @MovMode:
mov es:[di], al mov es:[di], al
pop di
pop es
pop dx
pop cx
pop bx
pop ax
end; end;
{$endif asmgraph} {$endif asmgraph}