Skip to content

Commit a90a14f

Browse files
committed
Fix for Linux and other non-Windows platforms.
1 parent b2f9224 commit a90a14f

File tree

1 file changed

+7
-3
lines changed

1 file changed

+7
-3
lines changed

Demos/FPC/Demo35/project1.lpr

+7-3
Original file line numberDiff line numberDiff line change
@@ -36,9 +36,13 @@ procedure DestroyEngine;
3636
N = 100000;
3737

3838
type
39-
PIntArray = ^TIntArray;
40-
TIntArray = array[0..N - 1] of Integer;
41-
39+
PIntArray = ^TIntArray;
40+
{$IFDEF MSWINDOWS}
41+
TIntArray = array[0..N - 1] of Integer;
42+
{$ELSE}
43+
TIntArray = array[0..N - 1] of NativeInt;
44+
{$ENDIF}
45+
4246
{ TBufferProtocol }
4347

4448
TBufferProtocol = class(TCustomApplication)

0 commit comments

Comments
 (0)