Browse Source

- disabled RTTI generation for the jvm target (Delphi-style RTTI
is not (yet) supported there, use Java-style RTTI instead)

git-svn-id: branches/jvmbackend@18310 -

Jonas Maebe 14 years ago
parent
commit
9eca0dc1c2
1 changed files with 4 additions and 0 deletions
  1. 4 0
      compiler/ptype.pas

+ 4 - 0
compiler/ptype.pas

@@ -1721,6 +1721,10 @@ implementation
         def : tdef;
         vmtwriter  : TVMTWriter;
       begin
+{$ifdef jvm}
+        { no Delphi-style RTTI }
+        exit;
+{$endif jvm}
         for i:=0 to st.DefList.Count-1 do
           begin
             def:=tdef(st.DefList[i]);