From 879ca98a38e585b48b6ba76d55b918e4b3768171 Mon Sep 17 00:00:00 2001 From: Erich Eckner Date: Tue, 5 Dec 2017 09:26:01 +0100 Subject: lowlevelunit.pas: longestOrdinal new --- lowlevelunit.pas | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/lowlevelunit.pas b/lowlevelunit.pas index a871145..c8b4da9 100644 --- a/lowlevelunit.pas +++ b/lowlevelunit.pas @@ -7,6 +7,14 @@ interface uses math, Classes, SysUtils, RegExpr, process, FPimage, Graphics; +{$IFDEF CPU64} +type + longestOrdinal = int64; +{$ELSE} +type + longestOrdinal = longint; +{$ENDIF} + type generic tArray = array of t; tInt64Array = specialize tArray; -- cgit v1.2.3-70-g09d2