From 7403f31f078dfad81c372c271afbf857be6bce58 Mon Sep 17 00:00:00 2001
From: Tomas Hajny <hajny@freepascal.org>
Date: Sun, 22 Sep 2002 16:04:19 +0000
Subject: [PATCH]   * correction for THandle length change

---
 rtl/os2/objinc.inc | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/rtl/os2/objinc.inc b/rtl/os2/objinc.inc
index 15319f6250..dfceb25ca5 100644
--- a/rtl/os2/objinc.inc
+++ b/rtl/os2/objinc.inc
@@ -132,12 +132,12 @@ end;
 function SetFileSize (Handle: THandle; FileSize: longint): word; assembler;
 asm
     movl $0x7F18, %eax
-    movzwl Handle, %ebx
+    movl Handle, %ebx
     movl FileSize,%edx
     call syscall
     jc .LSetFSize1
     movl $0x4202, %eax
-    movzwl Handle, %ebx
+    movl Handle, %ebx
     movl $0, %edx
     call syscall
     movl $0, %eax
@@ -148,7 +148,10 @@ end;
 
 {
   $Log$
-  Revision 1.4  2002-09-07 16:01:24  peter
+  Revision 1.5  2002-09-22 16:04:19  hajny
+    * correction for THandle length change
+
+  Revision 1.4  2002/09/07 16:01:24  peter
     * old logs removed and tabs fixed
 
 }