paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-10 00:17:18 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE, Editor Macro Pascal: fix switching between macros, broken in c77c71b54e

Browse Source
This commit is contained in:
Martin 2024-10-26 14:39:37 +02:00
parent f72113b9f4
commit 81f3140a4b
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/macroscript/emscriptmacro.pas
View File

@ -307,7 +307,13 @@ begin
Exec.LoadDebugData(FCachedCompiledDbg);
end
else begin
Exec.Cleanup;
if FPrivateExec = nil then begin
if not Exec.LoadData(FCachedCompiled) then // Load the data from the Data string.
exit;
Exec.LoadDebugData(FCachedCompiledDbg);
end
else
Exec.Cleanup;
end;
Exec.SynEdit := aEditor as TCustomSynEdit;