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

m68k/ra68k.pas: fixed some multi level comment warnings, so it now compiles with warnings on

Browse Source 
git-svn-id: trunk@27734 -
This commit is contained in:
Károly Balogh 2014-05-04 22:21:24 +00:00
parent 94d1a04422
commit 3b787b7187
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/m68k/ra68k.pas
View File

@ -54,12 +54,11 @@ unit ra68k;
if assigned(result) then
taicpu(result).opsize:=opsize;
end;
{
(*
function TM68kInstruction.ConcatInstruction(p : TAsmList):tai;
var
fits : boolean;
begin
writeln('jaj mami');
result:=nil;
fits := FALSE;
{ setup specific opcodetions for first pass }
@ -88,7 +87,7 @@ unit ra68k;
{ Setup operand types }
(*
{*
in opcode <> A_MOVEM then
begin
@ -138,7 +137,7 @@ unit ra68k;
end;
inc(i);
end; { end while }
*)
*}
fits:=TRUE;
{ We add the opcode to the opcode linked list }
@ -325,7 +324,7 @@ unit ra68k;
if assigned(result) then
p.concat(result);
end;
}
*)
function TM68kInstruction.ConcatLabeledInstr(p : TAsmList):tai;
begin