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

Fixed TVarRec again. Should be OK now

Browse Source
This commit is contained in:
michael 1998-09-23 12:40:43 +00:00
parent 7125b9236a
commit ada9e5797b
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/objpas/objpas.pp
View File

@ -155,8 +155,8 @@ interface
Type Type
PVarRec = ^TVarRec; PVarRec = ^TVarRec;
TVarRec = record TVarRec = record
case vtType: Byte of case vtType: Longint of
vtInteger : (VInteger: Integer; VType:Longint); vtInteger : (VInteger: Integer);
vtBoolean : (VBoolean: Boolean); vtBoolean : (VBoolean: Boolean);
vtChar : (VChar: Char); vtChar : (VChar: Char);
vtExtended : (VExtended: PExtended); vtExtended : (VExtended: PExtended);
@ -398,7 +398,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.13 1998-09-23 12:18:32 michael Revision 1.14 1998-09-23 12:40:43 michael
Fixed TVarRec again. Should be OK now
Revision 1.13 1998/09/23 12:18:32 michael
+ added VType in TVArRec + added VType in TVArRec
Revision 1.12 1998/09/23 10:00:47 peter Revision 1.12 1998/09/23 10:00:47 peter