diff options
| author | rwild <rwild@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-04-13 17:41:15 +0000 |
|---|---|---|
| committer | rwild <rwild@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-04-13 17:41:15 +0000 |
| commit | 1a34e48c1d7cf4f23d39788e46f64629cddf53b9 (patch) | |
| tree | d233d5950c2c7ac628ce9413ff3d59a39a79f59c /gcc/ada/sem_eval.adb | |
| parent | febb409f6902e6f6fe5898499b6e4088b8b22f31 (diff) | |
| download | gcc-1a34e48c1d7cf4f23d39788e46f64629cddf53b9.tar.gz | |
gcc/ada/
* sem_ch10.adb, sem_ch10.ads,
sem_ch12.adb, sem_ch12.ads, sem_ch13.adb, sem_ch13.ads,
sem_ch3.adb, sem_ch4.adb, sem_ch5.adb, sem_ch6.adb,
sem_ch6.ads, sem_ch8.adb, sem_ch8.ads, sem_ch9.adb,
sem_elab.adb, sem_elab.ads, sem_elim.ads, sem_eval.adb,
sem_eval.ads, sem_intr.adb, sem_mech.adb, sem_mech.ads,
sem_prag.adb, sem_prag.ads, sem_res.adb, sem_res.ads,
sem_type.adb, sem_util.adb, sem_util.ads, sem_warn.adb,
sem_warn.ads: Fix comment typos.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@134242 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/sem_eval.adb')
| -rw-r--r-- | gcc/ada/sem_eval.adb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/ada/sem_eval.adb b/gcc/ada/sem_eval.adb index 7b38241006f..9801df625e5 100644 --- a/gcc/ada/sem_eval.adb +++ b/gcc/ada/sem_eval.adb @@ -57,7 +57,7 @@ package body Sem_Eval is ----------------------------------------- -- The compile time evaluation of expressions is distributed over several - -- Eval_xxx procedures. These procedures are called immediatedly after + -- Eval_xxx procedures. These procedures are called immediately after -- a subexpression is resolved and is therefore accomplished in a bottom -- up fashion. The flags are synthesized using the following approach. @@ -3227,7 +3227,7 @@ package body Sem_Eval is return Ureal_0; end if; - -- If we fall through, we have a node that cannot be interepreted + -- If we fall through, we have a node that cannot be interpreted -- as a compile time constant. That is definitely an error. raise Program_Error; @@ -3307,7 +3307,7 @@ package body Sem_Eval is Typ := Full_View (Typ); end if; - -- For a result of type integer, subsitute an N_Integer_Literal node + -- For a result of type integer, substitute an N_Integer_Literal node -- for the result of the compile time evaluation of the expression. if Is_Integer_Type (Typ) then @@ -3497,7 +3497,7 @@ package body Sem_Eval is end if; -- If any exception occurs, it means that we have some bug in the compiler - -- possibly triggered by a previous error, or by some unforseen peculiar + -- possibly triggered by a previous error, or by some unforeseen peculiar -- occurrence. However, this is only an optimization attempt, so there is -- really no point in crashing the compiler. Instead we just decide, too -- bad, we can't figure out the answer in this case after all. @@ -4097,7 +4097,7 @@ package body Sem_Eval is -- To understand the requirement for this test, see RM 4.9.1(1). -- As is made clear in RM 3.5.4(11), type Integer, for example -- is a constrained subtype with constraint bounds matching the - -- bounds of its corresponding uncontrained base type. In this + -- bounds of its corresponding unconstrained base type. In this -- situation, Integer and Integer'Base do not statically match, -- even though they have the same bounds. |