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

+ more vararray stuff

Browse Source
This commit is contained in:
florian 2005-03-25 19:02:59 +00:00
parent aa4699892b
commit e59c1f74a2
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/variant.inc
View File

@ -51,7 +51,7 @@ procedure variant_init(var v : tvardata);[Public,Alias:'FPC_VARIANT_INIT'];
procedure variant_clear(var v : tvardata);[Public,Alias:'FPC_VARIANT_CLEAR'];
begin
if assigned(VarClearProc) then
VarClearProc(v)
VarClearProc(v);
end;
@ -594,7 +594,10 @@ procedure initvariantmanager;
{
$Log$
Revision 1.25 2005-02-24 22:36:36 florian
Revision 1.26 2005-03-25 19:02:59 florian
+ more vararray stuff
Revision 1.25 2005/02/24 22:36:36 florian
+ some variant stuff fixed and added
Revision 1.24 2005/02/14 17:13:29 peter

7
rtl/inc/varianth.inc
View File

@ -66,7 +66,7 @@ type
end;
tvararrayboundarray = array[0..0] of tvararraybound;
tvararraycoorarray = array[0..0] of longint;
tvararraycoorarray = array[0..0] of SizeInt;
tvarop = (opadd,opsubtract,opmultiply,opdivide,opintdivide,opmodulus,
opshiftleft,opshiftright,opand,opor,opxor,opcompare,opnegate,
@ -318,7 +318,10 @@ operator <=(const op1,op2 : variant) dest : boolean;
{
$Log$
Revision 1.19 2005-03-25 18:03:50 florian
Revision 1.20 2005-03-25 19:02:59 florian
+ more vararray stuff
Revision 1.19 2005/03/25 18:03:50 florian
+ some vararray stuff added
Revision 1.18 2005/02/14 17:13:29 peter