paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 07:09:18 +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} {$else fpc}
assembler; assembler;
asm asm
push eax
push ebx push ebx
push ecx push ecx
push edx push edx
@ -1232,12 +1231,11 @@ End;
{ add edi, [VideoOfs] no multiple pages in 320*200*256 } { add edi, [VideoOfs] no multiple pages in 320*200*256 }
shl ebx, 6 shl ebx, 6
add edi, ebx add edi, ebx
movzx ax, byte ptr fs:[edi+ebx*4+$a0000] movzx eax, byte ptr fs:[edi+ebx*4+$a0000]
pop edi pop edi
pop edx pop edx
pop ecx pop ecx
pop ebx pop ebx
pop eax
{$endif fpc} {$endif fpc}
end; end;