mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-12-03 04:47:31 +01:00
17 lines
214 B
PHP
17 lines
214 B
PHP
|
|
{ Translation of macro }
|
|
|
|
{$ifndef LIBC_OLDERRNO}
|
|
function errno : error_t;
|
|
|
|
begin
|
|
Result:=__errno_location()^;
|
|
end;
|
|
|
|
procedure seterrno (value : error_t);
|
|
|
|
begin
|
|
__errno_location()^:=Value;
|
|
end;
|
|
{$endif}
|