[fp] rtl changes

git-svn-id: svn://kolibrios.org@780 a494cfbc-eb01-0410-851d-a64ba20cac60

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}