Browse Source

* experimental patch to fix #7187

git-svn-id: trunk@4281 -
florian 19 years ago
parent
commit
887781a6b9
1 changed files with 1 additions and 1 deletions
  1. 1 1
      compiler/symdef.pas

+ 1 - 1
compiler/symdef.pas

@@ -4715,7 +4715,7 @@ implementation
         begin
         begin
            if not(assigned(proc) and assigned(proc.firstsym))  then
            if not(assigned(proc) and assigned(proc.firstsym))  then
              begin
              begin
-                current_asmdata.asmlists[al_rtti].concat(Tai_const.create(aitconst_ptr,1));
+                current_asmdata.asmlists[al_rtti].concat(Tai_const.create(aitconst_ptr,0));
                 typvalue:=3;
                 typvalue:=3;
              end
              end
            else if proc.firstsym^.sym.typ=fieldvarsym then
            else if proc.firstsym^.sym.typ=fieldvarsym then