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

+ one more check for the long mangledname problem

Browse Source
This commit is contained in:
pierre 2002-12-05 15:43:00 +00:00
parent 3058a57591
commit 5a47ac1e86
1 changed files with 42 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
tests/tbs/tb0241b.pp Normal file
View File

@ -0,0 +1,42 @@
{ %OPT=-al }
{ this forces use of GNU as }
{ Old file: tbs0282.pp }
{ long mangledname problem with -Aas OK 0.99.13 (PFV) }
type very____long_____string___identifier= string[200];
procedure test(very__long_variable01: very____long_____string___identifier;
very__long_variable02: very____long_____string___identifier;
very__long_variable03: very____long_____string___identifier;
very__long_variable04: very____long_____string___identifier;
very__long_variable05: very____long_____string___identifier;
very__long_variable06: very____long_____string___identifier;
very__long_variable07: very____long_____string___identifier;
very__long_variable08: very____long_____string___identifier;
very__long_variable09: very____long_____string___identifier;
very__long_variable10: very____long_____string___identifier;
very__long_variable11: very____long_____string___identifier;
very__long_variable12: very____long_____string___identifier;
very__long_variable13: very____long_____string___identifier;
very__long_variable14: very____long_____string___identifier;
very__long_variable15: very____long_____string___identifier;
very__long_variable16: very____long_____string___identifier;
very__long_variable17: very____long_____string___identifier;
very__long_variable18: very____long_____string___identifier);
begin
writeln('hi!');
end;
var
p : pointer;
begin
writeln('vreemd!');
test('','','','','','','','','','',
'','','','','','','','');
p:=@test;
end.