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

* fixed crash after compile

Browse Source
This commit is contained in:
peter 1999-01-15 16:12:43 +00:00
parent 951c1707d1
commit e923686d07
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/text/fpcompil.pas
View File

@ -59,7 +59,7 @@ begin
Insert(KeyST); Insert(KeyST);
GetExtent(R); R.Grow(-1,-1); R.A.Y:=10; GetExtent(R); R.Grow(-1,-1); R.A.Y:=10;
New(MsgLB, Init(R, nil, nil)); New(MsgLB, Init(R, nil, nil));
MsgLB^.NewList(New(PUnsortedStringCollection, Init(100,100))); { MsgLB^.NewList(New(PUnsortedStringCollection, Init(100,100))); }
Insert(MsgLB); Insert(MsgLB);
end; end;
@ -232,7 +232,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.5 1999-01-14 21:42:19 peter Revision 1.6 1999-01-15 16:12:43 peter
* fixed crash after compile
Revision 1.5 1999/01/14 21:42:19 peter
* source tracking from Gabor * source tracking from Gabor
Revision 1.4 1999/01/12 14:29:32 peter Revision 1.4 1999/01/12 14:29:32 peter