codetools mit cvar und procedure

[Mathias]

Wen ich bei unterem Code bei "wri" Ctrl+Space drücke, gibt es den Fehler im Anhang.
Der Code lässt sich ohne Probleme compilieren, natürlich ohne das "wri".
Getestet mit stable und trunk.
Könnt ihr das Problem nachvollziehen ?

Code: Alles auswählen

program Project1;

var
  epoxy_glAccum: procedure(op: Integer; value: Single); cvar;external 'epoxy';
  glAccum: procedure(op: Integer; value: Single) absolute epoxy_glAccum;

begin
         wri  // Ctrl+Space geht nicht
end.

Vermutlich habe ich wieder mal etwas total exotisches entdeckt.


Sind ganz normale Typen da, wie ein Pointer, geht alles einwandfrei,

Code: Alles auswählen

var
  epoxy_glAccum: Pointer; cvar;external 'epoxy';
  glAccum: Pointer absolute epoxy_glAccum;

Oder wen man den Type auslagert.

Code: Alles auswählen

type
  Tproc = procedure(op: integer; Value: single);
var
  epoxy_glAccum: Tproc; cvar;external 'epoxy';
  glAccum: Tproc absolute epoxy_glAccum;

[Mathias]

Wen mal Alt+Up drückt, um einen Bezeichner zu suchen, genau das gleiche Problem.

[Mathias]

Ich bin ein Schritt weiter gekommen, mit dem cvar hat es nichts zu tun, auch bei diesem einfachen absolute geht es nicht,

Code: Alles auswählen

var
  p: Pointer;
  glAccum: procedure(op: integer; value: single) absolute p;

begin
  wri;

[theo]

Schreib's in den Bugtracker.
Es ist gut möglich, dass ein Problem mit diesem Konstrukt bisher niemandem aufgefallen ist.

[Mathias]

Schreib's in den Bugtracker.
Es ist gut möglich, dass ein Problem mit diesem Konstrukt bisher niemandem aufgefallen ist.

Schon gemacht.

https://gitlab.com/freepascal.org/lazar ... k2Nzc1MjZ9