paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 17:19:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed the string define which was left for debugging purposes

Browse Source
This commit is contained in:
peter 1999-01-25 22:51:29 +00:00
parent eadf1f63b4
commit da253c659e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/teststr.pp
View File

@ -123,7 +123,7 @@ procedure TestSpeed(Row,Len:byte);
var var
l : longint; l : longint;
hstr, hstr,
OrgStr : string[10]; OrgStr : string;
begin begin
HeadBen[Row]:=Len; HeadBen[Row]:=Len;
OrgStr:=''; OrgStr:='';