diff options
| author | Joel Sherrill <joel.sherrill@OARcorp.com> | 2007-09-28 14:49:40 +0000 |
|---|---|---|
| committer | Joel Sherrill <joel.sherrill@OARcorp.com> | 2007-09-28 14:49:40 +0000 |
| commit | ca70fae53a56655cb1b175ec326e9a16dfd7895e (patch) | |
| tree | 39cba68ca5d998c87ada875ed8a7d8af1cf13bc9 | |
| parent | 2007-09-28 Joel Sherrill <joel.sherrill@oarcorp.com> (diff) | |
| download | ada-examples-ca70fae53a56655cb1b175ec326e9a16dfd7895e.tar.bz2 | |
2007-09-28 Joel Sherrill <joel.sherrill@oarcorp.com>
* stack_check.adb: Smaller array still trips the overflow quick enough.
| -rw-r--r-- | stack_check/ChangeLog | 4 | ||||
| -rw-r--r-- | stack_check/stack_check.adb | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/stack_check/ChangeLog b/stack_check/ChangeLog index 20e1acc..fb3a637 100644 --- a/stack_check/ChangeLog +++ b/stack_check/ChangeLog @@ -1,4 +1,8 @@ 2007-09-28 Joel Sherrill <joel.sherrill@oarcorp.com> + * stack_check.adb: Smaller array still trips the overflow quick enough. + +2007-09-28 Joel Sherrill <joel.sherrill@oarcorp.com> + * .cvsiginore, ChangeLog, Makefile, README, stack_check.adb: New files. diff --git a/stack_check/stack_check.adb b/stack_check/stack_check.adb index 229b99f..a35a29e 100644 --- a/stack_check/stack_check.adb +++ b/stack_check/stack_check.adb @@ -8,7 +8,7 @@ with Text_IO; use Text_IO; procedure stack_check is - type UselessArrayType is array (1 .. 1024) of Natural; + type UselessArrayType is array (1 .. 512) of Natural; UselessArray : UselessArrayType; procedure BlowMe ( |