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

* Fixed DirectoryExists function header

Browse Source
This commit is contained in:
yuri 2003-03-29 18:53:10 +00:00
parent 9e0f41900a
commit d1c4449d7f
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 Directory: string): boolean;
function DirectoryExists (const Dirname: string): boolean;
{$IFOPT H+}
assembler;
{$ELSE}
var FN: string;
begin
FN := Directory + #0;
FN := Dirname + #0;
{$ENDIF}
asm
mov ax, 4300h
{$IFOPT H+}
mov edx, Directory
mov edx, Dirname
{$ELSE}
lea edx, FN
inc edx
@ -983,7 +983,10 @@ end.
{
$Log$
Revision 1.23 2003-03-29 15:01:20 hajny
Revision 1.24 2003-03-29 18:53:10 yuri
* Fixed DirectoryExists function header
Revision 1.23 2003/03/29 15:01:20 hajny
+ DirectoryExists added for main branch OS/2 too
Revision 1.22 2003/03/01 21:19:14 hajny