Parcourir la source

* dwarf: ignore propertysyms for now

git-svn-id: trunk@2525 -
florian il y a 19 ans
Parent
commit
e92d4c87bd
1 fichiers modifiés avec 7 ajouts et 1 suppressions
  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