paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 22:14:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Directoryexists function header changed back.

Browse Source
This commit is contained in:
yuri 2003-03-29 19:14:16 +00:00
parent c6747b6e99
commit 17d81f45a5
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/os2/sysutils.pp
View File

@ -818,18 +818,18 @@ end;
{$ASMMODE INTEL} {$ASMMODE INTEL}
function DirectoryExists (const Dirname: string): boolean; function DirectoryExists (const Directory: string): boolean;
{$IFOPT H+} {$IFOPT H+}
assembler; assembler;
{$ELSE} {$ELSE}
var FN: string; var FN: string;
begin begin
FN := Dirname + #0; FN := Directory + #0;
{$ENDIF} {$ENDIF}
asm asm
mov ax, 4300h mov ax, 4300h
{$IFOPT H+} {$IFOPT H+}
mov edx, Dirname mov edx, Directory
{$ELSE} {$ELSE}
lea edx, FN lea edx, FN
inc edx inc edx
@ -983,7 +983,10 @@ end.
{ {
$Log$ $Log$
Revision 1.24 2003-03-29 18:53:10 yuri Revision 1.25 2003-03-29 19:14:16 yuri
* Directoryexists function header changed back.
Revision 1.24 2003/03/29 18:53:10 yuri
* Fixed DirectoryExists function header * Fixed DirectoryExists function header
Revision 1.23 2003/03/29 15:01:20 hajny Revision 1.23 2003/03/29 15:01:20 hajny