* some updates to compile API units for win32

rtl/win32/ascdef.pp

@@ -825,6 +825,7 @@ unit ascdef;
   function ReadConsoleOutput(hConsoleOutput:HANDLE; lpBuffer:PCHAR_INFO; dwBufferSize:COORD; dwBufferCoord:COORD; lpReadRegion:PSMALL_RECT):WINBOOL;
 
   function WriteConsoleOutput(hConsoleOutput:HANDLE; var lpBuffer:CHAR_INFO; dwBufferSize:COORD; dwBufferCoord:COORD; lpWriteRegion:PSMALL_RECT):WINBOOL;
+  function WriteConsoleOutput(hConsoleOutput:HANDLE; lpBuffer : pointer; dwBufferSize:COORD; dwBufferCoord:COORD; var lpWriteRegion : SMALL_RECT):WINBOOL;
 
   function ReadConsoleOutputCharacter(hConsoleOutput:HANDLE; lpCharacter:LPSTR; nLength:DWORD; dwReadCoord:COORD; lpNumberOfCharsRead:LPDWORD):WINBOOL;
 
@@ -1726,6 +1727,7 @@ unit ascdef;
   function ReadConsoleOutput(hConsoleOutput:HANDLE; lpBuffer:PCHAR_INFO; dwBufferSize:COORD; dwBufferCoord:COORD; lpReadRegion:PSMALL_RECT):WINBOOL; external 'kernel32' name 'ReadConsoleOutputA';
 
   function WriteConsoleOutput(hConsoleOutput:HANDLE; var lpBuffer:CHAR_INFO; dwBufferSize:COORD; dwBufferCoord:COORD; lpWriteRegion:PSMALL_RECT):WINBOOL; external 'kernel32' name 'WriteConsoleOutputA';
+  function WriteConsoleOutput(hConsoleOutput:HANDLE; lpBuffer : pointer; dwBufferSize:COORD; dwBufferCoord:COORD; var lpWriteRegion : SMALL_RECT):WINBOOL; external 'kernel32' name 'WriteConsoleOutputA';
 
   function ReadConsoleOutputCharacter(hConsoleOutput:HANDLE; lpCharacter:LPSTR; nLength:DWORD; dwReadCoord:COORD; lpNumberOfCharsRead:LPDWORD):WINBOOL; external 'kernel32' name 'ReadConsoleOutputCharacterA';
 
@@ -1850,7 +1852,10 @@ end.
 {$endif not windows_include_files}
 {
   $Log$
-  Revision 1.6  1999-01-07 15:52:22  peter
+  Revision 1.7  1999-01-09 07:29:46  florian
+    * some updates to compile API units for win32
+
+  Revision 1.6  1999/01/07 15:52:22  peter
     * removed winspool requirement
 
   Revision 1.5  1998/10/27 11:17:07  peter

rtl/win32/base.pp

@@ -545,7 +545,7 @@ interface
 
      WNDPROC = function (_para1:HWND; _para2:UINT; _para3:WPARAM; _para4:LPARAM):LRESULT;
 
-     FARPROC = pointer; {function :longint;}
+     FARPROC = pointer;
 
      PROC = FARPROC;
 
@@ -960,7 +960,10 @@ end.
 
 {
   $Log$
-  Revision 1.9  1998-12-28 23:35:14  peter
+  Revision 1.10  1999-01-09 07:29:47  florian
+    * some updates to compile API units for win32
+
+  Revision 1.9  1998/12/28 23:35:14  peter
     * small fixes for better compatibility
 
   Revision 1.8  1998/10/27 11:17:11  peter

rtl/win32/func.pp

@@ -3457,10 +3457,12 @@ in define line 6852 *)
     function GetNumberOfConsoleInputEvents(hConsoleInput:HANDLE; lpNumberOfEvents:LPDWORD):WINBOOL;
 
     function GetConsoleScreenBufferInfo(hConsoleOutput:HANDLE; lpConsoleScreenBufferInfo:PCONSOLE_SCREEN_BUFFER_INFO):WINBOOL;
+    function GetConsoleScreenBufferInfo(hConsoleOutput:HANDLE; var lpConsoleScreenBufferInfo:CONSOLE_SCREEN_BUFFER_INFO):WINBOOL;
 
     function GetLargestConsoleWindowSize(hConsoleOutput:HANDLE):COORD;
 
     function GetConsoleCursorInfo(hConsoleOutput:HANDLE; lpConsoleCursorInfo:PCONSOLE_CURSOR_INFO):WINBOOL;
+    function GetConsoleCursorInfo(hConsoleOutput:HANDLE; var lpConsoleCursorInfo:CONSOLE_CURSOR_INFO):WINBOOL;
 
     function GetNumberOfConsoleMouseButtons(lpNumberOfMouseButtons:LPDWORD):WINBOOL;
 
@@ -6592,10 +6594,12 @@ in define line 6826 *)
     function GetNumberOfConsoleInputEvents(hConsoleInput:HANDLE; lpNumberOfEvents:LPDWORD):WINBOOL; external 'kernel32' name 'GetNumberOfConsoleInputEvents';
 
     function GetConsoleScreenBufferInfo(hConsoleOutput:HANDLE; lpConsoleScreenBufferInfo:PCONSOLE_SCREEN_BUFFER_INFO):WINBOOL; external 'kernel32' name 'GetConsoleScreenBufferInfo';
