paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 15:29:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ basic operators (int, real and string) for variants implemented

Browse Source
This commit is contained in:
florian 2005-04-10 20:24:31 +00:00
parent 6497e8a7ea
commit 89da61f7a8
2 changed files with 16 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/inc/variant.inc
View File

@ -524,6 +524,12 @@ operator /(const op1,op2 : variant) dest : variant;
dest:=op1;
variantmanager.varop(dest,op2,opdivide);
end;
operator **(const op1,op2 : variant) dest : variant;
begin
dest:=op1;
variantmanager.varop(dest,op2,oppower);
end;
operator div(const op1,op2 : variant) dest : variant;
begin
@ -618,7 +624,10 @@ procedure initvariantmanager;
{
$Log$
Revision 1.28 2005-04-10 09:22:38 florian
Revision 1.29 2005-04-10 20:24:31 florian
+ basic operators (int, real and string) for variants implemented
Revision 1.28 2005/04/10 09:22:38 florian
+ varrarrayredim added and implemented
Revision 1.27 2005/03/28 13:38:05 florian

8
rtl/inc/varianth.inc
View File

@ -70,7 +70,7 @@ type
tvarop = (opadd,opsubtract,opmultiply,opdivide,opintdivide,opmodulus,
opshiftleft,opshiftright,opand,opor,opxor,opcompare,opnegate,
opnot,opcmpeq,opcmpne,opcmplt,opcmple,opcmpgt,opcmpge);
opnot,opcmpeq,opcmpne,opcmplt,opcmple,opcmpgt,opcmpge,oppower);
tvardata = packed record
vtype : tvartype;
@ -306,6 +306,7 @@ operator +(const op1,op2 : variant) dest : variant;
operator -(const op1,op2 : variant) dest : variant;
operator *(const op1,op2 : variant) dest : variant;
operator /(const op1,op2 : variant) dest : variant;
operator **(const op1,op2 : variant) dest : variant;
operator div(const op1,op2 : variant) dest : variant;
operator mod(const op1,op2 : variant) dest : variant;
operator -(const op : variant) dest : variant;
@ -320,7 +321,10 @@ procedure VarArrayRedim(var A: Variant; HighBound: SizeInt);
{
$Log$
Revision 1.22 2005-04-10 09:22:38 florian
Revision 1.23 2005-04-10 20:24:31 florian
+ basic operators (int, real and string) for variants implemented
Revision 1.22 2005/04/10 09:22:38 florian
+ varrarrayredim added and implemented
Revision 1.21 2005/03/28 13:38:05 florian