freepascal.ru

Код: Выделить всё

type
  pcre2_malloc_func = function(size:PCRE2_SIZE; p:pointer):pointer; cdecl;
  function pcre2_general_context_create_16(malloc_f: pcre2_malloc_func; free_f: pcre2_free_proc; memory_data:pointer): p_pcre2_general_context; cdecl; external;

function pcre2_malloc_def(size:PCRE2_SIZE; p:pointer):pointer; cdecl;
begin
  Result := getmem(size);
end;

...
fgeneral_context := pcre2_general_context_create_16(@pcre2_malloc_def, @pcre2_free_def, nil);


Код: Выделить всё

    class function malloc_def(size:PCRE2_SIZE; p:pointer):pointer; cdecl; static;

Error: Incompatible type for arg no. 1: Got "<class method type of function(LongWord;Pointer):^untyped of object;CDecl>", expected "<procedure variable type of function(LongWord;Pointer):^untyped;CDecl>"

FPC knows static class methods in classes: these are class methods that have the Static keyword at the end. These methods behave completely like regular procedures or functions. This means that:

They do not have a Self parameter. As a result, they cannot access properties or fields or regular methods.
They cannot be virtual.
They can be assigned to regular procedural variables.

Код: Выделить всё

[doj@larion ~/temp]$ cat staticproc.pas
{$MODE DELPHI}
type
TFunc = function(Size: Integer; P: Pointer): Pointer; cdecl;
TMyObject = class
  class function malloc_def(Size: Integer; P: Pointer): Pointer; cdecl; static;
end;

class function TMyObject.malloc_def(Size: Integer; P: Pointer): Pointer;
begin
  Result := P;
end;

var
  F: TFunc;

begin
  F := TMyObject.malloc_def;
end.
[doj@larion ~/temp]$ fpc staticproc.pas
/usr/bin/ld: warning: link.res contains output sections; did you forget -T?
[doj@larion ~/temp]$


Дож писал(а):Мне не удалось воспроизвести ошибку.

mgear писал(а):Даже принудительно тип указателя присвоить не получилось.

Код: Выделить всё

unit Unit1;

{$mode objfpc}{$H+}

interface

type
  pcre2_malloc_func = function(size:longint; p:pointer):pointer; cdecl;
  pcre2_free_proc = procedure(p1:pointer; p2:pointer); cdecl;

  pcre2_general_context = record end;
  p_pcre2_general_context = ^pcre2_general_context;

  myclass = class
  private
     fgeneral_context: p_pcre2_general_context;
     class function malloc(size:longint; p:pointer):pointer; cdecl; static;
     class procedure free(p1:pointer; p2:pointer); cdecl; static;
  public
     procedure aaa;
  end;

function pcre2_general_context_create_16(malloc_f: pcre2_malloc_func; free_f: pcre2_free_proc; memory_data:pointer): p_pcre2_general_context; cdecl;

implementation

function _malloc(size:longint; p:pointer):pointer; cdecl;
begin
  Result := nil;
end;

procedure _free(p1:pointer; p2:pointer); cdecl;
begin
end;

function pcre2_general_context_create_16(malloc_f: pcre2_malloc_func;
  free_f: pcre2_free_proc; memory_data: pointer): p_pcre2_general_context;
  cdecl;
begin
  Result := nil;
end;

class function myclass.malloc(size: longint; p: pointer): pointer; cdecl;
begin
  Result := nil;
end;

class procedure myclass.free(p1: pointer; p2: pointer); cdecl;
begin

end;

procedure myclass.aaa;
begin
  fgeneral_context := pcre2_general_context_create_16(@_malloc, @_free, nil);
//  fgeneral_context := pcre2_general_context_create_16(@malloc, @free, nil);
end;

end.


mgear писал(а):Задача - раскомментировать строчку и скомпилять в режиме objfpc хоть через какое угодно переписывание методов и приведение типов.

Код: Выделить всё

  fgeneral_context := pcre2_general_context_create_16(pcre2_malloc_func(@myclass.malloc), pcre2_free_proc(@myclass.free), nil);


mgear писал(а):Почему-то паскаль ругается "Error: Illegal type conversion" на pcre2_malloc_func(@malloc), при этом спокойно кушает pcre2_malloc_func(@myclass.malloc). Хотя вызов осуществляется из метода класса, так что уточнение "myclass.", вроде как, избыточное. Вот и поди догадайся. Хорошо хотя бы он не просит "unit1.myclass."

wavebvg писал(а):Только оно Вам надо?

mgear писал(а): По сути, это является диверсией и надругательством над психикой. Тем этом в официальном хелпе написано, что они есть. Как так?

Код: Выделить всё

class procedure myclass.free();
begin
end;

procedure myclass.aaa;
begin
  fgeneral_context := pcre2_general_context_create_16(@myclass.malloc, @myclass.free, nil);
end;