paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-30 23:30:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Refer to mainunit for lazarus IDE

Browse Source
This commit is contained in:
Michael VAN CANNEYT 2023-01-06 16:24:33 +01:00 committed by Michaël Van Canneyt
parent 0d0e66f2f0
commit 8b84926993
8 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/objpas/sysutils/syspch.inc
View File

@ -1,3 +1,4 @@
{%MainUnit sysutils.pp}
{
*********************************************************************
Copyright (C) 1997, 1998 Gertjan Schouten
@ -35,6 +36,8 @@ begin
Result:=Str;
end ;
{ StrAlloc allocates a buffer of Size + 4
the size of the allocated buffer is stored at result - 4
StrDispose should be used to destroy the buffer }

1
rtl/objpas/sysutils/syspchh.inc
View File

@ -1,3 +1,4 @@
{%MainUnit sysutils.pp}
{
*********************************************************************
Copyright (C) 1997, 1998 Gertjan Schouten

1
rtl/objpas/sysutils/syssr.inc
View File

@ -1,3 +1,4 @@
{%MainUnit sysutils.pp}
var
OldPat,Srch: SRstring; // Srch and Oldp can contain uppercase versions of S,OldPattern
PatLength,NewPatLength,P,Cnt,PrevP: Integer;

1
rtl/objpas/sysutils/systhrdh.inc
View File

@ -1,3 +1,4 @@
{%MainUnit sysutils.pp}
{
This file is part of the Free Pascal run time library.
Copyright (c) 1999-2001 by the Free Pascal development team

1
rtl/objpas/sysutils/sysuthrd.inc
View File

@ -1,3 +1,4 @@
{%MainUnit sysutils.pp}
{
This file is part of the Free Pascal run time library.
Copyright (c) 2005,2009 by the Free Pascal development team

1
rtl/objpas/sysutils/syswide.inc
View File

@ -1,3 +1,4 @@
{%MainUnit sysutils.pp}
{
*********************************************************************
Copyright (C) 2002-2005 by Florian Klaempfl

1
rtl/objpas/sysutils/syswideh.inc
View File

@ -1,3 +1,4 @@
{%MainUnit sysutils.pp}
{
*********************************************************************
Copyright (C) 2002 by Florian Klaempfl

1
rtl/objpas/sysutils/tzenv.inc
View File

@ -1,3 +1,4 @@
{%MainUnit sysutils.pp}
{
This file is part of the Free Pascal run time library.
Copyright (c) 2020 by Tomas Hajny,