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

* var parameter checking for classes and interfaces in Delphi mode

Browse Source
This commit is contained in:
carl 2002-10-14 18:20:30 +00:00
parent 464a082f96
commit ed1a28dcdc
1 changed files with 23 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
compiler/ncal.pas
View File

@ -327,11 +327,26 @@ implementation
(from_def.deftype=pointerdef) and (from_def.deftype=pointerdef) and
(to_def.deftype=pointerdef) (to_def.deftype=pointerdef)
) and ) and
{ child classes can be also passed } { child objects can be also passed }
{ in non-delphi mode, otherwise }
{ they must match exactly, except }
{ if they are objects }
not( not(
(from_def.deftype=objectdef) and (from_def.deftype=objectdef) and
(to_def.deftype=objectdef) and (to_def.deftype=objectdef) and
tobjectdef(from_def).is_related(tobjectdef(to_def))
((
(tobjectdef(from_def).is_related(tobjectdef(to_def))) and
(m_delphi in aktmodeswitches) and
(tobjectdef(from_def).objecttype=odt_object) and
(tobjectdef(to_def).objecttype=odt_object)
) or
(
(tobjectdef(from_def).is_related(tobjectdef(to_def))) and
(not (m_delphi in aktmodeswitches))
))
) and ) and
{ passing a single element to a openarray of the same type } { passing a single element to a openarray of the same type }
not( not(
@ -2631,7 +2646,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.105 2002-10-06 21:02:17 peter Revision 1.106 2002-10-14 18:20:30 carl
* var parameter checking for classes and interfaces in Delphi mode
Revision 1.105 2002/10/06 21:02:17 peter
* fixed limit checking for qword * fixed limit checking for qword
Revision 1.104 2002/10/05 15:15:45 peter Revision 1.104 2002/10/05 15:15:45 peter