freepascal.ru

Снег Север писал(а):используют не TPicture, а функции DirectX или OpenGL.

скалогрыз писал(а):i:=1;
whileloop:
  if (i<=length(s)) then begin
    if not (s[i] in 'a') then begin
      inc(i);
      goto whileloop;
    end;
  end;

vitaly_l писал(а):Однако, если они не используют стандартный Tbitmap и Tpicture в родителях

Снег Север писал(а):Но проблема загрузки файла и его разжатия для форматов типа jpeg (а у вас, помнится, именно в этом были тормоза)

vitaly_l писал(а):А вот как компилятор раскладывает на язык GoTo оператор for?

Добавлено спустя 7 минут 77 секунд:
Кстати: try finally exception - ведь тоже можно разложить на язык GoTo?

vitaly_l писал(а):как компилятор раскладывает на язык GoTo оператор for?

var i, j: Integer;
begin
  j:=0;
  for i:=0 to 4 do
    Inc(j);
end.

...
# Var i located in register dx
# Var j located in register ax
...
# [4] for i:=0 to 4 do
   movw   $0,%dx
   decw   %dx
   .balign 4,0x90
.Lj7:
   incw   %dx
# [5] Inc(j);
   incw   %ax
   cmpw   $4,%dx
   jl   .Lj7
# [6] end.
...

  i:=нач_значение;
  Dec(i);
LoopBody:
  Inc(i);
  { тело цикла }
  if i<кон_значение then
    goto LoopBody;

bormant писал(а):Тестовый пример:

vitaly_l писал(а):практически полностью, забыл ассемблер

; Var i located in register dx
; Var j located in register ax
; [4] for i:=0 to 4 do
      mov   dx,0
      dec   dx
   ALIGN 4
@@j7:
      inc   dx

; [5] Inc(j);
      inc   ax

      cmp   dx,4
      jl   @@j7
; [6] end.

GoTo в моём примере прыгает из цикла в цикл...

vitaly_l писал(а):Кто нить, может разложить: try finally exception - на язык GoTo? ( в пояснении bormant: "язык GoTo" - называется "псевдопаскаль" )
Суть, в том что, выше говорили что, у оператора GoTo, будут существенные проблемы при скачках по try finally exception.

vada, расслабься и кушай попкорн. Ну нравится людям извращения. Это их проблемы.

vada писал(а):Нет печатных слов. Только матерные.

vada писал(а):как "лучше" сделать вечный двигатель из электро двигателя и электро генератора на одной оси ротора

Лекс Айрин писал(а):Ну нравится людям извращения. Это их проблемы.

Лекс Айрин писал(а):почему не вспомнили исконно ассемблерную конструкцию loop

vitaly_l писал(а):мне стало интересно, почему из try finally exception нельзя выпрыгнуть с помощью GoTo? Ассемблер, я априори не люблю (я ещё не смотрел код про try finally exception), но такой несложный код наверное смогу понять и поэтому просил перевести на язык GoTo (псевдопаскаля).

vitaly_l писал(а):А вот кстати касаемо вечных двигателей, то они невозможны - это признано Академией наук,

vitaly_l писал(а):А выяснилось, что это компилятор виноват, т.к. не фиксирует ошибки при GoTo-прыжках.

Лекс Айрин писал(а):Кстати, возможны. Второго рода.

Лекс Айрин писал(а):Вот если бы Вы знали хотя бы основы ассемблера, то не задавали бы этого вопроса. Дело в том, что try finally exception это вызов обработчика прерывания.
1) обработка идет (в идеале) во внутреннем кольце процессора.
2) сохраняется куча данных в стеке... в том числе и адрес возврата. (фактически, это вызов процедуры)
3) запрещаются прерывания
вот как раз эти причины не дают применять Goto. Если уж это действительно необходимо, то надо, как минимум, разрешить прерывания и сбросить "конверт" созданный вызовом прерывания. Иначе это приведет к разбалансировке стека, зависанию и/или срабатыванию прерывания общей защиты. Вплоть до BSODa.

Лекс Айрин писал(а):разрешить прерывания и сбросить "конверт" созданный вызовом прерывания