paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 10:07:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

* some more occured->occurred, mostly in comments

Browse Source 
git-svn-id: trunk@35122 -
This commit is contained in:
marco 2016-12-13 14:26:41 +00:00
parent dce9b9c68c
commit f4213124f2
15 changed files with 23 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/amunits/src/otherlibs/triton.pas
View File

@ -221,7 +221,7 @@ correction factor *}
{* Message classes *}
CONST TRMS_CLOSEWINDOW = 1; {* The window should be closed *}
TRMS_ERROR = 2; {* An error occured. Error code in trm_Data *}
TRMS_ERROR = 2; {* An error occurred. Error code in trm_Data *}
TRMS_NEWVALUE = 3; {* Object's VALUE has changed. New VALUE in
trm_Data *}
TRMS_ACTION = 4; {* Object has triggered an action *}

4
packages/amunits/src/otherlibs/xadmaster.pas
View File

@ -220,7 +220,7 @@ const
{ do not create XADERR_EMPTY (V8) }
XAD_NOEMPTYERROR = TAG_USER + 181;
{ tags for xadFreeHookAccess (V8) }
{ error occured, call abort method (V8) }
{ error occurred, call abort method (V8) }
XAD_WASERROR = TAG_USER + 190;
{ tags for miscellaneous stuff }
{ xadArchiveInfo for stream hooks (V8) }
@ -314,7 +314,7 @@ const
XADHC_INIT = 4;
{ end up hook work, free stuff }
XADHC_FREE = 5;
{ an error occured, delete partial stuff }
{ an error occurred, delete partial stuff }
XADHC_ABORT = 6;
{ complete input size is needed }
XADHC_FULLSIZE = 7;

4
packages/arosunits/src/amigados.pas
View File

@ -247,7 +247,7 @@ const
ERROR_DIRECTORY_NOT_EMPTY = 216; // You tried to delete a directory that still contains some files. Delete these files first.
ERROR_TOO_MANY_LEVELS = 217; // A recursive directory search could not be performed, because the stack was too small.
ERROR_DEVICE_NOT_MOUNTED = 218; // You tried to access a device that is currently not mounted.
ERROR_SEEK_ERROR = 219; // An error occured, while executing DosSeek().
ERROR_SEEK_ERROR = 219; // An error occurred, while executing DosSeek().
ERROR_COMMENT_TOO_BIG = 220; // The supplied file comment was longer than the hardcoded length limit for file comments.
ERROR_DISK_FULL = 221; // A write-operation could not be performed, because the volume has no space left.
ERROR_DELETE_PROTECTED = 222; // You tried to delete a delete-protected object.
@ -269,7 +269,7 @@ const
ERROR_RECORD_NOT_LOCKED = 240; // You tried to access a record that was not locked.
ERROR_LOCK_COLLISION = 241; // Somebody already locked a part of the record, you wanted to lock.
ERROR_LOCK_TIMEOUT = 242; // LockRecord() timed out.
ERROR_UNLOCK_ERROR = 243; // An error occured, while unlocking a record.
ERROR_UNLOCK_ERROR = 243; // An error occurred, while unlocking a record.
{ more error codes are defined in dosasl.h and filesystem.h }

2
packages/httpd13/src/ap.inc
View File

@ -123,7 +123,7 @@ function ap_vformatter(flush_func: flush_func_t;
* is the number of characters placed in the buffer, excluding the
* terminating NUL. All this implies that, at most, (len-1) characters
* will be copied over; if the return value is >= len, then truncation
* occured.
* occurred.
*
* In no event does ap_snprintf return a negative number.
}

2
packages/libmicrohttpd/examples/largepost.pp
View File

@ -40,7 +40,7 @@ var
BusyPage: Pcchar = '<html><body>This server is busy, please try again later.</body></html>';
CompletePage: Pcchar = '<html><body>The upload has been completed.</body></html>';
ErrorPage: Pcchar = '<html><body>This doesn''t seem to be right.</body></html>';
ServerErrorPage: Pcchar = '<html><body>An internal server error has occured.</body></html>';
ServerErrorPage: Pcchar = '<html><body>An internal server error has occurred.</body></html>';
FileExistsPage: Pcchar = '<html><body>This file already exists.</body></html>';
function SendPage(AConnection: PMHD_Connection; APage: Pcchar; AStatusCode: cint): cint;

2
packages/libmicrohttpd/examples/responseheaders.pp
View File

@ -19,7 +19,7 @@ const
AUrl: Pcchar; AMethod: Pcchar; AVersion: Pcchar; AUploadData: Pcchar;
AUploadDataSize: Psize_t; AConCls: PPointer): cint; cdecl;
const
errorstr: Pcchar = '<html><body>An internal server error has occured!</body></html>';
errorstr: Pcchar = '<html><body>An internal server error has occurred!</body></html>';
var
VFd: cint;
VReturn: cint;

4
packages/libndsfpc/src/nds/arm7/clock.inc
View File

