mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-07-16 19:48:03 +02: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}
|