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

* more xp fixes

Browse Source
This commit is contained in:
peter 2001-12-26 21:20:47 +00:00
parent 21a8c2cc8e
commit 721c73276e
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rtl/go32v2/mouse.pp
View File

@ -266,7 +266,15 @@ ASM
POP %FS; { Restore FS register } POP %FS; { Restore FS register }
POP %DS; { Restore DS register } POP %DS; { Restore DS register }
POP %ES; { Restore ES register } POP %ES; { Restore ES register }
movzwl %si,%eax movw %ds,%ax;
lsl %eax,%eax;
cmpl %eax,%esi;
ja .Lsimplecopy;
movzwl %si,%eax;
jmp .Lcopyend;
.Lsimplecopy:
movl %esi,%eax;
.Lcopyend:
MOVL %ds:(%Eax), %EAX; MOVL %ds:(%Eax), %EAX;
MOVL %EAX, %ES:42(%EDI); { Set as return addr } MOVL %EAX, %ES:42(%EDI); { Set as return addr }
ADDW $4, %ES:46(%EDI); { adjust stack } ADDW $4, %ES:46(%EDI); { adjust stack }
@ -747,7 +755,10 @@ Begin
end. end.
{ {
$Log$ $Log$
Revision 1.3 2001-12-26 21:03:56 peter Revision 1.4 2001-12-26 21:20:47 peter
* more xp fixes
Revision 1.3 2001/12/26 21:03:56 peter
* merged fixes from 1.0.x * merged fixes from 1.0.x
Revision 1.2 2001/09/22 00:01:42 michael Revision 1.2 2001/09/22 00:01:42 michael