@ -9,8 +9,8 @@ const
READ_STATUS_REG1 = $61;
STATUS_POC = (1 shl 7); // read-only, cleared by reading (1 if just powered on)
STATUS_BLD = (1 shl 6); // read-only, cleared by reading (1 if power dropped below the safety threshold)
STATUS_INT2 = (1 shl 5); // read-only, INT2 has occured
STATUS_INT1 = (1 shl 4); // read-only, INT1 has occured
STATUS_INT2 = (1 shl 5); // read-only, INT2 has occurred
STATUS_INT1 = (1 shl 4); // read-only, INT1 has occurred
STATUS_SC1 = (1 shl 3); // R/W scratch bit
STATUS_SC0 = (1 shl 2); // R/W scratch bit
STATUS_24HRS = (1 shl 1); // 24 hour mode when 1, 12 hour mode when 0

2
packages/os2units/src/som.pas
View File

@ -858,7 +858,7 @@ Procedure somBeginPersistentIds; cdecl;
(* space *)
(* Under normal use (where ids are static varibles) the string *)
(* associated with an id would only be freed if the code module in *)
(* which it occured was unloaded *)
(* which it occurred was unloaded *)
Procedure somEndPersistentIds; cdecl;
external 'som' name 'somEndPersistentIds'; {index 29}

4
packages/paszlib/src/gzio.pas
View File

@ -1190,9 +1190,9 @@ end;
{ GZERROR ===================================================================
Returns the error message for the last error which occured on the
Returns the error message for the last error which occurred on the
given compressed file. errnum is set to zlib error number. If an
error occured in the file system and not in the compression library,
error occurred in the file system and not in the compression library,
errnum is set to Z_ERRNO and the application may consult errno
to get the exact error code.

2
packages/rtl-console/src/win/winevent.pp
View File

@ -29,7 +29,7 @@ interface
{ these procedures must be used to set the event handlers }
{ these doesn't do something, they signal only the }
{ the upper layer that an event occured, this event }
{ the upper layer that an event occurred, this event }
{ must be handled with Win32-API function by the upper }
{ layer }
Procedure SetMouseEventHandler(p : TEventProcedure);

2
packages/rtl-objpas/src/inc/fmtbcd.pp
View File

@ -1612,7 +1612,7 @@ IMPLEMENTATION
if p < low ( Singles )
then begin
exitloop := True;
(* what to do if error occured? *)
(* what to do if error occurred? *)
RAISE eBCDOverflowException.create ( 'in IntegerToBCD' );
end;
UNTIL exitloop;

2
packages/symbolic/examples/easyevalexample.pp
View File

@ -46,6 +46,6 @@ begin
writeln(s,'=',QuickEvaluate(s,['A','B'],[a,b]):10:1,' with A=',a:0:1,' and B=',b);
except
on E:Exception do
Writeln('An exception occured: ',e.message);
Writeln('An exception occurred: ',e.message);
end;
end.

2
packages/winceunits/src/ras.pp
View File

@ -676,7 +676,7 @@ type
{$IFDEF WINCE} // #ifdef UNDER_CE
// This structure is used by the RnaApp application on WINCE
// to signal when a connection has occured.
// to signal when a connection has occurred.
type
tagRNAAppInfo = record

6
packages/x11/src/xinput.pp
View File

@ -121,7 +121,7 @@ type
display: PDisplay; { Display the event was read from }
window: TWindow; { "event" window reported relative to }
deviceid: TXID;
root: TWindow; { root window event occured on }
root: TWindow; { root window event occurred on }
subwindow: TWindow; { child window }
time: TTime; { milliseconds }
x, y: cint; { x, y coordinates in event window }
@ -156,7 +156,7 @@ type
display: PDisplay; { Display the event was read from }
window: TWindow; { "event" window reported relative to }
deviceid: TXID;
root: TWindow; { root window that the event occured on }
root: TWindow; { root window that the event occurred on }
subwindow: TWindow; { child window }
time: TTime; { milliseconds }
x, y: cint; { x, y coordinates in event window }
@ -191,7 +191,7 @@ type
display: PDisplay; { Display the event was read from }
window: TWindow; { "event" window reported relative to }
deviceid: TXID;
root: TWindow; { root window that the event occured on }
root: TWindow; { root window that the event occurred on }
subwindow: TWindow; { child window }
time: TTime; { milliseconds }
x, y: cint; { x, y coordinates in event window }

6
packages/zorba/src/xqc.pas
View File

@ -1990,7 +1990,7 @@ type
* \param length The length of the buffer
*
* \return The number of bytes read - this will be less than length if the end of the input is reached
* or -1 if an error occured
* or -1 if an error occurred
*
*)
read: function(stream: XQC_InputStream; const buf: pchar; length: cuint): cint; extdecl;
@ -2035,8 +2035,8 @@ type
* (e.g. for errors not defined in the spec).
* \param description A detailed description of the error or an empty string if no description is available.
* \param query_uri The uri of the query causing the error or an empty string if no uri is available for the query.
* \param line The line number of the query where the error occured.
* \param components The column number in the line in the query where the error occured.
* \param line The line number of the query where the error occurred.
* \param components The column number in the line in the query where the error occurred.
*)
error: procedure(handler: XQC_ErrorHandler; error: XQUERY_ERROR; const local_name, description,
query_uri: pchar; line, column: cuint); extdecl;