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

* use create_nil_dataptr instead of create_sym(nil) in TRTTIWriter.write_rtti_reference; among other things, this fixes writeln(enum) in the i8086 medium memory model

Browse Source 
git-svn-id: trunk@24977 -
This commit is contained in:
nickysn 2013-06-25 21:02:55 +00:00
parent 784333edbb
commit f7d3f7cd33
1 changed files with 1 additions and 1 deletions

2
compiler/ncgrtti.pas
View File

@ -1299,7 +1299,7 @@ implementation
procedure TRTTIWriter.write_rtti_reference(def:tdef;rt:trttitype);
begin
if not assigned(def) or is_void(def) or ((rt<>initrtti) and is_objc_class_or_protocol(def)) then
current_asmdata.asmlists[al_rtti].concat(Tai_const.Create_sym(nil))
current_asmdata.asmlists[al_rtti].concat(Tai_const.Create_nil_dataptr)
else
current_asmdata.asmlists[al_rtti].concat(Tai_const.Create_sym(ref_rtti(def,rt)));
end;