paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 10:40:13 +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}
function DirectoryExists (const Dirname: string): boolean;
function DirectoryExists (const Directory: string): boolean;
{$IFOPT H+}
assembler;
{$ELSE}
var FN: string;
begin
FN := Dirname + #0;
FN := Directory + #0;
{$ENDIF}
asm
mov ax, 4300h
{$IFOPT H+}
mov edx, Dirname
mov edx, Directory
{$ELSE}
lea edx, FN
inc edx
@ -983,7 +983,10 @@ end.
{
$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
Revision 1.23 2003/03/29 15:01:20 hajny