paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-26 14:30:33 +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); Inc(Count);
end; end;
{ TableCount } { TableCount }
With ResourceStringTables do { doesn't work because of bug in the compiler !! (JM)
With ResourceStringTables do}
begin begin
insert(new(pai_const,init_32bit(count))); ResourceStringTables.insert(new(pai_const,init_32bit(count)));
insert(new(pai_symbol,initname_global('FPC_RESOURCESTRINGTABLES',0))); ResourceStringTables.insert(new(pai_symbol,initname_global('FPC_RESOURCESTRINGTABLES',0)));
concat(new(pai_symbol_end,initname('FPC_RESOURCESTRINGTABLES'))); ResourceStringTables.concat(new(pai_symbol_end,initname('FPC_RESOURCESTRINGTABLES')));
end; end;
{ insert in data segment } { insert in data segment }
if (cs_create_smart in aktmoduleswitches) then if (cs_create_smart in aktmoduleswitches) then
@ -1618,7 +1619,11 @@ unit pmodules;
end. end.
{ {
$Log$ $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 * align codesegment at the end after main proc
Revision 1.180 2000/01/11 17:16:05 jonas Revision 1.180 2000/01/11 17:16:05 jonas