Browse Source

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

git-svn-id: trunk@28948 -
Tomas Hajny 10 năm trước cách đây
mục cha
commit
6c17c9cb29
1 tập tin đã thay đổi với 3 bổ sung2 xóa
  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];