blob: 46edf14c131d09bfe66756c8c505f61978da88d1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
//===-- 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 "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] );
}
}
|
