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

* removed asm for copy, use dosmemput (merged)

Browse Source
This commit is contained in:
peter 2001-05-09 19:53:28 +00:00
parent 13877f29b2
commit c83a4c963f
1 changed files with 5 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
rtl/go32v2/video.pp
View File

@ -279,25 +279,7 @@ begin
end; end;
if Force then if Force then
begin begin
{ dosmemput(videoseg,0,videobuf^,VideoBufSize);} dosmemput(videoseg,0,videobuf^,VideoBufSize);
asm
pushw %es
pushl %edi
pushl %esi
xor %edi, %edi
movw videoseg, %di
shll $0x4, %edi
movl videobuf, %esi
movl videobufsize, %ecx
movw %fs, %ax
movw %ax, %es
rep movsb
popl %esi
popl %edi
popw %es
end ['EAX','ECX'];
move(videobuf^,oldvideobuf^,VideoBufSize); move(videobuf^,oldvideobuf^,VideoBufSize);
end; end;
end; end;
@ -321,7 +303,10 @@ finalization
end. end.
{ {
$Log$ $Log$
Revision 1.1 2001-01-13 11:03:58 peter Revision 1.2 2001-05-09 19:53:28 peter
* removed asm for copy, use dosmemput (merged)
Revision 1.1 2001/01/13 11:03:58 peter
* API 2 RTL commit * API 2 RTL commit
} }