paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 06:49:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix of initialization information generation

Browse Source
This commit is contained in:
michael 1999-07-31 22:37:17 +00:00
parent 344a35fec1
commit 9600a0718a
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/symdef.inc
View File

@ -27,7 +27,7 @@
const const
{ if you change one of the following contants, } { if you change one of the following contants, }
{ you have also to change the typinfo unit } { you have also to change the typinfo unit }
{ and the rtl/[i386,template/rttip.inc files } { and the rtl/i386,template/rttip.inc files }
tkUnknown = 0; tkUnknown = 0;
tkInteger = 1; tkInteger = 1;
tkChar = 2; tkChar = 2;
@ -3282,6 +3282,7 @@ Const local_symtable_index : longint = $8001;
procedure tobjectdef.write_child_init_data; procedure tobjectdef.write_child_init_data;
begin begin
publicsyms^.foreach({$ifndef TP}@{$endif}generate_child_inittable);
end; end;
@ -3530,7 +3531,10 @@ Const local_symtable_index : longint = $8001;
{ {
$Log$ $Log$
Revision 1.136 1999-07-29 20:54:07 peter Revision 1.137 1999-07-31 22:37:17 michael
* Fix of initialization information generation
Revision 1.136 1999/07/29 20:54:07 peter
* write .size also * write .size also
Revision 1.135 1999/07/27 23:42:18 peter Revision 1.135 1999/07/27 23:42:18 peter