Problems with External: SIGSEV

[stab]

I'm trying to use Angus Johnsons Clipper routines to offset polygons but
get External: SIGSEV in the constructor of TClipperOffset object:
 
constructor TClipperOffset.Create(
  MiterLimit: Double = 2;
  ArcTolerance: Double = def_arc_tolerance);
begin
  inherited Create;
  FPolyNodes := TPolyNode.Create; <-- External: SIGSEV
  FLowest.X := -1;
  FMiterLimit := MiterLimit;
  FArcTolerance := ArcTolerance;
end;

  TPolyNode = class
  private
    FPath    : TPath;
    FParent  : TPolyNode;
    FIndex   : Integer;
    FCount   : Integer;
    FBuffLen : Integer;
    FIsOpen  : Boolean;
    FChilds  : TArrayOfPolyNode;
    FJoinType: TJoinType; //used by ClipperOffset only
    FEndType : TEndType;  //used by ClipperOffset only
    function  GetChild(Index: Integer): TPolyNode;
    function  IsHoleNode: boolean;
    procedure AddChild(PolyNode: TPolyNode);
    function  GetNextSiblingUp: TPolyNode;
  public
    function  GetNext: TPolyNode;
    property  ChildCount: Integer read FCount;
    property  Childs[index: Integer]: TPolyNode read GetChild;
    property  Parent: TPolyNode read FParent;
    property  IsHole: Boolean read IsHoleNode;
    property  IsOpen: Boolean read FIsOpen;
    property  Contour: TPath read FPath;
  end;

As of my understanding TPolyNode is implicitely of type TObject and would
be created as such.

What can cause the problems?

Windows 10 64 bits
Lazarus v.1.8.0
FPC 3.0.4

Regards
stab

[Martin_fr]

1) Run in the debugger.

Check the stacktrace in the debugger, maybe the exception happens somewhere higher up.

Check "self" has a value. It should since you are in a constructor.
Though if you do this

Code: Pascal  [Select][+][-]

1. var foo: TClipperOffset;
2. //...
3. foo := nil; // or random value
4. foo.create();

Then instead of creating an instance you may just be calling the constructor with self=nil (or random). Then accessing FPolyNodes  will crash.

2) Run with -gh -gt
set env variable
HEAPTRC="keepreleased"

You may have memory corruption anywhere else. Then the crash just happens here, because it finally tripped over the memory that was corrupted some where else.

[wp]

I tried to compile the Delphi clipper_demo with Laz 1.8/fpc 3.04 (32 bit) on Win 10/64 bit, and did not see any such issues. Some files required a {$mode Delphi} directive, I had to remove the unknown properties Margins.* from the form file. And then, of course, the standard changes for using a Delphi project within Lazarus: rename the project file to .lpr, rename form file from dfm to lfm, add package graphics32 to project requirements, add main.pas to project, in main.pas change the directive {$R *.dfm} to {$R *.lfm}, add "Interfaces" to the project unit. I think that was all.

I am attaching the Lazarus project.

P.S.
I should mentioned that I installed graphics32 via Online-Package-Manager.

[stab]

Thank you all for your tips!
I'll try to use them to solve my problems.

[marcio2003]

Hi,

A long time ago I made my own algorithm to solve this, you enter a point and you get the closed polygon that surrounds it.

Sometimes there will be no closed polygon surrounding the point, so the answer will be an empty polygon.

Only two results: one closed polygon or one empty polygon.

It works with dynamic array and initially with a large number of nodes.

Todo: detect islands within the polygon.

It might need to be optimized for better performance to work with large numbers of nodes, but it works.

It was not an easy task.