FIX: renamed ***-start symbol to ***_start (more consistent with othe…

…r startup symbols).
g9020 · Feb 26, 2012 · 4d7a98f · 4d7a98f
1 parent 5bba028
commit 4d7a98f
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 5 deletions.
diff --git a/red-system/emitter.r b/red-system/emitter.r
@@ -563,15 +563,15 @@ emitter: context [
 
 	start-prolog: does [								;-- libc init prolog
 		append compiler/functions [						;-- create a fake function to
-			***-start [0 native cdecl []]				;-- let the linker write the entry point
+			***_start [0 native cdecl []]				;-- let the linker write the entry point
 		]
 		append symbols [
-			***-start [native 0 []]
+			***_start [native 0 []]
 		]
 	]
 
 	start-epilog: does [								;-- libc init epilog
-		poke second find/last symbols '***-start 2 tail-ptr - 1	;-- save the "main" entry point
+		poke second find/last symbols '***_start 2 tail-ptr - 1	;-- save the "main" entry point
 	]
 
 	init: func [link? [logic!] job [object!]][

diff --git a/red-system/runtime/start.reds b/red-system/runtime/start.reds
@@ -21,7 +21,11 @@ system: declare struct! [							;-- trimmed down temporary system definition
 ]
 
 #switch OS [
-	Linux [
+	Windows []										;-- nothing to do, initialization occurs in DLL init entry point
+	Syllable [
+
+	]
+	#default [
 		#import [LIBC-file cdecl [
 			libc-start: "__libc_start_main" [
 				main 			[function! []]
@@ -54,6 +58,6 @@ system: declare struct! [							;-- trimmed down temporary system definition
 
 		;; Finally, call into libc's startup routine.
 		***__stack_end: system/stack/top
-		libc-start :***-start ***__argc ***__argv null null null ***__stack_end
+		libc-start :***_start ***__argc ***__argv null null null ***__stack_end
 	]
 ]