소스 검색

* patch by Christo Crause: FreeRTOS: heap manager doesn't free small blocks, resolves #37195

git-svn-id: trunk@45633 -
florian 5 년 전
부모
커밋
6698f6c56b
1개의 변경된 파일2개의 추가작업 그리고 0개의 파일을 삭제
  1. 2 0
      rtl/freertos/heapmgr.pp

+ 2 - 0
rtl/freertos/heapmgr.pp

@@ -195,6 +195,8 @@ Unit heapmgr;
             exit;
           end;
         sz := Align(FindSize(addr)+SizeOf(pointer), sizeof(pointer));
+        if sz < MinBlock then
+          sz := MinBlock;
 
         InternalFreeMem(@pptruint(addr)[-1], sz);