paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-14 14:29:14 +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 end
else else
{ same types } { 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 begin
eq:=te_equal eq:=te_equal
end end
@ -1274,7 +1274,10 @@ implementation
end. end.
{ {
$Log$ $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 * also compare calling convention in proc_to_procvar_equal
Revision 1.47 2004/02/24 16:12:39 peter Revision 1.47 2004/02/24 16:12:39 peter