Exemplo n.º 1
0
 // [COBOL 2002]
 private void EnterTypeDefinitionEntry(TypeDefinitionEntry typedef)
 {
     SetCurrentNodeToTopLevelItem(typedef.LevelNumber.Value);
     var node = new Nodes.TypeDefinition(typedef);
     Enter(node);
     node.SymbolTable.AddType(node);
 }
Exemplo n.º 2
0
 // [COBOL 2002]
 private void EnterTypeDefinitionEntry(DataTypeDescriptionEntry typedef)
 {
     SetCurrentNodeToTopLevelItem(typedef.LevelNumber);
     var node = new Nodes.TypeDefinition(typedef);
     Enter(node);
     var table = node.SymbolTable;
     if (node.CodeElement().IsGlobal) // TCTYPE_GLOBAL_TYPEDEF
         while(table.CurrentScope != SymbolTable.Scope.Global)
             table = table.EnclosingScope;
     table.AddType(node);
 }