mirror of
https://github.com/bminor/binutils-gdb.git
synced 2025-12-25 16:57:52 +00:00
1368b914e9
Now that all port tests live under testsuite/sim/*/, and none live in testsuite/ directly, flatten the structure by moving all of the dirs under testsuite/sim/ to testsuite/ directly. We need to stop passing --tool to dejagnu so that it searches all dirs and not just ones that start with "sim". Since we have no other dirs in this tree, and no plans to add any, should be fine.
85 lines
1.5 KiB
ArmAsm
85 lines
1.5 KiB
ArmAsm
// Shifter test program.
|
|
// Test instructions
|
|
// RL5 = EXPADJ R4 BY RL2;
|
|
# mach: bfin
|
|
|
|
.include "testutils.inc"
|
|
start
|
|
|
|
|
|
R0.L = 30; // large norm of small value
|
|
R0.H = 1; // make sure high half is not used
|
|
R1.L = 0x0000;
|
|
R1.H = 0x1000; // small norm (2) of large value
|
|
R7.L = EXPADJ( R1 , R0.L );
|
|
DBGA ( R7.L , 0x0002 );
|
|
|
|
R0.L = 3; // small norm of large value
|
|
R0.H = 1; // make sure high half is not used
|
|
R1.L = 0x0000;
|
|
R1.H = 0xff00; // small norm (2) of large value
|
|
R7.L = EXPADJ( R1 , R0.L );
|
|
DBGA ( R7.L , 0x0003 );
|
|
|
|
R0.L = 3;
|
|
R0.H = 1;
|
|
R1.L = 0xffff;
|
|
R1.H = 0xffff;
|
|
R7.L = EXPADJ( R1 , R0.L );
|
|
DBGA ( R7.L , 0x0003 );
|
|
|
|
R0.L = 31;
|
|
R0.H = 1;
|
|
R1.L = 0x0000; // norm=0
|
|
R1.H = 0x8000;
|
|
R7.L = EXPADJ( R1 , R0.L );
|
|
DBGA ( R7.L , 0x0000 );
|
|
|
|
// RL5 = EXPADJ/EXPADJ R4 BY RL2;
|
|
|
|
R0.L = 15;
|
|
R1.L = 0x0800;
|
|
R1.H = 0x1000;
|
|
R7.L = EXPADJ( R1 , R0.L ) (V);
|
|
DBGA ( R7.L , 0x0002 );
|
|
|
|
R0.L = 15;
|
|
R1.L = 0x1000;
|
|
R1.H = 0x0800;
|
|
R7.L = EXPADJ( R1 , R0.L ) (V);
|
|
DBGA ( R7.L , 0x0002 );
|
|
|
|
R0.L = 1;
|
|
R1.L = 0x0800;
|
|
R1.H = 0x1000;
|
|
R7.L = EXPADJ( R1 , R0.L ) (V);
|
|
DBGA ( R7.L , 0x0001 );
|
|
|
|
R0.L = 14;
|
|
R1.L = 0xff00;
|
|
R1.H = 0xfff0;
|
|
R7.L = EXPADJ( R1 , R0.L ) (V);
|
|
DBGA ( R7.L , 0x0007 );
|
|
|
|
// RL5 = EXPADJ RL4 BY RL2;
|
|
|
|
R0.L = 14;
|
|
R1.L = 0xff00;
|
|
R1.H = 0x1000;
|
|
R7.L = EXPADJ( R1.L , R0.L );
|
|
DBGA ( R7.L , 0x0007 );
|
|
|
|
R0.L = 3;
|
|
R1.L = 0xff00;
|
|
R1.H = 0x1000;
|
|
R7.L = EXPADJ( R1.L , R0.L );
|
|
DBGA ( R7.L , 0x0003 );
|
|
|
|
R0.L = 14;
|
|
R1.L = 0x1000;
|
|
R1.H = 0xff00;
|
|
R7.L = EXPADJ( R1.H , R0.L );
|
|
DBGA ( R7.L , 0x0007 );
|
|
|
|
pass
|