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

* test for previous commit

Browse Source 
* fixed wrapper generation for bigger offsets as well

git-svn-id: trunk@11059 -
This commit is contained in:
florian 2008-05-23 16:16:34 +00:00
parent ea46cb4218
commit 67ef9f20ae
3 changed files with 24 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -8238,6 +8238,7 @@ tests/webtbs/tw10807.pp svneol=native#text/plain
tests/webtbs/tw1081.pp svneol=native#text/plain tests/webtbs/tw1081.pp svneol=native#text/plain
tests/webtbs/tw10815.pp svneol=native#text/plain tests/webtbs/tw10815.pp svneol=native#text/plain
tests/webtbs/tw10825.pp svneol=native#text/plain tests/webtbs/tw10825.pp svneol=native#text/plain
tests/webtbs/tw10831.pp svneol=native#text/plain
tests/webtbs/tw10833.pp svneol=native#text/plain tests/webtbs/tw10833.pp svneol=native#text/plain
tests/webtbs/tw10863.pp svneol=native#text/plain tests/webtbs/tw10863.pp svneol=native#text/plain
tests/webtbs/tw10890.pp svneol=native#text/plain tests/webtbs/tw10890.pp svneol=native#text/plain

8
compiler/arm/cgcpu.pas
View File

@ -2009,6 +2009,10 @@ unit cgcpu;
else else
list.concat(Tai_symbol.Createname(labelname,AT_FUNCTION,0)); list.concat(Tai_symbol.Createname(labelname,AT_FUNCTION,0));
{ the wrapper might need aktlocaldata for the additional data to
load the constant }
current_procinfo:=cprocinfo.create(nil);
{ set param1 interface to self } { set param1 interface to self }
g_adjust_self_value(list,procdef,ioffset); g_adjust_self_value(list,procdef,ioffset);
@ -2021,6 +2025,10 @@ unit cgcpu;
{ case 0 } { case 0 }
else else
list.concat(taicpu.op_sym(A_B,current_asmdata.RefAsmSymbol(procdef.mangledname))); list.concat(taicpu.op_sym(A_B,current_asmdata.RefAsmSymbol(procdef.mangledname)));
list.concatlist(current_procinfo.aktlocaldata);
current_procinfo.Free;
current_procinfo:=nil;
list.concat(Tai_symbol_end.Createname(labelname)); list.concat(Tai_symbol_end.Createname(labelname));
end; end;

15
tests/webtbs/tw10831.pp Normal file
View File

@ -0,0 +1,15 @@
program test;
type
TForm = class(TInterfacedObject)
a : array[0..1000000] of byte;
end;
TMyForm = class(TForm, IInterface)
end;
var
i : IInterface;
begin
i:=TMyForm.Create;
end.