diff options
Diffstat (limited to 'gdb/testsuite/gdb.ada/fixed_points')
| -rw-r--r-- | gdb/testsuite/gdb.ada/fixed_points/fixed_points.adb | 9 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.ada/fixed_points/pck.adb | 2 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.ada/fixed_points/pck.ads | 2 |
3 files changed, 10 insertions, 3 deletions
diff --git a/gdb/testsuite/gdb.ada/fixed_points/fixed_points.adb b/gdb/testsuite/gdb.ada/fixed_points/fixed_points.adb index b233d05..94a41b9 100644 --- a/gdb/testsuite/gdb.ada/fixed_points/fixed_points.adb +++ b/gdb/testsuite/gdb.ada/fixed_points/fixed_points.adb @@ -1,4 +1,4 @@ --- Copyright 2004-2024 Free Software Foundation, Inc. +-- Copyright 2004-2025 Free Software Foundation, Inc. -- -- This program is free software; you can redistribute it and/or modify -- it under the terms of the GNU General Public License as published by @@ -64,6 +64,12 @@ procedure Fixed_Points is for Another_Type'size use 64; Another_Fixed : Another_Type := Another_Delta * 5; + Semicircle_Delta : constant := 1.0/(2**31); + type Semicircle_Type is delta Semicircle_Delta range -1.0 .. (1.0 - Semicircle_Delta); + for Semicircle_Type'small use Semicircle_Delta; + for Semicircle_Type'size use 32; + Object_Fixed : Semicircle_Type := Semicircle_Delta * 5; + begin Base_Object := 1.0/16.0; -- Set breakpoint here Subtype_Object := 1.0/16.0; @@ -75,4 +81,5 @@ begin Do_Nothing (FP4_Var'Address); Do_Nothing (FP5_Var'Address); Do_Nothing (Another_Fixed'Address); + Do_Nothing (Object_Fixed'Address); end Fixed_Points; diff --git a/gdb/testsuite/gdb.ada/fixed_points/pck.adb b/gdb/testsuite/gdb.ada/fixed_points/pck.adb index 0236303..06ff0af 100644 --- a/gdb/testsuite/gdb.ada/fixed_points/pck.adb +++ b/gdb/testsuite/gdb.ada/fixed_points/pck.adb @@ -1,4 +1,4 @@ --- Copyright 2016-2024 Free Software Foundation, Inc. +-- Copyright 2016-2025 Free Software Foundation, Inc. -- -- This program is free software; you can redistribute it and/or modify -- it under the terms of the GNU General Public License as published by diff --git a/gdb/testsuite/gdb.ada/fixed_points/pck.ads b/gdb/testsuite/gdb.ada/fixed_points/pck.ads index 44719ce..74a8144 100644 --- a/gdb/testsuite/gdb.ada/fixed_points/pck.ads +++ b/gdb/testsuite/gdb.ada/fixed_points/pck.ads @@ -1,4 +1,4 @@ --- Copyright 2016-2024 Free Software Foundation, Inc. +-- Copyright 2016-2025 Free Software Foundation, Inc. -- -- This program is free software; you can redistribute it and/or modify -- it under the terms of the GNU General Public License as published by |