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

never use ret direct in assembler

Browse Source
This commit is contained in:
peter 2004-12-23 17:27:37 +00:00
parent 0c7371eac6
commit 76a89eb263
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/go32v2/mouse.pp
View File

@ -630,9 +630,10 @@ asm
movzwl %cx,%eax movzwl %cx,%eax
shrl $3,%eax shrl $3,%eax
incl %eax incl %eax
ret jmp .Lexit
.LGetMouseXError: .LGetMouseXError:
xorl %eax,%eax xorl %eax,%eax
.Lexit:
end; end;
@ -647,9 +648,10 @@ asm
movzwl %dx,%eax movzwl %dx,%eax
shrl $3,%eax shrl $3,%eax
incl %eax incl %eax
ret jmp .Lexit
.LGetMouseYError: .LGetMouseYError:
xorl %eax,%eax xorl %eax,%eax
.Lexit:
end; end;
@ -788,7 +790,10 @@ Begin
end. end.
{ {
$Log$ $Log$
Revision 1.8 2003-10-03 21:46:25 peter Revision 1.9 2004-12-23 17:27:37 peter
never use ret direct in assembler
Revision 1.8 2003/10/03 21:46:25 peter
* stdcall fixes * stdcall fixes
Revision 1.7 2002/09/07 16:01:18 peter Revision 1.7 2002/09/07 16:01:18 peter