ossysc.inc 18 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621
  1. {
  2. $Id$
  3. Copyright (c) 2002 by Marco van de Voort
  4. The base *BSD syscalls required to implement the system unit. These
  5. are aliased for use in other units (to avoid poluting the system units
  6. interface)
  7. See the file COPYING.FPC, included in this distribution,
  8. for details about the copyright.
  9. This program is distributed in the hope that it will be useful,
  10. but WITHOUT ANY WARRANTY; without even the implied warranty of
  11. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  12. ****************************************************************************
  13. }
  14. {$ifdef uselibc}
  15. {$Linklib c}
  16. // Out of date atm.
  17. { var
  18. Errno : cint; external name 'errno';}
  19. function Fptime(tloc:ptime_t): time_t; cdecl; external name 'time';
  20. function Fpopen(const path: pchar; flags : cint; mode: mode_t):cint; cdecl; external name 'open';
  21. function Fpclose(fd : cint): cint; cdecl; external name 'close';
  22. function Fplseek(fd : cint; offset : off_t; whence : cint): off_t; cdecl; external name 'lseek';
  23. function Fpread(fd: cint; buf: pchar; nbytes : size_t): ssize_t; cdecl; external name 'read';
  24. function Fpwrite(fd: cint;const buf:pchar; nbytes : size_t): ssize_t; cdecl; external name 'write';
  25. function Fpunlink(const path: pchar): cint; cdecl; external name 'unlink';
  26. function Fprename(const old : pchar; const newpath: pchar): cint; cdecl;external name 'rename';
  27. function Fpstat(const path: pchar; var buf : stat): cint; cdecl; external name 'stat';
  28. function Fpchdir(const path : pchar): cint; cdecl; external name 'chdir';
  29. function Fpmkdir(const path : pchar; mode: mode_t):cint; cdecl; external name 'mkdir';
  30. function Fprmdir(const path : pchar): cint; cdecl; external name 'rmdir';
  31. function Fpopendir(const dirname : pchar): pdir; cdecl; external name 'opendir';
  32. function Fpreaddir(var dirp : dir) : pdirent;cdecl; external name 'readdir';
  33. function Fpclosedir(var dirp : dir): cint; cdecl; external name 'closedir';
  34. procedure Fpexit(status : cint); cdecl; external name '_exit';
  35. function Fpsigaction(sig: cint; var act : sigactionrec; var oact : sigactionrec): cint; cdecl; external name 'sigaction';
  36. function Fpftruncate(fd : cint; flength : off_t): cint; cdecl; external name 'ftruncate';
  37. function Fprename(const old : pchar; const newpath: pchar): cint; cdecl;external name 'rename';
  38. function Fpfstat(fd : cint; var sb : stat): cint; cdecl; external name 'fstat';
  39. function Fpfork : pid_t; cdecl; external name 'fork';
  40. function Fpexecve(const path : pchar; const argv : ppchar; const envp: ppchar): cint; cdecl; external name 'execve';
  41. function Fpwaitpid(pid : pid_t; var stat_loc : cint; options: cint): pid_t; cdecl; external name 'waitpid';
  42. function Fpaccess(const pathname : pchar; amode : cint): cint; cdecl; external name 'access';
  43. function Fpuname(var name: utsname): cint; cdecl; external name 'uname';
  44. function FpDup(oldd:cint):cint; cdecl; external name 'dup';
  45. function FpDup2(oldd:cint;newd:cint):cint; cdecl; external name 'dup2';
  46. {$else}
  47. {*****************************************************************************
  48. --- Main:The System Call Self ---
  49. *****************************************************************************}
  50. { The system designed for Linux can't be used for *BSD so easily, since
  51. *BSD pushes arguments, instead of loading them to registers.}
  52. // Var ErrNo : Longint;
  53. {$I syscallh.inc}
  54. {$I syscall.inc}
  55. {$I sysnr.inc}
  56. {$I bunxmacr.inc}
  57. {$I ostypes.inc}
  58. // Should be moved to a FreeBSD specific unit in the future.
  59. function Fptime( tloc:ptime): time_t; [public, alias : 'FPC_SYSC_TIME'];
  60. VAR tv : timeval;
  61. tz : timezone;
  62. retval : longint;
  63. begin
  64. Retval:=do_syscall(syscall_nr_gettimeofday,TSysParam(@tv),TSysParam(@tz));
  65. If retval=-1 then
  66. Fptime:=-1
  67. else
  68. Begin
  69. If Assigned(tloc) Then
  70. TLoc^:=tv.tv_sec;
  71. Fptime:=tv.tv_sec;
  72. End;
  73. End;
  74. {*****************************************************************************
  75. --- File:File handling related calls ---
  76. *****************************************************************************}
  77. function Fpopen(path: pchar; flags : cint; mode: mode_t):cint; [public, alias : 'FPC_SYSC_OPEN'];
  78. Begin
  79. Fpopen:=do_syscall(syscall_nr_open,TSysParam(path),TSysParam(flags),TSysParam(mode));
  80. End;
  81. function Fpclose(fd : cint): cint;
  82. begin
  83. Fpclose:=do_syscall(syscall_nr_close,fd);
  84. end;
  85. function Fplseek(fd : cint; offset : off_t; whence : cint): off_t; [public, alias : 'FPC_SYSC_LSEEK'];
  86. {
  87. this one is special for the return value being 64-bit..
  88. hi/lo offset not yet tested.
  89. NetBSD: ok, but implicit return value in edx:eax
  90. FreeBSD: same implementation as NetBSD.
  91. }
  92. begin
  93. Fplseek:=do_syscall(syscall_nr___syscall,syscall_nr_lseek,0,TSysParam(fd),0,lo(Offset),{0} hi(offset),Whence);
  94. end;
  95. function Fpread(fd: cint; buf: pchar; nbytes : size_t): ssize_t; [public, alias : 'FPC_SYSC_READ'];
  96. begin
  97. Fpread:=do_syscall(syscall_nr_read,Fd,TSysParam(buf),nbytes);
  98. end;
  99. function Fpwrite(fd: cint;buf:pchar; nbytes : size_t): ssize_t; [public, alias : 'FPC_SYSC_WRITE'];
  100. begin
  101. Fpwrite:=do_syscall(syscall_nr_write,Fd,TSysParam(buf),nbytes);
  102. end;
  103. function Fpunlink(const path: pchar): cint; [public, alias : 'FPC_SYSC_UNLINK'];
  104. begin
  105. Fpunlink:=do_syscall(syscall_nr_unlink,TSysParam(path));
  106. end;
  107. function Fprename(old : pchar; newpath: pchar): cint; [public, alias : 'FPC_SYSC_RENAME'];
  108. begin
  109. Fprename:=do_syscall(syscall_nr_rename,TSysParam(old),TSysParam(newpath));
  110. end;
  111. function Fpstat(const path: pchar; var buf : stat):cint; [public, alias : 'FPC_SYSC_STAT'];
  112. begin
  113. Fpstat:=do_syscall(syscall_nr_stat,TSysParam(path),TSysParam(@buf));
  114. end;
  115. {*****************************************************************************
  116. --- Directory:Directory related calls ---
  117. *****************************************************************************}
  118. function Fpchdir(path : pchar): cint; [public, alias : 'FPC_SYSC_CHDIR'];
  119. begin
  120. Fpchdir:=do_syscall(syscall_nr_chdir,TSysParam(path));
  121. end;
  122. function Fpmkdir(path : pchar; mode: mode_t):cint; [public, alias : 'FPC_SYSC_MKDIR'];
  123. begin {Mode is 16-bit on F-BSD 4!}
  124. Fpmkdir:=do_syscall(syscall_nr_mkdir,TSysParam(path),mode);
  125. end;
  126. function Fprmdir(path : pchar): cint; [public, alias : 'FPC_SYSC_RMDIR'];
  127. begin
  128. Fprmdir:=do_syscall(syscall_nr_rmdir,TSysParam(path));
  129. end;
  130. {$ifndef NewReaddir}
  131. const DIRBLKSIZ=1024;
  132. function Fpopendir(dirname : pchar): pdir; [public, alias : 'FPC_SYSC_OPENDIR'];
  133. var
  134. fd:longint;
  135. st:stat;
  136. ptr:pdir;
  137. begin
  138. Fpopendir:=nil;
  139. if Fpstat(dirname,st)<0 then
  140. exit;
  141. { Is it a dir ? }
  142. if not((st.st_mode and $f000)=$4000)then
  143. begin
  144. errno:=ESysENOTDIR;
  145. exit
  146. end;
  147. { Open it}
  148. fd:=Fpopen(dirname,O_RDONLY,438);
  149. if fd<0 then
  150. Begin
  151. Errno:=-1;
  152. exit;
  153. End;
  154. new(ptr);
  155. if ptr=nil then
  156. Begin
  157. Errno:=1;
  158. exit;
  159. End;
  160. Getmem(ptr^.dd_buf,2*DIRBLKSIZ);
  161. if ptr^.dd_buf=nil then
  162. exit;
  163. ptr^.dd_fd:=fd;
  164. ptr^.dd_loc:=-1;
  165. ptr^.dd_rewind:=longint(ptr^.dd_buf);
  166. ptr^.dd_size:=0;
  167. // ptr^.dd_max:=sizeof(ptr^.dd_buf^);
  168. Fpopendir:=ptr;
  169. end;
  170. function Fpclosedir(dirp : pdir): cint; [public, alias : 'FPC_SYSC_CLOSEDIR'];
  171. begin
  172. Fpclosedir:=Fpclose(dirp^.dd_fd);
  173. Freemem(dirp^.dd_buf);
  174. dispose(dirp);
  175. end;
  176. function Fpreaddir(dirp : pdir) : pdirent; [public, alias : 'FPC_SYSC_READDIR'];
  177. {Different from Linux, Readdir on BSD is based on Getdents, due to the
  178. missing of the readdir syscall.
  179. Getdents requires the buffer to be larger than the blocksize.
  180. This usually the sectorsize =512 bytes, but maybe tapedrives and harddisks
  181. with blockmode have this higher?}
  182. function readbuffer:longint;
  183. var retval :longint;
  184. begin
  185. Retval:=do_syscall(syscall_nr_getdents,TSysParam(dirp^.dd_fd),TSysParam(@dirp^.dd_buf^),DIRBLKSIZ {sizeof(getdentsbuffer)});
  186. dirp^.dd_rewind:=TSysParam(dirp^.dd_buf);
  187. if retval=0 then
  188. begin
  189. dirp^.dd_rewind:=0;
  190. dirp^.dd_loc:=0;
  191. end
  192. else
  193. dirP^.dd_loc:=retval;
  194. readbuffer:=retval;
  195. end;
  196. var
  197. FinalEntry : pdirent;
  198. novalid : boolean;
  199. Reclen : Longint;
  200. CurEntry : PDirent;
  201. begin
  202. if (dirp^.dd_buf=nil) or (dirp^.dd_loc=0) THEN
  203. exit(nil);
  204. if (dirp^.dd_loc=-1) OR {First readdir on this pdir. Initial fill of buffer}
  205. (dirp^.dd_rewind>=(longint(dirp^.dd_buf)+dirblksiz)) then {no more entries left?}
  206. Begin
  207. if readbuffer=0 then {succesful read?}
  208. Exit(NIL); {No more data}
  209. End;
  210. FinalEntry:=NIL;
  211. CurEntry:=nil;
  212. repeat
  213. novalid:=false;
  214. CurEntry:=pdirent(dirp^.dd_rewind);
  215. RecLen:=CurEntry^.d_reclen;
  216. if RecLen<>0 Then
  217. begin {valid direntry?}
  218. if CurEntry^.d_fileno<>0 then
  219. FinalEntry:=CurEntry;
  220. inc(dirp^.dd_rewind,Reclen);
  221. end
  222. else
  223. begin {block entirely searched or reclen=0}
  224. Novalid:=True;
  225. if dirp^.dd_loc<>0 THEN {blocks left?}
  226. if readbuffer()<>0 then {succesful read?}
  227. novalid:=false;
  228. end;
  229. until (FinalEntry<>nil) or novalid;
  230. If novalid then
  231. FinalEntry:=nil;
  232. FpReadDir:=FinalEntry;
  233. end;
  234. {$endif}
  235. {*****************************************************************************
  236. --- Process:Process & program handling - related calls ---
  237. *****************************************************************************}
  238. procedure Fpexit(status : cint); [public, alias : 'FPC_SYSC_EXIT'];
  239. begin
  240. do_syscall(syscall_nr_exit,status);
  241. end;
  242. {
  243. Change action of process upon receipt of a signal.
  244. Signum specifies the signal (all except SigKill and SigStop).
  245. If Act is non-nil, it is used to specify the new action.
  246. If OldAct is non-nil the previous action is saved there.
  247. }
  248. function Fpsigaction(sig: cint; var act : sigactionrec; var oact : sigactionrec): cint; [public, alias : 'FPC_SYSC_SIGACTION'];
  249. {
  250. Change action of process upon receipt of a signal.
  251. Signum specifies the signal (all except SigKill and SigStop).
  252. If Act is non-nil, it is used to specify the new action.
  253. If OldAct is non-nil the previous action is saved there.
  254. }
  255. begin
  256. do_syscall(syscall_nr_sigaction,TSysParam(sig),TSysParam(@act),TSysParam(@oact));
  257. end;
  258. (*=================== MOVED from sysunix.inc ========================*)
  259. function Fpftruncate(fd : cint; flength : off_t): cint; [public, alias : 'FPC_SYSC_FTRUNCATE'];
  260. { See notes lseek. This one is completely similar.
  261. }
  262. begin
  263. Fpftruncate:=Do_syscall(syscall_nr___syscall,syscall_nr_ftruncate,0,fd,0,lo(flength),hi(flength));
  264. end;
  265. function Fpfstat(fd : cint; var sb : stat): cint; [public, alias : 'FPC_SYSC_FSTAT'];
  266. begin
  267. fpFStat:=do_SysCall(syscall_nr_fstat,fd,TSysParam(@sb));
  268. end;
  269. {$ifdef NewReaddir}
  270. {$I readdir.inc}
  271. {$endif}
  272. function Fpfork : pid_t; [public, alias : 'FPC_SYSC_FORK'];
  273. {
  274. This function issues the 'fork' System call. the program is duplicated in memory
  275. and Execution continues in parent and child process.
  276. In the parent process, fork returns the PID of the child. In the child process,
  277. zero is returned.
  278. A negative value indicates that an error has occurred, the error is returned in
  279. LinuxError.
  280. }
  281. Begin
  282. Fpfork:=Do_syscall(SysCall_nr_fork);
  283. End;
  284. {
  285. function Fpexecve(const path : pathstr; const argv : ppchar; const envp: ppchar): cint;
  286. }
  287. {
  288. Replaces the current program by the program specified in path,
  289. arguments in args are passed to Execve.
  290. environment specified in ep is passed on.
  291. }
  292. {
  293. Begin
  294. path:=path+#0;
  295. do_syscall(syscall_nr_Execve,TSysParam(@path[1]),TSysParam(Argv),TSysParam(envp));
  296. End;
  297. }
  298. {
  299. function Fpexecve(const path : pchar; const argv : ppchar; const envp: ppchar): cint; [public, alias : 'FPC_SYSC_EXECVE'];
  300. }
  301. {
  302. Replaces the current program by the program specified in path,
  303. arguments in args are passed to Execve.
  304. environment specified in ep is passed on.
  305. }
  306. {
  307. Begin
  308. do_syscall(syscall_nr_Execve,TSysParam(path),TSysParam(Argv),TSysParam(envp));
  309. End;
  310. }
  311. function Fpwaitpid(pid : pid_t; var stat_loc : cint; options: cint): pid_t; [public, alias : 'FPC_SYSC_WAITPID'];
  312. {
  313. Waits until a child with PID Pid exits, or returns if it is exited already.
  314. Any resources used by the child are freed.
  315. The exit status is reported in the adress referred to by Status. It should
  316. be a longint.
  317. }
  318. begin // actually a wait4() call with 4th arg 0.
  319. FpWaitPID:=do_syscall(syscall_nr_WaitPID,PID,TSysParam(@Stat_loc),options,0);
  320. end;
  321. function Fpaccess(const pathname : pchar; amode : cint): cint; [public, alias : 'FPC_SYSC_ACCESS'];
  322. {
  323. Test users access rights on the specified file.
  324. Mode is a mask xosisting of one or more of R_OK, W_OK, X_OK, F_OK.
  325. R,W,X stand for read,write and Execute access, simultaneously.
  326. F_OK checks whether the test would be allowed on the file.
  327. i.e. It checks the search permissions in all directory components
  328. of the path.
  329. The test is done with the real user-ID, instead of the effective.
  330. If access is denied, or an error occurred, false is returned.
  331. If access is granted, true is returned.
  332. Errors other than no access,are reported in unixerror.
  333. }
  334. begin
  335. FpAccess:=do_syscall(syscall_nr_access,TSysParam(pathname),amode);
  336. end;
  337. {
  338. function Fpaccess(const pathname : pathstr; amode : cint): cint;
  339. {
  340. Test users access rights on the specified file.
  341. Mode is a mask xosisting of one or more of R_OK, W_OK, X_OK, F_OK.
  342. R,W,X stand for read,write and Execute access, simultaneously.
  343. F_OK checks whether the test would be allowed on the file.
  344. i.e. It checks the search permissions in all directory components
  345. of the path.
  346. The test is done with the real user-ID, instead of the effective.
  347. If access is denied, or an error occurred, false is returned.
  348. If access is granted, true is returned.
  349. Errors other than no access,are reported in unixerror.
  350. }
  351. begin
  352. pathname:=pathname+#0;
  353. Access:=do_syscall(syscall_nr_access, TSysParam(@pathname[1]),mode)=0;
  354. end;
  355. }
  356. Function FpDup(fildes:cint):cint; [public, alias : 'FPC_SYSC_DUP'];
  357. begin
  358. Fpdup:=Do_syscall(syscall_nr_dup,TSysParam(fildes));
  359. end;
  360. Function FpDup2(fildes,fildes2:cint):cint; [public, alias : 'FPC_SYSC_DUP2'];
  361. begin
  362. Fpdup2:=do_syscall(syscall_nr_dup2,TSysParam(fildes),TSysParam(fildes2));
  363. end;
  364. CONST
  365. { Constansts for MMAP }
  366. MAP_PRIVATE =2;
  367. MAP_ANONYMOUS =$1000;
  368. Function Fpmmap(adr,len,prot,flags,fdes,off:longint):longint; [public, alias : 'FPC_SYSC_MMAP'];
  369. begin
  370. Fpmmap:=do_syscall(syscall_nr_mmap,Adr,Len,Prot,Flags,fdes,off,0);
  371. end;
  372. Function Fpmunmap(adr:longint;len:size_t):longint; [public, alias :'FPC_SYSC_MUNMAP'];
  373. begin
  374. Fpmunmap:=do_syscall(syscall_nr_munmap,TSysParam(Adr),Len);
  375. end;
  376. Function sbrk(size : longint) : Longint;
  377. begin
  378. sbrk:=Fpmmap(0,Size,3,MAP_PRIVATE+MAP_ANONYMOUS,-1,0);
  379. if sbrk<>-1 then
  380. errno:=0;
  381. {! It must be -1, not 0 as before, see heap.inc. Should be in sysmmap?}
  382. end;
  383. {
  384. Interface to Unix ioctl call.
  385. Performs various operations on the filedescriptor Handle.
  386. Ndx describes the operation to perform.
  387. Data points to data needed for the Ndx function. The structure of this
  388. data is function-dependent.
  389. }
  390. Function FpIOCtl(Handle,Ndx: Longint;Data: Pointer):LongInt; [public, alias : 'FPC_SYSC_IOCTL'];
  391. // This was missing here, instead hardcoded in Do_IsDevice
  392. begin
  393. FpIOCtl:=do_SysCall(syscall_nr_ioctl,handle,Ndx,TSysParam(data));
  394. end;
  395. CONST
  396. IOCtl_TCGETS=$5401;
  397. Function Do_IsDevice(Handle:Longint):boolean;
  398. {
  399. Interface to Unix ioctl call.
  400. Performs various operations on the filedescriptor Handle.
  401. Ndx describes the operation to perform.
  402. Data points to data needed for the Ndx function. The structure of this
  403. data is function-dependent.
  404. }
  405. var
  406. Data : array[0..255] of byte; {Large enough for termios info}
  407. begin
  408. Do_IsDevice:=(Fpioctl(handle,IOCTL_TCGETS,@data)<>-1);
  409. end;
  410. Function FpGetPid:LongInt; [public, alias : 'FPC_SYSC_GETPID'];
  411. {
  412. Get Process ID.
  413. }
  414. begin
  415. FpGetPID:=do_syscall(syscall_nr_getpid);
  416. end;
  417. Function FpReadLink(name,linkname:pchar;maxlen:longint):longint; [public, alias : 'FPC_SYSC_READLINK'];
  418. begin
  419. Fpreadlink:=do_syscall(syscall_nr_readlink, TSysParam(name),TSysParam(linkname),maxlen);
  420. end;
  421. Function FpNanoSleep(const req : timespec;var rem : timespec) : longint; [public, alias : 'FPC_SYSC_NANOSLEEP'];
  422. begin
  423. FpNanoSleep:=Do_SysCall(syscall_nr_nanosleep,TSysParam(@req),TSysParam(@rem));
  424. end;
  425. function Fpgetcwd(pt:pchar; _size:size_t):pchar;[public, alias :'FPC_SYSC_GETCWD'];
  426. const intpathmax = 1024-4; // didn't use POSIX data in libc
  427. // implementation.
  428. var ept,bpt : pchar;
  429. c : char;
  430. ret : cint;
  431. begin
  432. if pt=NIL Then
  433. begin
  434. // POSIX: undefined. (exit(nil) ?)
  435. // BSD : allocate mem for path.
  436. getmem(pt,intpathmax);
  437. if pt=nil Then
  438. exit(nil);
  439. ept:=pt+intpathmax;
  440. end
  441. else
  442. Begin
  443. if (_size=0) Then
  444. Begin
  445. seterrno(ESysEINVAL);
  446. exit(nil);
  447. End;
  448. if (_size=1) Then
  449. Begin
  450. seterrno(ESysERANGE);
  451. exit(nil);
  452. End;
  453. ept:=pt+_size;
  454. end;
  455. ret := do_syscall(syscall_nr___getcwd,TSysParam(pt),TSysParam( ept - pt));
  456. If (ret = 0) Then
  457. If (pt[0] <> '/') Then
  458. Begin
  459. bpt := pt;
  460. ept := pt + strlen(pt) - 1;
  461. While (bpt < ept) Do
  462. Begin
  463. c := bpt^;
  464. bpt^:=ept^;
  465. inc(bpt);
  466. ept^:=c;
  467. dec(ept);
  468. End;
  469. End;
  470. Fpgetcwd:=pt;
  471. end;
  472. {$endif}
  473. {
  474. $Log$
  475. Revision 1.1 2003-01-05 19:01:28 marco
  476. * FreeBSD compiles now with baseunix mods.
  477. Revision 1.9 2002/11/13 18:15:08 marco
  478. * sigset functions more flexible, small changes to sys_ktime
  479. Revision 1.8 2002/10/27 17:21:29 marco
  480. * Only "difficult" functions + execvp + termios + rewinddir left to do
  481. Revision 1.7 2002/10/27 11:58:29 marco
  482. * Modifications from Saturday.
  483. Revision 1.6 2002/10/26 18:27:51 marco
  484. * First series POSIX calls commits. Including getcwd.
  485. Revision 1.5 2002/10/18 12:19:58 marco
  486. * Fixes to get the generic *BSD RTL compiling again + fixes for thread
  487. support. Still problems left in fexpand. (inoutres?) Therefore fixed
  488. sysposix not yet commited
  489. Revision 1.4 2002/10/16 18:44:18 marco
  490. * Lseek and ftruncate 64-bit fix
  491. Revision 1.3 2002/09/07 16:01:17 peter
  492. * old logs removed and tabs fixed
  493. Revision 1.2 2002/08/21 07:03:16 marco
  494. * Fixes from Tuesday.
  495. Revision 1.1 2002/08/19 12:29:11 marco
  496. * First working POSIX *BSD system unit.
  497. Revision 1.2 2002/08/04 04:29:34 marco
  498. * More POSIX updates. Small changes to lseek and ftruncate in osposix.inc
  499. Initial versions of the type includefiles
  500. Revision 1.1 2002/08/03 19:34:19 marco
  501. * Initial *BSD versions. Seems that OpenBSD doesn't need much change,
  502. NetBSD may need some fixes to stat record and ftruncate and lseek.
  503. It is all close together, and it should be doable to have just one copy
  504. of these for *BSD.
  505. }