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

* fixed put- and getpixel320 for fpc

Browse Source
This commit is contained in:
Jonas Maebe 1999-12-29 16:43:44 +00:00
parent 293e8aab2c
commit a4fc0eba52
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rtl/go32v2/graph.inc
View File

@ -1022,8 +1022,8 @@ End;
{$else fpc}
assembler;
asm
movzx edi, x
movzx ebx, y
movsx edi, x
movsx ebx, y
cmp clippixels, 0
je @putpix320noclip
test edi, edi
@ -1068,14 +1068,14 @@ End;
{$else fpc}
assembler;
asm
movzx edi, x
movzx ebx, y
movsx edi, x
movsx ebx, y
add di, StartXViewPort
add bx, StartYViewPort
{ add edi, [VideoOfs] no multiple pages in 320*200*256 }
shl ebx, 6
add edi, ebx
mov al, fs:[edi+ebx*4+$a0000]
movzx ax, byte ptr fs:[edi+ebx*4+$a0000]
{$endif fpc}
end;
@ -2517,7 +2517,10 @@ const CrtAddress: word = 0;
{
$Log$
Revision 1.10 1999-12-26 10:36:00 jonas
Revision 1.11 1999-12-29 16:43:44 jonas
* fixed put- and getpixel320 for fpc
Revision 1.10 1999/12/26 10:36:00 jonas
* finished patternlineVESA256 and enabled it
* folded (direct)put/getpixVESA32k and 64k into one procedure since
they were exactly the same code