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

* more ported functions

Browse Source
This commit is contained in:
yuri 2003-11-30 08:13:14 +00:00
parent 6f2859a013
commit cab25381f0
1 changed files with 36 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

66
packages/extra/os2units/som/som.pas
View File

@ -874,7 +874,6 @@ Procedure somEndPersistentIds; cdecl;
var
{$warning support of external vars required}
SOMClassMgrObject : SOMClassMgrType;//³ 00007 ³ SOMClassMgrObject
//Function SOMClassMgrObject:SOMClassMgrType;
(* The somRegisterClassLibrary function is provided for use
* in SOM class libraries on platforms that have loader-invoked
@ -1386,17 +1385,24 @@ var
(* Another not ported vars *)
// Control the printing of method and procedure entry messages,
// 0-none, 1-user, 2-core&user */
//SOMEXTERN int SOMDLINK SOM_TraceLevel;
//³ 00018 ³ SOM_TraceLevel
SOM_TraceLevel: Longint; //³ 00018 ³ SOM_TraceLevel
// Control the printing of warning messages, 0-none, 1-all
//SOMEXTERN int SOMDLINK SOM_WarnLevel;
//³ 00019 ³ SOM_WarnLevel
SOM_WarnLevel: Longint; //³ 00019 ³ SOM_WarnLevel
// Control the printing of successful assertions, 0-none, 1-user,
// 2-core&user
//SOMEXTERN int SOMDLINK SOM_AssertLevel;
//³ 00017 ³ SOM_AssertLevel
SOM_AssertLevel: Longint; //³ 00017 ³ SOM_AssertLevel
// ToDo: Move this to corresponding place
Procedure somCheckArgs(argc: longint; argv: array of pchar); cdecl;
external 'som' name 'somCheckArgs'; {index 25}
Procedure somUnregisterClassLibrary (libraryName: PChar); cdecl;
external 'som' name 'somUnregisterClassLibrary'; {index 89}
Function somResolveTerminal(x : SOMClassPtr; mdata: somMToken): somMethodProcPtr; cdecl;
external 'som' name 'somResolveTerminal'; {index 133}
Function somPCallResolve(obj: SOMObjectPtr; callingCls: SOMClassPtr; method: somMToken): somMethodProcPtr; cdecl;
external 'som' name 'somPCallResolve'; {index 362}
Implementation
@ -1439,21 +1445,14 @@ end;
End.
(*
SOMEXTERN void SOMLINK somCheckArgs(int argc, zString argv[]);
³ 00025 ³ somCheckArgs
³ 00038 ³ somSaveMetrics // not found
³ 00046 ³ somWriteMetrics // not found
³ 00051 ³ somCreateDynamicClass // not found
³ 00056 ³ SOM_IdTable // not found
³ 00057 ³ SOM_IdTableSize // not found
³ 00062 ³ somStartCriticalSection // not found
³ 00063 ³ somEndCriticalSection // not found
void* va_SOMObject_somDispatchA(SOMObject *somSelf,
(* Don't know how to port ... thing
Function va_SOMObject_somDispatchA(SOMObject *somSelf,
somId methodId,
somId descriptor,
...)
...): Pointer; cdecl;
³ 00064 ³ va_SOMObject_somDispatchA
double va_SOMObject_somDispatchD(SOMObject *somSelf,
somId methodId,
somId descriptor,
@ -1474,10 +1473,7 @@ boolean va_SOMObject_somDispatch(SOMObject *somSelf,
somId methodId,
...)
³ 00068 ³ va_SOMObject_somDispatch
³ 00080 ³ somfixMsgTemplate // not found
³ 00087 ³ SOMParentDerivedMetaclassClassData // not found
SOMEXTERN void SOMLINK somUnregisterClassLibrary (string libraryName);
³ 00089 ³ somUnregisterClassLibrary
void* SOMLINK somva_SOMObject_somDispatchA(SOMObject *somSelf,
somId methodId,
somId descriptor,
@ -1509,20 +1505,30 @@ boolean SOMLINK somva_SOMObject_somClassDispatch(SOMObject *somSelf,
somId methodId,
...)
³ 00101 ³ somva_SOMObject_somClassDispatch
*)
(*
³ 00038 ³ somSaveMetrics // not found
³ 00046 ³ somWriteMetrics // not found
³ 00051 ³ somCreateDynamicClass // not found
³ 00056 ³ SOM_IdTable // not found
³ 00057 ³ SOM_IdTableSize // not found
³ 00062 ³ somStartCriticalSection // not found
³ 00063 ³ somEndCriticalSection // not found
³ 00080 ³ somfixMsgTemplate // not found
³ 00087 ³ SOMParentDerivedMetaclassClassData // not found
³ 00132 ³ somFreeThreadData // not found
SOMEXTERN somMethodProc * SOMLINK somResolveTerminal(SOMClass *, somMToken mdata);
³ 00133 ³ somResolveTerminal
³ 00135 ³ somIdMarshal // not found
³ 00361 ³ somMakeUserRdStub // Not found
SOMEXTERN somMethodProc * SOMLINK somPCallResolve(SOMObject *obj,
SOMClass *callingCls,
somMToken method);
à 00362 Á somPCallResolve
*)
{
$Log$
Revision 1.1 2003-09-22 13:52:59 yuri
Revision 1.2 2003-11-30 08:13:14 yuri
* more ported functions
Revision 1.1 2003/09/22 13:52:59 yuri
+ Initial import. Mostly backup.
}