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

* fixed GetPixel320

Browse Source 
git-svn-id: trunk@15870 -
This commit is contained in:
nickysn 2010-08-21 22:07:52 +00:00
parent dabb5be491
commit a386a642cc
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1213,7 +1213,6 @@ End;
{$else fpc}
assembler;
asm
push eax
push ebx
push ecx
push edx
@ -1232,12 +1231,11 @@ End;
{ add edi, [VideoOfs] no multiple pages in 320*200*256 }
shl ebx, 6
add edi, ebx
movzx ax, byte ptr fs:[edi+ebx*4+$a0000]
movzx eax, byte ptr fs:[edi+ebx*4+$a0000]
pop edi
pop edx
pop ecx
pop ebx
pop eax
{$endif fpc}
end;