paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 06:29:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* only write vmt of objects defined in static/global symtable

Browse Source 
to prevent IE in make_mangledname

git-svn-id: trunk@542 -
This commit is contained in:
peter 2005-06-30 13:48:56 +00:00
parent 37fcf95f90
commit 3700aa1b80
3 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -5469,6 +5469,7 @@ tests/webtbf/tw3841.pp svneol=native#text/plain
tests/webtbf/tw4103.pp svneol=native#text/plain tests/webtbf/tw4103.pp svneol=native#text/plain
tests/webtbf/tw4111.pp svneol=native#text/plain tests/webtbf/tw4111.pp svneol=native#text/plain
tests/webtbf/tw4139.pp svneol=native#text/plain tests/webtbf/tw4139.pp svneol=native#text/plain
tests/webtbf/tw4144.pp svneol=native#text/plain
tests/webtbf/uw0744.pp svneol=native#text/plain tests/webtbf/uw0744.pp svneol=native#text/plain
tests/webtbf/uw0840a.pp svneol=native#text/plain tests/webtbf/uw0840a.pp svneol=native#text/plain
tests/webtbf/uw0840b.pp svneol=native#text/plain tests/webtbf/uw0840b.pp svneol=native#text/plain

3
compiler/pdecl.pas
View File

@ -524,7 +524,8 @@ implementation
This need to be done after the rtti has been written, because This need to be done after the rtti has been written, because
it can contain a reference to that data (PFV) it can contain a reference to that data (PFV)
This is not for forward classes } This is not for forward classes }
if (tt.def.deftype=objectdef) then if (tt.def.deftype=objectdef) and
(tt.def.owner.symtabletype in [staticsymtable,globalsymtable]) then
with Tobjectdef(tt.def) do with Tobjectdef(tt.def) do
begin begin
if not(oo_is_forward in objectoptions) then if not(oo_is_forward in objectoptions) then

14
tests/webtbf/tw4144.pp Executable file
View File

@ -0,0 +1,14 @@
{ Source provided for Free Pascal Bug Report 4144 }
{ Submitted by "Wiktor Sywula" on 2005-06-30 }
{ e-mail: wswiktor@poczta.fm }
procedure foo;
type
bar = object
constructor init;
procedure zzyzzy; virtual;
end;
begin
end;
begin
end.