paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 19:43:15 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ More sysutils calls.

Browse Source
This commit is contained in:
michael 1998-10-11 12:23:40 +00:00
parent a68872d49b
commit 3b8fd18808
2 changed files with 16 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/objpas/Makefile
View File

@ -74,7 +74,7 @@ objpas$(PPUEXT): objpas$(PASEXT) $(INC)/except.inc
# Need to change language file !!
sysutils$(PPUEXT): objpas$(PPUEXT) sysutils$(PASEXT) sysstr.inc sysstrh.inc\
stre.inc syspch.inc syspchh.inc dati.inc datih.inc \
finah.inc fina.inc
finah.inc fina.inc filutilh.inc
targetdir:
ifdef UNITTARGETDIR
@ -128,7 +128,10 @@ include $(CFG)/makefile.def
#
# $Log$
# Revision 1.6 1998-10-02 10:41:08 michael
# Revision 1.7 1998-10-11 12:23:40 michael
# + More sysutils calls.
#
# Revision 1.6 1998/10/02 10:41:08 michael
# Included explicit dependencies for all targets
#
# Revision 1.5 1998/10/02 09:26:02 peter

20
rtl/objpas/sysutils.pp
View File

@ -100,19 +100,18 @@ interface
{ Read date & Time function declarations }
{$i datih.inc}
{ Read String Handling functions declaration }
{$i sysstrh.inc}
{ Read pchar handling functions declration }
{$i syspchh.inc}
{ Read filename handling functions declaration }
{$i finah.inc}
{ Read other file handling function declarations }
{$i filutilh.inc}
implementation
{ Read message string definitions }
@ -128,26 +127,26 @@ interface
{$ENDIF}
{ Read filename handling functions implementation }
{$i fina.inc}
{ Read other file handling function implementations }
{$i filutil.inc}
{ Read date & Time function implementations }
{$i dati.inc}
{ Read String Handling functions implementation }
{$i sysstr.inc}
{ Read pchar handling functions implementation }
{$i syspch.inc}
constructor exception.create(const msg : string);
begin
inherited create;
fmessage:=msg;
{!!!!!}
end;
{$ifdef autoobjpas}
@ -275,7 +274,10 @@ begin
end.
{
$Log$
Revision 1.15 1998-10-10 09:53:10 michael
Revision 1.16 1998-10-11 12:23:41 michael
+ More sysutils calls.
Revision 1.15 1998/10/10 09:53:10 michael
Added assertion handling
Revision 1.14 1998/10/03 15:08:05 florian