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

+ added comment to ETXTBSY

Browse Source 
* changed i386 -> cpui386, m68k -> cpum68k
This commit is contained in:
olle 2004-03-04 13:10:23 +00:00
parent 45863d051d
commit 9ff2987d96
13 changed files with 130 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/darwin/errno.inc
View File

@ -117,7 +117,10 @@
{ Inappropriate ioctl for device }
ESysENOTTY = 25;
{$ifndef _POSIX_SOURCE}
{ Text file busy }
{ Text file busy. The new process was a pure procedure (shared text) file
which was open for writing by another process, or file which was open for
writing by another process, or while the pure procedure file was being
executed an open(2) call requested write access requested write access.}
ESysETXTBSY = 26;
{$endif}
{ File too large }
@ -280,7 +283,11 @@
{
$Log$
Revision 1.2 2003-05-25 12:59:56 jonas
Revision 1.3 2004-03-04 13:10:23 olle
+ added comment to ETXTBSY
* changed i386 -> cpui386, m68k -> cpum68k
Revision 1.2 2003/05/25 12:59:56 jonas
* several fixes, addition of Mach trap numbers (thye are simply syscalls
with a negative number)

14
rtl/freebsd/errno.inc
View File

@ -46,7 +46,13 @@ Const
ESysENFILE = 23; { Too many open files in system }
ESysEMFILE = 24; { Too many open files }
ESysENOTTY = 25; { Inappropriate ioctl for device }
ESysETXTBSY = 26; { Text file busy }
ESysETXTBSY = 26; { Text file busy. The new process was
a pure procedure (shared text) file which was
open for writing by another process, or file
which was open for writing by another process,
or while the pure procedure file was being
executed an open(2) call requested write access
requested write access.}
ESysEFBIG = 27; { File too large }
ESysENOSPC = 28; { No space left on device }
ESysESPIPE = 29; { Illegal seek }
@ -132,7 +138,11 @@ Const
{
$Log$
Revision 1.4 2003-01-21 14:03:03 marco
Revision 1.5 2004-03-04 13:10:24 olle
+ added comment to ETXTBSY
* changed i386 -> cpui386, m68k -> cpum68k
Revision 1.4 2003/01/21 14:03:03 marco
* Hmm, still was linux version in 1.1?
Revision 1.3 2003/01/03 00:06:39 marco

8
rtl/freebsd/i386/sighnd.inc
View File

@ -46,7 +46,7 @@ begin
{ give runtime error at the position where the signal was raised }
if res<>0 then
begin
{$ifdef I386}
{$ifdef cpui386}
HandleErrorAddrFrame(res,Pointer(SigContext.sc_eip),pointer(SigContext.sc_ebp));
{$else}
HandleError(res);
@ -79,7 +79,11 @@ end;
{
$Log$
Revision 1.1 2004-01-03 12:29:36 marco
Revision 1.2 2004-03-04 13:10:26 olle
+ added comment to ETXTBSY
* changed i386 -> cpui386, m68k -> cpum68k
Revision 1.1 2004/01/03 12:29:36 marco
* now separately.
}

14
rtl/linux/errno.inc
View File

@ -48,7 +48,13 @@ ESysEINVAL = 22; { Invalid argument }
ESysENFILE = 23; { File table overflow }
ESysEMFILE = 24; { Too many open files }
ESysENOTTY = 25; { Not a typewriter }
ESysETXTBSY = 26; { Text file busy }
ESysETXTBSY = 26; { Text file busy. The new process was
a pure procedure (shared text) file which was
open for writing by another process, or file
which was open for writing by another process,
or while the pure procedure file was being
executed an open(2) call requested write access
requested write access.}
ESysEFBIG = 27; { File too large }
ESysENOSPC = 28; { No space left on device }
ESysESPIPE = 29; { Illegal seek }
@ -217,7 +223,11 @@ ESysEDQUOT = 122; { Quota exceeded }
{
$Log$
Revision 1.7 2003-05-17 13:06:22 marco
Revision 1.8 2004-03-04 13:10:29 olle
+ added comment to ETXTBSY
* changed i386 -> cpui386, m68k -> cpum68k
Revision 1.7 2003/05/17 13:06:22 marco
* done.
Revision 1.6 2003/01/02 23:57:32 marco

14
rtl/netbsd/errno.inc
View File

@ -46,7 +46,13 @@ Const
ESysENFILE = 23; { Too many open files in system }
ESysEMFILE = 24; { Too many open files }
ESysENOTTY = 25; { Inappropriate ioctl for device }
ESysETXTBSY = 26; { Text file busy }
ESysETXTBSY = 26; { Text file busy. The new process was
a pure procedure (shared text) file which was
open for writing by another process, or file
which was open for writing by another process,
or while the pure procedure file was being
executed an open(2) call requested write access
requested write access.}
ESysEFBIG = 27; { File too large }
ESysENOSPC = 28; { No space left on device }
ESysESPIPE = 29; { Illegal seek }
@ -132,7 +138,11 @@ Const
{
$Log$
Revision 1.1 2003-06-01 16:35:28 marco
Revision 1.2 2004-03-04 13:10:30 olle
+ added comment to ETXTBSY
* changed i386 -> cpui386, m68k -> cpum68k
Revision 1.1 2003/06/01 16:35:28 marco
* Several small fixes to harmonize the *BSD rtls and Linux.
Revision 1.4 2003/01/21 14:03:03 marco

12
rtl/netbsd/i386/sighnd.inc
View File

@ -27,12 +27,12 @@ var
begin
res:=0;
{$ifdef BSD}
{$ifdef I386}
{$ifdef cpui386}
fpustate:=0;
asm
fnstsw fpustate
end;
{$endif I386}
{$endif cpui386}
{$endif BSD}
case sig of
SIGFPE :
@ -71,7 +71,7 @@ begin
{ give runtime error at the position where the signal was raised }
if res<>0 then
begin
{$ifdef I386}
{$ifdef cpui386}
HandleErrorAddrFrame(res,pointer(SigContext.sc_eip),pointer(SigContext.sc_ebp));
{$endif}
end;
@ -80,7 +80,11 @@ end;
{
$Log$
Revision 1.1 2004-01-04 15:30:19 marco
Revision 1.2 2004-03-04 13:10:32 olle
+ added comment to ETXTBSY
* changed i386 -> cpui386, m68k -> cpum68k
Revision 1.1 2004/01/04 15:30:19 marco
* working version
Revision 1.1 2004/01/03 12:29:36 marco

8
rtl/netbsd/unixsysc.inc
View File

@ -106,7 +106,7 @@ Function intAssignPipe(var pipe_in,pipe_out:longint;var errn:cint):cint; {$ifnde
}
begin
{$ifdef i386}
{$ifdef cpui386}
asm
mov $42,%eax
int $0x80
@ -277,7 +277,11 @@ end;
{
$Log$
Revision 1.6 2004-01-04 15:55:47 marco
Revision 1.7 2004-03-04 13:10:30 olle
+ added comment to ETXTBSY
* changed i386 -> cpui386, m68k -> cpum68k
Revision 1.6 2004/01/04 15:55:47 marco
* additions
Revision 1.5 2004/01/04 01:11:28 marco

14
rtl/openbsd/errno.inc
View File

@ -46,7 +46,13 @@ Const
ESysENFILE = 23; { Too many open files in system }
ESysEMFILE = 24; { Too many open files }
ESysENOTTY = 25; { Inappropriate ioctl for device }
ESysETXTBSY = 26; { Text file busy }
ESysETXTBSY = 26; { Text file busy. The new process was
a pure procedure (shared text) file which was
open for writing by another process, or file
which was open for writing by another process,
or while the pure procedure file was being
executed an open(2) call requested write access
requested write access.}
ESysEFBIG = 27; { File too large }
ESysENOSPC = 28; { No space left on device }
ESysESPIPE = 29; { Illegal seek }
@ -132,7 +138,11 @@ Const
{
$Log$
Revision 1.1 2004-01-22 13:55:02 marco
Revision 1.2 2004-03-04 13:11:47 olle
+ added comment to ETXTBSY
* changed i386 -> cpui386, m68k -> cpum68k
Revision 1.1 2004/01/22 13:55:02 marco
* first port that shows some life based on FPC_USE_LIBC
Revision 1.1 2003/06/01 16:35:28 marco

12
rtl/openbsd/i386/sighnd.inc
View File

@ -27,12 +27,12 @@ var
begin
res:=0;
{$ifdef BSD}
{$ifdef I386}
{$ifdef cpui386}
fpustate:=0;
asm
fnstsw fpustate
end;
{$endif I386}
{$endif cpui386}
{$endif BSD}
case sig of
SIGFPE :
@ -71,7 +71,7 @@ begin
{ give runtime error at the position where the signal was raised }
if res<>0 then
begin
{$ifdef I386}
{$ifdef cpui386}
HandleErrorAddrFrame(res,pointer(SigContext.sc_eip),pointer(SigContext.sc_ebp));
{$endif}
end;
@ -80,7 +80,11 @@ end;
{
$Log$
Revision 1.1 2004-01-20 17:01:42 marco
Revision 1.2 2004-03-04 13:11:51 olle
+ added comment to ETXTBSY
* changed i386 -> cpui386, m68k -> cpum68k
Revision 1.1 2004/01/20 17:01:42 marco
* working versions, untested
Revision 1.1 2004/01/04 15:30:19 marco

8
rtl/openbsd/unixsysc.inc
View File

@ -106,7 +106,7 @@ Function intAssignPipe(var pipe_in,pipe_out:longint;var errn:cint):cint; {$ifnde
}
begin
{$ifdef i386}
{$ifdef cpui386}
asm
mov $42,%eax
int $0x80
@ -277,7 +277,11 @@ end;
{
$Log$
Revision 1.2 2004-01-22 13:55:02 marco
Revision 1.3 2004-03-04 13:11:47 olle
+ added comment to ETXTBSY
* changed i386 -> cpui386, m68k -> cpum68k
Revision 1.2 2004/01/22 13:55:02 marco
* first port that shows some life based on FPC_USE_LIBC
Revision 1.6 2004/01/04 15:55:47 marco

14
rtl/sunos/errno.inc
View File

@ -60,7 +60,13 @@ Sys_EINVAL = 22; { Invalid argument }
Sys_ENFILE = 23; { File table overflow }
Sys_EMFILE = 24; { Too many open files }
Sys_ENOTTY = 25; { Not a typewriter }
Sys_ETXTBSY = 26; { Text file busy }
Sys_ETXTBSY = 26; { Text file busy. The new process was
a pure procedure (shared text) file which was
open for writing by another process, or file
which was open for writing by another process,
or while the pure procedure file was being
executed an open(2) call requested write access
requested write access.}
Sys_EFBIG = 27; { File too large }
Sys_ENOSPC = 28; { No space left on device }
Sys_ESPIPE = 29; { Illegal seek }
@ -174,7 +180,11 @@ Sys_EDQUOT = 122; { Quota exceeded }
{
$Log$
Revision 1.2 2002-09-07 16:01:26 peter
Revision 1.3 2004-03-04 13:11:56 olle
+ added comment to ETXTBSY
* changed i386 -> cpui386, m68k -> cpum68k
Revision 1.2 2002/09/07 16:01:26 peter
* old logs removed and tabs fixed
}

14
rtl/unix/errors.pp
View File

@ -48,7 +48,13 @@ const
'File table overflow', { ENFILE }
'Too many open files', { EMFILE }
'Not a typewriter', { ENOTTY }
'Text file busy', { ETXTBSY }
'Text (code segment) file busy', { ETXTBSY Text file busy. The new process was
a pure procedure (shared text) file which was
open for writing by another process, or file
which was open for writing by another process,
or while the pure procedure file was being
executed an open(2) call requested write access
requested write access.}
'File too large', { EFBIG }
'No space left on device', { ENOSPC }
'Illegal seek', { ESPIPE }
@ -175,7 +181,11 @@ end.
{
$Log$
Revision 1.3 2002-09-07 16:01:27 peter
Revision 1.4 2004-03-04 13:12:06 olle
+ added comment to ETXTBSY
* changed i386 -> cpui386, m68k -> cpum68k
Revision 1.3 2002/09/07 16:01:27 peter
* old logs removed and tabs fixed
}

20
rtl/unix/linuxold.inc
View File

@ -591,7 +591,13 @@ Sys_EINVAL = 22; { Invalid argument }
Sys_ENFILE = 23; { File table overflow }
Sys_EMFILE = 24; { Too many open files }
Sys_ENOTTY = 25; { Not a typewriter }
Sys_ETXTBSY = 26; { Text file busy }
Sys_ETXTBSY = 26; { Text file busy. The new process was
a pure procedure (shared text) file which was
open for writing by another process, or file
which was open for writing by another process,
or while the pure procedure file was being
executed an open(2) call requested write access
requested write access.}
Sys_EFBIG = 27; { File too large }
Sys_ENOSPC = 28; { No space left on device }
Sys_ESPIPE = 29; { Illegal seek }
@ -1667,7 +1673,7 @@ asm
end;
{$ASMMODE DEFAULT}
{$else}
{$ifdef m68k}
{$ifdef cpum68k}
asm
{ load the registers... }
move.l 12(a6),a0
@ -2150,7 +2156,7 @@ begin
movl %eax,__RESULT
end;
{$endif cpui386}
{$ifdef m68k}
{$ifdef cpum68k}
{ No yet translated, my m68k assembler is too weak for such things PM }
(*
asm
@ -2186,7 +2192,7 @@ begin
movl %eax,__RESULT
end;
*)
{$endif m68k}
{$endif cpum68k}
end;
@ -5908,7 +5914,11 @@ End.
{
$Log$
Revision 1.17 2004-02-19 21:30:50 daniel
Revision 1.18 2004-03-04 13:12:06 olle
+ added comment to ETXTBSY
* changed i386 -> cpui386, m68k -> cpum68k
Revision 1.17 2004/02/19 21:30:50 daniel
* do_syscall back to oldfpccall
Revision 1.16 2004/02/19 21:06:51 daniel