From ba67b8566b084dddc2844a4988bcbad3c071a443 Mon Sep 17 00:00:00 2001 From: Jonas Maebe Date: Sat, 19 May 2007 20:15:55 +0000 Subject: [PATCH] * fixed some varset helpers broken in the previous commit git-svn-id: trunk@7399 - --- rtl/inc/genset.inc | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/rtl/inc/genset.inc b/rtl/inc/genset.inc index 8224831ded..07f3d22ce7 100644 --- a/rtl/inc/genset.inc +++ b/rtl/inc/genset.inc @@ -134,7 +134,7 @@ function fpc_set_unset_byte(const source: fpc_normal_set; b : byte): fpc_normal_ var src1: fpc_normal_set_long absolute set1; src2: fpc_normal_set_long absolute set2; - dest: fpc_normal_set absolute fpc_set_mul_sets; + dest: fpc_normal_set_long absolute fpc_set_mul_sets; { multiplies (takes common elements of) set1 and set2 result put in dest } @@ -152,7 +152,7 @@ function fpc_set_unset_byte(const source: fpc_normal_set; b : byte): fpc_normal_ var src1: fpc_normal_set_long absolute set1; src2: fpc_normal_set_long absolute set2; - dest: fpc_normal_set absolute fpc_set_sub_sets; + dest: fpc_normal_set_long absolute fpc_set_sub_sets; { computes the diff from set1 to set2 result in dest } @@ -170,7 +170,7 @@ function fpc_set_unset_byte(const source: fpc_normal_set; b : byte): fpc_normal_ var src1: fpc_normal_set_long absolute set1; src2: fpc_normal_set_long absolute set2; - dest: fpc_normal_set absolute fpc_set_symdif_sets; + dest: fpc_normal_set_long absolute fpc_set_symdif_sets; { computes the symetric diff from set1 to set2 result in dest }