浏览代码

* Dont throw runerrors in default MemoryMutexManager if HAS_MT_MEMORYMANAGER is defined.

git-svn-id: trunk@5962 -
yury 19 年之前
父节点
当前提交
3c10856a4f
共有 1 个文件被更改,包括 4 次插入0 次删除
  1. 4 0
      rtl/inc/heap.inc

+ 4 - 0
rtl/inc/heap.inc

@@ -1260,16 +1260,20 @@ end;
 
 
 procedure SysHeapMutexLock;
 procedure SysHeapMutexLock;
 begin
 begin
+{$ifndef HAS_MT_MEMORYMANAGER}
   { give an runtime error. the program is running multithreaded without
   { give an runtime error. the program is running multithreaded without
     any heap protection. this will result in unpredictable errors so
     any heap protection. this will result in unpredictable errors so
     stopping here with an error is more safe (PFV) }
     stopping here with an error is more safe (PFV) }
   runerror(244);
   runerror(244);
+{$endif}
 end;
 end;
 
 
 procedure SysHeapMutexUnLock;
 procedure SysHeapMutexUnLock;
 begin
 begin
+{$ifndef HAS_MT_MEMORYMANAGER}
   { see SysHeapMutexLock for comment }
   { see SysHeapMutexLock for comment }
   runerror(244);
   runerror(244);
+{$endif}
 end;
 end;
 
 
 {$ifndef HAS_MEMORYMANAGER}
 {$ifndef HAS_MEMORYMANAGER}