mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-15 13:49:15 +02:00
parent
489b23cecd
commit
caba4a2050
1
.gitattributes
vendored
1
.gitattributes
vendored
@ -13762,6 +13762,7 @@ tests/webtbs/tw2425.pp svneol=native#text/plain
|
|||||||
tests/webtbs/tw2432.pp svneol=native#text/plain
|
tests/webtbs/tw2432.pp svneol=native#text/plain
|
||||||
tests/webtbs/tw2435.pp svneol=native#text/plain
|
tests/webtbs/tw2435.pp svneol=native#text/plain
|
||||||
tests/webtbs/tw2438.pp svneol=native#text/plain
|
tests/webtbs/tw2438.pp svneol=native#text/plain
|
||||||
|
tests/webtbs/tw24410.pp svneol=native#text/pascal
|
||||||
tests/webtbs/tw2442.pp svneol=native#text/plain
|
tests/webtbs/tw2442.pp svneol=native#text/plain
|
||||||
tests/webtbs/tw24453.pp svneol=native#text/pascal
|
tests/webtbs/tw24453.pp svneol=native#text/pascal
|
||||||
tests/webtbs/tw24458.pp svneol=native#text/pascal
|
tests/webtbs/tw24458.pp svneol=native#text/pascal
|
||||||
|
9
tests/webtbs/tw24410.pp
Normal file
9
tests/webtbs/tw24410.pp
Normal file
@ -0,0 +1,9 @@
|
|||||||
|
{$mode objfpc}
|
||||||
|
|
||||||
|
procedure xx(var s:shortstring);
|
||||||
|
var dirbuf:array[0..1321] of widechar;
|
||||||
|
begin
|
||||||
|
s:=dirbuf;
|
||||||
|
end;
|
||||||
|
begin
|
||||||
|
end.
|
Loading…
Reference in New Issue
Block a user