paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 23:47:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

* allow LOC_CONSTANT to be used as vmt pointers in the cg, resolves #21914

Browse Source 
git-svn-id: trunk@21349 -
This commit is contained in:
florian 2012-05-20 19:02:36 +00:00
parent 02f8739bca
commit 21573f50c5
3 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -12599,6 +12599,7 @@ tests/webtbs/tw2185.pp svneol=native#text/plain
tests/webtbs/tw2186.pp svneol=native#text/plain
tests/webtbs/tw2187.pp svneol=native#text/plain
tests/webtbs/tw21878.pp svneol=native#text/plain
tests/webtbs/tw21914.pp svneol=native#text/pascal
tests/webtbs/tw21941.pp svneol=native#text/pascal
tests/webtbs/tw21951.pp svneol=native#text/plain
tests/webtbs/tw2196.pp svneol=native#text/plain

1
compiler/ncgutil.pas
View File

@ -2027,6 +2027,7 @@ implementation
{$endif cpu_uses_separate_address_registers}
reference_reset_base(href,selfloc.register,objdef.vmt_offset,sizeof(pint));
end;
LOC_CONSTANT,
LOC_CREGISTER,
LOC_CREFERENCE,
LOC_REFERENCE:

10
tests/webtbs/tw21914.pp Normal file
View File

@ -0,0 +1,10 @@
{ %norun }
{$mode objfpc}
program project1;
function treeElementAsString(node: TObject): string; inline;
begin
result:=node.ClassName
end;
begin
writeln(treeElementAsString(TObject(2)));
end.