From 219fedfea6ee033ec68d4cd19447595c531e9d61 Mon Sep 17 00:00:00 2001
From: Pierre Muller <pierre@freepascal.org>
Date: Mon, 15 May 2023 19:51:11 +0200
Subject: [PATCH] Restore start section at end of assembler block inside z80
 asm reader

---
 compiler/z80/raz80asm.pas | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/compiler/z80/raz80asm.pas b/compiler/z80/raz80asm.pas
index 099ce47a87..9b402f6a97 100644
--- a/compiler/z80/raz80asm.pas
+++ b/compiler/z80/raz80asm.pas
@@ -2360,6 +2360,7 @@ Unit raz80asm;
         hl: tasmlabel;
         sectionname: String;
         section: tai_section;
+        lastsectype : TAsmSectiontype;
       begin
         Message1(asmr_d_start_reading,'Z80');
         firsttoken:=TRUE;
@@ -2377,6 +2378,7 @@ Unit raz80asm;
 
         { start tokenizer }
         gettoken;
+        lastsectype:=sec_code;
         { main loop }
         repeat
           case actasmtoken of
@@ -2484,6 +2486,7 @@ Unit raz80asm;
 
                 //curList.concat(tai_section.create(sec_user, actasmpattern, 0));
                 section:=new_section(curlist, sec_user, sectionname, 0);
+                lastsectype:=sec_user;
                 //section.secflags:=secflags;
                 //section.secprogbits:=secprogbits;
               end;
@@ -2500,6 +2503,12 @@ Unit raz80asm;
               end;
           end;
         until false;
+        { are we back in the code section? }
+        if lastsectype<>sec_code then
+          begin
+            //Message(asmr_w_assembler_code_not_returned_to_text);
+            new_section(curList,sec_code,lower(current_procinfo.procdef.mangledname),0);
+          end;
         { check that all referenced local labels are defined }
         checklocallabels;
         { Return the list in an asmnode }