paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-05 09:32:01 +01:00
Code Issues Packages Projects Releases Wiki Activity

* userdata in file/textrecs now 32 bytes

Browse Source
This commit is contained in:
florian 2005-02-26 15:42:45 +00:00
parent 9a25f58748
commit 534b11cfb1
4 changed files with 29 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/options.pas
View File

@ -1737,6 +1737,7 @@ begin
def_system_macro('FPC_LINEEND_IN_TEXTREC');
def_system_macro('FPC_ALIGNSRTTI');
def_system_macro('FPC_HASNOFARPOINTER');
def_system_macro('FPC_HASUSERDATA32');
{$ifdef i386}
def_system_macro('HASINTF');
def_system_macro('HASVARIANT');
@ -2100,7 +2101,10 @@ finalization
end.
{
$Log$
Revision 1.167 2005-02-19 18:32:16 florian
Revision 1.168 2005-02-26 15:43:09 florian
* userdata in file/textrecs now 32 bytes
Revision 1.167 2005/02/19 18:32:16 florian
* defaultreplacement expansion for -XP and -Xr
Revision 1.166 2005/02/19 18:10:57 florian

13
compiler/symdef.pas
View File

@ -2320,18 +2320,18 @@ implementation
{$ifdef cpu64bit}
case filetyp of
ft_text :
savesize:=612;
savesize:=628;
ft_typed,
ft_untyped :
savesize:=352;
savesize:=368;
end;
{$else cpu64bit}
case filetyp of
ft_text :
savesize:=576;
savesize:=592;
ft_typed,
ft_untyped :
savesize:=316;
savesize:=332;
end;
{$endif cpu64bit}
end;
@ -6394,7 +6394,10 @@ implementation
end.
{
$Log$
Revision 1.297 2005-02-14 17:13:07 peter
Revision 1.298 2005-02-26 15:43:09 florian
* userdata in file/textrecs now 32 bytes
Revision 1.297 2005/02/14 17:13:07 peter
* truncate log
Revision 1.296 2005/02/13 18:55:19 florian

9
rtl/inc/filerec.inc
View File

@ -29,13 +29,20 @@ type
Mode : longint;
RecSize : SizeInt;
_private : array[1..3 * SizeOf(SizeInt) + 5 * SizeOf (pointer)] of byte;
{$ifndef FPC_HASUSERDATA32}
UserData : array[1..16] of byte;
{$else FPC_HASUSERDATA32}
UserData : array[1..32] of byte;
{$endif FPC_HASUSERDATA32}
name : array[0..filerecnamelength] of char;
End;
{
$Log$
Revision 1.7 2005-02-14 17:13:22 peter
Revision 1.8 2005-02-26 15:42:45 florian
* userdata in file/textrecs now 32 bytes
Revision 1.7 2005/02/14 17:13:22 peter
* truncate log
}

9
rtl/inc/textrec.inc
View File

@ -43,7 +43,11 @@ type
inoutfunc,
flushfunc,
closefunc : pointer;
{$ifndef FPC_HASUSERDATA32}
UserData : array[1..16] of byte;
{$else FPC_HASUSERDATA32}
UserData : array[1..32] of byte;
{$endif FPC_HASUSERDATA32}
name : array[0..textrecnamelength-1] of char;
{$IFDEF FPC_LINEEND_IN_TEXTREC}
LineEnd : TLineEndStr;
@ -53,7 +57,10 @@ type
{
$Log$
Revision 1.8 2005-02-14 17:13:29 peter
Revision 1.9 2005-02-26 15:42:45 florian
* userdata in file/textrecs now 32 bytes
Revision 1.8 2005/02/14 17:13:29 peter
* truncate log
}