SIGSEGV when passing a constant to a Variant parameter
Original Reporter info from Mantis: kluug.net @onpok
-
Reporter name: Ondrej Pokorny
Original Reporter info from Mantis: kluug.net @onpok
- Reporter name: Ondrej Pokorny
Description:
SIGSEGV when passing a constant to a Variant parameter.
program SimpleRoundToPrg;
{$mode objfpc}{$H+}
uses
Unit1;
begin
Test_OtherUnit('a'); // SIGSEGV here
Readln;
end.
unit Unit1;
{$mode Delphi}
interface
procedure Test_OtherUnit(const aValue: Variant);
implementation
procedure Test_OtherUnit(const aValue: Variant);
begin
end;
end.
Steps to reproduce:
Full project is included.
Mantis conversion info:
- Mantis ID: 38716
- OS: Windows
- OS Build: 10 64bit
- Platform: i386-win32
- Version: 3.3.1