paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 08:48:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

Restore start section at end of assembler block inside z80 asm reader

Browse Source
This commit is contained in:
Pierre Muller 2023-05-15 19:51:11 +02:00
parent 5b4ba67a85
commit 219fedfea6
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/z80/raz80asm.pas
View File

@ -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 }