From 76a89eb2633e88b20cdf7972e839e8ee0fed993c Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Thu, 23 Dec 2004 17:27:37 +0000
Subject: [PATCH] never use ret direct in assembler

---
 rtl/go32v2/mouse.pp | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/rtl/go32v2/mouse.pp b/rtl/go32v2/mouse.pp
index 9c37246fc2..d06170c3c7 100644
--- a/rtl/go32v2/mouse.pp
+++ b/rtl/go32v2/mouse.pp
@@ -630,9 +630,10 @@ asm
         movzwl  %cx,%eax
         shrl    $3,%eax
         incl    %eax
-        ret
+        jmp .Lexit
 .LGetMouseXError:
         xorl    %eax,%eax
+.Lexit:
 end;
 
 
@@ -647,9 +648,10 @@ asm
         movzwl  %dx,%eax
         shrl    $3,%eax
         incl    %eax
-        ret
+        jmp .Lexit
 .LGetMouseYError:
         xorl    %eax,%eax
+.Lexit:
 end;
 
 
@@ -788,7 +790,10 @@ Begin
 end.
 {
   $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
 
   Revision 1.7  2002/09/07 16:01:18  peter