Have you got the prof.rar? Amit
From: fpc-pascal-boun...@lists.freepascal.org [mailto:fpc-pascal-boun...@lists.freepascal.org] On Behalf Of ik Sent: Wednesday, February 02, 2011 11:29 AM To: FPC-Pascal users discussions Subject: Re: [fpc-pascal] dynamic array and new/dispose On Wed, Feb 2, 2011 at 11:18, Amit Bueno <amitbu...@gmail.com> wrote: 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. Can you write a small proof of concept that does exactly the same thing with the problem ? --- Amit -----Original Message----- From: fpc-pascal-boun...@lists.freepascal.org [mailto:fpc-pascal-boun...@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@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal _______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal Ido LINESIP - Opening the source for communication http://www.linesip.com <http://www.linesip.com/> http://www.linesip.co.il <http://www.linesip.co.il/>
_______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
