darlinghq/darling-gdb
1
0
Fork 0
mirror of https://github.com/darlinghq/darling-gdb.git synced 2025-02-03 15:42:52 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

* gdb.ada/fixed_points/fixed_points.adb: Add a test on overprecise

Browse Source 
deltas.
	* gdb.ada/fixed_points.exp: Ditto.
This commit is contained in:
Jerome Guitton 2009-03-19 14:08:50 +00:00
parent 156621f344
commit c31af87b2e
3 changed files with 48 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gdb/testsuite/ChangeLog
View File

@ -1,3 +1,9 @@
2009-03-19 Jerome Guitton <guitton@adacore.com>
* gdb.ada/fixed_points/fixed_points.adb: Add a test on overprecise
deltas.
* gdb.ada/fixed_points.exp: Ditto.
2009-03-18 Pedro Alves <pedro@codesourcery.com>
* return-nodebug.c: Don't include stdio.h.

10
gdb/testsuite/gdb.ada/fixed_points.exp
View File

@ -37,6 +37,8 @@ gdb_load ${binfile}
set bp_location [gdb_get_line_number "Set breakpoint here" ${testdir}/fixed_points.adb]
runto "fixed_points.adb:$bp_location"
# Fixed point subtypes:
gdb_test "print base_object" \
"= -50" \
"p on a fixed point type"
@ -48,3 +50,11 @@ gdb_test "print subtype_object" \
gdb_test "print new_type_object" \
"= -50" \
"p on a new fixed point type"
# Overprecise delta:
gdb_test "print Overprecise_Object" \
"= 0.13579135791"
gdb_test "ptype Overprecise_Object" \
"= delta 0.135791"

39
gdb/testsuite/gdb.ada/fixed_points/fixed_points.adb
View File

@ -17,22 +17,47 @@ with System;
procedure Fixed_Points is
------------
-- Test 1 --
------------
-- Fixed point subtypes
type Base_Fixed_Point_Type is
delta 1.0 / 16.0
range (System.Min_Int / 2) * 1.0 / 16.0 ..
(System.Max_Int / 2) * 1.0 / 16.0;
subtype Fixed_Point_Subtype is
Base_Fixed_Point_Type range -50.0 .. 50.0;
subtype Fixed_Point_Subtype is
Base_Fixed_Point_Type range -50.0 .. 50.0;
type New_Fixed_Point_Type is
new Base_Fixed_Point_Type range -50.0 .. 50.0;
type New_Fixed_Point_Type is
new Base_Fixed_Point_Type range -50.0 .. 50.0;
Base_Object : Base_Fixed_Point_Type := -50.0;
Subtype_Object : Fixed_Point_Subtype := -50.0;
New_Type_Object : New_Fixed_Point_Type := -50.0;
------------
-- Test 2 --
------------
-- Overprecise delta
Overprecise_Delta : constant := 0.135791357913579;
-- delta whose significant figures cannot be stored into a long.
type Overprecise_Fixed_Point is
delta Overprecise_Delta range 0.0 .. 200.0;
for Overprecise_Fixed_Point'Small use Overprecise_Delta;
Overprecise_Object : Overprecise_Fixed_Point :=
Overprecise_Fixed_Point'Small;
Base_Object : Base_Fixed_Point_Type := -50.0;
Subtype_Object : Fixed_Point_Subtype := -50.0;
New_Type_Object : New_Fixed_Point_Type := -50.0;
begin
Base_Object := 1.0/16.0; -- Set breakpoint here
Subtype_Object := 1.0/16.0;
New_Type_Object := 1.0/16.0;
Overprecise_Object := Overprecise_Fixed_Point'Small * 2;
end Fixed_Points;