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

* declare all registers as clobbered by int 10h in the asm block in SetVisual200_350 and leave it to fpc to preserve what is necessary

Browse Source 
git-svn-id: trunk@41103 -
This commit is contained in:
nickysn 2019-01-28 17:32:14 +00:00
parent c3bdb2c2ee
commit 8a96bb656f
1 changed files with 1 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packages/graph/src/go32v2/graph.pp
View File

@ -2237,16 +2237,8 @@ End;
asm
mov ax,[page] { only lower byte is supported. }
mov ah,05h
push ebp
push esi
push edi
push ebx
int 10h
pop ebx
pop edi
pop esi
pop ebp
end ['EDX','EAX'];
end ['EAX','EBX','ECX','EDX','ESI','EDI','EBP'];
end;
procedure SetActive200(page: word);