Re: [fpc-pascal] access violation?

2018-07-31 Thread Sven Barth via fpc-pascal
Ryan Joseph schrieb am Di., 31. Juli 2018, 18:15: > > > > On Jul 30, 2018, at 11:08 PM, Sven Barth via fpc-pascal < > fpc-pascal@lists.freepascal.org> wrote: > > > > If the method doesn't access Self then there is nothing you can do. > > Is this something the compiler team would be interested in

Re: [fpc-pascal] Operator overload bug

2018-07-31 Thread Ben Grasset
It's still open by my view, with "new" status: https://bugs.freepascal.org/view.php?id=34021 On Tue, Jul 31, 2018 at 11:47 AM, Ryan Joseph wrote: > > > > On Jul 30, 2018, at 4:11 PM, Ben Grasset wrote: > > > > If you don't have an SVN patch utility handy you could probably just > look at it

Re: [fpc-pascal] Assigning open array

2018-07-31 Thread Dmitry Boyarintsev
On Tue, Jul 31, 2018 at 11:39 AM Santiago A. wrote: > I'm not very sure how open arrays are copied > In your example you don't have open arrays used - you have dynamic arrays. > I looks like working fine. MyArray.ArrayInt[0] is still 5. But I wonder > whether it is really right or just luck.

Re: [fpc-pascal] access violation?

2018-07-31 Thread Ryan Joseph
> On Jul 30, 2018, at 11:08 PM, Sven Barth via fpc-pascal > wrote: > > If the method doesn't access Self then there is nothing you can do. Is this something the compiler team would be interested in adding? I’d like to get an error when calling methods on nil. It’s seems like pretty basic

Re: [fpc-pascal] Operator overload bug

2018-07-31 Thread Ryan Joseph
> On Jul 30, 2018, at 4:11 PM, Ben Grasset wrote: > > If you don't have an SVN patch utility handy you could probably just look at > it and apply it to your sources yourself. The final version looks like it's > just two lines changed in a single file. Thanks for fixing that Ben. I don’t

[fpc-pascal] Assigning open array

2018-07-31 Thread Santiago A.
Hello: I'm not very sure how open arrays are copied program Project1; Type TMyRecord=record somedata:string; ArrayInt:array of integer; end; TRecordList=array of TMyRecord; procedure foo(out aList:TRecordList); var TmpList:TRecordList; begin