ソースを参照

* minor optimization (don't clear the result of GetDynLibsErrorStr twice)

git-svn-id: trunk@28948 -
Tomas Hajny 10 年 前
コミット
6c17c9cb29
1 ファイル変更3 行追加2 行削除
  1. 3 2
      rtl/os2/dynlibs.inc

+ 3 - 2
rtl/os2/dynlibs.inc

@@ -113,8 +113,9 @@ var
  RetMsgSize: cardinal;
  RC: cardinal;
 begin
- GetDynLibsErrorStr := '';
- if DynLibErrNo <> 0 then
+ if DynLibErrNo = 0 then
+  GetDynLibsErrorStr := ''
+ else
   begin
    Result := '';
    VarArr [1] := @DynLibErrPath [0];