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

* fixed "if @procvar_of_object <> nil" in Delphi/TP mode for for non-x86

Browse Source
This commit is contained in:
Jonas Maebe 2004-08-17 19:04:36 +00:00
parent 977f705ba0
commit e3eb4f8359
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/nadd.pas
View File

@ -975,6 +975,15 @@ implementation
inserttypeconv(left,right.resulttype) inserttypeconv(left,right.resulttype)
else if not(equal_defs(ld,rd)) then else if not(equal_defs(ld,rd)) then
IncompatibleTypes(ld,rd); IncompatibleTypes(ld,rd);
{ now that the type checking is done, convert both to charpointer, }
{ because methodpointers are 8 bytes even though only the first 4 }
{ bytes must be compared. This can happen here if we are in }
{ TP/Delphi mode, because there @methodpointer = voidpointer (but }
{ a voidpointer of 8 bytes). A conversion to voidpointer would be }
{ optimized away, since the result already was a voidpointer, so }
{ use a charpointer instead (JM) }
inserttypeconv_explicit(left,charpointertype);
inserttypeconv_explicit(right,charpointertype);
end; end;
ltn,lten,gtn,gten: ltn,lten,gtn,gten:
begin begin
@ -2024,7 +2033,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.126 2004-08-08 15:22:29 florian Revision 1.127 2004-08-17 19:04:36 jonas
* fixed "if @procvar_of_object <> nil" in Delphi/TP mode for for non-x86
Revision 1.126 2004/08/08 15:22:29 florian
* fixed several ie9999s when illegal operators were used * fixed several ie9999s when illegal operators were used
Revision 1.125 2004/06/20 08:55:29 florian Revision 1.125 2004/06/20 08:55:29 florian