From 9c25bb25a88048f3b650c7e036ba6d05d5437425 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Mon, 12 Dec 2011 11:30:49 +0100 Subject: [multiple changes] 2011-12-12 Robert Dewar * par_sco.adb, scos.ads, put_scos.adb, get_scos.adb: Minor reformatting. 2011-12-12 Steve Baird * sem_ch3.adb (Check_Completion): Improve a comment. 2011-12-12 Tristan Gingold * cstand.adb: Minor comment fix. From-SVN: r182224 --- gcc/ada/cstand.adb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'gcc/ada/cstand.adb') diff --git a/gcc/ada/cstand.adb b/gcc/ada/cstand.adb index ce46e0f..c77afd2 100644 --- a/gcc/ada/cstand.adb +++ b/gcc/ada/cstand.adb @@ -1369,7 +1369,7 @@ package body CStand is begin -- In 32 bit mode, the size is 32 bits, and the delta and - -- small values are set to 20 milliseconds (20.0**(10.0**(-3)). + -- small values are set to 20 milliseconds (20.0*(10.0**(-3)). if Duration_32_Bits_On_Target then Dlo := Intval (Type_Low_Bound (Standard_Integer_32)); @@ -1377,7 +1377,7 @@ package body CStand is Delta_Val := UR_From_Components (UI_From_Int (20), Uint_3, 10); -- In standard 64-bit mode, the size is 64-bits and the delta and - -- small values are set to nanoseconds (1.0**(10.0**(-9)) + -- small values are set to nanoseconds (1.0*(10.0**(-9)) else Dlo := Intval (Type_Low_Bound (Standard_Integer_64)); -- cgit v1.1