delphi多线程加锁

   前几日,调试一BUG,过程先不说,最后调试到MM,即Debug dcu,然后进入到GetMem.inc中的Get/FreeMem函数处后,出现AV。

   然后一通找。。。郁闷了N天,后来发现将MM切换到QMM后,一切正常,然后再切回原MM,BUG出现。。。

   按经验,此类问题一般由于线程未有锁保护引起,但就是没找到原因所在。

   好吧,也不怎么滴,突然想起IsMultiThread变量,想起MM的Get/Free/Realloc都需要这个玩意进行保护,而VCL中,只有一个地方对这变量进行操作: Classes.TThread.Create->System.BeginThread

   然后才想起自己未使用TThread,使用API.CreateThread进行创建线程,而它未对IsMultiThread进行置true操作,问题找到,BUG解除。

遂,本文记录此问题。

BUG形成:

   1:程序未使用TThread或BeginThread进行创建线程,这样,它就不会对IsMultiThread进行操作

   2:自行使用API.Windows.CreateThread创建线程,且未对IsMultiThread置true

   3:在创建的线程中,进行Get/Free/ReallocMem,并与其它线程(如主线程)进行交互该内存块

BUG展现:

  1:该BUG将会引起MM数据结构错误,问题就大了去。

       出现AV时,watch查看的数据是错误的,且随机的给你不一样的数据

      call stack也傻了,定位到无边际的代码。。。

     总之,一切都傻掉了,不可信了。

BUG避免:

   1:慎用API.Windows.CreateThread,如果要对它操作,请记得IsMultiThread := True;

         如果不记得,请参照代码: System.BeginThread

        或者直接使用System.BeginThread进行创建线程。

   2:使用QMM,QMM是自动维护IsMultiThread,有线程数N(N>1)时, IsMultiThread=true, N=1时, IsMultiThread = false;

         这点,其它MM,俺所查看的,都未做处理。(偶在打广告哩)

         个人建议是:开发环境必备两套以上MM,以作备用,遇到一些莫名问题,切换一下,用以确认是否MM问题引起。


注:

  线程加锁:在end.上面加上
  initialization
  IsMultiThread := True;

  MM=Memory Manager, D2005版本开始集成FastMM。

  不过,从D7(D5没注意看,应该也是)的GetMem.Inc,一直到FastMM4.991都依赖于IsMultiThread标志进行线程保护,未进行自维护该标志。 

    所以,当出现此BUG条件形成时,就会出现:我知道因为多线程未保护引起数据错乱而引起的BUG,但就是找不着在哪里触发的,怎么去解决。这才是最坑爹的。 :)

原文地址:https://www.cnblogs.com/pboy/p/5326606.html