hp/befpc
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Small fixes for compiling with fpc 1.9.5

Browse Source
This commit is contained in:
ocoursiere
2004-09-24 18:48:57 +00:00
parent 7b48ea076d
commit a53c77c35f
3 changed files with 12 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
bepascal/source/bepascal/pas/src/be/app/roster.pp
View File

@@ -24,7 +24,7 @@ uses
BeObj, AppDefs, Entry, List, Message, Messenger, OS, StorageDefs, SupportDefs; BeObj, AppDefs, Entry, List, Message, Messenger, OS, StorageDefs, SupportDefs;
type type
app_info = record app_info = packed record
thread : thread_id; thread : thread_id;
team : team_id; team : team_id;
port : port_id; port : port_id;
@@ -67,8 +67,8 @@ type
function TeamFor(var ref : entry_ref) : team_id; function TeamFor(var ref : entry_ref) : team_id;
procedure GetAppList(team_id_list : BList); procedure GetAppList(team_id_list : BList);
procedure GetAppList(sig : PChar; team_id_list : BList); procedure GetAppList(sig : PChar; team_id_list : BList);
function GeAppInfo(sig : PChar; var info : app_info) : status_t; function GetAppInfo(sig : PChar; var info : app_info) : status_t;
function GeAppInfo(var ref : entry_ref; var info : app_info) : status_t; function GetAppInfo(var ref : entry_ref; var info : app_info) : status_t;
function GetRunningAppInfo(team : team_id; var info : app_info) : status_t; function GetRunningAppInfo(team : team_id; var info : app_info) : status_t;
function GetActiveAppInfo(var info : app_info) : status_t; function GetActiveAppInfo(var info : app_info) : status_t;
function FindApp(mime_type : PChar; var app : entry_ref) : status_t; function FindApp(mime_type : PChar; var app : entry_ref) : status_t;
@@ -141,8 +141,8 @@ function BRoster_TeamFor(AObject : TCPlusObject; mime_sig : PChar) : team_id; cd
function BRoster_TeamFor(AObject : TCPlusObject; var ref : entry_ref) : team_id; cdecl; external BePascalLibName name 'BRoster_TeamFor'; function BRoster_TeamFor(AObject : TCPlusObject; var ref : entry_ref) : team_id; cdecl; external BePascalLibName name 'BRoster_TeamFor';
procedure BRoster_GetAppList(AObject : TCPlusObject; team_id_list : TCPlusObject); cdecl; external BePascalLibName name 'BRoster_GetAppList'; procedure BRoster_GetAppList(AObject : TCPlusObject; team_id_list : TCPlusObject); cdecl; external BePascalLibName name 'BRoster_GetAppList';
procedure BRoster_GetAppList(AObject : TCPlusObject; sig : PChar; team_id_list : TCPlusObject); cdecl; external BePascalLibName name 'BRoster_GetAppList'; procedure BRoster_GetAppList(AObject : TCPlusObject; sig : PChar; team_id_list : TCPlusObject); cdecl; external BePascalLibName name 'BRoster_GetAppList';
function BRoster_GeAppInfo(AObject : TCPlusObject; sig : PChar; var info : app_info) : status_t; cdecl; external BePascalLibName name 'BRoster_GetAppInfo'; function BRoster_GetAppInfo(AObject : TCPlusObject; sig : PChar; var info : app_info) : status_t; cdecl; external BePascalLibName name 'BRoster_GetAppInfo';
function BRoster_GeAppInfo(AObject : TCPlusObject; var ref : entry_ref; var info : app_info) : status_t; cdecl; external BePascalLibName name 'BRoster_GetAppInfo'; function BRoster_GetAppInfo(AObject : TCPlusObject; var ref : entry_ref; var info : app_info) : status_t; cdecl; external BePascalLibName name 'BRoster_GetAppInfo';
function BRoster_GetRunningAppInfo(AObject : TCPlusObject; team : team_id; var info : app_info) : status_t; cdecl; external BePascalLibName name 'BRoster_GetRunningAppInfo'; function BRoster_GetRunningAppInfo(AObject : TCPlusObject; team : team_id; var info : app_info) : status_t; cdecl; external BePascalLibName name 'BRoster_GetRunningAppInfo';
function BRoster_GetActiveAppInfo(AObject : TCPlusObject; var info : app_info) : status_t; cdecl; external BePascalLibName name 'BRoster_GetActiveAppInfo'; function BRoster_GetActiveAppInfo(AObject : TCPlusObject; var info : app_info) : status_t; cdecl; external BePascalLibName name 'BRoster_GetActiveAppInfo';
function BRoster_FindApp(AObject : TCPlusObject; mime_type : PChar; var app : entry_ref) : status_t; cdecl; external BePascalLibName name 'BRoster_FindApp'; function BRoster_FindApp(AObject : TCPlusObject; mime_type : PChar; var app : entry_ref) : status_t; cdecl; external BePascalLibName name 'BRoster_FindApp';
@@ -241,14 +241,14 @@ begin
BRoster_GetAppList(CPlusObject, sig, team_id_list.CPlusObject); BRoster_GetAppList(CPlusObject, sig, team_id_list.CPlusObject);
end; end;
function BRoster.GeAppInfo(sig : PChar; var info : app_info) : status_t; function BRoster.GetAppInfo(sig : PChar; var info : app_info) : status_t;
begin begin
Result := BRoster_GeAppInfo(CPlusObject, sig, info); Result := BRoster_GetAppInfo(CPlusObject, sig, info);
end; end;
function BRoster.GeAppInfo(var ref : entry_ref; var info : app_info) : status_t; function BRoster.GetAppInfo(var ref : entry_ref; var info : app_info) : status_t;
begin begin
Result := BRoster_GeAppInfo(CPlusObject, ref, info); Result := BRoster_GetAppInfo(CPlusObject, ref, info);
end; end;
function BRoster.GetRunningAppInfo(team : team_id; var info : app_info) : status_t; function BRoster.GetRunningAppInfo(team : team_id; var info : app_info) : status_t;

2
bepascal/source/bepascal/pas/src/be/interface/menubar.pp
View File

@@ -31,7 +31,7 @@ type
private private
public public
constructor Create(aframe : BRect; viewName : PChar; sresizingMode : Cardinal; layout : Menu_Layout; resizeToFit : boolean); constructor Create(aframe : BRect; viewName : PChar; sresizingMode : Cardinal; layout : Menu_Layout; resizeToFit : boolean);
constructor Create; override; constructor Create;
destructor Destroy; override; destructor Destroy; override;
function Instantiate(data : BMessage) : BArchivable; function Instantiate(data : BMessage) : BArchivable;
function Archive(data : BMessage; deep : boolean) : Status_t; function Archive(data : BMessage; deep : boolean) : Status_t;

2
bepascal/source/bepascal/pas/src/be/storage/entry.pp
View File

@@ -25,7 +25,7 @@ uses
BeObj, StorageDefs, SupportDefs; BeObj, StorageDefs, SupportDefs;
type type
entry_ref = record entry_ref = packed record
device : dev_t; device : dev_t;
directory : ino_t; directory : ino_t;
name : PChar; name : PChar;