Преглед изворни кода

* Directoryexists function header changed back.

yuri пре 22 година
родитељ
комит
17d81f45a5
1 измењених фајлова са 7 додато и 4 уклоњено
  1. 7 4
      rtl/os2/sysutils.pp

+ 7 - 4
rtl/os2/sysutils.pp

@@ -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