Browse Source

* getdir needs overload; directives to work

git-svn-id: branches/unicode@24790 -
marco 12 years ago
parent
commit
bfe1eed083
2 changed files with 3 additions and 3 deletions
  1. 1 1
      rtl/inc/dosh.inc
  2. 2 2
      rtl/inc/systemh.inc

+ 1 - 1
rtl/inc/dosh.inc

@@ -149,4 +149,4 @@ Function  GetMsCount: int64;
 Procedure chdir(const s:string);
 Procedure mkdir(const s:string);
 Procedure rmdir(const s:string); overload;
-procedure GetDir(Drivenr:Byte;var Dir: string);
+procedure GetDir(Drivenr:Byte;var Dir: string);overload;

+ 2 - 2
rtl/inc/systemh.inc

@@ -1129,13 +1129,13 @@ procedure SetTextCodePage(var T: Text; CodePage: TSystemCodePage);
 Procedure chdir(const s:unicodestring); overload;
 Procedure mkdir(const s:unicodestring); overload;
 Procedure rmdir(const s:unicodestring); overload;
-Procedure getdir(drivenr:byte;var dir: unicodestring);
+Procedure getdir(drivenr:byte;var dir: unicodestring);overload;
 {$endif}
 {$ifdef FPC_HAS_FEATURE_ANSISTRINGS}
 Procedure chdir(const s:rawbytestring); overload;
 Procedure mkdir(const s:rawbytestring); overload;
 Procedure rmdir(const s:rawbytestring); overload;
-Procedure getdir(drivenr:byte;var dir: rawbytestring);{$ifdef FPC_HAS_CPSTRING}rtlproc;{$endif FPC_HAS_CPSTRING}// defaultrtlfilesystemcodepage is used here
+Procedure getdir(drivenr:byte;var dir: rawbytestring);overload;{$ifdef FPC_HAS_CPSTRING}rtlproc;{$endif FPC_HAS_CPSTRING}// defaultrtlfilesystemcodepage is used here
 {$ENDIF}
 {$endif FPC_HAS_FEATURE_FILEIO}