소스 검색

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

git-svn-id: trunk@28948 -
Tomas Hajny 11 년 전
부모
커밋
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];