* Refer to mainunit for lazarus IDE

rtl/objpas/sysutils/syspch.inc

@@ -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  }

rtl/objpas/sysutils/syspchh.inc

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

rtl/objpas/sysutils/syssr.inc

@@ -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;

rtl/objpas/sysutils/systhrdh.inc

@@ -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

rtl/objpas/sysutils/sysuthrd.inc

@@ -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

rtl/objpas/sysutils/syswide.inc

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

rtl/objpas/sysutils/syswideh.inc

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

rtl/objpas/sysutils/tzenv.inc

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