From 23a66d21bdf93f93a84dccec9110ac1f3d725b31 Mon Sep 17 00:00:00 2001
From: Nikolay Nikolov <nickysn@gmail.com>
Date: Sun, 29 Sep 2024 21:11:39 +0300
Subject: [PATCH] * PS1 system unit: moved constants that should be public to
 the interface part

---
 rtl/ps1/system.pp | 23 +++++++++++------------
 1 file changed, 11 insertions(+), 12 deletions(-)

diff --git a/rtl/ps1/system.pp b/rtl/ps1/system.pp
index d85ff597fd..6807764b77 100644
--- a/rtl/ps1/system.pp
+++ b/rtl/ps1/system.pp
@@ -16,18 +16,6 @@ interface
 
 {$endif FPUNONE}
 
-var
-  argc:longint=0;
-  argv:PPAnsiChar;
-  envp:PPAnsiChar;
-
-implementation
-
-procedure _InitHeap(p: pdword; l: dword); external name 'InitHeap2';
-procedure _free(p: pointer); external name 'free2';
-function _malloc(l: dword): pointer; external name 'malloc2';
-
-
 const
     maxExitCode = 255;
     AllowDirectorySeparators : set of AnsiChar = ['\','/'];
@@ -46,6 +34,17 @@ const
     FileNameCaseSensitive = true;
     sLineBreak = #13;
 
+var
+  argc:longint=0;
+  argv:PPAnsiChar;
+  envp:PPAnsiChar;
+
+implementation
+
+procedure _InitHeap(p: pdword; l: dword); external name 'InitHeap2';
+procedure _free(p: pointer); external name 'free2';
+function _malloc(l: dword): pointer; external name 'malloc2';
+
 {I ../mips/setjump.inc}
 {$I system.inc}