[NumLock]

мы на Delphi Sources или где?

Код:

  with TStack.Create do
  begin
    Push(Pointer(a));
    Push(Pointer(b));
    Push(Pointer(c));
    Push(Pointer(d));

    a:=Integer(Pop);
    d:=Integer(Pop);
    c:=Integer(Pop);
    b:=Integer(Pop);
    Free;
  end;

[Bargest]

Не будем делать новую переменную типа Integer. Просто сделаем новый стек.

[NumLock]

в любом случае явно она не определена (в var), так же как и на использование регистров закрываем глаза)))

[M.A.D.M.A.N.]

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

[NumLock]

ну так раздел то Флейм. почему бы и не пописитничать)))

[PhoeniX]

Ну когда уже прикладную фаллометрию закончат применением int64 и shl/shr?
P.S. У меня получилось сделать это в одну строку. Первому написавшему это решение + в репутацию от меня

[NumLock]

Сообщение от Bargest

Стеком сколько угодно, пока не будет переполнения.

а его и не будет никогда:

Код:

  asm
    push a
    push b
    pop a
    push c
    pop b
    push d
    pop c
    pop d
  end;

[M.A.D.M.A.N.]

Сообщение от DJ PhoeniX

Ну когда уже прикладную фаллометрию закончат применением int64 и shl/shr?
P.S. У меня получилось сделать это в одну строку. Первому написавшему это решение + в репутацию от меня

Команда bswap?

[PhoeniX]

м, а поподробнее?

[M.A.D.M.A.N.]

Помещаешь в eax последовательно три байта со значениями твоих переменных, после чего делаешь bswap eax
mov eax, $01020300
bswap eax ; теперь там $00030201

[NumLock]

Сообщение от DJ PhoeniX

P.S. У меня получилось сделать это в одну строку.

у меня тожа:

Код:

  with TStack.Create do begin Push(Pointer(a)); Push(Pointer(b)); a:=Integer(Pop); b:=Integer(Pop); Free; end;

[Bargest]

Код:

var A,B:integer;
...
Int64((@A)^):=Int64(A) shl 32 + B;

И без асмы.

[NumLock]

Сообщение от Bargest

Код:

var A,B:integer;
...
Int64((@A)^):=Int64(A) shl 32 + B;

И без асмы.

AV же будет:

Код:

var
  a, c, b, d: Integer;
begin
  a:=13;
  b:=11;
  c:=1973;
  d:=$ff;
  Edit1.Text:=IntToStr(a);
  Edit3.Text:=IntToStr(b);

  Int64((@a)^):=Int64(a) shl 32 + b;

  Edit2.Text:=IntToStr(a);
  Edit4.Text:=IntToStr(b);
end;

[Bargest]

А для глобальных пашет. В локальных надо от B начинать, то есть

Код:

var a,b:integer;
...
Int64((@b)^):=Int64(b) shl 32 + a;

Только переменные должны быть подряд объявлены.

[einstein]

ну так про решение одним оператором и не подряд описаных переменных развод был?