+    function GetConsoleScreenBufferInfo(hConsoleOutput:HANDLE; var lpConsoleScreenBufferInfo: CONSOLE_SCREEN_BUFFER_INFO):WINBOOL; external 'kernel32' name 'GetConsoleScreenBufferInfo';
 
     function GetLargestConsoleWindowSize(hConsoleOutput:HANDLE):COORD; external 'kernel32' name 'GetLargestConsoleWindowSize';
 
     function GetConsoleCursorInfo(hConsoleOutput:HANDLE; lpConsoleCursorInfo:PCONSOLE_CURSOR_INFO):WINBOOL; external 'kernel32' name 'GetConsoleCursorInfo';
+    function GetConsoleCursorInfo(hConsoleOutput:HANDLE; var lpConsoleCursorInfo:CONSOLE_CURSOR_INFO):WINBOOL; external 'kernel32' name 'GetConsoleCursorInfo';
 
     function GetNumberOfConsoleMouseButtons(lpNumberOfMouseButtons:LPDWORD):WINBOOL; external 'kernel32' name 'GetNumberOfConsoleMouseButtons';
 
@@ -6775,7 +6779,10 @@ end.
 {$endif not windows_include_files}
 {
   $Log$
-  Revision 1.7  1998-12-28 23:35:15  peter
+  Revision 1.8  1999-01-09 07:29:48  florian
+    * some updates to compile API units for win32
+
+  Revision 1.7  1998/12/28 23:35:15  peter
     * small fixes for better compatibility
 
   Revision 1.6  1998/10/27 11:17:14  peter

rtl/win32/windows.pp

@@ -30,6 +30,7 @@ unit windows;
 {$i defines.pp}
 {$i messages.pp}
 {$i struct.pp}
+{$i redef.inc}
 {$i ascfun.pp}
 {$i unifun.pp}
 {$ifdef UNICODE}
@@ -59,11 +60,18 @@ const External_library='kernel32';
 {$i ascdef.pp}
 {$endif UNICODE}
 {$i func.pp}
+  procedure InitializeCriticalSection(var CriticalSection : TRTLCriticalSection); external 'kernel32' name 'InitializeCriticalSection';
+  procedure EnterCriticalSection(var CriticalSection : TRTLCriticalSection); external 'kernel32' name 'EnterCriticalSection';
+  procedure LeaveCriticalSection(var CriticalSection : TRTLCriticalSection); external 'kernel32' name 'LeaveCriticalSection';
+  procedure DeleteCriticalSection(var CriticalSection : TRTLCriticalSection); external 'kernel32' name 'DeleteCriticalSection';
 
 end.
 {
   $Log$
-  Revision 1.1  1998-08-31 11:54:02  pierre
+  Revision 1.2  1999-01-09 07:29:51  florian
+    * some updates to compile API units for win32
+
+  Revision 1.1  1998/08/31 11:54:02  pierre
     * compilable windows.pp file
       still to do :
        - findout problems