paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 11:30:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

* correction for THandle length change

Browse Source
This commit is contained in:
Tomas Hajny 2002-09-22 16:04:19 +00:00
parent 25555f3efb
commit 7403f31f07
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/os2/objinc.inc
View File

@ -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
}