--- I-Nex-0c10102578e7c762674eaf9460b0903d76f151db/I-Nex/i-nex/.src/System/MSystem.module.orig 2019-10-19 18:18:59.052292896 +0200
+++ I-Nex-0c10102578e7c762674eaf9460b0903d76f151db/I-Nex/i-nex/.src/System/MSystem.module 2019-10-19 18:20:48.339348715 +0200
@@ -11,6 +11,7 @@
Dim default_display_manager As Boolean = Exist("/etc/X11/default-display-manager")
Dim hostname, arch, gcc, timezone, xorg_version, glx_version As String
Dim SCREENFETCH_P As Process
+ Dim sLine2 As String
SCREENFETCH_P = Exec ["" & ChkPrm.ChkExecDir("bash") & ""] For Write
Write #SCREENFETCH_P, File.Load("Data/screenfetch-dev")
SCREENFETCH_P.Wait
@@ -21,9 +22,9 @@
Shell "timedatectl status | grep \"Time zone:\" | cut -d \":\" -f 2 | cut -d \"(\" -f 1" Wait To timezone
Endif
'Detect heap size
- For Each sLine In Split(File.Load("/proc/self/maps"), "\n")
- If InStr(sLine, "[heap]") Then
- aScan = Scan(sLine, "*-* *")
+ For Each sLine2 In Split(File.Load("/proc/self/maps"), "\n")
+ If InStr(sLine2, "[heap]") Then
+ aScan = Scan(sLine2, "*-* *")
Finfosys.Label176.Text = "Heap size is " & Format(Val("&H" & aScan[1] & "&") - Val("&H" & aScan[0] & "&"), "#,##0") & " bytes."
Break
Endif
@@ -298,4 +299,4 @@
SCREENFETCH_P.Kill
SCREENFETCH.Clear
-End
\ Kein Zeilenumbruch am Dateiende.
+End