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

- remove superfluous data in classname

Browse Source
This commit is contained in:
carl 2002-11-09 16:19:43 +00:00
parent 3e7b597352
commit ed213ff331
1 changed files with 5 additions and 4 deletions

9
compiler/nobj.pas
View File

@ -1218,9 +1218,7 @@ implementation
if (oo_has_msgstr in _class.objectoptions) then
strmessagetable:=genstrmsgtab;
if (oo_has_msgint in _class.objectoptions) then
intmessagetable:=genintmsgtab
else
dataSegment.concat(Tai_const.Create_32bit(0));
intmessagetable:=genintmsgtab;
end;
{ write debug info }
@ -1330,7 +1328,10 @@ initialization
end.
{
$Log$
Revision 1.34 2002-11-09 15:35:35 carl
Revision 1.35 2002-11-09 16:19:43 carl
- remove superfluous data in classname
Revision 1.34 2002/11/09 15:35:35 carl
* major alignment updates for objects/class tables
Revision 1.33 2002/10/20 15:33:36 peter