paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-03 22:18:41 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/m68k/cpubase.pas
View File

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