diff options
| author | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2015-01-21 23:28:34 +0000 |
|---|---|---|
| committer | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2015-01-21 23:28:34 +0000 |
| commit | 1903b037de2fb3e75826406b46f055acb70963fa (patch) | |
| tree | 604cd8b790fe14e5fbe441d4cd647c80d2a36a9a /compiler/ncgrtti.pas | |
| parent | ad1141d52f8353457053b925cd674fe1d5c4eafc (diff) | |
| parent | 953d907e4d6c3a5c2f8aaee6e5e4f73c55ce5985 (diff) | |
| download | fpc-blocks.tar.gz | |
* synchronised with trunk till r29513blocks
git-svn-id: http://svn.freepascal.org/svn/fpc/branches/blocks@29516 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'compiler/ncgrtti.pas')
| -rw-r--r-- | compiler/ncgrtti.pas | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/compiler/ncgrtti.pas b/compiler/ncgrtti.pas index b891a0916c..9d8e618898 100644 --- a/compiler/ncgrtti.pas +++ b/compiler/ncgrtti.pas @@ -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 @@ -656,7 +656,7 @@ implementation if def.elementdef.needs_inittable then write_rtti_reference(def.elementdef,rt) else - current_asmdata.asmlists[al_rtti].concat(Tai_const.Create_pint(0)); + current_asmdata.asmlists[al_rtti].concat(Tai_const.Create_nil_dataptr); { write unit name } write_string(current_module.realmodulename^); end; |