From 3641054ca6733bfa8153c502c9df51cfd1bfd020 Mon Sep 17 00:00:00 2001
From: oscarl-2 <oscarl-2@d5ff2aa3-e835-421f-bc93-9a7aa3229f71>
Date: Sat, 20 Dec 2003 20:08:58 +0000
Subject: [PATCH] initial commit.

---
 .../pas/src/be/kernel/perfmon_user.pp         | 27 +++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100644 bepascal/source/bepascal/pas/src/be/kernel/perfmon_user.pp

diff --git a/bepascal/source/bepascal/pas/src/be/kernel/perfmon_user.pp b/bepascal/source/bepascal/pas/src/be/kernel/perfmon_user.pp
new file mode 100644
index 0000000..d35803f
--- /dev/null
+++ b/bepascal/source/bepascal/pas/src/be/kernel/perfmon_user.pp
@@ -0,0 +1,27 @@
+unit perfmon_user;
+{
+  File: perfmon_user.h
+  Description: user mode interface to performance counters and time stamp
+  registers of 586 and 686 CPUs
+
+  DO NOT use these functions in the production code !!!
+  This interface WILL BE CHANGED in the next releases.
+
+  User mode read_pmc() is enabled only on Pentium || because of
+  Pentium errata #74 and Pentium Pro errata #26.
+  For details see http://developer.intel.com
+
+  Copyright (c) 1998 by Be Incorporated.  All Rights Reserved.
+}
+
+interface
+
+{$ifdef CPUI386}
+function read_pmc(pmc : Longword) : QWord;
+         cdecl; external 'root' name 'read_pmc';
+function read_tsc : QWord; cdecl; external 'root' name 'read_tsc';
+{$endif CPUI386}
+
+implementation
+
+end.