Warning: Local variable "h" does not seem to be initialized

[Mathias]

Wieso bekommen ich folgende Warnung

Code: Alles auswählen

Warning: Local variable "h" does not seem to be initialized
Warning: Local variable "r" does not seem to be initialized

bei folgenden Code ?
Ich habe h + r extra auf 0.0 gesetzt.

Code: Alles auswählen

procedure TBasisTriangleVAO.Ring(r1, r2, h1, h2: single);
var
  i: integer;
  h: single = 0.0;
  r: single = 0.0;
 
  function norm(a, b: single): TVector3f; inline;
  begin
    Result := vec3(h * a, r, h * b);
  end;
 
begin
  r := r1 - r2;
  h := h2 - h1;
  for i := 0 to FSektoren - 1 do begin
    VierEck(
      vec3(Kreis.Tab[i + 1].a * r1, h1, Kreis.Tab[i + 1].b * r1),
      vec3(Kreis.Tab[i + 1].a * r2, h2, Kreis.Tab[i + 1].b * r2),
      vec3(Kreis.Tab[i + 0].a * r2, h2, Kreis.Tab[i + 0].b * r2),
      vec3(Kreis.Tab[i + 0].a * r1, h1, Kreis.Tab[i + 0].b * r1),
 
      norm(Kreis.Tab[i + 1].a, Kreis.Tab[i + 1].b),
      norm(Kreis.Tab[i + 1].a, Kreis.Tab[i + 1].b),
      norm(Kreis.Tab[i + 0].a, Kreis.Tab[i + 0].b),
      norm(Kreis.Tab[i + 0].a, Kreis.Tab[i + 0].b));
  end;
end;  

[MacWomble]

Zitat:

Die Initialisierung ist allerdings nur bei globalen Variablen möglich. Lokale Variablen von Prozeduren und Funktionen können dagegen auf diese Weise nicht mit Startwerten belegt werden.

Quelle: https://de.wikibooks.org/wiki/Programmi ... Konstanten

[Socke]

Lokale Variablen können ebenfalls initialisiert werden, siehe http://www.freepascal.org/docs-html/ref/refse22.html
@MacWomble: deine Quelle gibt offenbar noch einen alten Stand wieder. In der Tat war dies lange Zeit der Fall.

Falls die Warnung mit der aktuellen Entwickler-Version des Compilers ebenfalls ausgegeben wird, sollte ein Bug-Report erstellt werden.

[Mathias]

Ich habe es gerad unter Linux kompiliert FPC 2.6.4, dort kommt diese Warnung nicht.
Unter Windows muss ich erst nachgucken, welches FPC installiert ist.

[MacWomble]

@socke

Danke, hab ich wieder was gelernt