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

+ handle the asd_cpu directive (commented out, but without producing an internal

Browse Source 
error) on all the remaining external assemblers, so it is safe to emit on all
  platforms

git-svn-id: trunk@33122 -
This commit is contained in:
nickysn 2016-02-26 20:50:41 +00:00
parent 178dab45d3
commit e1f21fb1e3
3 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/jvm/agjasmin.pas
View File

@ -502,6 +502,10 @@ implementation
ait_directive :
begin
{ the CPU directive is probably not supported by the JVM assembler,
so it's commented out }
if tai_directive(hp).directive=asd_cpu then
writer.AsmWrite(asminfo^.comment);
writer.AsmWrite('.'+directivestr[tai_directive(hp).directive]+' ');
if tai_directive(hp).name<>'' then
writer.AsmWrite(tai_directive(hp).name);

3
compiler/llvm/agllvm.pas
View File

@ -1120,6 +1120,9 @@ implementation
ait_directive :
begin
{ CPU directive is commented out for the LLVM }
if tai_directive(hp).directive=asd_cpu then
writer.AsmWrite(asminfo^.comment);
WriteDirectiveName(tai_directive(hp).directive);
if tai_directive(hp).name <>'' then
writer.AsmWrite(tai_directive(hp).name);

10
compiler/powerpc/agppcmpw.pas
View File

@ -1093,6 +1093,16 @@ interface
else if tai_marker(hp).kind=mark_NoLineInfoEnd then
dec(InlineLevel);
end;
ait_directive :
if tai_directive(hp).directive=asd_cpu then
begin
writer.AsmWrite(asminfo^.comment+' CPU ');
if tai_directive(hp).name<>'' then
writer.AsmWrite(tai_directive(hp).name);
writer.AsmLn;
end
else
internalerror(2016022601);
else
internalerror(2002110303);
end;