paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 09:01:33 +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 var
InterfaceFinalizationHandlers: TList; InterfaceFinalizationHandlers: TList;
DebugTextAlloced: boolean;
DebugText: ^Text; DebugText: ^Text;
@ -813,6 +814,7 @@ begin
(DirectoryExists(ExtractFileDir(DebugFileName))) then begin (DirectoryExists(ExtractFileDir(DebugFileName))) then begin
new(DebugText); new(DebugText);
DebugTextAlloced := true;
Assign(DebugText^, DebugFileName); Assign(DebugText^, DebugFileName);
if FileExists(DebugFileName) then if FileExists(DebugFileName) then
Append(DebugText^) Append(DebugText^)
@ -825,14 +827,16 @@ begin
DebugText := nil DebugText := nil
else else
DebugText := @Output; DebugText := @Output;
DebugTextAlloced := false;
end; end;
end; end;
procedure FinalizeDebugOutput; procedure FinalizeDebugOutput;
begin begin
if Assigned(DebugText) and (DebugText<>@Output) then begin if DebugTextAlloced then begin
Close(DebugText^); Close(DebugText^);
Dispose(DebugText); Dispose(DebugText);
DebugTextAlloced := false;
end; end;
end; end;