COSC422_Project2/types.pas at master · rob0229/COSC422_Project2 · 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
{*
Name: types.pas
Programmers: Kevin Masterson (k.m.masterson@gmail.com), Rob Close (rob0229@gmail.com)
*}

unit types;
interface

type
    variable_info = record
        var_name: string;
        var_type: string;
        var_value: string;
    end;

    function_info = record
        func_name: string;
        num_params: integer;
        params: array of variable_info;
        num_locals: integer;
        locals: array of variable_info;
        code_address: LongInt;
        return_type: string;
    end;

    activation_record = record
        name: string;
        control_link: integer;
        access_link: integer;
        return_address: integer;
        return_type: string;
        num_locals: integer;
        locals: array of variable_info;
        temporary: variable_info;
        offset: integer;
        size: integer;
    end;

    activation_record_array = array of activation_record;
    function_info_array = array of function_info;

var
    stack: array of activation_record;
    stack_size: integer;
    func_array: array of function_info;
    num_functions: integer;

    instruction_pointer: integer;
    stack_pointer: integer;
    stack_base: LongInt;

implementation

end.