fork download

copy

type
    TType = string;
 
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;
    b := MaxInt;
 
    WriteLn (a);
    WriteLn (b);
 
    XorSwap (a, b);
    WriteLn (a);
    WriteLn (b)
end.   

prog.pas(6,10) Error: Operation "xor" not supported for types "ShortString" and "ShortString"
prog.pas(7,10) Error: Operation "xor" not supported for types "ShortString" and "ShortString"
prog.pas(8,10) Error: Operation "xor" not supported for types "ShortString" and "ShortString"
prog.pas(14,10) Error: Incompatible types: got "ShortInt" expected "ShortString"
prog.pas(15,10) Error: Incompatible types: got "SmallInt" expected "ShortString"
prog.pas(23,7) Fatal: There were 5 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