From 6fd8a26ae18d80a9b6ce79b237dcf8440bef74f1 Mon Sep 17 00:00:00 2001 From: sergei Date: Mon, 8 Sep 2014 23:26:20 +0000 Subject: [PATCH] + internal assembler: early check for empty asmlists. git-svn-id: trunk@28629 - --- compiler/assemble.pas | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/compiler/assemble.pas b/compiler/assemble.pas index 609877e342..f3539291b9 100644 --- a/compiler/assemble.pas +++ b/compiler/assemble.pas @@ -1736,7 +1736,8 @@ Implementation if not(tf_section_threadvars in target_info.flags) then exclude(to_do,al_threadvars); for i:=low(TasmlistType) to high(TasmlistType) do - if (i in to_do) and (current_asmdata.asmlists[i]<>nil) then + if (i in to_do) and (current_asmdata.asmlists[i]<>nil) and + (not current_asmdata.asmlists[i].empty) then addlist(current_asmdata.asmlists[i]); if SmartAsm then