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

* PutPixelX converted to a pure assembler routine

Browse Source 
git-svn-id: trunk@41042 -
This commit is contained in:
nickysn 2019-01-24 15:37:37 +00:00
parent a190d65f92
commit a22ac81677
1 changed files with 55 additions and 57 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2606,8 +2606,7 @@ const CrtAddress: word = 0;
Mem[SegA000:offset] := color;
end;
{$else asmgraph}
Procedure PutPixelX(X,Y: smallint; color:ColorType);
begin
Procedure PutPixelX(X,Y: smallint; color:ColorType); assembler;
asm
push ax
push bx
@ -2671,7 +2670,6 @@ const CrtAddress: word = 0;
pop bx
pop ax
end;
end;
{$endif asmgraph}