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

* huge model safe initialization of ES in PutPixelX

Browse Source 
git-svn-id: trunk@41041 -
This commit is contained in:
nickysn 2019-01-24 15:33:54 +00:00
parent 6cc00c887f
commit a190d65f92
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2631,7 +2631,13 @@ const CrtAddress: word = 0;
jg @@Done jg @@Done
@@ClipDone: @@ClipDone:
{$ifdef FPC_MM_HUGE}
mov bx, SEG SegA000
mov es, bx
mov es, es:[SegA000]
{$else FPC_MM_HUGE}
mov es, [SegA000] mov es, [SegA000]
{$endif FPC_MM_HUGE}
add di, [StartYViewPort] add di, [StartYViewPort]
(* Multiply by 80 start *) (* Multiply by 80 start *)
mov cl, 4 mov cl, 4