How to fix from Delphi XE2

[Uefi1]

Hello, the Delphi XE2 compiler shows errors in the code:

  // Fill the m_slots for multi-phase initialization
  FSlots := [PyModuleDef_Slot.Make(Py_mod_exec,
    GetCallBack(Self, @TPythonModule.Exec_Module, 1, DEFAULT_CALLBACK_TYPE))];

..

FSlots := FSlots + [PyModuleDef_Slot.Make(Py_mod_multiple_interpreters, P)];

FSlots := FSlots + [PyModuleDef_Slot.Make(0, nil)];

[DCC Error] PythonEngine.pas(7702): E2001 Ordinal type required

How to correct errors correctly ?

[pyscripter]

You can try:

FSlots := Concat(FSlots,  [PyModuleDef_Slot.Make(Py_mod_multiple_interpreters, P)]);
FSlots := Concat(FSlots), [PyModuleDef_Slot.Make(0, nil)]);

Please, let me know if it works.

[Uefi1]

Hello, for some reason the error still remains the same =(

FSlots := Concat(FSlots,  [PyModuleDef_Slot.Make(Py_mod_multiple_interpreters, P)]);

[DCC Error] PythonEngine.pas(7712): E2001 Ordinal type required

[pyscripter]

You can try:

Insert(PyModuleDef_Slot.Make(Py_mod_multiple_interpreters, P), FSlots, Length(FSlots));

[Uefi1]

You can try:

Insert(PyModuleDef_Slot.Make(Py_mod_multiple_interpreters, P), FSlots, Length(FSlots));

  // Fill the m_slots for multi-phase initialization
  FSlots[0] := PyModuleDef_Slot.Make(Py_mod_exec,
    GetCallBack(Self, @TPythonModule.Exec_Module, 1, DEFAULT_CALLBACK_TYPE));
..
    Insert(PyModuleDef_Slot.Make(Py_mod_multiple_interpreters, P), FSlots, Length(FSlots));

[DCC Error] PythonEngine.pas(7712): E2008 Incompatible types

[pyscripter]

[DCC Error] PythonEngine.pas(7712): E2008 Incompatible types

Damn. This works in Delphi 12.

Then try:

    SetLength(FSLots, Length(FSlots) + 1);
    FSlots[High(FSlots)] := PyModuleDef_Slot.Make(Py_mod_multiple_interpreters, P);

[Uefi1]

[DCC Error] PythonEngine.pas(7712): E2008 Incompatible types

Damn. This works in Delphi 12.

Then try:

SetLength(FSLots, Length(FSlots) + 1);
FSlots[High(FSlots)] := PyModuleDef_Slot.Make(Py_mod_multiple_interpreters, P);

How to fix the full procedure correctly ?=)

procedure TPythonModule.MakeModuleDef;
var
  P: Pointer;
begin
  FillChar(FModuleDef, SizeOf(FModuleDef), 0);
  FModuleDef.m_base.ob_refcnt := 1;
  FModuleDef.m_name := PAnsiChar(ModuleName);
  FModuleDef.m_methods := MethodsData;
  FModuleDef.m_size := 0;

  // Doc string
  if FDocString.Count > 0 then
  begin
    FEncodedDocString := UTF8Encode(CleanString(FDocString.Text, False));
    FModuleDef.m_doc := PAnsiChar(FEncodedDocString);
  end;

  // Fill the m_slots for multi-phase initialization
  FSlots := [PyModuleDef_Slot.Make(Py_mod_exec,
    GetCallBack(Self, @TPythonModule.Exec_Module, 1, DEFAULT_CALLBACK_TYPE))]; // E2001 Ordinal type required

  if (Engine.MajorVersion > 3) or (Engine.MinorVersion >= 12) then
  begin
    case FMultInterpretersSupport of
      mmiNotSupported: P := Py_MOD_MULTIPLE_INTERPRETERS_NOT_SUPPORTED;
      mmiPerInterpreterGIL: P := Py_MOD_PER_INTERPRETER_GIL_SUPPORTED;
    else
      P := Py_MOD_MULTIPLE_INTERPRETERS_SUPPORTED;
    end;
    FSlots := FSlots + [PyModuleDef_Slot.Make(Py_mod_multiple_interpreters, P)]; // E2001 Ordinal type required
  end;
  FSlots := FSlots + [PyModuleDef_Slot.Make(0, nil)]; // E2001 Ordinal type required

  FModuleDef.m_slots := @FSlots[0];
end;

[pyscripter]

Did my suggestion work? I don't have access to XE2. If yes you do the same for the other array concatenation and it should work.

[Uefi1]

Did my suggestion work? I don't have access to XE2. If yes you do the same for the other array concatenation and it should work.

Yes, there is no point in fixing them one by one. The binding is there. Maybe it would be better to reconsider/change the logic of the whole procedure.