X-Git-Url: http://review.tizen.org/git/?a=blobdiff_plain;f=gcc%2Fada%2Fa-caldel-vms.adb;h=1cf6f00d974641cd8554da035a478a52edbd3998;hb=4d8cd3a26294ce35abb17668eac2b6c38dd23bd0;hp=72cad3316f60ca4a923a534678f57edf4142d19e;hpb=c944d49b3bd3667c65c299afd3b1d756084203f4;p=platform%2Fupstream%2Fgcc48.git diff --git a/gcc/ada/a-caldel-vms.adb b/gcc/ada/a-caldel-vms.adb index 72cad33..1cf6f00 100644 --- a/gcc/ada/a-caldel-vms.adb +++ b/gcc/ada/a-caldel-vms.adb @@ -7,7 +7,7 @@ -- B o d y -- -- -- -- Copyright (C) 1991-1994, Florida State University -- --- Copyright (C) 1995-2010, AdaCore -- +-- Copyright (C) 1995-2012, AdaCore -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -78,7 +78,7 @@ package body Ada.Calendar.Delays is -- cause overflow. Safe_T : constant Time := - (if T > Safe_Ada_High then Safe_Ada_High else T); + (if T > Safe_Ada_High then Safe_Ada_High else T); begin return OSP.To_Duration (OSP.OS_Time (Safe_T), OSP.Absolute_Calendar);