paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 03:18:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

threadvars change location when a thread is started, use external variable

Browse Source 
git-svn-id: trunk@6434 -
This commit is contained in:
micha 2004-12-30 14:46:54 +00:00
parent b62eab6b71
commit 8a7395aa69
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/lclproc.pas
View File

@ -222,6 +222,7 @@ implementation
var
InterfaceFinalizationHandlers: TList;
DebugTextAlloced: boolean;
DebugText: ^Text;
@ -813,6 +814,7 @@ begin
(DirectoryExists(ExtractFileDir(DebugFileName))) then begin
new(DebugText);
DebugTextAlloced := true;
Assign(DebugText^, DebugFileName);
if FileExists(DebugFileName) then
Append(DebugText^)
@ -825,14 +827,16 @@ begin
DebugText := nil
else
DebugText := @Output;
DebugTextAlloced := false;
end;
end;
procedure FinalizeDebugOutput;
begin
if Assigned(DebugText) and (DebugText<>@Output) then begin
if DebugTextAlloced then begin
Close(DebugText^);
Dispose(DebugText);
DebugTextAlloced := false;
end;
end;