create function test_empty_gen_rows
returns
    bigint
as
    declare variable n integer;
begin
    select
        n
      from
        gen_rows( null, null )
      into
        :n
    ;
    return row_count;
end

Result = 1

function TGenRowsProcedure.open(AStatus: IStatus; AContext: IExternalContext; AInMsg, AOutMsg: Pointer): IExternalResultSet;
begin
    // если один из входных аргументов NULL ничего не возвращаем
    if PInput(AInMsg).startNull or PInput(AInMsg).finishNull then
    begin
        POutput(AOutMsg).nNull := True;
        Result := nil;
        exit;
    end;
    ...
end;