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

* tobject wasn't set as default anchestor, was a problem with the new ppu

Browse Source 
handling
This commit is contained in:
florian 1999-05-19 12:08:11 +00:00
parent b5e9c9c73f
commit 39ab53a15b
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/symdef.inc
View File

@ -2841,8 +2841,8 @@ Const local_symtable_index : longint = $8001;
{ handles the predefined class tobject }
{ the last TOBJECT which is loaded gets }
{ it ! }
if (objname^='TOBJECT') and not(cs_compilesystem in aktmoduleswitches) and
isclass and (childof=pointer($ffffffff)) then
if (objname^='TOBJECT') and
isclass and (childof=nil) then
class_tobject:=@self;
has_rtti:=true;
end;
@ -3380,7 +3380,11 @@ Const local_symtable_index : longint = $8001;
{
$Log$
Revision 1.117 1999-05-17 21:57:15 florian
Revision 1.118 1999-05-19 12:08:11 florian
* tobject wasn't set as default anchestor, was a problem with the new ppu
handling
Revision 1.117 1999/05/17 21:57:15 florian
* new temporary ansistring handling
Revision 1.116 1999/05/16 02:26:51 peter