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

* bug0132 fixed

Browse Source
This commit is contained in:
florian 1998-09-04 09:06:36 +00:00
parent f03a034c8f
commit a6a35e02ab
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/types.pas
View File

@ -469,7 +469,7 @@ unit types;
if assigned(def1^.sym) and ((def1^.sym^.properties and sp_forwarddef)<>0) then if assigned(def1^.sym) and ((def1^.sym^.properties and sp_forwarddef)<>0) then
b:=(def1^.sym=def2^.sym) b:=(def1^.sym=def2^.sym)
else else
b:=is_equal(ppointerdef(def1)^.definition,ppointerdef(def2)^.definition); b:=ppointerdef(def1)^.definition=ppointerdef(def2)^.definition;
end end
else else
{ ordinals are equal only when the ordinal type is equal } { ordinals are equal only when the ordinal type is equal }
@ -899,7 +899,10 @@ unit types;
end. end.
{ {
$Log$ $Log$
Revision 1.24 1998-09-04 08:36:49 peter Revision 1.25 1998-09-04 09:06:36 florian
* bug0132 fixed
Revision 1.24 1998/09/04 08:36:49 peter
* fixed boolean:=integer which is not explicit * fixed boolean:=integer which is not explicit
Revision 1.23 1998/09/01 17:39:55 peter Revision 1.23 1998/09/01 17:39:55 peter