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

+ made @(<formaldef>) assignment compatible with all pointer types

Browse Source
This commit is contained in:
florian 2005-03-13 11:42:48 +00:00
parent a0ef339646
commit 0ef8431a3f
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/defcmp.pas
View File

@ -848,7 +848,10 @@ implementation
end end
else else
{ all pointers can be assigned from void-pointer } { all pointers can be assigned from void-pointer }
if is_void(tpointerdef(def_from).pointertype.def) then if is_void(tpointerdef(def_from).pointertype.def) or
{ all pointers can be assigned from void-pointer or formaldef pointer, check
tw3777.pp if you change this }
(tpointerdef(def_from).pointertype.def.deftype=formaldef) then
begin begin
doconv:=tc_equal; doconv:=tc_equal;
{ give pwidechar a penalty so it prefers { give pwidechar a penalty so it prefers
@ -1398,7 +1401,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.70 2005-03-11 21:55:43 florian Revision 1.71 2005-03-13 11:42:48 florian
+ made @(<formaldef>) assignment compatible with all pointer types
Revision 1.70 2005/03/11 21:55:43 florian
+ array -> dyn. array type cast + array -> dyn. array type cast
Revision 1.69 2005/02/14 17:13:06 peter Revision 1.69 2005/02/14 17:13:06 peter