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

* asm version of GetPixelX converted to pure asm

Browse Source 
git-svn-id: trunk@41019 -
This commit is contained in:
nickysn 2019-01-23 15:23:48 +00:00
parent 46f3c742f3
commit c86da93af8
1 changed files with 33 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2487,8 +2487,7 @@ const CrtAddress: word = 0;
GetPixelX := Mem[SegA000:offset];
end;
{$else asmgraph}
function GetPixelX(X,Y: smallint): ColorType;
begin
function GetPixelX(X,Y: smallint): ColorType; assembler;
asm
{$ifdef FPC_MM_HUGE}
mov ax, SEG SegA000
@ -2524,8 +2523,6 @@ const CrtAddress: word = 0;
(* End selection of plane *)
mov al, ES:[DI]
xor ah, ah
mov @Result, ax
end;
end;
{$endif asmgraph}