From b8bd3476bb365aef4d005460de2f9ed1e147d013 Mon Sep 17 00:00:00 2001 From: s_alexander Date: Sat, 5 Dec 2009 14:06:08 +0000 Subject: moved SizeInt definition to top git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1968 b956fd51-792f-4845-bead-9b4dfca2ff2c --- src/lib/pcre/pcre.pas | 21 +++++++++++---------- 1 file changed, 11 insertions(+), 10 deletions(-) (limited to 'src') diff --git a/src/lib/pcre/pcre.pas b/src/lib/pcre/pcre.pas index 9e40c347..cb72faf0 100644 --- a/src/lib/pcre/pcre.pas +++ b/src/lib/pcre/pcre.pas @@ -261,6 +261,17 @@ const {$EXTERNALSYM PCRE_EXTRA_MATCH_LIMIT_RECURSION} type + {$IFNDEF FPC} + {$IFDEF CPU32} + SizeInt = Integer; + {$ENDIF CPU32} + {$IFDEF CPU64} + SizeInt = Int64; + {$ENDIF CPU64} + PPAnsiChar = ^PAnsiChar; + {$ENDIF ~FPC} + PPPAnsiChar = ^PPAnsiChar; + real_pcre = packed record {magic_number: Longword; size: Integer; @@ -368,16 +379,6 @@ function CallPCRECallout(var callout_block: pcre_callout_block): Integer; type TPCRELibNotLoadedHandler = procedure; cdecl; - {$IFNDEF FPC} - {$IFDEF CPU32} - SizeInt = Integer; - {$ENDIF CPU32} - {$IFDEF CPU64} - SizeInt = Int64; - {$ENDIF CPU64} - PPAnsiChar = ^PAnsiChar; - {$ENDIF ~FPC} - PPPAnsiChar = ^PPAnsiChar; var // Value to initialize function pointers below with, in case LoadPCRE fails -- cgit v1.2.3