internal error 200611054 (for loop with no ordinal type)

Original Reporter info from Mantis: roked
  • Reporter name: Marģers

Description:

example code throws 2 errors

  1. Error : Ordinal expression expected (Ok)
  2. Fatal: Internal error 200611054 (not Ok)

Steps to reproduce:

type oWord = record q1,q2 : qword; end;

procedure megadoodoo;
var a : oWord;

begin
     for a:=0 to 3 do
     begin   
     end;
end;

Mantis conversion info:

  • Mantis ID: 36554
  • OS: linux
  • OS Build: .
  • Platform: x86_64
  • Version: 3.3.1
  • Fixed in version: 3.3.1