1  /* { dg-do compile } */
       2  /* { dg-options "-mcmse -mfloat-abi=soft" }  */
       3  /* { dg-skip-if "Incompatible float ABI" { *-*-* } { "-mfloat-abi=*" } { "-mfloat-abi=soft" } } */
       4  
       5  #include "../../../cmse-8.x"
       6  
       7  /* Checks for saving and clearing prior to function call.  */
       8  /* Shift on the same register as blxns.  */
       9  /* { dg-final { scan-assembler "lsrs\t(r\[2-9\]|r10|fp|ip), \\1, #1.*blxns\t\\1" } } */
      10  /* { dg-final { scan-assembler "lsls\t(r\[2-9\]|r10|fp|ip), \\1, #1.*blxns\t\\1" } } */
      11  /* { dg-final { scan-assembler-not "mov\tr0, r4" } } */
      12  /* { dg-final { scan-assembler-not "mov\tr1, r4" } } */
      13  /* { dg-final { scan-assembler "push\t\{r4, r5, r6, r7, r8, r9, r10, fp\}" } } */
      14  /* { dg-final { scan-assembler "vlstm\tsp" } } */
      15  /* Check the right registers are cleared and none appears twice.  */
      16  /* { dg-final { scan-assembler "clrm\t\{(r2, )?(r3, )?(r4, )?(r5, )?(r6, )?(r7, )?(r8, )?(r9, )?(r10, )?(fp, )?(ip, )?APSR\}" } } */
      17  /* Check that the right number of registers is cleared and thus only one
      18     register is missing.  */
      19  /* { dg-final { scan-assembler "clrm\t\{((r\[2-9\]|r10|fp|ip), ){10}APSR\}" } } */
      20  /* Check that no cleared register is used for blxns.  */
      21  /* { dg-final { scan-assembler-not "clrm\t\{\[^\}\]\+(r\[2-9\]|r10|fp|ip),\[^\}\]\+\}.*blxns\t\\1" } } */
      22  /* { dg-final { scan-assembler "vlldm\tsp" } } */
      23  /* { dg-final { scan-assembler "pop\t\{r4, r5, r6, r7, r8, r9, r10, fp\}" } } */
      24  /* { dg-final { scan-assembler-not "vmov" } } */
      25  /* { dg-final { scan-assembler-not "vmsr" } } */
      26  
      27  /* Now we check that we use the correct intrinsic to call.  */
      28  /* { dg-final { scan-assembler "blxns" } } */