PROSAGA码农传奇-pascal-Pascal中的AVL树：旋转导致错误202

<div class =“post-text”itemprop =“text”>
  
    好吧，自从我上次接触Pascal已经14年了:)
  
  
    所以问题确实存在
     <code>
 rotate_l
 </code>
     功能。
你过世了
     <code>
 a
 </code>
     参数
    的
      引用
    </强>
     正如所示
     <code>
 var
 </code>
     关键词。
  
   <pre>
 <code>
 rotate_l(var a: p_Avl)

</code>
 </pre>
  
    这导致了
     <code>
 a
 </code>
     当你覆盖时变为零
     <code>
 b.par
 </code>
    ，
因为
     <code>
 a
 </code>
    的
      引用
    </强>
     的地址
     <code>
 b.par
 </code>
     在那个特定的函数调用和你设置
     <code>
 b.par
 </code>
     没有。
所以
     <code>
 a
 </code>
     现在引用包含nil的内存位置。
  
  
    您需要更改功能签名才能通过
     <code>
 a
 </code>
     参数
    的
      按价值
    </强>
    。这是通过删除来完成的
     <code>
 var
 </code>
     关键词。
  
   <pre>
 <code>
 rotate_l(a: p_Avl)

</code>
 </pre>
  <HR />
  
    堆栈溢出是由同一问题引起的
     <code>
 rebalance
 </code>
     程序：
  
  
    更改
  
   <pre>
 <code>
 procedure rebalance(var root: p_Avl; var n: p_Avl);

</code>
 </pre>
  
    至
  
   <pre>
 <code>
 procedure rebalance(var root: p_Avl; n: p_Avl);

</code>
 </pre>
  <HR />
  
    有关参数，请参阅Free Pascal语言参考

<a href="http://wiki.lazarus.freepascal.org/Parameters" rel="nofollow noreferrer">
      http://wiki.lazarus.freepascal.org/Parameters
    </A>
  
</DIV>

Pascal中的AVL树：旋转导致错误202 - 堆栈溢出;为什么？