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

* use defs_equal when comparing pointer types

Browse Source
This commit is contained in:
peter 2004-03-04 17:22:32 +00:00
parent 9625256d22
commit 92203909b9
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/defcmp.pas
View File

@ -724,7 +724,7 @@ implementation
end
else
{ same types }
if (tpointerdef(def_from).pointertype.def=tpointerdef(def_to).pointertype.def) then
if equal_defs(tpointerdef(def_from).pointertype.def,tpointerdef(def_to).pointertype.def) then
begin
eq:=te_equal
end
@ -1274,7 +1274,10 @@ implementation
end.
{
$Log$
Revision 1.48 2004-03-03 22:02:16 peter
Revision 1.49 2004-03-04 17:22:32 peter
* use defs_equal when comparing pointer types
Revision 1.48 2004/03/03 22:02:16 peter
* also compare calling convention in proc_to_procvar_equal
Revision 1.47 2004/02/24 16:12:39 peter