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

added Trace: to assert message

Browse Source 
git-svn-id: trunk@5341 -
This commit is contained in:
vincents 2004-03-25 23:14:01 +00:00
parent 0e960c1718
commit db5cc10354
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/project.pp
View File

@ -594,7 +594,7 @@ end;
constructor TUnitInfo.Create(ACodeBuffer: TCodeBuffer);
begin
inherited Create;
Assert(False, 'Project Unit Info Class Created');
Assert(False, 'Trace:Project Unit Info Class Created');
FBookmarks:=TFileBookmarks.Create;
Clear;
Source := ACodeBuffer;
@ -2846,6 +2846,9 @@ end.
{
$Log$
Revision 1.153 2004/03/25 23:14:01 vincents
added Trace: to assert message
Revision 1.152 2004/03/20 12:55:48 mattias
implemented adding Application.Title:= statements