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

* another bunch of corrections

Browse Source
This commit is contained in:
Tomas Hajny 2000-06-04 15:04:22 +00:00
parent 34b92b0d17
commit a05ba0f12a
1 changed files with 32 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
rtl/os2/filutil.inc
View File

@ -37,32 +37,44 @@ begin
FN := FileName + #0; FN := FileName + #0;
{$ENDIF} {$ENDIF}
asm asm
mov eax, 7F2Bh mov eax, 7F2Bh
mov ecx, Mode mov ecx, Mode
{$IFOPT H+} {$IFOPT H+}
mov edx, FileName mov edx, FileName
{$ELSE} {$ELSE}
lea edx, FN lea edx, FN
inc edx inc edx
{$ENDIF} {$ENDIF}
call syscall call syscall
{$IFOPT H-} {$IFOPT H-}
mov [ebp - 4], eax
end; end;
{$ENDIF} {$ENDIF}
end; end;
function FileCreate (const FileName: string): longint; function FileCreate (const FileName: string): longint;
{$IFOPT H+}
assembler;
{$ELSE}
var FN: string; var FN: string;
begin begin
FN := FileName + #0; FN := FileName + #0;
{$ENDIF}
asm asm
mov eax, 7F2Bh mov eax, 7F2Bh
mov ecx, ofReadWrite or faCreate mov ecx, ofReadWrite or faCreate
lea edx, FN {$IFOPT H+}
inc edx mov edx, FileName
call syscall {$ELSE}
lea edx, FN
inc edx
{$ENDIF}
call syscall
{$IFOPT H-}
mov [ebp - 4], eax
end; end;
{$ENDIF}
end; end;
@ -228,6 +240,7 @@ begin
jnc @FSetDateEnd jnc @FSetDateEnd
mov eax, -1 mov eax, -1
@FSetDateEnd: @FSetDateEnd:
mov [ebp - 4], eax
end; end;
end; end;
@ -253,6 +266,7 @@ asm
mov eax, -1 mov eax, -1
@FGetAttrEnd: @FGetAttrEnd:
{$IFOPT H-} {$IFOPT H-}
mov [ebp - 4], eax
end; end;
{$ENDIF} {$ENDIF}
end; end;
@ -281,6 +295,7 @@ asm
mov eax, -1 mov eax, -1
@FSetAttrEnd: @FSetAttrEnd:
{$IFOPT H-} {$IFOPT H-}
mov [ebp - 4], eax
end; end;
{$ENDIF} {$ENDIF}
end; end;
@ -308,6 +323,7 @@ asm
inc eax inc eax
@FDeleteEnd: @FDeleteEnd:
{$IFOPT H-} {$IFOPT H-}
mov [ebp - 4], eax
end; end;
{$ENDIF} {$ENDIF}
end; end;
@ -339,6 +355,7 @@ asm
inc eax inc eax
@FRenameEnd: @FRenameEnd:
{$IFOPT H-} {$IFOPT H-}
mov [ebp - 4], eax
end; end;
{$ENDIF} {$ENDIF}
end; end;
@ -370,7 +387,10 @@ end;
{ {
$Log$ $Log$
Revision 1.10 2000-06-04 14:22:02 hajny Revision 1.11 2000-06-04 15:04:22 hajny
* another bunch of corrections
Revision 1.10 2000/06/04 14:22:02 hajny
* minor corrections * minor corrections
Revision 1.9 2000/06/01 18:36:50 hajny Revision 1.9 2000/06/01 18:36:50 hajny