paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-05-14 11:52:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix for bug #1019

Browse Source
This commit is contained in:
pierre 2000-07-03 09:48:23 +00:00
parent 84982e06ad
commit d86f8c5ec8
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/symtable.pas
View File

@ -1666,8 +1666,7 @@ implementation
begin
{ this is used to insert case variant into the main
record }
if ps^.address=0 then
psymt^.datasize:=offset;
psymt^.datasize:=ps^.address+offset;
nps:=pvarsym(ps^.next);
symindex^.deleteindex(ps);
ps^.next:=nil;
@ -2978,7 +2977,10 @@ implementation
end.
{
$Log$
Revision 1.101 2000-06-23 21:34:10 pierre
Revision 1.102 2000-07-03 09:48:23 pierre
* fix for bug 1019
Revision 1.101 2000/06/23 21:34:10 pierre
* align all variants to same start address
Revision 1.100 2000/06/18 18:11:32 peter