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

* fix #39795: when extracting make_prettystring it was forgotten to also append the const part of the name to the specialize name

Browse Source
This commit is contained in:
Sven/Sarah Barth 2022-06-22 09:44:21 +02:00
parent 45415f0645
commit b2a5334a75
2 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/pgenutil.pas
View File

@ -101,6 +101,8 @@ uses
if not assigned(module) then if not assigned(module) then
internalerror(2016112802); internalerror(2016112802);
namepart:='_$'+hexstr(module.moduleid,8)+'$$'+paramtype.unique_id_str; namepart:='_$'+hexstr(module.moduleid,8)+'$$'+paramtype.unique_id_str;
if constprettyname<>'' then
namepart:=namepart+'$$'+constprettyname;
{ we use the full name of the type to uniquely identify it } { we use the full name of the type to uniquely identify it }
if (symtablestack.top.symtabletype=parasymtable) and if (symtablestack.top.symtabletype=parasymtable) and
(symtablestack.top.defowner.typ=procdef) and (symtablestack.top.defowner.typ=procdef) and

18
tests/webtbs/tw39795.pp Normal file
View File

@ -0,0 +1,18 @@
program tw39795;
{$mode objfpc}{$H+}
type
generic GTestType<T,const S:byte>=class
type
TXX=array [0..S] of T;
var
XX:TXX;
end;
T2=specialize GTestType<byte,0>;
T3=specialize GTestType<byte,99>;
begin
if sizeof(T2.TXX) <> 1 then
Halt(1);
if sizeof(T3.TXX) <> 100 then
Halt(2);
end.