Removed crt dependency

XusinboyBekchanov · Mar 8, 2021 · e52809a · e52809a
1 parent 063b7c8
commit e52809a
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 4 deletions.
diff --git a/mff/Application.bas b/mff/Application.bas
@@ -93,6 +93,9 @@ Namespace My
 		Dim As Integer L, i, k
 		#ifdef __FB_WIN32__
 			L = GetModuleFileName(GetModuleHandle(NULL), Tx, 255)
+		#else
+			Tx = Command(0)
+			L = Len(Tx)
 		#endif
 		s = Left(Tx, L)
 		For i = 0 To Len(s)
@@ -111,7 +114,9 @@ Namespace My
 		Dim As Integer L
 		#ifndef __FB_WIN32__
 			Dim As ZString * 255 Tx
-			L = readlink("/proc/self/exe", @Tx, 255 - 1)
+			'L = readlink("/proc/self/exe", @Tx, 255 - 1)
+			Tx = Command(0)
+			L = Len(Tx)
 		#else
 			Dim As WString * 255 Tx
 			L = GetModuleFileName(GetModuleHandle(NULL), @Tx, 255 - 1)

diff --git a/mff/Application.bi b/mff/Application.bi
@@ -13,9 +13,6 @@
 
 #include once "WStringList.bi"
 #include once "Control.bi"
-#ifndef __FB_WIN32__
-	#include once "crt/linux/unistd.bi"
-#endif
 #ifdef __USE_GTK__
 	#include once "gmodule.bi"
 #else