ack/lang/basic/lib/swap.c
2016-12-12 21:16:32 +01:00

28 lines
293 B
C

#include "bc_string.h"
/* $Id$ */
void _intswap(int* i1, int* i2)
{
int i3;
i3 = *i1;
*i1 = *i2;
*i2 = i3;
}
void _fltswap(double* i1, double* i2)
{
double i3;
i3 = *i1;
*i1 = *i2;
*i2 = i3;
}
void _strswap(String** s1, String** s2)
{
String* s;
s = *s1;
*s1 = *s2;
*s2 = s;
}