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

* moved field definitions before method/property definitions (see mantis

Browse Source 
#13971)

git-svn-id: trunk@13330 -
This commit is contained in:
Jonas Maebe 2009-06-27 11:27:31 +00:00
parent c62d6f9a0b
commit 1f6ec379de
20 changed files with 56 additions and 49 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/aoptda.pas
View File

@ -36,6 +36,10 @@ Unit aoptda;
TAOptDFA = class
{ uses the same constructor as TAoptCpu = constructor from TAoptObj }
{ How many instructions are between the current instruction and the }
{ last one that modified the register }
InstrSinceLastMod: TInstrSinceLastMod;
{ gathers the information regarding the contents of every register }
{ at the end of every instruction }
Procedure DoDFA;
@ -43,10 +47,6 @@ Unit aoptda;
{ handles the processor dependent dataflow analizing }
Procedure CpuDFA(p: PInstr); Virtual; Abstract;
{ How many instructions are between the current instruction and the }
{ last one that modified the register }
InstrSinceLastMod: TInstrSinceLastMod;
{ convert a TInsChange value into the corresponding register }
//!!!!!!!!!! Function TCh2Reg(Ch: TInsChange): TRegister; Virtual;
{ returns whether the instruction P reads from register Reg }

14
compiler/i386/daopt386.pas
View File

@ -218,13 +218,6 @@ type
function getlabelwithsym(sym: tasmlabel): tai;
private
{ Walks through the list to find the lowest and highest label number, inits the }
{ labeltable and fixes/optimizes some regallocs }
procedure initlabeltable;
function initdfapass2: boolean;
procedure dodfapass2;
{ asm list we're working on }
list: TAsmList;
@ -240,6 +233,13 @@ type
{ all labels in the current block: their value mapped to their location }
lolab, hilab, labdif: longint;
labeltable: plabeltable;
{ Walks through the list to find the lowest and highest label number, inits the }
{ labeltable and fixes/optimizes some regallocs }
procedure initlabeltable;
function initdfapass2: boolean;
procedure dodfapass2;
end;

2
compiler/link.pas
View File

@ -100,12 +100,12 @@ interface
procedure PrintLinkerScript;
function RunLinkScript(const outputname:TCmdStr):boolean;
protected
linkscript : TCmdStrList;
property CObjInput:TObjInputClass read FCObjInput write FCObjInput;
property CExeOutput:TExeOutputClass read FCExeOutput write FCExeOutput;
property StaticLibraryList:TFPHashObjectList read FStaticLibraryList;
property ImportLibraryList:TFPHashObjectList read FImportLibraryList;
procedure DefaultLinkScript;virtual;abstract;
linkscript : TCmdStrList;
public
IsSharedLibrary : boolean;
Constructor Create;override;

1
compiler/ncal.pas
View File

@ -75,6 +75,7 @@ interface
procedure register_created_object_types;
private
{ inlining support }
inlinelocals : TFPObjectList;
inlineinitstatement,

8
compiler/ncgflw.pas
View File

@ -31,10 +31,10 @@ interface
type
tcgwhilerepeatnode = class(twhilerepeatnode)
usedregvars: tusedregvars;
procedure pass_generate_code;override;
procedure sync_regvars(checkusedregvars: boolean);
usedregvars: tusedregvars;
end;
tcgifnode = class(tifnode)
@ -42,10 +42,10 @@ interface
end;
tcgfornode = class(tfornode)
usedregvars: tusedregvars;
procedure pass_generate_code;override;
procedure sync_regvars(checkusedregvars: boolean);
usedregvars: tusedregvars;
end;
tcgexitnode = class(texitnode)

2
compiler/ncnv.pas
View File

@ -189,13 +189,13 @@ interface
ttypeconvnodeclass = class of ttypeconvnode;
tasnode = class(tbinarynode)
call: tnode;
constructor create(l,r : tnode);virtual;
function pass_1 : tnode;override;
function pass_typecheck:tnode;override;
function dogetcopy: tnode;override;
function docompare(p: tnode): boolean; override;
destructor destroy; override;
call: tnode;
end;
tasnodeclass = class of tasnode;

5
compiler/powerpc/agppcmpw.pas
View File

@ -41,11 +41,12 @@ interface
procedure WriteExternals;
procedure WriteAsmFileHeader;
private
cur_CSECT_name: String;
cur_CSECT_class: String;
procedure WriteInstruction(hp : tai);
procedure WriteProcedureHeader(var hp:tai);
procedure WriteDataHeader(var s:string; isExported, isConst:boolean);
cur_CSECT_name: String;
cur_CSECT_class: String;
end;

3
compiler/powerpc/cpupi.pas
View File

@ -47,10 +47,11 @@ unit cpupi;
private
first_save_int_reg, first_save_fpu_reg: tsuperregister;
public
needs_frame_pointer: boolean;
property get_first_save_int_reg: tsuperregister read first_save_int_reg;
property get_first_save_fpu_reg: tsuperregister read first_save_fpu_reg;
needs_frame_pointer: boolean;
end;

5
compiler/powerpc64/cpupi.pas
View File

@ -37,13 +37,14 @@ type
{ offset where the frame pointer from the outer procedure is stored. }
parent_framepointer_offset: longint;
needs_frame_pointer : boolean;
constructor create(aparent: tprocinfo); override;
procedure set_first_temp_offset; override;
function calc_stackframe_size: longint; override;
function calc_stackframe_size(numgpr, numfpr : longint): longint;
needs_frame_pointer : boolean;
procedure allocate_got_register(list: TAsmList); override;
end;

3
compiler/symsym.pas
View File

@ -137,9 +137,10 @@ interface
callback:Tnotification_callback):cardinal;
procedure unregister_notification(id:cardinal);
private
procedure setvardef(def:tdef);
_vardef : tdef;
vardefderef : tderef;
procedure setvardef(def:tdef);
public
property vardef: tdef read _vardef write setvardef;
end;

3
compiler/symtable.pas
View File

@ -91,12 +91,11 @@ interface
procedure insertdef(def:TDefEntry);override;
function is_packed: boolean;
protected
procedure setdatasize(val: aint);
_datasize : aint;
{ size in bits of the data in case of bitpacked record. Only important during construction, }
{ no need to save in/restore from ppu file. datasize is always (databitsize+7) div 8. }
databitsize : aint;
{ bitpacked? -> all fieldvarsym offsets are in bits instead of bytes }
procedure setdatasize(val: aint);
public
property datasize : aint read _datasize write setdatasize;
end;

4
packages/fcl-image/src/fpcolhash.pas
View File

@ -71,8 +71,8 @@ type
private
Root : PColHashMainNode;
AllIntegers : boolean;
procedure FreeAllData;
FCount : longword;
procedure FreeAllData;
function AllocateMainNode : PColHashMainNode;
function AllocateSubNode : PColHashSubNode;
procedure DeallocateLinkedList(node : PColHashSubNode);
@ -409,4 +409,4 @@ begin
end;
end;
end.
end.

2
packages/fcl-image/src/fpreadbmp.pp
View File

@ -32,7 +32,6 @@ uses FPImage, classes, sysutils, BMPcomn;
type
TFPReaderBMP = class (TFPCustomImageReader)
Private
Procedure FreeBufs; // Free (and nil) buffers.
DeltaX, DeltaY : integer; // Used for the never-used delta option in RLE
TopDown : boolean; // If set, bitmap is stored top down instead of bottom up
continue : boolean; // needed for onprogress event
@ -40,6 +39,7 @@ type
percentinterval : longword;
percentacc : longword;
Rect : TRect;
Procedure FreeBufs; // Free (and nil) buffers.
protected
ReadSize : Integer; // Size (in bytes) of 1 scanline.
BFI : TBitMapInfoHeader; // The header as read from the stream.

4
packages/fcl-net/src/mkxmlrpc.pp
View File

@ -47,11 +47,11 @@ type
end;
TRPCList = class
ServerClasses: TList;
UsedModules: TStringList;
constructor Create;
destructor Destroy; override;
procedure AddServerClass(const AClassName: String);
ServerClasses: TList;
UsedModules: TStringList;
end;
var

4
packages/fcl-net/src/ssockets.pp
View File

@ -109,10 +109,10 @@ type
TInetServer = Class(TSocketServer)
Protected
FAddr : TINetSockAddr;
Function SockToStream (ASocket : Longint) : TSocketStream;Override;
Function Accept : Longint;override;
FPort : Word;
FHost: string;
Function SockToStream (ASocket : Longint) : TSocketStream;Override;
Function Accept : Longint;override;
Public
Procedure Bind; Override;
Constructor Create(APort: Word);

5
packages/fcl-xml/src/xpath.pp
View File

@ -385,11 +385,12 @@ type
TXPathContext = class
public
constructor Create(AContextNode: TDOMNode;
AContextPosition, AContextSize: Integer);
ContextNode: TDOMNode;
ContextPosition: Integer;
ContextSize: Integer;
constructor Create(AContextNode: TDOMNode;
AContextPosition, AContextSize: Integer);
end;

10
packages/fpgtk/src/fpgtk.pp
View File

@ -606,9 +606,9 @@ TYPE
Protected
procedure CreateGtkObject; override;
Public
function TheGtkObject : PGtkImage;
FMask:PGdkBitMap;
FImage:PGdkImage;
function TheGtkObject : PGtkImage;
property Image : PGdkImage read GetImageProp write SetImageProp;
property Mask : PGdkBitMap read GetMask write SetMask;
procedure SetImage (anImage:PGdkImage; aMask:PGdkBitmap);
@ -629,9 +629,9 @@ TYPE
Protected
procedure CreateGtkObject; override;
Public
function TheGtkObject : PGtkPixmap;
FMask:PGdkBitMap;
FPixMap:PGdkPixmap;
function TheGtkObject : PGtkPixmap;
property BuildInsensitive : longbool read GetBuildInsensitive write SetBuildInsensitive;
constructor Create;
constructor CreateFromFile (Filename:string; Window:TFPgtkWidget);
@ -655,8 +655,8 @@ TYPE
procedure SetBorder (TheValue : integer);
function GetChildren : TFPgtkWidgetGroup;
Public
function TheGtkObject : PGtkContainer;
FChildren:TFPgtkWidgetGroup;
function TheGtkObject : PGtkContainer;
property Border : integer read GetBorder write SetBorder;
procedure Add (AWidget:TFPgtkWidget; IsVisible:boolean); Overload;
procedure Add (AWidget:TFPgtkWidget); Overload;
@ -802,8 +802,8 @@ TYPE
Protected
procedure CreateGtkObject; Override;
Public
function TheGtkObject : PGtkRadioButton;
FGroup:TFPgtkRadioButtonGroup;
function TheGtkObject : PGtkRadioButton;
constructor Create (AGroup:TFPgtkRadioButtonGroup);
constructor CreateWithLabel (AGroup:TFPgtkRadioButtonGroup; aText:string);
end;
@ -1957,8 +1957,8 @@ TYPE
procedure GtkInsert (MenuItem:TFPgtkWidget; position:integer); Override;
procedure GtkAppend (MenuItem:TFPgtkWidget); Override;
Public
function TheGtkObject : PGtkMenu;
FDetacher:TFPgtkMenuDetachFunction;
function TheGtkObject : PGtkMenu;
procedure ReorderChild (MenuItem:TFPgtkWidget; position:integer);
procedure Popup (button:guint); Overload;
procedure Popup (ParentShell:TFPgtkWidget; ParentItem:TFPgtkWidget; func:TFPgtkMenuPosFunction; data:pointer; button:guint; ActivateTime:guint32); Overload;

12
utils/fpdoc/dglobals.pp
View File

@ -262,6 +262,12 @@ type
CurModule: TPasModule;
CurPackageDocNode: TDocNode;
public
Output: String;
HasContentFile: Boolean;
HidePrivate: Boolean; // Hide private class members in output?
HideProtected: Boolean; // Hide protected class members in output?
WarnNoNode : Boolean; // Warn if no description node found for element.
constructor Create;
destructor Destroy; override;
procedure SetPackageName(const APackageName: String);
@ -295,12 +301,6 @@ type
property RootLinkNode: TLinkNode read FRootLinkNode;
property RootDocNode: TDocNode read FRootDocNode;
property Package: TPasPackage read FPackage;
Output: String;
HasContentFile: Boolean;
HidePrivate: Boolean; // Hide private class members in output?
HideProtected: Boolean; // Hide protected class members in output?
WarnNoNode : Boolean; // Warn if no description node found for element.
end;

6
utils/fpdoc/dw_html.pp
View File

@ -90,7 +90,6 @@ type
procedure SetOnTest(const AValue: TNotifyEvent);
protected
FAllocator: TFileAllocator;
Procedure CreateAllocator; virtual;
CurDirectory: String; // relative to curdir of process
BaseDirectory: String; // relative path to package base directory
PageInfos: TObjectList; // list of TPageInfo objects
@ -111,6 +110,8 @@ type
FIndexColCount : Integer;
FSearchPage : String;
FBaseImageURL : String;
Procedure CreateAllocator; virtual;
function ResolveLinkID(const Name: String): DOMString;
function ResolveLinkIDInUnit(const Name,UnitName: String): DOMString;
function ResolveLinkWithinPackage(AElement: TPasElement;
@ -423,10 +424,11 @@ Type
{ TLinkData }
TLinkData = Class(TObject)
Constructor Create(Const APathName,ALink,AModuleName : string);
FPathName,
FLink,
FModuleName : String;
Constructor Create(Const APathName,ALink,AModuleName : string);
end;
{ TLinkData }

4
utils/fpdoc/dwriter.pp
View File

@ -55,12 +55,12 @@ type
// Phony element for pas pages.
TTopicElement = Class(TPaselement)
Constructor Create(const AName: String; AParent: TPasElement); override;
Destructor Destroy; override;
TopicNode : TDocNode;
Previous,
Next : TPasElement;
Subtopics : TList;
Constructor Create(const AName: String; AParent: TPasElement); override;
Destructor Destroy; override;
end;
{ TFPDocWriter }