From 8eb96135c804ddb8988507947245b21b716c959e Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Fri, 29 Sep 2000 21:51:00 +0000
Subject: [PATCH]   * fixed compiling error

---
 rtl/os2/dynlibs.inc | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/rtl/os2/dynlibs.inc b/rtl/os2/dynlibs.inc
index 8dfb1772c4..31a50e9d31 100644
--- a/rtl/os2/dynlibs.inc
+++ b/rtl/os2/dynlibs.inc
@@ -41,7 +41,7 @@ var
  ErrPath: array [0..259] of char;
  Handle: longint;
 begin
- if DosLoadModule (@ErrPath, SizeOf (ErrPath), PChar (Name), Handle) <> 0)
+ if DosLoadModule (@ErrPath, SizeOf (ErrPath), PChar (Name), Handle) <> 0
                                 then Result := Handle else Result := NilHandle;
 end;
 
@@ -49,7 +49,7 @@ function GetProcedureAddress (Lib: TLibHandle; ProcName: AnsiString): pointer;
 var
  P: pointer;
 begin
- if DosQueryProcAddr (Lib, 0, PChar (ProcName), @P) = 0 then Result := P
+ if DosQueryProcAddr (Lib, 0, PChar (ProcName), P) = 0 then Result := P
                                                             else Result := nil;
 end;
 
@@ -62,7 +62,10 @@ end;
 
 {
   $Log$
-  Revision 1.1  2000-08-23 21:04:55  hajny
+  Revision 1.2  2000-09-29 21:51:00  jonas
+    * fixed compiling error
+
+  Revision 1.1  2000/08/23 21:04:55  hajny
     + OS/2 implementation
 
   Revision 1.1  2000/08/18 19:15:34  michael