mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-02-24 17:38:36 +01:00
a4672fbd1c
* use Base64 (62=_, 63=$) encoded FNV hash (instead of CR-32) to shorted identifiers
* renamed fpccrc to fpchash
+ test
28 lines
653 B
ObjectPascal
28 lines
653 B
ObjectPascal
{ %norun }
|
|
{$mode objfpc}
|
|
type
|
|
Collide29685295 = type uint32;
|
|
Collide32060020 = type uint32;
|
|
|
|
SomeType = class
|
|
type
|
|
SomeNestedType = class
|
|
type
|
|
YetAnotherNestedType = class
|
|
class procedure Hello(arg: YetAnotherNestedType; arg2: Collide29685295); static;
|
|
class procedure Hello(arg: YetAnotherNestedType; arg2: Collide32060020); static;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
class procedure SomeType.SomeNestedType.YetAnotherNestedType.Hello(arg: YetAnotherNestedType; arg2: Collide29685295);
|
|
begin
|
|
end;
|
|
|
|
class procedure SomeType.SomeNestedType.YetAnotherNestedType.Hello(arg: YetAnotherNestedType; arg2: Collide32060020);
|
|
begin
|
|
end;
|
|
|
|
begin
|
|
end.
|