Internal error 200108121 on compiling access of a static class field of a generic class
Original Reporter info from Mantis: befelemepeseveze
-
Reporter name:
Original Reporter info from Mantis: befelemepeseveze
- Reporter name:
Description:
project1.pas
----------------------
program project1;
uses
Unit1;
type
T = specialize TGenericType<Integer>;
begin
end.
----------------------
unit1.pas
----------------------
unit Unit1;
{mode objfpc}{
H+}
{$static on}
interface
type
generic TGenericType<TParamType> = class
var private
FDefault: TParamType; static;
F: TParamType;
public
procedure P;
end;
implementation
procedure TGenericType.P;
begin
F := FDefault; // <====== unit1.pas(21,16) Fatal: Internal error 200108121
end;
end.
----------------------
Steps to reproduce:
$ fpc project1.pas
Free Pascal Compiler version 2.3.1 [2009/07/10] for x86_64
Copyright (c) 1993-2009 by Florian Klaempfl
Target OS: Linux for x86-64
Compiling project1.pas
unit1.pas(21,16) Fatal: Internal error 200108121
Fatal: Compilation aborted
Error: /usr/lib/fpc/2.3.1/ppcx64 returned an error exitcode (normal if you did not specify a source file to be compiled)
$
Additional information:
Not tested on other platforms/architectures.
Mantis conversion info:
- Mantis ID: 14124
- OS: Ubuntu
- OS Build: 9.04
- Build: SVN 13376
- Platform: x86-64
- Version: 2.3.1
- Fixed in version: 2.4.0
- Fixed in revision: 13512 (#10ede516)