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

* use rep movsw in crt.dosmemmove for i8086-msdos

Browse Source 
git-svn-id: trunk@24681 -
This commit is contained in:
nickysn 2013-05-31 22:26:16 +00:00
parent 0446ccbba7
commit 68a80ccc66
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/msdos/crt.pp
View File

@ -61,11 +61,19 @@ asm
mov es, ax mov es, ax
mov di, dofs mov di, dofs
mov si, sofs mov si, sofs
mov cx, count mov dx, count
mov cx, dx
mov ax, sseg mov ax, sseg
push ds push ds
mov ds, ax mov ds, ax
shr cx, 1
jz @@1
rep movsw
@@1:
and dl, 1
jz @@2
rep movsb rep movsb
@@2:
pop ds pop ds
end; end;