* move all stabs ($ifdef gdb) code to dbgstabs

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@1255 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 9 insertions, 3 deletions

diff --git a/compiler/htypechk.pas b/compiler/htypechk.pas
index c34f0707ee..c82ec9b9e1 100644
--- a/compiler/htypechk.pas
+++ b/compiler/htypechk.pas
@@ -715,7 +715,8 @@ implementation
       begin
         result:=false;
         { remove voidpointer typecast for tp procvars }
-        if (m_tp_procvar in aktmodeswitches) and
+        if ((m_tp_procvar in aktmodeswitches) or
+            (m_mac_procvar in aktmodeswitches)) and
            (p.nodetype=typeconvn) and
            is_voidpointer(p.resulttype.def) then
           p:=tunarynode(p).left;
@@ -1363,10 +1364,15 @@ implementation
           procvardef :
             begin
               { in tp7 mode proc -> procvar is allowed }
-              if (m_tp_procvar in aktmodeswitches) and
+              if ((m_tp_procvar in aktmodeswitches) or
+                  (m_mac_procvar in aktmodeswitches)) and
                  (p.left.nodetype=calln) and
                  (proc_to_procvar_equal(tprocdef(tcallnode(p.left).procdefinition),tprocvardef(def_to),true)>=te_equal) then
-               eq:=te_equal;
+                eq:=te_equal
+              else
+                if (m_mac_procvar in aktmodeswitches) and
+                   is_procvar_load(p.left) then
+                  eq:=te_convert_l2;
             end;
         end;
       end;