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

- removed the REGCALL ifdefs from PutPixel320

Browse Source 
git-svn-id: trunk@41108 -
This commit is contained in:
nickysn 2019-01-29 13:00:24 +00:00
parent f8817b128a
commit 5a8d57d8f4
1 changed files with 0 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/graph/src/go32v2/graph.pp
View File

@ -2292,14 +2292,9 @@ End;
push ebx push ebx
push ecx push ecx
push edi push edi
{$IFDEF REGCALL}
movsx edi, ax movsx edi, ax
movsx ebx, dx movsx ebx, dx
mov al, cl mov al, cl
{$ELSE REGCALL}
movsx edi, x
movsx ebx, y
{$ENDIF REGCALL}
cmp clippixels, 0 cmp clippixels, 0
je @putpix320noclip je @putpix320noclip
test edi, edi test edi, edi
@ -2316,9 +2311,6 @@ End;
add ebx, ecx add ebx, ecx
add edi, edx add edi, edx
{ add edi, [VideoOfs] no multiple pages in 320*200*256 } { add edi, [VideoOfs] no multiple pages in 320*200*256 }
{$IFNDEF REGCALL}
mov ax, [pixel]
{$ENDIF REGCALL}
shl ebx, 6 shl ebx, 6
add edi, ebx add edi, ebx
mov fs:[edi+ebx*4+$a0000], al mov fs:[edi+ebx*4+$a0000], al