mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 16:47:53 +02:00
2a872978dc
* defcmp.pas:
+ Extend compare_def_ext by the possiblity to specify whether strict or
loose comparison of undefined defs should be applied.
* in strict mode undefined defs are incompatible to all other defs
except other undefined defs
* in loose mode undefined defs are equal to anything (this is how
FPC behaved up to now)
+ Enable the strict mode in compare_paras so that overloads with
generic type parameters are possible
* ptype.pas, single_type:
If the generic dummy of the currently parsed generic is encountered in
non-Delphi modes then we need to return the current genericdef. This
condition needs to be checked using the ObjName of the def, because
the link from the type symbol to the current def is not yet
established
+ added test for bug report
git-svn-id: trunk@20345 -
23 lines
399 B
ObjectPascal
23 lines
399 B
ObjectPascal
{ %NORUN }
|
|
|
|
{$mode OBJFPC}
|
|
{$modeswitch ADVANCEDRECORDS}
|
|
program generic_record_op_bug;
|
|
|
|
type generic GVec3<T> = record
|
|
D : Byte;
|
|
class operator *( const A, B : GVec3 ) : GVec3;
|
|
class operator *( const A : GVec3; Scalar : T ) : GVec3;
|
|
end;
|
|
|
|
class operator GVec3.*( const A, B : GVec3 ) : GVec3;
|
|
begin
|
|
end;
|
|
|
|
class operator GVec3.*( const A : GVec3; Scalar : T ) : GVec3;
|
|
begin
|
|
end;
|
|
|
|
begin
|
|
end.
|