paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 10:29:24 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/nobj.pas
View File

@ -1218,9 +1218,7 @@ implementation
if (oo_has_msgstr in _class.objectoptions) then if (oo_has_msgstr in _class.objectoptions) then
strmessagetable:=genstrmsgtab; strmessagetable:=genstrmsgtab;
if (oo_has_msgint in _class.objectoptions) then if (oo_has_msgint in _class.objectoptions) then
intmessagetable:=genintmsgtab intmessagetable:=genintmsgtab;
else
dataSegment.concat(Tai_const.Create_32bit(0));
end; end;
{ write debug info } { write debug info }
@ -1330,7 +1328,10 @@ initialization
end. end.
{ {
$Log$ $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 * major alignment updates for objects/class tables
Revision 1.33 2002/10/20 15:33:36 peter Revision 1.33 2002/10/20 15:33:36 peter