🚀 go-pugleaf

sv_sw@kiruna.se (sv) writes:

>During compile, I am getting error 49 Data Segment to large.
>In my Uses section of my program I have the following:
>
>Uses dos,crt,support,menubox,objects;
>
>The latter 3 are my tpu's.
>
>In help, it says to create a pointer to objects to lower the 
>data segment or something.  If anyone understands how to 
>correct this problem or my spelling I would sure appreceate it.
>
>Doug 

Turbo Pascal will only handle 64kB of global variables in the data
segment (that's everything outside any function from all the units
plus the main program file).

You can however sometimes use some STACK space for temporary larger
data structures and variables: Try to move your larger buffers from
global definitions to local ones. Local variables go to a separate
64kB stack segment and also stop taking up space once the procedure
defining them ends.

type BIGTYPE = array[0..10000] of integer;
var BIG : BIGTYPE;
procedure berk;
begin
  /* BIG used here */
end;

vs.

type BIGTYPE = array[0..10000] of integer; /* doesn't take space so stays */
procure berk;
var BIG : BIGTYPE;  /* Goes to the stack now */
begin
  /* BIG used here */
end;

You'll probably need to pass references to BIG to procedures called
by berk if they need to access BIG:

procedure called_by_berk(var BIG : BIGTYPE);

This allows for up to another 64kB of data. Last resort is pointers.
For variables which don't change their size that can be pretty simple
though:

type BIGTYPE = array[0..10000] of integer;
var BIG : ^BIGTYPE;
begin /* of main program */
  New(BIG,sizeof(BIGTYPE));  /* Oh gosh I hope this works - no help online here! */
  /* Now, where you used BIG before, use BIG^ . */
  Dispose(BIG); /* optional cleaning up. Makeup. DON'T use BIG^ afterwards. */
end;

Hmm, if it don't work ask again, I'll check with TP help then. Boy you'd not think
memory fades that fast. 

Peter.