Clarion 7 - 8 разных сборок а проблема одна

[beholder]

ROUTINE that can RETURN from procedure cannot be called here а в 5 и 6 все отлично

[Дед Пахом]

Компилятор стал жёстче.

[beholder]

засранец он, а не компилятор

[Дед Пахом]

Код: Выделить всё

R  ROUTINE
  RETURN

P1  PROCEDURE
  CODE
  P2()
  DO R

P2  PROCEDURE
  CODE
  DO R

хрен знает, из P1 или из P2 мы выйдем по RETURN?

[Admin]

Код: Выделить всё

R  ROUTINE
  RETURN

P1  PROCEDURE
  CODE
  P2()
  DO R

P2  PROCEDURE
  CODE
  DO R

хрен знает, из P1 или из P2 мы выйдем по RETURN?

Здесь хрень написал... не по правилам клаши...
Должно быть так:

Код: Выделить всё

        PROGRAM
        MAP
P1        PROCEDURE
P2        PROCEDURE
        END

  CODE
  P1

P1        PROCEDURE
  CODE
  P2()
  DO R

R         ROUTINE
  MESSAGE('ROUTINE 1')   
  RETURN

P2        PROCEDURE
  CODE
  DO R        

R         ROUTINE
  MESSAGE('ROUTINE 2')
  RETURN

Месаги появятся в порядке
ROUTINE 2
ROUTINE 1
Все работает аналогично и в C6 и в C8, о чем спич господа?

[Дед Пахом]

Здесь хрень написал... не по правилам клаши...

Я приблизительно Вобщем, при каких-то условиях/комбинациях компилятор не может однозначно определить, куда по return выходить.

[morkovin]

Тоже получил эту ошибку

ROUTINE that can RETURN from procedure cannot be called here

И что-где подправить?

[Дед Пахом]

Совет давали такой: завести флаг Loc:Return, в рутине заменить RETURN на "Loc:Return=True; EXIT", в процедуре после DO Routine "IF Loc:Return=True THEN RETURN END". Кстати, RETURN может быть в одной из вложенных рутин, не обязательно в той, на которую указывает ошибка.

[morkovin]

Спасибо!

в рутине заменить RETURN на "Loc:Return=True; EXIT",

во вложенных рутинках по-тупому заменил RETURN на EXIT и все откомпилировалось и заработало.

[beholder]

действительно замена return на exit решает данную ситуацию. Спасибо !!!!!!!!!!!!!!!!!!!!!!!!!!!

[Дед Пахом]

Может кто-нибудь, кто столкнулся с этой проблемой, будет столь любезен и опишет ситуацию, при которой она возникает?????

[beholder]

Может кто-нибудь, кто столкнулся с этой проблемой, будет столь любезен и опишет ситуацию, при которой она возникает?????

Код: Выделить всё

в моем случае если в ROUTINE встречается следующий код 
IF ErrorCode() THEN
                Message('Невозможно выполнить запорос|' &|
                'Причина (клиент): '&Error()&'|' &|
                'Причина (сервер):'&FileError(), 'Ошибка', Icon:Exclamation)
                SetCursor()
                Return меняем на Exit  тогда собирается
            END

[ORS]

Может кто-нибудь, кто столкнулся с этой проблемой, будет столь любезен и опишет ситуацию, при которой она возникает?????

Когда-то давным давно Алексей Соловьев написал вот это в ньюсах, надеюсь поможет:

The CLW compiler in C7 is fixing very dangerous issues with using of RETURN
statements in ROUTINEs which have been introduced by oversights in designing
following enhancements to the Clarion language: local classes and routines
local variables. Both them can allocate data objects which require accurate
destroying, for example instances of classes with destructors. Old
implementation of RETURN from ROUTINE just passed execution control to
RETURN statement of procedure owning a ROUTINE. So, all data objects
allocated in all routines and methods of local classes in the call chain
are remaining not destroyed and this could cause unpredictable results.
In new implementation of ROUTINEs, every ROUTINE returns an implicit result
to its caller which tells how it has been finished: by RETURN or by EXIT
(or by "normal" exit because of reaching a point after last routine
statement). According this value the caller either executing the statement
after DO or distributing RETURN further. This works ok if only ROUTINEs are
in the call chain between routine with RETURN and its owner procedure. But
all is bad if there are methods of local classes in the call chain. The
correct destroying of methods' local data in case of RETURN from ROUTINE
is just impossible because of lack in design of local classes. Look the
following scenario:

Код: Выделить всё

IFace       INTERFACE
SomeMethod    PROCEDURE()
            END

            MAP
              ExtProc (*IFace)
            END

P  PROCEDURE()

LocalClass  CLASS,IMPLEMENTS(IFace)
.....
            END
.....

  CODE
  ...
  ExtProc (LocalClass.IFace)
  ...
  RETURN

SomeRoutine  ROUTINE
  RETURN

LocalClass.IFace.SomeMethod PROCEDURE()
  CODE
  DO SomeRoutine
  RETURN

ExtProc  PROCEDURE (*IFace I)
......
  CODE
  ...
  I.SomeMethod()
  ...
  RETURN

In this example the RETURN statement in SomeRoutine must terminate the
ExtProc too but this is impossible. There are other bad scenarios involving
methods of local classes, e.g. if they are used as callback functions set
by CALLBACK or REGISTEREVENT. Thereby the compiler in C7 is not allowing
RETURN statements in ROUTINEs if they can be called from PROCEDUREs/ROUTINEs
with higher scope level directly or indirectly. Methods of local classes
have higher scope level than routines of the procedure they (classes) are
declared in.

[beholder]

Уважаемые почему при изменении размера окна элементы на форме меняют свое местоположение?

[Игорь Столяров]

Потому, что нужно добавить в описание окна Extensions шаблон "Allows Control to be resized with Window" и указать в нем поведение control'ов окна при изменении его размеров. Здесь возможны варианты ...