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

- removed commented out code from PutPixel320 and GetPixel320

Browse Source 
git-svn-id: trunk@40895 -
This commit is contained in:
nickysn 2019-01-18 13:49:05 +00:00
parent 61e91a3c6c
commit ff78058f8c
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2384,7 +2384,6 @@ End;
shr ax, 1 shr ax, 1
shr ax, 1 shr ax, 1
add di, ax add di, ax
// add di, [VideoOfs] { point to correct page.. }
mov ax, [Pixel] mov ax, [Pixel]
mov es:[di], al mov es:[di], al
end ['ax','di']; end ['ax','di'];
@ -2405,7 +2404,6 @@ End;
shr ax, 1 shr ax, 1
add di, ax add di, ax
xor ax, ax xor ax, ax
// add di, [VideoOfs] { point to correct gfx page ... }
mov al,es:[di] mov al,es:[di]
mov word ptr @Result,ax mov word ptr @Result,ax
{$ifdef FPC_GRAPH_SUPPORTS_TRUECOLOR} {$ifdef FPC_GRAPH_SUPPORTS_TRUECOLOR}