13 lines
290 B
Text
13 lines
290 B
Text
const proc: generate_swap (in type: aType) is func
|
|
begin
|
|
|
|
const proc: swap (inout aType: left, inout aType: right) is func
|
|
local
|
|
var aType: temp is aType.value;
|
|
begin
|
|
temp := left;
|
|
left := right;
|
|
right := temp;
|
|
end func;
|
|
|
|
end func;
|