head	1.1;
access;
symbols
	pkgsrc-2026Q1:1.1.0.4
	pkgsrc-2026Q1-base:1.1
	pkgsrc-2025Q4:1.1.0.2
	pkgsrc-2025Q4-base:1.1;
locks; strict;
comment	@-- @;


1.1
date	2025.10.07.20.45.10;	author dkazankov;	state Exp;
branches;
next	;
commitid	EBysylHjpPyMbGdG;


desc
@@


1.1
log
@ada-gnatcoll-core-25: bug fixing

* Add tests support
* Many (not all) NetBSD port bugs fixed after tests:
  PASS 431
  FAIL 16
  SKIP 1
@
text
@$NetBSD: patch-core_src_os_unix_libc-wrappers.c,v 1.1 2025/07/10 18:52:41 dkazankov Exp $

Fix portability

--- core/src/os/gnatcoll-os-fs.adb.orig	2024-09-24 12:28:32.000000000 +0300
+++ core/src/os/gnatcoll-os-fs.adb
@@@@ -80,7 +80,7 @@@@
       Result : Integer;
    begin
       Result := Unsafe_Read (FD, Buffer (Buffer'First)'Address, Buffer'Length);
-      if Result < 0 then
+      if Result = -1 then
          raise OS_Error with "read error";
       end if;
 
@@@@ -109,7 +109,7 @@@@
 
       Result := C_Read (FD, Buffer (First)'Address, size_t (Last - First + 1));
 
-      if Result < 0 then
+      if Result = -1 then
          raise OS_Error with "read error";
       end if;
 
@@@@ -201,7 +201,7 @@@@
    begin
       Result := C_Write (FD, Buffer (Buffer'First)'Address, Buffer'Length);
 
-      if Result < 0 then
+      if Result = -1 then
          raise OS_Error with "write error";
       end if;
 
@