AV/Crash Executing Scripts with Function Pointers and Accessing global variables.

Script execution crashes if a function called via a function pointer accesses a global variable.

For convenience I attached a testcase: Copy it into "Tests\SimpleScripts"-Directory and it will crash executing the script (compiles without errors). Tested with the svn-revision R2530 (April 2014).

Some notes:

It will not crash (test passes), if function "Setting" is called directly (not as a function pointer)
It will not crash (test passes), if you execute the content of the "DoIt"-function directly (one nesting level fewer).

type
  TSettingFunction = function(): Boolean;

type
  TFooObject = class
    FValue: Integer;
    constructor Create(A: Integer);
    begin
      FValue := A;
    end;
    function Value: Integer;    
    begin
      Result := FValue; 
    end;
  end;

var AFoo: TFooObject = nil;
function Foo: TFooObject;
begin
  if AFoo = nil then
    AFoo := TFooObject.Create(42);
  Result := AFoo;
end;

function Setting(): Boolean;
begin
  PrintLn(IntToStr(Foo.Value));
  Result := True;
end;

procedure DoIt ();
begin
  var SettingFunction: TSettingFunction = Setting;
//  Setting(); // Works 
  SettingFunction(); // Crash   
end;

DoIt();

Comments (3)