From d0ed37202dd26bbfae51e7388e493df331442b6e Mon Sep 17 00:00:00 2001
From: ocoursiere <ocoursiere@d5ff2aa3-e835-421f-bc93-9a7aa3229f71>
Date: Sun, 11 Jan 2004 14:48:14 +0000
Subject: [PATCH] small fix in the read_port function : without this, it can
 crash the kernel when using mydebugger !

---
 bepascal/source/bepascal/pas/src/be/kernel/os.pp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/bepascal/source/bepascal/pas/src/be/kernel/os.pp b/bepascal/source/bepascal/pas/src/be/kernel/os.pp
index 68464bf..1945932 100644
--- a/bepascal/source/bepascal/pas/src/be/kernel/os.pp
+++ b/bepascal/source/bepascal/pas/src/be/kernel/os.pp
@@ -132,7 +132,7 @@ function write_port(port : port_id; code : Longint; const buf : Pointer;
                     buf_size : size_t)
          : status_t; cdecl; external 'root' name 'write_port';
 
-function read_port(port : port_id; code : Longint; buf : Pointer;
+function read_port(port : port_id; var code : Longint; buf : Pointer;
                    buf_size : size_t)
          : status_t; cdecl; external 'root' name 'read_port';
 
@@ -731,4 +731,4 @@ initialization
   B_INFINITE_TIMEOUT := Int64($7FFFFFFF) shl 32 + Int64($FFFFFFFF);
 {$endif VER1_0}
 
-end.
\ No newline at end of file
+end.