Quellcode durchsuchen

* ensure setting temporary UConv object to nil after freeing it

git-svn-id: trunk@29629 -
Tomas Hajny vor 10 Jahren
Ursprung
Commit
684f8fc769
1 geänderte Dateien mit 1 neuen und 0 gelöschten Zeilen
  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