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

* fixed 2729: overloading problem with methodvars and procvars

Browse Source
This commit is contained in:
florian 2003-10-14 12:23:06 +00:00
parent 5ec52b80e3
commit 048fbd8228
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/defcmp.pas
View File

@ -715,6 +715,8 @@ implementation
{ procedure variable can be assigned to an void pointer } { procedure variable can be assigned to an void pointer }
{ Not anymore. Use the @ operator now.} { Not anymore. Use the @ operator now.}
if not(m_tp_procvar in aktmodeswitches) and if not(m_tp_procvar in aktmodeswitches) and
{ method pointers can't be assigned to void pointers
not(tprocvardef(def_from).is_methodpointer) and }
(tpointerdef(def_to).pointertype.def.deftype=orddef) and (tpointerdef(def_to).pointertype.def.deftype=orddef) and
(torddef(tpointerdef(def_to).pointertype.def).typ=uvoid) then (torddef(tpointerdef(def_to).pointertype.def).typ=uvoid) then
begin begin
@ -788,7 +790,7 @@ implementation
procvardef : procvardef :
begin begin
{ procvar -> procvar } { procvar -> procvar }
eq:=proc_to_procvar_equal(tprocvardef(def_from),tprocvardef(def_to),true); eq:=proc_to_procvar_equal(tprocvardef(def_from),tprocvardef(def_to),false);
end; end;
pointerdef : pointerdef :
begin begin
@ -1215,7 +1217,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.32 2003-10-10 17:48:13 peter Revision 1.33 2003-10-14 12:23:06 florian
* fixed 2729: overloading problem with methodvars and procvars
Revision 1.32 2003/10/10 17:48:13 peter
* old trgobj moved to x86/rgcpu and renamed to trgx86fpu * old trgobj moved to x86/rgcpu and renamed to trgx86fpu
* tregisteralloctor renamed to trgobj * tregisteralloctor renamed to trgobj
* removed rgobj from a lot of units * removed rgobj from a lot of units