* fixes to make it compilable

fcl/dos/go32v2/Makefile

@@ -38,8 +38,8 @@ MKDIR=mkdir
 .SUFFIXES: .pp .ppu .pas
 .PHONY: all install clean units progs
 
-INCDIR=../inc
-CPUDIR=../$(CPU)
+INCDIR=../../inc
+CPUDIR=../../$(CPU)
 
 include $(INCDIR)/Makefile.inc
 

fcl/dos/go32v2/classes.pp

@@ -34,7 +34,10 @@ end.
 
 {
   $Log$
-  Revision 1.3  1998-05-06 13:00:25  michael
+  Revision 1.4  1998-09-30 13:41:02  florian
+    * fixes to make it compilable
+
+  Revision 1.3  1998/05/06 13:00:25  michael
   + Added strings to uses clause, for TStrings class.
 
   Revision 1.2  1998/05/04 14:31:51  michael
@@ -42,5 +45,4 @@ end.
 
   Revision 1.1  1998/05/04 12:16:01  florian
     + Initial revisions after making a new directory structure
-
-}
+}

fcl/inc/syncobjs.inc

@@ -25,11 +25,12 @@ procedure TCriticalSection.Leave;
      Release;
   end;
 
-end.
-
 {
   $Log$
-  Revision 1.1  1998-09-29 11:14:25  florian
+  Revision 1.2  1998-09-30 13:41:04  florian
+    * fixes to make it compilable
+
+  Revision 1.1  1998/09/29 11:14:25  florian
     + initial revision
 
 }

fcl/inc/syncobjsh.inc

@@ -20,20 +20,48 @@ type
    end;
 
    TCriticalSection = class(TSyncroObject)
+{$ifdef win32}
    private
       CriticalSection : TRTLCriticalSection;
+{$endif win32}
    public
       procedure Acquire;override;
       procedure Release;override;
       procedure Enter;
       procedure Leave;
       constructor Create;
-      destructor Destroy;
+      destructor Destroy;override;
+   end;
+
+   THandleObject = class(TSyncroObject)
+   protected
+      FHandle : TEventHandle;
+      FLastError : Integer;
+   public
+      destructor destroy;override;
+      property Handle : TEventHandle read FHandle;
+      property LastError : Integer read FLastError;
+   end;
+
+   TEventObject = class(THandleObject)
+   public
+      constructor Create(EventAttributes : PSecurityAttributes;
+        ManualReset,InitialState : Boolean;const Name : string);
+      procedure ResetEvent;
+      procedure SetEvent;
+      function WaitFor(Timeout : Cardinal) : TWaitResult;
+   end;
+
+   TSimpleEvent = class(TEventObject)
+      constructor Create;
    end;
 
 {
   $Log$
-  Revision 1.1  1998-09-29 11:14:25  florian
+  Revision 1.2  1998-09-30 13:41:05  florian
+    * fixes to make it compilable
+
+  Revision 1.1  1998/09/29 11:14:25  florian
     + initial revision
 
 }

fcl/win32/syncobjs.pp

@@ -12,22 +12,23 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
  **********************************************************************}
-
 unit syncobjs;
 
   interface
 
     uses
-       sysutils;
+       windows,sysutils;
 
-    {$syncobjsh.inc}
+    type
+      PSecurityAttributes = Windows.PSecurityAttributes;
+      TSecurityAttributes = Windows.TSecurityAttributes;
+      TEventHandle = THandle;
+
+    {$I syncobjsh.inc}
 
   implementation
 
-     uses
-        windows;
-
-    {$syncobjs.inc}
+    {$I syncobjs.inc}
 
     procedure TCriticalSection.Acquire;
 
@@ -55,11 +56,45 @@ unit syncobjs;
          inherited Destroy;
       end;
 
+    destructor THandleObject.destroy;
+
+      begin
+      end;
+
+    constructor TEvent.Create(EventAttributes : PSecurityAttributes;
+      ManualReset,InitialState : Boolean;const Name : string);
+
+      begin
+      end;
+
+    procedure TEvent.ResetEvent;
+
+      begin
+      end;
+
+    procedure TEvent.SetEvent;
+
+      begin
+      end;
+
+    function TEvent.WaitFor(Timeout : Cardinal) : TWaitResult;
+
+      begin
+      end;
+
+    constructor TSimpleEvent.Create;
+
+      begin
+      end;
+
 end.
 
 {
   $Log$
-  Revision 1.1  1998-09-29 11:15:24  florian
+  Revision 1.2  1998-09-30 13:41:06  florian
+    * fixes to make it compilable
+
+  Revision 1.1  1998/09/29 11:15:24  florian
     + initial revision
 
 }