瀏覽代碼

* ensure setting temporary UConv object to nil after freeing it

git-svn-id: trunk@29629 -
Tomas Hajny 10 年之前
父節點
當前提交
684f8fc769
共有 1 個文件被更改,包括 1 次插入0 次删除
  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