paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-03 02:31:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ added the 'AREA' directive support to the Z80 inline assembler, that allows

Browse Source 
you to define custom sections

git-svn-id: trunk@45617 -
This commit is contained in:
nickysn 2020-06-07 20:47:37 +00:00
parent 3c9a5ff758
commit c90f78488c
4 changed files with 78 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/ogrel.pas
View File

@ -314,7 +314,10 @@ implementation
'.ARM.attributes'
);
begin
result:=secnames[atype];
if atype=sec_user then
result:=aname
else
result:=secnames[atype];
end;
function TRelObjData.sectiontype2align(atype:TAsmSectiontype):longint;

5
compiler/z80/agsdasz80.pas
View File

@ -310,7 +310,10 @@ unit agsdasz80;
'.ARM.attributes'
);
begin
result:=secnames[atype];
if atype=sec_user then
result:=aname
else
result:=secnames[atype];
end;
procedure TSdccSdasZ80Assembler.WriteSection(atype: TAsmSectiontype;

5
compiler/z80/agz80vasm.pas
View File

@ -328,7 +328,10 @@ unit agz80vasm;
var
sep: string[3];
begin
result:=secnames[atype];
if atype=sec_user then
result:=aname
else
result:=secnames[atype];
if (aname<>'') then
begin

68
compiler/z80/raz80asm.pas
View File

@ -40,7 +40,7 @@ Unit raz80asm;
AS_HASH,AS_LSBRACKET,AS_RSBRACKET,AS_LBRACKET,AS_RBRACKET,
AS_EQUAL,
{------------------ Assembler directives --------------------}
AS_DEFB,AS_DEFW,AS_END,
AS_DEFB,AS_DEFW,AS_AREA,AS_END,
{------------------ Assembler Operators --------------------}
AS_TYPE,AS_SIZEOF,AS_VMTOFFSET,AS_MOD,AS_SHL,AS_SHR,AS_NOT,AS_AND,AS_OR,AS_XOR,AS_NOR,AS_AT,
AS_RELTYPE, // common token for relocation types
@ -61,7 +61,7 @@ Unit raz80asm;
';','identifier','register','opcode','condition','/','$',
'#','{','}','[',']',
'=',
'defb','defw','END',
'defb','defw','area','END',
'TYPE','SIZEOF','VMTOFFSET','%','<<','>>','!','&','|','^','~','@','reltype',
'directive');
@ -2354,6 +2354,8 @@ Unit raz80asm;
function tz80reader.Assemble: tlinkedlist;
var
hl: tasmlabel;
sectionname: String;
section: tai_section;
begin
Message1(asmr_d_start_reading,'Z80');
firsttoken:=TRUE;
@ -2420,6 +2422,68 @@ Unit raz80asm;
inexpression:=false;
end;
AS_AREA :
begin
Consume(AS_AREA);
sectionname:=actasmpattern;
{secflags:=[];
secprogbits:=SPB_None;}
Consume(AS_STRING);
{if actasmtoken=AS_COMMA then
begin
Consume(AS_COMMA);
if actasmtoken=AS_STRING then
begin
case actasmpattern of
'a':
Include(secflags,SF_A);
'w':
Include(secflags,SF_W);
'x':
Include(secflags,SF_X);
'':
;
else
Message(asmr_e_syntax_error);
end;
Consume(AS_STRING);
if actasmtoken=AS_COMMA then
begin
Consume(AS_COMMA);
if (actasmtoken=AS_MOD) or (actasmtoken=AS_AT) then
begin
Consume(actasmtoken);
if actasmtoken=AS_ID then
begin
case actasmpattern of
'PROGBITS':
secprogbits:=SPB_PROGBITS;
'NOBITS':
secprogbits:=SPB_NOBITS;
'NOTE':
secprogbits:=SPB_NOTE;
else
Message(asmr_e_syntax_error);
end;
Consume(AS_ID);
end
else
Message(asmr_e_syntax_error);
end
else
Message(asmr_e_syntax_error);
end;
end
else
Message(asmr_e_syntax_error);
end;}
//curList.concat(tai_section.create(sec_user, actasmpattern, 0));
section:=new_section(curlist, sec_user, sectionname, 0);
//section.secflags:=secflags;
//section.secprogbits:=secprogbits;
end;
AS_OPCODE:
begin
HandleOpCode;