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

* set the first enumsym also for subrange types

Browse Source
This commit is contained in:
peter 1999-02-17 10:14:20 +00:00
parent a868c2a6cc
commit 1b0e76cdca
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/symdef.inc
View File

@ -639,7 +639,9 @@
calcsavesize;
has_jumps:=false;
rangenr:=0;
first:=nil;
first:=basedef^.first;
while assigned(first) and (penumsym(first)^.value<>minval) do
first:=first^.next;
correct_owner_symtable;
end;
@ -3291,7 +3293,10 @@
{
$Log$
Revision 1.91 1999-02-08 09:51:21 pierre
Revision 1.92 1999-02-17 10:14:20 peter
* set the first enumsym also for subrange types
Revision 1.91 1999/02/08 09:51:21 pierre
* gdb info for local functions was wrong
Revision 1.90 1999/01/26 09:57:29 pierre