Explorar o código

* ensure setting temporary UConv object to nil after freeing it

git-svn-id: trunk@29629 -
Tomas Hajny %!s(int64=10) %!d(string=hai) anos
pai
achega
684f8fc769
Modificáronse 1 ficheiros con 1 adicións e 0 borrados
  1. 1 0
      rtl/os2/sysucode.inc

+ 1 - 0
rtl/os2/sysucode.inc

@@ -898,6 +898,7 @@ begin
         RCI := Sys_UniFreeUConvObject (TempCpRec.UConvObj);
         if RCI <> 0 then
          OSErrorWatch (cardinal (RCI));
+        TempCpRec.UConvObj := nil;
        end;
       if UConvObjectForCP (CP, UConvObj) = Uls_Success then
        begin