paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-14 23:25:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed some varset helpers broken in the previous commit

Browse Source 
git-svn-id: trunk@7399 -
This commit is contained in:
Jonas Maebe 2007-05-19 20:15:55 +00:00
parent 497df2bb37
commit ba67b8566b
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/inc/genset.inc
View File

@ -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
}