mirror of
https://github.com/c64scene-ar/llvm-6502.git
synced 2024-08-21 18:29:46 +00:00
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@21479 91177308-0d34-0410-b5e6-96231b3b80d8
74 lines
1.9 KiB
C
74 lines
1.9 KiB
C
//===-- 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;
|
|
}
|