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

* removed cvars because of problems with nlmconv

Browse Source
This commit is contained in:
armin 2003-03-25 18:09:25 +00:00
parent fd4e294840
commit c6b7a67ca9
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rtl/netware/nwserv.pp
View File

@ -808,8 +808,7 @@ type
highValue : char; highValue : char;
end; end;
{ extern double-byte table data... } { extern double-byte table data... }
var //?? var _DBCSVector : array[0..4] of TVECTOR;cvar;external;
_DBCSVector : array[0..4] of TVECTOR;cvar;external;
{ prototypes... } { prototypes... }
function NWCharType(ch:dword):longint;cdecl;external 'locnlm32' name 'NWCharType'; function NWCharType(ch:dword):longint;cdecl;external 'locnlm32' name 'NWCharType';
@ -3385,8 +3384,7 @@ type
TBSearchFunc = function (para1:pointer; para2:pointer):longint; cdecl; TBSearchFunc = function (para1:pointer; para2:pointer):longint; cdecl;
TQSortFunc = function (para1:pointer; para2:pointer):longint; cdecl; TQSortFunc = function (para1:pointer; para2:pointer):longint; cdecl;
var //?? var __ctype : array of byte;cvar;external;
__ctype : array of byte;cvar;external;
procedure abort;cdecl;external 'clib' name 'abort'; procedure abort;cdecl;external 'clib' name 'abort';
function abs(para1:longint):longint;cdecl;external 'clib' name 'abs'; function abs(para1:longint):longint;cdecl;external 'clib' name 'abs';
@ -3659,12 +3657,12 @@ procedure TicksToSeconds(Ticks:longint; Seconds:Plongint; TenthsOfSeconds:Plongi
{ custom data area variables... } { custom data area variables... }
{
var var
threadCustomDataPtr : pointer;cvar;external; threadCustomDataPtr : pointer;cvar;external;
threadCustomDataSize : longint;cvar;external; threadCustomDataSize : longint;cvar;external;
threadGroupCustomDataPtr : pointer;cvar;external; threadGroupCustomDataPtr : pointer;cvar;external;
threadGroupCustomDataSize : longint;cvar;external; threadGroupCustomDataSize : longint;cvar;external; }
function AtUnload(func:Tprocedure):longint; cdecl;external ThreadsNlm name 'AtUnload'; function AtUnload(func:Tprocedure):longint; cdecl;external ThreadsNlm name 'AtUnload';
@ -4821,7 +4819,10 @@ end.
{ {
$Log$ $Log$
Revision 1.1 2003-02-22 18:23:26 armin Revision 1.2 2003-03-25 18:09:25 armin
* removed cvars because of problems with nlmconv
Revision 1.1 2003/02/22 18:23:26 armin
* removed nwstdio and nwthread * removed nwstdio and nwthread
* added nwnit.pp and nwserv.pp containing nearly all netware server structures/function definitions available in the c sdk * added nwnit.pp and nwserv.pp containing nearly all netware server structures/function definitions available in the c sdk