mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-26 14:30:33 +02:00
go32v2 graph: fix for seg_bytemove so that it works with oldfpccall and register calling
conventions. git-svn-id: trunk@11283 -
This commit is contained in:
parent
fdd8ad7608
commit
048c7224b0
@ -152,19 +152,17 @@ const
|
||||
push es
|
||||
push ds
|
||||
cld
|
||||
mov ecx,count
|
||||
mov esi,source
|
||||
mov edi,dest
|
||||
mov ax,dseg
|
||||
mov es,ax
|
||||
mov ax,sseg
|
||||
mov ds,ax
|
||||
mov es, dseg
|
||||
mov esi, source
|
||||
mov edi, dest
|
||||
mov ecx, count
|
||||
mov ds,sseg
|
||||
rep movsb
|
||||
pop ds
|
||||
pop es
|
||||
pop esi
|
||||
pop edi
|
||||
end ['ECX','EAX'];
|
||||
end ['ECX'];
|
||||
{$endif tp}
|
||||
|
||||
Procedure CallInt10(val_ax : word); assembler;
|
||||
|
Loading…
Reference in New Issue
Block a user