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

* changed "with object_type" construct because of bug in the

Browse Source 
compiler
This commit is contained in:
Jonas Maebe 2000-01-16 14:15:33 +00:00
parent 41557bcd50
commit 094d7d1829
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/pmodules.pas
View File

@ -166,11 +166,12 @@ unit pmodules;
Inc(Count);
end;
{ TableCount }
With ResourceStringTables do
{ doesn't work because of bug in the compiler !! (JM)
With ResourceStringTables do}
begin
insert(new(pai_const,init_32bit(count)));
insert(new(pai_symbol,initname_global('FPC_RESOURCESTRINGTABLES',0)));
concat(new(pai_symbol_end,initname('FPC_RESOURCESTRINGTABLES')));
ResourceStringTables.insert(new(pai_const,init_32bit(count)));
ResourceStringTables.insert(new(pai_symbol,initname_global('FPC_RESOURCESTRINGTABLES',0)));
ResourceStringTables.concat(new(pai_symbol_end,initname('FPC_RESOURCESTRINGTABLES')));
end;
{ insert in data segment }
if (cs_create_smart in aktmoduleswitches) then
@ -1618,7 +1619,11 @@ unit pmodules;
end.
{
$Log$
Revision 1.181 2000-01-12 10:30:15 peter
Revision 1.182 2000-01-16 14:15:33 jonas
* changed "with object_type" construct because of bug in the
compiler
Revision 1.181 2000/01/12 10:30:15 peter
* align codesegment at the end after main proc
Revision 1.180 2000/01/11 17:16:05 jonas