单步调试到GETMEM.INC的 
mov TSmallBlockPoolHeader[ecx].PreviousPartiallyFreePool, edx
这段汇编代码处,但是汇编代码不太懂,所以看不明白

解决方案 »

  1.   


    @SmallPoolWasFull:
      {Insert this as the first partially free pool for the block size}
      mov ecx, TSmallBlockType[ebx].NextPartiallyFreePool
      mov TSmallBlockPoolHeader[edx].PreviousPartiallyFreePool, ebx
      mov TSmallBlockPoolHeader[edx].NextPartiallyFreePool, ecx
      mov TSmallBlockPoolHeader[ecx].PreviousPartiallyFreePool, edx
      mov TSmallBlockType[ebx].NextPartiallyFreePool, edx
      {Unlock the block type}
      mov TSmallBlockType[ebx].BlockTypeLocked, False
      {All ok}
      xor eax, eax
      {Restore registers}
      pop ebx
      {Done}
      ret
      {Align branch target}
      nop
      nop就是这段代码