paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 20:09:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed assignments of subrange enumeration types

Browse Source
This commit is contained in:
florian 2000-05-30 18:38:45 +00:00
parent ffa34b83d6
commit d7db923d35
1 changed files with 14 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
compiler/htypechk.pas
View File

@ -237,16 +237,17 @@ implementation
begin begin
if (def_from^.deftype=enumdef) then if (def_from^.deftype=enumdef) then
begin begin
if assigned(penumdef(def_from)^.basedef) then hd1:=def_from;
hd1:=penumdef(def_from)^.basedef while assigned(penumdef(hd1)^.basedef) do
else hd1:=penumdef(hd1)^.basedef;
hd1:=def_from; hd2:=def_to;
if assigned(penumdef(def_to)^.basedef) then while assigned(penumdef(hd2)^.basedef) do
hd2:=penumdef(def_to)^.basedef hd2:=penumdef(hd2)^.basedef;
else
hd2:=def_to;
if (hd1=hd2) then if (hd1=hd2) then
b:=1; begin
b:=1;
doconv:=tc_equal;
end;
end; end;
end; end;
@ -912,7 +913,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.61 2000-05-26 18:21:41 peter Revision 1.62 2000-05-30 18:38:45 florian
* fixed assignments of subrange enumeration types
Revision 1.61 2000/05/26 18:21:41 peter
* give error for @ with formal const,var parameter. Because @ generates * give error for @ with formal const,var parameter. Because @ generates
a constant value and not a reference a constant value and not a reference