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

+ varrarrayredim added and implemented

Browse Source
This commit is contained in:
florian 2005-04-10 09:22:38 +00:00
parent 73008ba2e0
commit 9a463a8bc3
2 changed files with 15 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/inc/variant.inc
View File

@ -568,6 +568,11 @@ operator <=(const op1,op2 : variant) dest : boolean;
dest:=variantmanager.cmpop(op1,op2,opcmplt);
end;
procedure VarArrayRedim(var A: Variant; HighBound: SizeInt);
begin
variantmanager.vararrayredim(a,highbound);
end;
{**********************************************************************
Variant manager functions
@ -613,7 +618,10 @@ procedure initvariantmanager;
{
$Log$
Revision 1.27 2005-03-28 13:38:05 florian
Revision 1.28 2005-04-10 09:22:38 florian
+ varrarrayredim added and implemented
Revision 1.27 2005/03/28 13:38:05 florian
+ a lot of vararray stuff
Revision 1.26 2005/03/25 19:02:59 florian

8
rtl/inc/varianth.inc
View File

@ -315,10 +315,15 @@ operator >(const op1,op2 : variant) dest : boolean;
operator >=(const op1,op2 : variant) dest : boolean;
operator <=(const op1,op2 : variant) dest : boolean;
{ variant helpers }
procedure VarArrayRedim(var A: Variant; HighBound: SizeInt);
{
$Log$
Revision 1.21 2005-03-28 13:38:05 florian
Revision 1.22 2005-04-10 09:22:38 florian
+ varrarrayredim added and implemented
Revision 1.21 2005/03/28 13:38:05 florian
+ a lot of vararray stuff
Revision 1.20 2005/03/25 19:02:59 florian
@ -332,5 +337,4 @@ operator <=(const op1,op2 : variant) dest : boolean;
Revision 1.17 2005/01/15 18:47:26 florian
* several variant init./final. stuff fixed
}