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

Avoid warnings for m68k compiler

Browse Source 
git-svn-id: trunk@43391 -
This commit is contained in:
pierre 2019-11-05 10:00:48 +00:00
parent fabe4cc067
commit 7d12e8cc6d
9 changed files with 42 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/m68k/aoptcpu.pas
View File

@ -251,6 +251,8 @@ unit aoptcpu;
result:=true;
end;
end;
else
;
end;
end;
exit;
@ -423,8 +425,12 @@ unit aoptcpu;
end;
result:=result or MaybeRealConstOperSimplify(p);
end;
else
;
end;
end;
else
;
end;
end;

2
compiler/m68k/aoptcpub.pas
View File

@ -123,6 +123,8 @@ End;
top_ref:
if (taicpu(p1).spilling_get_operation_type_ref(i,Reg)<>operand_read) then
exit(true);
else
;
end;
end;

10
compiler/m68k/cgcpu.pas
View File

@ -2170,6 +2170,8 @@ unit cgcpu;
else
list.concat(taicpu.op_const_reg(A_AND,S_W,$FF,reg));
end;
else
;
end;
OS_S32, OS_32:
case _oldsize of
@ -2212,7 +2214,11 @@ unit cgcpu;
//list.concat(tai_comment.create(strpnew('zero extend word')));
list.concat(taicpu.op_const_reg(A_AND,S_L,$FFFF,reg));
end;
else
;
end;
else
;
end; { otherwise the size is already correct }
end;
@ -2455,6 +2461,8 @@ unit cgcpu;
list.concat(taicpu.op_reg(opcode,S_L,regdst.reglo));
list.concat(taicpu.op_reg(xopcode,S_L,regdst.reghi));
end;
else
;
end; { end case }
end;
@ -2577,6 +2585,8 @@ unit cgcpu;
{ these should have been handled already by earlier passes }
OP_NOT,OP_NEG:
internalerror(2012110403);
else
;
end; { end case }
end;

6
compiler/m68k/cpupara.pas
View File

@ -180,6 +180,8 @@ unit cpupara;
procvardef :
{ Handling of methods must match that of records }
result:=false;
else
;
end;
end;
@ -195,6 +197,8 @@ unit cpupara;
result:=false;
exit;
end;
else
;
end;
result:=inherited ret_in_param(def,pd);
end;
@ -638,6 +642,8 @@ unit cpupara;
break;
dec(i);
end;
else
;
end;
end;
end;

6
compiler/m68k/n68kadd.pas
View File

@ -728,6 +728,8 @@ implementation
cg.a_jmp_flags(current_asmdata.CurrAsmList,F_NE,location.falselabel);
unequaln:
cg.a_jmp_flags(current_asmdata.CurrAsmList,F_NE,location.truelabel);
else
;
end;
end;
@ -749,6 +751,8 @@ implementation
cg.a_jmp_flags(current_asmdata.CurrAsmList,F_NE,location.truelabel);
cg.a_jmp_always(current_asmdata.CurrAsmList,location.falselabel);
end;
else
;
end;
end;
@ -774,6 +778,8 @@ implementation
case getresflags(true) of
F_AE: hlab:=location.truelabel;
F_B: hlab:=location.falselabel;
else
;
end;
end;

8
compiler/m68k/ra68kmot.pas
View File

@ -284,10 +284,8 @@ const
if c = ':' then
begin
case token of
AS_NONE: token := AS_LABEL;
AS_LLABEL: ; { do nothing }
end; { end case }
if token = AS_NONE then
token := AS_LABEL;
{ let us point to the next character }
c := current_scanner.asmgetchar;
actasmtoken := token;
@ -1518,6 +1516,8 @@ const
if oper.opr.typ=OPR_SYMBOL then
oper.initref;
end;
else
;
end;
end
else

4
compiler/m68k/rgcpu.pas
View File

@ -160,6 +160,8 @@ unit rgcpu;
(instr.opcode in [A_ADDQ,A_SUBQ,A_MOV3Q])) then
opidx:=1;
end;
else
;
end;
if (opidx<0) then
@ -170,6 +172,8 @@ unit rgcpu;
case taicpu(instr).opsize of
S_B: inc(instr.oper[opidx]^.ref^.offset,3);
S_W: inc(instr.oper[opidx]^.ref^.offset,2);
else
;
end;
result:=true;
end;

2
compiler/options.pas
View File

@ -4372,6 +4372,8 @@ begin
init_settings.fputype:=fpu_none;
end;
end;
else
;
end;
{$endif m68k}

5
compiler/systems/t_atari.pas
View File

@ -81,9 +81,8 @@ end;
procedure TLinkerAtari.SetDefaultInfo;
begin
case (target_info.system) of
system_m68k_Atari: SetAtariInfo;
end;
if target_info.system = system_m68k_Atari then
SetAtariInfo;
end;