[fpc-pascal] dynamic array and new/dispose

[Amit Bueno]

I am compiling in a delphi mode.
Sorry for not posting a runnable source code,. 
The code portion was taken from a huge source code, which is probably hard
to detach from the rest of the code.
It is reading a TStream object, which is an input 3ds file given to the app.

---
Amit

-----Original Message-----
From: fpc-pascal-bounces at lists.freepascal.org
[mailto:fpc-pascal-bounces at lists.freepascal.org] On Behalf Of Jonas Maebe
Sent: Wednesday, February 02, 2011 11:17 AM
To: FPC-Pascal users discussions
Subject: Re: [fpc-pascal] dynamic array and new/dispose


On 02 Feb 2011, at 09:20, Amit Bueno wrote:

> // creating and reading more data
> SubChunks[NewSubChunk]^.read(Fl);
>
> // NewSubChunk function
> Function Chunk.NewSubchunk: integer;
> begin
>   setlength(SubChunks, High(SubChunks)+2);
>   New(subchunks[High(SubChunks)], create);
>   SubChunks[High(SubChunks)]^.Data := Self.Data;
>   Result := High(SubChunks);
> end;
>
> // ---------
> The procedure fails when running the:
> SubChunks[NewSubChunk]^.read(Fl);
>
> All the procedure works fine on Delphi, but on fpc under iMac it 
> fails.
> Why?
>

Are you compiling in Delphi mode? Please *always* post compilable  
source code that demonstrates the problem when asking for help, not  
uncompilable snippets. Don't make people guess about what you might  
have written or about how you are compiling it.


Jonas
_______________________________________________
fpc-pascal maillist  -  fpc-pascal at lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal