X-Git-Url: http://git.sourceforge.jp/view?a=blobdiff_plain;f=gcc%2Fada%2Fs-finimp.ads;h=4c5efcede6658ebdd6dbe349983c4bf49ef99b59;hb=3d069ad47acec10e0ef434afbd79b5d3e0d77596;hp=49db440a0ec750bafc5200822a6a8f133f127f88;hpb=8626dbb9ba26fc1b06f3de7738aae45f5e302725;p=pf3gnuchains%2Fgcc-fork.git

diff --git a/gcc/ada/s-finimp.ads b/gcc/ada/s-finimp.ads
index 49db440a0ec..4c5efcede66 100644
--- a/gcc/ada/s-finimp.ads
+++ b/gcc/ada/s-finimp.ads
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---                            $Revision: 1.31 $                             --
+--                            $Revision: 1.1 $                             --
 --                                                                          --
 --          Copyright (C) 1992-1998 Free Software Foundation, Inc.          --
 --                                                                          --
@@ -139,7 +139,7 @@ pragma Elaborate_Body (Finalization_Implementation);
    --  Initialize the field My_Address to the Object'Address
 
    procedure Adjust (Object : in out Record_Controller);
-   --  Adjust the components and their finalization pointers by substracting
+   --  Adjust the components and their finalization pointers by subtracting
    --  by the offset of the target and the source addresses of the assignment
 
    --  Inherit Finalize from Limited_Record_Controller