paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-04 18:50:37 +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; function SetFileSize (Handle: THandle; FileSize: longint): word; assembler;
asm asm
movl $0x7F18, %eax movl $0x7F18, %eax
movzwl Handle, %ebx movl Handle, %ebx
movl FileSize,%edx movl FileSize,%edx
call syscall call syscall
jc .LSetFSize1 jc .LSetFSize1
movl $0x4202, %eax movl $0x4202, %eax
movzwl Handle, %ebx movl Handle, %ebx
movl $0, %edx movl $0, %edx
call syscall call syscall
movl $0, %eax movl $0, %eax
@ -148,7 +148,10 @@ end;
{ {
$Log$ $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 * old logs removed and tabs fixed
} }