1 files changed, 73 insertions, 0 deletions
diff --git a/projects/Stacker/lib/runtime/stacker_rt.c b/projects/Stacker/lib/runtime/stacker_rt.c
new file mode 100644
index 0000000000..0ca4cc7a95
--- /dev/null
+++ b/projects/Stacker/lib/runtime/stacker_rt.c
@@ -0,0 +1,73 @@
+//===-- stacker_rt.c - Runtime Support 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 <ctype.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <inttypes.h>
+
+extern int64_t _index_;
+extern int64_t _stack_[];
+extern void _MAIN_();
+
+void
+_stacker_dump_stack_()
+{
+    int64_t i;
+    printf("Stack Dump:\n");
+    for (i = _index_; i > 0; i-- )
+    {
+        printf("#%03lld: %lld\n", (long long int) i, (long long int) _stack_[i] );
+    }
+}
+
+int
+main ( int argc, char** argv )
+{
+    // Avoid modifying argc
+    int a = argc;
+
+    // Make sure we're starting with the right index
+    _index_ = 0;
+
+    // Copy the arguments to the stack in reverse order
+    // so that they get popped in the order presented
+    while ( a > 0 )
+    {
+        if ( isdigit( (int) argv[--a][0] ) )
+        {
+            _stack_[_index_++] = atoll( argv[a] );
+        }
+        else
+        {
+            _stack_[_index_++] = (int64_t) (intptr_t) argv[a];
+        }
+    }
+
+    // Put the argument count on the stack
+    _stack_[_index_] = argc;
+
+    // Invoke the user's main program
+    _MAIN_();
+
+    // Return last item on the stack
+    if ( _index_ >= 0 )
+        return _stack_[_index_];
+    return -1;
+}