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

* Replace object with record where possible

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-05-04 15:15:41 +02:00
parent a478a33c32
commit 1e9e533e6c
4 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/fpcdefs.inc
View File

@ -1,5 +1,6 @@
{$mode objfpc}
{$asmmode default}
{$modeswitch advancedrecords}
{$H-}
{$goto on}
{$ifndef DISABLE_INLINE}

2
compiler/nbas.pas
View File

@ -219,7 +219,7 @@ interface
{ already been disposed and to make sure the coherency between temps and }
{ temp references is kept after a getcopy }
ptempinfo = ^ttempinfo;
ttempinfo = object
ttempinfo = record
private
flags : ttempinfoflags;
public

2
compiler/symbase.pas
View File

@ -42,7 +42,7 @@ interface
{ THashedIDString }
THashedIDString=object
THashedIDString = record
private
FId : TIDString;
FHash : Longword;

2
compiler/symtype.pas
View File

@ -161,7 +161,7 @@ interface
TDeref
************************************************}
tderef = object
tderef = record
dataidx : longint;
procedure reset;
procedure build(s:TObject);