mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 07:47:58 +02:00
e0b41141d2
* pscanner.pas: change SizeInt to ASizeInt for tokenreadsizeint and tokenwritesizeint and change necessary other locations for record- and replaytokenbuffers + Added a test in the hope that some test-platforms do cross platform (e.g. win32 => win64) compilation. git-svn-id: trunk@21651 -
22 lines
498 B
ObjectPascal
22 lines
498 B
ObjectPascal
{ the important part of this test is a cross compilation which a change in the
|
|
size of the bitness, e.g. from Win32 to Win64 where the unit "fgl" was
|
|
compiled with the 32-to-64-bit cross compiler and this program itself is
|
|
compiled with the native 64-bit compiler }
|
|
|
|
program tw20947;
|
|
|
|
uses
|
|
fgl;
|
|
|
|
type
|
|
TTestList = specialize TFPGList<Byte>;
|
|
|
|
Var
|
|
Test : TTestList;
|
|
begin
|
|
Test := TTestList.Create;
|
|
Test.Add(2);
|
|
WriteLn(Test[0]); // This should output 2 to console
|
|
Test.Free;
|
|
end.
|