paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-19 22:29:28 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed writing rtti published property getter/setter/stored proc info in the

Browse Source 
i8086 far code/data memory models

git-svn-id: trunk@28726 -
This commit is contained in:
nickysn 2014-09-30 01:47:17 +00:00
parent 366dc179b6
commit d1ac1bf1e0
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/ncgrtti.pas
View File

@ -307,7 +307,7 @@ implementation
until not assigned(hpropsym);
if not(assigned(propaccesslist) and assigned(propaccesslist.firstsym)) then
begin
current_asmdata.asmlists[al_rtti].concat(Tai_const.create(aitconst_ptr,unsetvalue));
current_asmdata.asmlists[al_rtti].concat(Tai_const.Create_int_codeptr(unsetvalue));
typvalue:=3;
end
else if propaccesslist.firstsym^.sym.typ=fieldvarsym then
@ -347,7 +347,7 @@ implementation
end;
hp:=hp^.next;
end;
current_asmdata.asmlists[al_rtti].concat(Tai_const.create(aitconst_ptr,address));
current_asmdata.asmlists[al_rtti].concat(Tai_const.Create_int_codeptr(address));
typvalue:=0;
end
else
@ -364,7 +364,7 @@ implementation
else
begin
{ virtual method, write vmt offset }
current_asmdata.asmlists[al_rtti].concat(Tai_const.create(aitconst_ptr,
current_asmdata.asmlists[al_rtti].concat(Tai_const.Create_int_codeptr(
tobjectdef(tprocdef(propaccesslist.procdef).struct).vmtmethodoffset(tprocdef(propaccesslist.procdef).extnumber)));
{ register for wpo }
tobjectdef(tprocdef(propaccesslist.procdef).struct).register_vmt_call(tprocdef(propaccesslist.procdef).extnumber);
@ -396,7 +396,7 @@ implementation
if not(ppo_stored in tpropertysym(sym).propoptions) then
begin
{ no, so put a constant zero }
current_asmdata.asmlists[al_rtti].concat(Tai_const.create(aitconst_ptr,0));
current_asmdata.asmlists[al_rtti].concat(Tai_const.Create_nil_codeptr);
proctypesinfo:=proctypesinfo or (3 shl 4);
end
else