Invalid page fault with gnat304a on Windows95

Invalid page fault with gnat304a on Windows95

[Vinicius Fernando Arcaro]

Dear gnat user:

    This program runs correctly only with maxn less than 93, 
otherwise it runs into a page fault. Is there a way to use a
maxn greater than 92? I am compiling and linking through
gnatmake test.adb

procedure test is

  maxn : constant integer := 93;
  a    : array (1 .. maxn, 1 .. maxn) of long_float;

begin
  for i in 1 .. maxn loop
    for j in 1 .. maxn loop
      a(i,j) := 0.0;
    end loop;
  end loop;
end test;

TEST caused an invalid page fault in
module TEST.EXE at 0137:004012e1.
Registers:
EAX=015700b0 CS=0137 EIP=004012e1 EFLGS=00010206
EBX=00550000 SS=013f ESP=0154efcc EBP=0155fe1c
ECX=00401090 DS=013f ESI=815a1b70 FS=0d4f
EDX=00401078 ES=013f EDI=8159baf0 GS=0000
Bytes at CS:EIP:
c7 85 b4 f1 fe ff 01 00 00 00 83 bd b4 f1 fe ff 
Stack dump:

Thank you in advance,
Vinicius Fernando Arcaro
E-mail: vfa@turing.unicamp.br

Re: Invalid page fault with gnat304a on Windows95

[wiljan]

Vinicius Fernando Arcaro <vfa@turing.unicamp.br> wrote in article
<324FA3B5.752D@turing.unicamp.br>...
> Dear gnat user:
> 
>     This program runs correctly only with maxn less than 93, 
> otherwise it runs into a page fault. Is there a way to use a
> maxn greater than 92? I am compiling and linking through
> gnatmake test.adb
> 
Try changing the values for the -stack option for the linker.
The option can be changed by changing the spec file inside the
gnat304a\gnu_ld directory. Change

*link:
-stack 0x1000000,0x10000

into:

*link:
-stack 0x1000000,0x1000000

I am sure that that will help.
This does not seem to help when a task requires a lot of stack.
Upto now I did not find how to deal with that.
Does anybody know how???

Wiljan

Re: Invalid page fault with gnat304a on Windows95

[Robert A Duff]

In article <01bbafbf$1ad2af50$3a208b82@wd>,
wiljan <W.Derks@nl.cis.philips.com> wrote:
>This does not seem to help when a task requires a lot of stack.
>Upto now I did not find how to deal with that.
>Does anybody know how???

Use pragma Storage_Size.

- Bob