From 405ff1ffad7310a04ff104284d600a066d6dd925 Mon Sep 17 00:00:00 2001
From: P. J. McDermott <pj@pehjota.net>
Date: Sun, 28 Feb 2016 15:08:43 -0500
Subject: eshtrans/backend: Implement "nostack" pragma

---
(limited to 'eshtrans')

diff --git a/eshtrans/backend/codegen.esh b/eshtrans/backend/codegen.esh
index 9e95956..ddd466b 100644
--- a/eshtrans/backend/codegen.esh
+++ b/eshtrans/backend/codegen.esh
@@ -23,6 +23,7 @@ sbufc=
 sc=
 tu_id=
 static_fn_n=
+pragma_nostack=false
 
 sgetc()
 {
@@ -50,12 +51,14 @@ codegen_sub()
 	shift 1
 	local print_spc=
 	local ionum=
+	local pragma=
 	local fname=
 	local static=
 	local static_fname=
 
 	print_spc=false
 	ionum=false
+	pragma=false
 	fname=''
 	static=false
 	static_fname=false
@@ -83,19 +86,25 @@ codegen_sub()
 			ionum=false
 		fi
 
-		# Function names
-		case "${t%${US}*}" in T_FNAME)
-			fname="${t}"
-			;;
-		esac
-
-		# State machine for static variables and functions
 		case "${t%${US}*}" in
+			T_USE)
+				pragma=true
+				continue
+				;;
+			T_FNAME)
+				fname="${t}"
+				;;
 			T_STATIC)
 				static=true
 				continue
 				;;
 		esac
+		if ${pragma}; then
+			pragma=false
+			eval "pragma_${t#*${US}}=true"
+			continue
+		fi
+		# State machine for static variables and functions
 		if ${static}; then
 			static=false
 			case "${t%${US}*}" in
@@ -125,14 +134,24 @@ codegen_sub()
 		# Function start/end tokens
 		case "${t%${US}*}" in
 			T_FN_START)
-				printf '__fn_start %s %s;' \
-					"${tu_id}" "${fname#*${US}}"
+				if ! ${pragma_nostack}; then
+					printf '__fn_start %s %s;' \
+						"${tu_id}" "${fname#*${US}}"
+				else
+					printf ':;'
+				fi
 				;;
 			T_FN_END)
-				printf '__fn_end;'
+				if ! ${pragma_nostack}; then
+					printf '__fn_end;'
+				else
+					printf ':;'
+				fi
 				;;
 			T_RETURN)
-				printf '__fn_end; '
+				if ! ${pragma_nostack}; then
+					printf '__fn_end; '
+				fi
 				;;
 		esac
 
--
cgit v0.9.1