exports statement caused internal error 200709272
Original Reporter info from Mantis: Hafedh TRIMECHE
-
Reporter name: Hafedh TRIMECHE
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)