Merge branch 'master' of github.com:red/red

environment/console/terminal.reds

@@ -999,6 +999,7 @@ terminal: context [
 				str/head: 0
 				emit-string vt str no no
 				str/head: head
+				vt/edit-pos: out/last
 			]
 		]
 		num

environment/console/windows.reds

@@ -346,6 +346,7 @@ ConsoleWndProc: func [
 			mbmp: CreateCompatibleBitmap hdc max-win-width vt/char-h
 			SelectObject mdc mbmp
 			SelectObject mdc vt/font
+			set-normal-color vt
 			paint vt
 			EndPaint hWnd ps
 			DeleteDC mdc

runtime/datatypes/integer.reds

@@ -484,18 +484,14 @@ integer: context [
 		return: [integer!]
 		/local
 			res  [integer!]
-			neg? [logic!]
 	][
 		res: 1
-		neg?: false
-
-		if exp < 0 [neg?: true exp: 0 - exp]
 		while [exp <> 0][
 			if as logic! exp and 1 [res: res * base]
 			exp: exp >> 1
 			base: base * base
 		]
-		either neg? [1 / res][res]
+		res
 	]
 
 	power: func [

runtime/datatypes/string.reds

@@ -1403,7 +1403,7 @@ string: context [
 
 		s: GET_BUFFER(str)
 		unit: GET_UNIT(s)
-		buffer: (as byte-ptr! s/offset) + (str/head << (log-b unit))
+		buffer: (as byte-ptr! s/offset) + (str/head << (unit >> 1))
 		end: as byte-ptr! s/tail
 
 		if any [							;-- early exit if string is empty or at tail
@@ -1432,7 +1432,7 @@ string: context [
 					result/header: TYPE_NONE
 					return result
 				]
-				(as byte-ptr! s/offset) + (int/value - 1 << (log-b unit)) ;-- int argument is 1-based
+				buffer + (int/value - 1 << (unit >> 1)) ;-- int argument is 1-based
 			][
 				str2: as red-string! part
 				unless all [
@@ -1441,7 +1441,7 @@ string: context [
 				][
 					ERR_INVALID_REFINEMENT_ARG(refinements/_part part)
 				]
-				(as byte-ptr! s/offset) + (str2/head << (log-b unit))
+				buffer + (str2/head << (unit >> 1))
 			]
 			part?: yes
 		]
@@ -1453,22 +1453,21 @@ string: context [
 			]
 			reverse? [
 				step: 0 - step
-				buffer: either part? [limit][(as byte-ptr! s/offset) + (str/head - 1 << (log-b unit))]
+				buffer: either part? [limit][(as byte-ptr! s/offset) + (str/head - 1 << (unit >> 1))]
 				end: as byte-ptr! s/offset
 				if buffer < end [							;-- early exit if str/head = 0
 					result/header: TYPE_NONE
 					return result
 				]
 			]
 			true [
-				buffer: (as byte-ptr! s/offset) + (str/head << (log-b unit))
 				end: either part? [limit + unit][as byte-ptr! s/tail] ;-- + unit => compensate for the '>= test
 			]
 		]
 
 		case?: either TYPE_OF(str) = TYPE_STRING [not case?][no]			;-- inverted case? meaning
 		reverse?: any [reverse? last?]					;-- reduce both flags to one
-		step: step << (log-b unit)
+		step: step << (unit >> 1)
 		pattern: null
 
 		;-- Value argument processing --
@@ -1495,7 +1494,7 @@ string: context [
 				]
 				s2: GET_BUFFER(str2)
 				unit2: GET_UNIT(s2)
-				pattern: (as byte-ptr! s2/offset) + (head2 << (log-b unit2))
+				pattern: (as byte-ptr! s2/offset) + (head2 << (unit2 >> 1))
 				end2:    (as byte-ptr! s2/tail)
 			]
 			default [
@@ -1608,7 +1607,7 @@ string: context [
 
 		either found? [
 			str: as red-string! result
-			str/head: (as-integer buffer - s/offset) >> (log-b unit)	;-- just change the head position on stack
+			str/head: (as-integer buffer - s/offset) >> (unit >> 1)	;-- just change the head position on stack
 		][
 			result/header: TYPE_NONE					;-- change the stack 1st argument to none.
 		]

system/runtime/common.reds

@@ -118,10 +118,9 @@ re-throw: func [/local id [integer!]][
 
 
 #if type = 'exe [
-	#switch target [
+	#switch target [						;-- do not raise exceptions as we use some C functions may cause exception
 		IA-32 [
-			system/fpu/control-word: 0272h		;-- default control word: division by zero, invalid op,
-												;-- and overflow raise exceptions.
+			system/fpu/control-word: 027Fh
 			system/fpu/update
 		]
 		ARM [