Jelajahi Sumber

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

git-svn-id: trunk@28948 -
Tomas Hajny 10 tahun lalu
induk
melakukan
6c17c9cb29
1 mengubah file dengan 3 tambahan dan 2 penghapusan
  1. 3 2
      rtl/os2/dynlibs.inc

+ 3 - 2
rtl/os2/dynlibs.inc

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