FrozenAt/FrozenAt.c at main · khval/FrozenAt · GitHub

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
#include <stdbool.h>

#define __USE_INLINE__

#include <proto/exec.h>
#include <proto/dos.h>

#include "init.h"


int32 printStack(struct Hook *hook, struct Task *task, struct StackFrameMsg *frame)
{
	switch (frame->State)
	{
		case STACK_FRAME_DECODED:


			{
				struct DebugSymbol *symbol = ObtainDebugSymbol(frame->MemoryAddress,NULL);

				if (symbol)
				{
					Printf("Stack %p -> Address: %p, offset %p, SegmentNumber %p, SegmentOffset %p, Name: %s, BaseName: %s,FunctionName: %s\n",
							frame->StackPointer,
							frame->MemoryAddress,
							symbol -> Offset,
							symbol -> SegmentNumber,
							symbol -> SegmentOffset	,
							symbol -> Name ? symbol -> Name : "NULL",
							symbol -> SourceBaseName ? symbol -> SourceBaseName : "NULL" ,
							symbol -> SourceFunctionName ? symbol -> SourceFunctionName : "NULL" );

					ReleaseDebugSymbol(symbol);
				}
				else
				{
					Printf("Stack %p -> Address: %p\n",frame->StackPointer, frame->MemoryAddress);
				}
			}

			break;

		case STACK_FRAME_INVALID_BACKCHAIN_PTR:
			Printf("(%p) invalid backchain pointer\n",
			frame->StackPointer);
			break;

		case STACK_FRAME_TRASHED_MEMORY_LOOP:
			Printf("(%p) trashed memory loop\n",
			frame->StackPointer);
			break;

		case STACK_FRAME_BACKCHAIN_PTR_LOOP:
			Printf("(%p) backchain pointer loop\n",
			frame->StackPointer);
			break;

		default:
			Printf("Unknown state=%lu\n", frame->State);
	}

	return 0;  // Continue tracing.
}


struct Hook *hook;

void _(char *name)
{
	Forbid();
	struct Task *task = FindTask(name);
	if (task != NULL)
	{
		SuspendTask(task, 0);
		Permit();

		printf("Task: %08x\n",task);
		uint32 result = StackTrace(task, hook);

		RestartTask(task, 0);
	}
	else
	{
		Permit();
		Printf("Task not found %s\n",name);
	}
}

int main(int args, char *arg[])
{
	ULONG ret = 0;

	if (! init() )
	{
		shutdown();
		return 205;
	}

	if (args == 2)
	{
		Printf("Program %s\n",arg[1]);
		printf("IDebug: %08x\n",IDebug);

		hook = AllocSysObjectTags(ASOT_HOOK,  ASOHOOK_Entry, printStack, TAG_END);
		if (hook != NULL)
		{
			_( arg[1] );

			FreeSysObject(ASOT_HOOK, hook);
		}
	}
	else
	{
		Printf("\nFrozenAT V0.5\nCopyright Kjetil Hvalstrand\n");
		Printf("https://khval/khval/FrozenAt\n");
		Printf("MIT License\n\n");
		Printf("Usage:\nFozenAt ProgramName\n\n");
		ret = 120;
	}

	shutdown();
	return ret;
}