diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index bf15ce96fab..8ac3330816c 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,5 +1,8 @@
 2002-03-11  Douglas B Rupp  <rupp@gnat.com>
 
+	* config/alpha/alpha.c (alpha_sa_size, VMS): Don't reserve space
+	for FP, already done later.
+
 	* toplev.c (debug_args): Add entry for VMS_DEBUG.
 	* vmsdbgout.c (vmsdbgout_init): Fix typo in call to xmalloc.
 
diff --git a/gcc/config/alpha/alpha.c b/gcc/config/alpha/alpha.c
index 58753467e4f..ee82f968235 100644
--- a/gcc/config/alpha/alpha.c
+++ b/gcc/config/alpha/alpha.c
@@ -5969,10 +5969,10 @@ alpha_sa_size ()
       else
 	alpha_procedure_type = PT_NULL;
 
-      /* Don't reserve space for saving RA yet.  Do that later after we've
+      /* Don't reserve space for saving FP & RA yet.  Do that later after we've
 	 made the final decision on stack procedure vs register procedure.  */
       if (alpha_procedure_type == PT_STACK)
-	sa_size--;
+	sa_size -= 2;
 
       /* Decide whether to refer to objects off our PV via FP or PV.
 	 If we need FP for something else or if we receive a nonlocal