From 302810dbad9136bf12ce1a0baab7880918b4a1bb Mon Sep 17 00:00:00 2001
From: Chris Lattner <sabre@nondot.org>
Date: Sun, 23 Nov 2003 17:53:46 +0000
Subject: [PATCH] Initial checkin of stacker runtime

git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@10179 91177308-0d34-0410-b5e6-96231b3b80d8
---
 projects/Stacker/lib/runtime/Makefile     | 17 ++++++++++++
 projects/Stacker/lib/runtime/stacker_rt.c | 34 +++++++++++++++++++++++
 2 files changed, 51 insertions(+)
 create mode 100644 projects/Stacker/lib/runtime/Makefile
 create mode 100644 projects/Stacker/lib/runtime/stacker_rt.c

diff --git a/projects/Stacker/lib/runtime/Makefile b/projects/Stacker/lib/runtime/Makefile
new file mode 100644
index 00000000000..eaf1b482870
--- /dev/null
+++ b/projects/Stacker/lib/runtime/Makefile
@@ -0,0 +1,17 @@
+##===- projects/sample/lib/sample/Makefile -----------------*- Makefile -*-===##
+
+#
+# Indicate where we are relative to the top of the source tree.
+#
+LEVEL=../../../..
+
+#
+# Give the name of a library.  This will build a dynamic version.
+#
+SHARED_LIBRARY=1
+LIBRARYNAME=stkr_runtime
+
+#
+# Include Makefile.common so we know what to do.
+#
+include $(LEVEL)/Makefile.common
diff --git a/projects/Stacker/lib/runtime/stacker_rt.c b/projects/Stacker/lib/runtime/stacker_rt.c
new file mode 100644
index 00000000000..c6cabdfce91
--- /dev/null
+++ b/projects/Stacker/lib/runtime/stacker_rt.c
@@ -0,0 +1,34 @@
+//===-- stacker_rt.c - Runtime Suppor For Stacker Compiler ------*- C++ -*-===//
+// 
+//                     The LLVM Compiler Infrastructure
+//
+// This file was developed by Reid Spencer and donated to the LLVM research 
+// group and is distributed under the University of Illinois Open Source 
+// License. See LICENSE.TXT for details.
+// 
+//===----------------------------------------------------------------------===//
+//
+//  This file defines a stack dumping function that can be used for debugging.
+//  It is called whenever the DUMP built-in word is used in the Stacker source.
+//  It has no effect on the stack (other than to print it).
+//
+//  The real reason this is here is to test LLVM's ability to link with
+//  separately compiled software.
+//
+//===----------------------------------------------------------------------===//
+
+#include "stdio.h"
+
+extern long _index_;
+extern int _stack_[1024];
+
+void
+_stacker_dump_stack_()
+{
+    int i;
+    printf("Stack Dump:\n");
+    for (i = _index_; i > 0; i-- )
+    {
+	printf("#%03d: %d\n", i, _stack_[i] );
+    }
+}
-- 
2.34.1