From b8bd3476bb365aef4d005460de2f9ed1e147d013 Mon Sep 17 00:00:00 2001
From: s_alexander <s_alexander@b956fd51-792f-4845-bead-9b4dfca2ff2c>
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