Pārlūkot izejas kodu

* ensure setting temporary UConv object to nil after freeing it

git-svn-id: trunk@29629 -
Tomas Hajny 10 gadi atpakaļ
vecāks
revīzija
684f8fc769
1 mainītis faili ar 1 papildinājumiem un 0 dzēšanām
  1. 1 0
      rtl/os2/sysucode.inc

+ 1 - 0
rtl/os2/sysucode.inc

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