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

* widechars in tvarrec fixed for big endian machines as well

Browse Source
This commit is contained in:
florian 2003-12-06 00:02:34 +00:00
parent 8b4adf2a8e
commit badb5717e1
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/inc/objpash.inc
View File

@ -271,9 +271,11 @@
{$ifdef ENDIAN_BIG}
vtBoolean : (booldummy1,booldummy2,booldummy3: byte; VBoolean: Boolean);
vtChar : (chardummy1,chardummy2,chardummy3: byte; VChar: Char);
vtWideChar : (wchardummy1,VWideChar: WideChar);
{$else ENDIAN_BIG}
vtBoolean : (VBoolean: Boolean);
vtChar : (VChar: Char);
vtWideChar : (VWideChar: WideChar);
{$endif ENDIAN_BIG}
vtExtended : (VExtended: PExtended);
vtString : (VString: PShortString);
@ -281,7 +283,6 @@
vtPChar : (VPChar: PChar);
vtObject : (VObject: TObject);
vtClass : (VClass: TClass);
vtWideChar : (VWideChar: WideChar);
vtPWideChar : (VPWideChar: PWideChar);
vtAnsiString : (VAnsiString: Pointer);
{$ifdef HASCURRENCY}
@ -298,7 +299,10 @@
{
$Log$
Revision 1.20 2003-12-05 23:54:04 jonas
Revision 1.21 2003-12-06 00:02:34 florian
* widechars in tvarrec fixed for big endian machines as well
Revision 1.20 2003/12/05 23:54:04 jonas
* changed tvarrec so chars and booleans work on big endian machines
Revision 1.19 2003/11/30 19:48:20 florian
@ -319,4 +323,4 @@
Revision 1.14 2002/09/07 15:07:46 peter
* old logs removed and tabs fixed
}
}