paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-13 01:54:59 +01:00
Code Issues Packages Projects Releases Wiki Activity

* make tchattr record endian dependant (merged)

Browse Source
This commit is contained in:
peter 2001-07-31 19:33:46 +00:00
parent f5d7a92939
commit eaa720a4ff
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/unix/video.pp
View File

@ -319,8 +319,13 @@ end;
procedure UpdateTTY(Force:boolean); procedure UpdateTTY(Force:boolean);
type type
tchattr=packed record tchattr=packed record
{$ifdef ENDIAN_LITTLE}
ch : char; ch : char;
attr : byte; attr : byte;
{$else}
attr : byte;
ch : char;
{$endif}
end; end;
var var
outbuf : array[0..1023+255] of char; outbuf : array[0..1023+255] of char;
@ -836,7 +841,10 @@ finalization
end. end.
{ {
$Log$ $Log$
Revision 1.4 2001-07-30 21:38:55 peter Revision 1.5 2001-07-31 19:33:46 peter
* make tchattr record endian dependant (merged)
Revision 1.4 2001/07/30 21:38:55 peter
* m68k updates merged * m68k updates merged
Revision 1.3 2001/07/13 22:05:09 peter Revision 1.3 2001/07/13 22:05:09 peter