Explorar o código

* dwarf: ignore propertysyms for now

git-svn-id: trunk@2525 -
florian %!s(int64=19) %!d(string=hai) anos
pai
achega
e92d4c87bd
Modificáronse 1 ficheiros con 7 adicións e 1 borrados
  1. 7 1
      compiler/dbgdwarf.pas

+ 7 - 1
compiler/dbgdwarf.pas

@@ -1780,8 +1780,14 @@ implementation
             ;
           absolutevarsym :
             append_absolutesym(tabsolutevarsym(sym));
+          propertysym :
+            { ignored for now }
+            ;
           else
-            internalerror(200601242);
+            begin
+              writeln(ord(sym.typ));
+              internalerror(200601242);
+            end;
         end;
         {
         if stabstr<>nil then