Преглед на файлове

* dwarf: ignore propertysyms for now

git-svn-id: trunk@2525 -
florian преди 19 години
родител
ревизия
e92d4c87bd
променени са 1 файла, в които са добавени 7 реда и са изтрити 1 реда
  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