From 6e96b5434da5483d528aea128c735626609fe2b6 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Mon, 26 May 2008 17:51:48 +0200 Subject: [PATCH] * exp_vfpt.ads: Add ??? comment for last change From-SVN: r135946 --- gcc/ada/exp_vfpt.ads | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/gcc/ada/exp_vfpt.ads b/gcc/ada/exp_vfpt.ads index 8bf02e79fd8..fc73795cd55 100644 --- a/gcc/ada/exp_vfpt.ads +++ b/gcc/ada/exp_vfpt.ads @@ -46,8 +46,10 @@ package Exp_VFpt is -- target type, or both, are Vax floating-point type. procedure Expand_Vax_Foreign_Return (N : Node_Id); - -- The node N is a call to a foreign function that returns a Vax - -- float value in a floating point register. + -- The node N is a call to a foreign function that returns a Vax float + -- value in a floating point register. + -- Yes, but what does it do??? there is no hint anywhere in the spec or + -- body comments, need full spec here ??? procedure Expand_Vax_Real_Literal (N : Node_Id); -- The node N is a real literal node where the type is a Vax floating-point -- 2.30.2