paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-25 00:29:25 +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

8
rtl/inc/objpash.inc
View File

@ -271,9 +271,11 @@
{$ifdef ENDIAN_BIG} {$ifdef ENDIAN_BIG}
vtBoolean : (booldummy1,booldummy2,booldummy3: byte; VBoolean: Boolean); vtBoolean : (booldummy1,booldummy2,booldummy3: byte; VBoolean: Boolean);
vtChar : (chardummy1,chardummy2,chardummy3: byte; VChar: Char); vtChar : (chardummy1,chardummy2,chardummy3: byte; VChar: Char);
vtWideChar : (wchardummy1,VWideChar: WideChar);
{$else ENDIAN_BIG} {$else ENDIAN_BIG}
vtBoolean : (VBoolean: Boolean); vtBoolean : (VBoolean: Boolean);
vtChar : (VChar: Char); vtChar : (VChar: Char);
vtWideChar : (VWideChar: WideChar);
{$endif ENDIAN_BIG} {$endif ENDIAN_BIG}
vtExtended : (VExtended: PExtended); vtExtended : (VExtended: PExtended);
vtString : (VString: PShortString); vtString : (VString: PShortString);
@ -281,7 +283,6 @@
vtPChar : (VPChar: PChar); vtPChar : (VPChar: PChar);
vtObject : (VObject: TObject); vtObject : (VObject: TObject);
vtClass : (VClass: TClass); vtClass : (VClass: TClass);
vtWideChar : (VWideChar: WideChar);
vtPWideChar : (VPWideChar: PWideChar); vtPWideChar : (VPWideChar: PWideChar);
vtAnsiString : (VAnsiString: Pointer); vtAnsiString : (VAnsiString: Pointer);
{$ifdef HASCURRENCY} {$ifdef HASCURRENCY}
@ -298,7 +299,10 @@
{ {
$Log$ $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 * changed tvarrec so chars and booleans work on big endian machines
Revision 1.19 2003/11/30 19:48:20 florian Revision 1.19 2003/11/30 19:48:20 florian