exports statement caused internal error 200709272

Original Reporter info from Mantis: Hafedh TRIMECHE

• Reporter name: Hafedh TRIMECHE

Description:

Compile Project, Target: InternalError.exe: Exit code 1, Errors: 1
Fatal: Internal error 200709272

This error is caused by invoking exports statement from a unit used for both library and application project.

Steps to reproduce:

program InternalError;

uses Main;

begin

  writeln('Fatal: Internal error 200709272');

end.         
--------------------------------------------------

unit Main;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils;

implementation

procedure MemNew(out P:Pointer;const mSize:Cardinal);cdecl;export;
begin
  GetMem(P,mSize);
end;

procedure MemFree(P:Pointer);cdecl;export;
begin
  if Assigned(P) then FreeMem(P);
end;

exports MemNew,MemFree;

end.

Mantis conversion info:

• Mantis ID: 29778
• Version: 3.1.1
• Monitored by: » Hafedh TRIMECHE (Hafedh TRIMECHE)