From 0c4e27f706b6ed78e8511a7d28b63b3a3bf39ec7 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Thu, 28 Jun 2007 17:50:11 +0000
Subject: [PATCH] + few package related declarations added

git-svn-id: trunk@7844 -
---
 rtl/win/sysosh.inc | 21 ++++++++++++++++++---
 1 file changed, 18 insertions(+), 3 deletions(-)

diff --git a/rtl/win/sysosh.inc b/rtl/win/sysosh.inc
index 0eb7f57027..7bfe95d315 100644
--- a/rtl/win/sysosh.inc
+++ b/rtl/win/sysosh.inc
@@ -58,6 +58,21 @@ const
   ApiSuffix = 'A';
 {$endif WINCE}
 
-  function OleStrToString(source: PWideChar) : ansistring;inline;
-  procedure OleStrToStrVar(source : PWideChar;var dest : ansistring);inline;
-  function StringToOleStr(const source : ansistring) : PWideChar;inline;
+function OleStrToString(source: PWideChar) : ansistring;inline;
+procedure OleStrToStrVar(source : PWideChar;var dest : ansistring);inline;
+function StringToOleStr(const source : ansistring) : PWideChar;inline;
+
+{ package stuff }
+type
+  PLibModule = ^TLibModule;
+  TLibModule = record
+    Next: PLibModule;
+    Instance: THandle;
+    CodeInstance: THandle;
+    DataInstance: THandle;
+    ResInstance: THandle;
+    Reserved: PtrInt;
+  end;
+
+var
+  LibModuleList: PLibModule = nil;