Tracking segfaults

[Darkhog]

Sprite is created IN Tchunk.draw. This is because how they are handled in game - they are created as necessary and destroyed when no longer needed. Because of that memory used by game is about 30... MB and it should in theory run even on old 128mb machines.

[laggyluk]

well ok i guess as long as you are not loading resources there. anyways looks like problem lies around* tsprite.create

[Darkhog]

I can send you sources, if you want to look into it.

[imcold]

I can give it a try, too.

[laggyluk]

I can send you sources, if you want to look into it.

ok i can give it a shot

[Darkhog]

Pm'ed Laggyluk, will PM imcold in a minute.

//edit: PM'ed imcold as well.

[SilverWarior]

Can you send it to me also. I would also like to try help you out.
And besides since I'm closely folowing Factorio which also uses allegro game engine it would probably give me better idea of what it is posible to do with allegro and what not. This way I could probably give better suggestion to Factorio developers. And no Factorio is unfortunately not made with pascal.

[imcold]

You're getting errors due to changing the Chunk.Data in your keyboard handling code. The your keyboard handler is running in another context/thread (read the doc carefully: http://allegro-pas.sourceforge.net/d...install_int_ex). What does this mean? The data modified in the handler can change at any moment, independently of your main loop routine - if it changes when you're in your Draw routine, all hell's gonna break loose due to invalid pointers etc.
The solution is to just set a flag to signal that a world refresh is needed, and check it in the main loop (and there should be a lock around the flag, to do things 100% properly; but you can probably get away without it in this case).

var
    update_chunks: boolean;

  procedure RegenerateChunk;
  begin
    update_chunks := false;
    Chunk.Data:=WorldGenerator.GenerateChunkData(chunkx,0,18);
    Inc(chunkx);
    al_clear_to_color(perlin,al_makecol(255,0,255));
    for x:=0 to 100-1 do
    begin
      for y:=0 to 100-1 do
      begin
        al_putpixel(perlin,x,y,generate_pixel(x,y));
      end;
    end;
  end;

  procedure update_keyboard();
  begin
      Dec(lasted);
      dec(chunklasted);
      if (al_keyboard_needs_poll) then al_poll_keyboard;
      if ((al_key[AL_KEY_P]<>0) and (lasted<=0)) then begin pause:=not pause; lasted:=pausedelay; end;
      if not pause then begin

        if ((al_key[AL_KEY_SPACE]<>0) and (chunklasted<=0)) then
        begin
          update_chunks := true;
          chunklasted:=pausedelay;
        end;
      end;
  end;

main routine:

      repeat
        draw;
        if update_chunks then
            RegenerateChunk;
      until (al_key[AL_KEY_Q]<>0) or quit;