PL/0语言编译程序整理实现:（4）、对象类型

unit uObjectType;

 

interface

 

uses uSymbolType;

 

const

    CNT_ObjectTable_MaxCount = 100; //--标识符表的最大长度（容量）

 

type

    //--标识符类型(常量、变量、数组,过程)

    TObjectKind = (okConstant,okVariable,okArray,okProcedure);

 

    //--符号

    TObjectInfo = record

        Name: TIdent;

        Level: integer; //--层差

        case Kind: TObjectKind of

            okConstant: (Value: integer); //如果是常量名,Value中放常量的值

            okVariable,okArray,okProcedure: (Address,Size: integer); //如果是变量、数组、过程名,偏移地址和大小

    end;

 

    TObjectInfos = array[0..CNT_ObjectTable_MaxCount] of TObjectInfo;

 

implementation

 

end.