> -- Роман М. писал(а):
> Единственное подозрение у меня вызывает строкаПодскажите.Совершенно правильное подозрение. Вот так будет работать:## Код:
```
PROCEDURE ParamList ();
        TYPE
          ArgValue = POINTER TO RECORD (Meta.Value)
            arg: PrivDynamics.ArgList
          END;
        VAR iv: IntValue; av: ArgValue;
      BEGIN
         numPar := 0;

         NEW(iv);
         iv.int := argc;
         par[numPar] := iv;
         INC(numPar);

         NEW(av);
         av.arg := argv;
         par[numPar] := av;
         INC(numPar);
      END ParamList;
```
В процедуре Meta.PutParam не проходила следующая проверка: IF aTyp # ptrTyp THEN RETURN END;
Актуальный параметр должен быть указателем, если формальный является указателем (выше по тексту установлено, что fType = ptrTyp).

PS: Наконец-то в какой-то теме есть исходный текст, а то чего только не обсуждают. И компонент интересный.