From c521e1fc737b33baaea5e60fc30e5288ca90eec3 Mon Sep 17 00:00:00 2001
From: bw <bw@kolibrios.org>
Date: Wed, 26 Mar 2008 16:13:17 +0000
Subject: [PATCH] [fp] rtl changes

git-svn-id: svn://kolibrios.org@780 a494cfbc-eb01-0410-851d-a64ba20cac60
---
 programs/develop/fp/rtl/dynlibs.inc | 31 +++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100644 programs/develop/fp/rtl/dynlibs.inc

diff --git a/programs/develop/fp/rtl/dynlibs.inc b/programs/develop/fp/rtl/dynlibs.inc
new file mode 100644
index 0000000000..6e21df04ab
--- /dev/null
+++ b/programs/develop/fp/rtl/dynlibs.inc
@@ -0,0 +1,31 @@
+{TODO}
+
+{$ifdef readinterface}
+
+
+type
+  TLibHandle = Longint;
+
+const
+  NilHandle = 0;
+
+
+{$else}
+
+
+function LoadLibrary(Name: AnsiString): TLibHandle;
+begin
+  Result := 0;
+end;
+
+function GetProcedureAddress(Lib: TLibHandle; ProcName: AnsiString): Pointer;
+begin
+  Result := nil;
+end;
+
+function UnloadLibrary(Lib: TLibHandle): Boolean;
+begin
+  Result := False
+end;
+
+{$endif}