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

Made Blitzmax vanilla compatible (#34)

Ronny Otto 7 жил өмнө
parent
commit
61692936f0
1 өөрчлөгдсөн 10 нэмэгдсэн , 1 устгасан
  1. 10 1
      bmk_util.bmx

+ 10 - 1
bmk_util.bmx

@@ -1,4 +1,3 @@
-
 Strict
 
 Import "bmk_config.bmx"
@@ -1493,12 +1492,22 @@ Function FindEOL:Int(Text:String, substr:String, start:Int = 0)
 End Function
 
 Function Concat4:String(a1:String, a2:String, a3:String, a4:String)
+?bmxng
 	Local s:TStringBuffer = New TStringBuffer(128)
+?not bmxng
+	TStringBuffer.initialCapacity = 128
+	Local s:TStringBuffer = New TStringBuffer
+?
 	Return s.Append(a1).Append(a2).Append(a3).Append(a4).ToString()
 End Function
 
 Function Concat5:String(a1:String, a2:String, a3:String, a4:String, a5:String)
+?bmxng
 	Local s:TStringBuffer = New TStringBuffer(128)
+?not bmxng
+	TStringBuffer.initialCapacity = 128
+	Local s:TStringBuffer = New TStringBuffer
+?
 	Return s.Append(a1).Append(a2).Append(a3).Append(a4).Append(a5).ToString()
 End Function