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

* tvarrec should be 8 bytes

Browse Source
This commit is contained in:
peter 1998-09-23 10:00:47 +00:00
parent a3fbac27af
commit 81a46d399f
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/objpas/objpas.pp
View File

@ -156,7 +156,7 @@ interface
PVarRec = ^TVarRec; PVarRec = ^TVarRec;
TVarRec = record TVarRec = record
case Byte of case Byte of
vtInteger : (VInteger: Integer; VType: Byte); vtInteger : (VInteger: Integer; VType:Longint);
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.11 1998-09-22 15:30:07 peter Revision 1.12 1998-09-23 10:00:47 peter
* tvarrec should be 8 bytes
Revision 1.11 1998/09/22 15:30:07 peter
* array of const update * array of const update
Revision 1.9 1998/09/16 13:08:19 michael Revision 1.9 1998/09/16 13:08:19 michael