2
0
Эх сурвалжийг харах

Removed unnecessary extern procedure call

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@8280 8c9fc860-2736-0410-a75d-ab315db34111
negelef 7 жил өмнө
parent
commit
d280752e5c

+ 1 - 2
source/Coop.Machine.Mod

@@ -361,8 +361,7 @@ END GetInit;
 	END CPUID;
 
 	PROCEDURE GetConfig* ( CONST name: ARRAY OF CHAR;  VAR val: ARRAY OF CHAR );
-	PROCEDURE GetString EXTERN "Environment.GetString" ( CONST name: ARRAY OF CHAR;  VAR val: ARRAY OF CHAR );
-	BEGIN GetString (name, val);
+	BEGIN Environment.GetString (name, val);
 	END GetConfig;
 
 	PROCEDURE Shutdown*( restart: BOOLEAN );