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

m68k/ra68kmot.pas, tm68kmotreader.Assemble:

Browse Source 
the asmr_d_*_reading messages need an argument which specifies in which style the assembler code
  is read; this is most importantly used on i386; on m68k we currently don't have multiple styles,
  so simply disable these messages

git-svn-id: trunk@22725 -
This commit is contained in:
svenbarth 2012-10-18 20:10:29 +00:00
parent 83da4592d3
commit e87f0e1df4
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/m68k/ra68kmot.pas
View File

@ -1697,7 +1697,7 @@ const
hl: tasmlabel; hl: tasmlabel;
instr : TM68kInstruction; instr : TM68kInstruction;
begin begin
Message(asmr_d_start_reading); //Message(asmr_d_start_reading);
firsttoken := TRUE; firsttoken := TRUE;
operandnum := 0; operandnum := 0;
{ sets up all opcode and register tables in uppercase } { sets up all opcode and register tables in uppercase }
@ -1806,7 +1806,7 @@ const
LocalLabelList.Free; LocalLabelList.Free;
assemble:=curlist; assemble:=curlist;
Message(asmr_d_finish_reading); //Message(asmr_d_finish_reading);
end; end;