Просмотр исходного кода

* also set the mangledbasename when a public name is specified for a
variable (used to create the JVM-style mangled name later on)

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

Jonas Maebe 13 лет назад
Родитель
Сommit
2b0d0bbee4
1 измененных файлов с 1 добавлено и 0 удалено
  1. 1 0
      compiler/pdecvar.pas

+ 1 - 0
compiler/pdecvar.pas

@@ -1117,6 +1117,7 @@ implementation
         end;
 
       { Set the assembler name }
+      tstaticvarsym(vs).set_mangledbasename(mangledname);
       tstaticvarsym(vs).set_mangledname(mangledname);
     end;