From cfa435f79bf39fead32263a8b71c9ae440b55214 Mon Sep 17 00:00:00 2001 From: John Criswell Date: Wed, 2 Nov 2005 18:05:50 +0000 Subject: Mark these as failing on sparc instead of sparcv9. The configure script no longer tells us that we're configuring for SparcV9 specifically. 2004-06-17-UnorderedCompares may work on SparcV8, but it's experiental anyway. 2005-02-20-AggregateSAVEEXPR should fail on any Solaris machine, as Solaris doesn't provide complex number support. git-svn-id: https://llvm.org/svn/llvm-project/llvm/branches/release_16@24155 91177308-0d34-0410-b5e6-96231b3b80d8 --- projects/Stacker/lib/runtime/stacker_rt.c | 73 +++++++++++++++++++++++++++++++ 1 file changed, 73 insertions(+) create mode 100644 projects/Stacker/lib/runtime/stacker_rt.c (limited to 'projects/Stacker/lib/runtime/stacker_rt.c') 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 +#include +#include +#include + +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; +} -- cgit v1.2.3-70-g09d2