fork download

copy

type
    TType = real;
 
procedure XorSwap (var a, b : TType);
begin
  a := a xor b;
  b := a xor b;
  a := a xor b;
end;
var
    a, b : TType;
 
begin
    a := 1.345;
    b := 7.890;
 
    WriteLn (a);
    WriteLn (b);
 
    XorSwap (a, b);
    WriteLn (a);
    WriteLn (b)
end.

prog.pas(6,10) Error: Operation "xor" not supported for types "Real" and "Real"
prog.pas(7,10) Error: Operation "xor" not supported for types "Real" and "Real"
prog.pas(8,10) Error: Operation "xor" not supported for types "Real" and "Real"
prog.pas(23,4) Fatal: There were 3 errors compiling module, stopping
Fatal: Compilation aborted
Error: /usr/bin/ppc386 returned an error exitcode (normal if you did not specify a source file to be compiled)

Standard output is empty