IE 200301231 with records
Original Reporter info from Mantis: skalogryyz
-
Reporter name: Dmitry Boyarintsev
Original Reporter info from Mantis: skalogryyz
- Reporter name: Dmitry Boyarintsev
Description:
Compiling the following code fails with the internal error.
No problems on Win32 with 2.4.0 however.
program test;
{$mode objfpc}
type
TFColor = record
b, g, r : Byte;
// m : Byte; // uncomment it to avoid InternalError 200301231
end;
TFColorA = record
c : TFColor;
a : Byte;
// adding some field here, or chaning a type to Word or Interger
// also fixed the problem.
end;
function FColorToFColorA(C : TFColor) : TFColorA;
begin
Result.c:=C;
Result.a:=255;
end;
var
t : TFColor;
a : TFColor;
begin
FillChar(a, sizeof(a), 0);
t:=FColorToFColorA(a).c; // IE 200301231 why?
end.
Mantis conversion info:
- Mantis ID: 16163
- OS: MACOSX
- Build: r15098
- Platform: darwin
- Version: 2.5.1
- Fixed in version: 2.4.2
- Fixed in revision: 15403 (#dd6900c7)