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

m68k: is_calljmp cleanup

Browse Source 
git-svn-id: trunk@32848 -
This commit is contained in:
Károly Balogh 2016-01-05 04:07:00 +00:00
parent e0b0ec3d43
commit 288fa53694
1 changed files with 3 additions and 4 deletions

7
compiler/m68k/cpubase.pas
View File

@ -393,10 +393,9 @@ implementation
function is_calljmp(o:tasmop):boolean;
begin
is_calljmp := false;
if o in [A_BXX,A_FBXX,A_DBXX,A_BCC..A_BVS,A_DBCC..A_DBVS,A_FBEQ..A_FSNGLE,
A_JSR,A_BSR,A_JMP] then
is_calljmp := true;
is_calljmp :=
o in [A_BXX,A_FBXX,A_DBXX,A_BCC..A_BVS,A_DBCC..A_DBVS,A_FBEQ..A_FSNGLE,
A_JSR,A_BSR,A_JMP];
end;