From 53469d43c3ba968664ea7d46b04476a6b1b69149 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?K=C3=A1roly=20Balogh?= Date: Wed, 9 Aug 2006 08:29:16 +0000 Subject: [PATCH] + another Amiga RTL update git-svn-id: trunk@4396 - --- .gitattributes | 3 + rtl/amiga/Makefile | 415 +++++++++++++++++++++-------------------- rtl/amiga/Makefile.fpc | 191 ++++++++++++------- rtl/amiga/classes.pp | 47 +++++ rtl/amiga/tthread.inc | 158 ++++++++++++++++ rtl/amiga/varutils.pp | 38 ++++ 6 files changed, 582 insertions(+), 270 deletions(-) create mode 100644 rtl/amiga/classes.pp create mode 100644 rtl/amiga/tthread.inc create mode 100644 rtl/amiga/varutils.pp diff --git a/.gitattributes b/.gitattributes index ff8f28c91c..75269116a2 100644 --- a/.gitattributes +++ b/.gitattributes @@ -3964,6 +3964,7 @@ rtl/Makefile.fpc svneol=native#text/plain rtl/README -text rtl/amiga/Makefile svneol=native#text/plain rtl/amiga/Makefile.fpc svneol=native#text/plain +rtl/amiga/classes.pp svneol=native#text/plain rtl/amiga/crt.pp svneol=native#text/plain rtl/amiga/dos.pp svneol=native#text/plain rtl/amiga/doslibd.inc svneol=native#text/plain @@ -3980,6 +3981,8 @@ rtl/amiga/system.pp svneol=native#text/plain rtl/amiga/systhrd.inc svneol=native#text/plain rtl/amiga/sysutils.pp svneol=native#text/plain rtl/amiga/timerd.inc svneol=native#text/plain +rtl/amiga/tthread.inc svneol=native#text/plain +rtl/amiga/varutils.pp svneol=native#text/plain rtl/arm/arm.inc svneol=native#text/plain rtl/arm/int64p.inc svneol=native#text/plain rtl/arm/makefile.cpu -text diff --git a/rtl/amiga/Makefile b/rtl/amiga/Makefile index a822f30b9e..b61795bec4 100644 --- a/rtl/amiga/Makefile +++ b/rtl/amiga/Makefile @@ -93,6 +93,7 @@ endif export ECHO endif override OS_TARGET_DEFAULT=amiga +override CPU_TARGET_DEFAULT=powerpc override DEFAULT_FPCDIR=../.. ifndef FPC ifdef PP @@ -234,146 +235,138 @@ PACKAGESDIR:=$(wildcard $(FPCDIR) $(FPCDIR)/packages/base $(FPCDIR)/packages/ext override PACKAGE_NAME=rtl PACKAGEDIR_MAIN:=$(firstword $(subst /Makefile.fpc,,$(strip $(wildcard $(addsuffix /rtl/Makefile.fpc,$(PACKAGESDIR)))))) RTL=.. -INC=../inc -PROCINC=../$(CPU_TARGET) -PPUEXT=ppa -ASMEXT=.s +INC=$(RTL)/inc +COMMON=$(RTL)/common +PROCINC=$(RTL)/$(CPU_TARGET) UNITPREFIX=rtl +SYSTEMUNIT=system ifdef RELEASE -ifeq ($(findstring 1.0.2,$(FPC_VERSION)),) -ifeq ($(findstring 1.0.4,$(FPC_VERSION)),) override FPCOPT+=-Ur endif -endif -endif -ifeq ($(findstring 1.0.,$(FPC_VERSION)),) -SYSTEMUNIT=system -else -SYSTEMUNIT=syslinux -endif OBJPASDIR=$(RTL)/objpas +GRAPHDIR=$(INC)/graph ifeq ($(FULL_TARGET),i386-linux) -override TARGET_UNITS+=system exec strings dos crt objects printer objpas macpas matrix heaptrc lineinfo getopts sysutils math typinfo ctypes +override TARGET_UNITS+=$(SYSTEMUNIT) objpas macpas strings dos heaptrc sysutils classes math typinfo varutils charset ucomplex getopts matrix variants types rtlconsts sysconst dateutil endif ifeq ($(FULL_TARGET),i386-go32v2) -override TARGET_UNITS+=system exec strings dos crt objects printer objpas macpas matrix heaptrc lineinfo getopts sysutils math typinfo ctypes +override TARGET_UNITS+=$(SYSTEMUNIT) objpas macpas strings dos heaptrc sysutils classes math typinfo varutils charset ucomplex getopts matrix variants types rtlconsts sysconst dateutil endif ifeq ($(FULL_TARGET),i386-win32) -override TARGET_UNITS+=system exec strings dos crt objects printer objpas macpas matrix heaptrc lineinfo getopts sysutils math typinfo ctypes +override TARGET_UNITS+=$(SYSTEMUNIT) objpas macpas strings dos heaptrc sysutils classes math typinfo varutils charset ucomplex getopts matrix variants types rtlconsts sysconst dateutil endif ifeq ($(FULL_TARGET),i386-os2) -override TARGET_UNITS+=system exec strings dos crt objects printer objpas macpas matrix heaptrc lineinfo getopts sysutils math typinfo ctypes +override TARGET_UNITS+=$(SYSTEMUNIT) objpas macpas strings dos heaptrc sysutils classes math typinfo varutils charset ucomplex getopts matrix variants types rtlconsts sysconst dateutil endif ifeq ($(FULL_TARGET),i386-freebsd) -override TARGET_UNITS+=system exec strings dos crt objects printer objpas macpas matrix heaptrc lineinfo getopts sysutils math typinfo ctypes +override TARGET_UNITS+=$(SYSTEMUNIT) objpas macpas strings dos heaptrc sysutils classes math typinfo varutils charset ucomplex getopts matrix variants types rtlconsts sysconst dateutil endif ifeq ($(FULL_TARGET),i386-beos) -override TARGET_UNITS+=system exec strings dos crt objects printer objpas macpas matrix heaptrc lineinfo getopts sysutils math typinfo ctypes +override TARGET_UNITS+=$(SYSTEMUNIT) objpas macpas strings dos heaptrc sysutils classes math typinfo varutils charset ucomplex getopts matrix variants types rtlconsts sysconst dateutil endif ifeq ($(FULL_TARGET),i386-netbsd) -override TARGET_UNITS+=system exec strings dos crt objects printer objpas macpas matrix heaptrc lineinfo getopts sysutils math typinfo ctypes +override TARGET_UNITS+=$(SYSTEMUNIT) objpas macpas strings dos heaptrc sysutils classes math typinfo varutils charset ucomplex getopts matrix variants types rtlconsts sysconst dateutil endif ifeq ($(FULL_TARGET),i386-solaris) -override TARGET_UNITS+=system exec strings dos crt objects printer objpas macpas matrix heaptrc lineinfo getopts sysutils math typinfo ctypes +override TARGET_UNITS+=$(SYSTEMUNIT) objpas macpas strings dos heaptrc sysutils classes math typinfo varutils charset ucomplex getopts matrix variants types rtlconsts sysconst dateutil endif ifeq ($(FULL_TARGET),i386-qnx) -override TARGET_UNITS+=system exec strings dos crt objects printer objpas macpas matrix heaptrc lineinfo getopts sysutils math typinfo ctypes +override TARGET_UNITS+=$(SYSTEMUNIT) objpas macpas strings dos heaptrc sysutils classes math typinfo varutils charset ucomplex getopts matrix variants types rtlconsts sysconst dateutil endif ifeq ($(FULL_TARGET),i386-netware) -override TARGET_UNITS+=system exec strings dos crt objects printer objpas macpas matrix heaptrc lineinfo getopts sysutils math typinfo ctypes +override TARGET_UNITS+=$(SYSTEMUNIT) objpas macpas strings dos heaptrc sysutils classes math typinfo varutils charset ucomplex getopts matrix variants types rtlconsts sysconst dateutil endif ifeq ($(FULL_TARGET),i386-openbsd) -override TARGET_UNITS+=system exec strings dos crt objects printer objpas macpas matrix heaptrc lineinfo getopts sysutils math typinfo ctypes +override TARGET_UNITS+=$(SYSTEMUNIT) objpas macpas strings dos heaptrc sysutils classes math typinfo varutils charset ucomplex getopts matrix variants types rtlconsts sysconst dateutil endif ifeq ($(FULL_TARGET),i386-wdosx) -override TARGET_UNITS+=system exec strings dos crt objects printer objpas macpas matrix heaptrc lineinfo getopts sysutils math typinfo ctypes +override TARGET_UNITS+=$(SYSTEMUNIT) objpas macpas strings dos heaptrc sysutils classes math typinfo varutils charset ucomplex getopts matrix variants types rtlconsts sysconst dateutil endif ifeq ($(FULL_TARGET),i386-darwin) -override TARGET_UNITS+=system exec strings dos crt objects printer objpas macpas matrix heaptrc lineinfo getopts sysutils math typinfo ctypes +override TARGET_UNITS+=$(SYSTEMUNIT) objpas macpas strings dos heaptrc sysutils classes math typinfo varutils charset ucomplex getopts matrix variants types rtlconsts sysconst dateutil endif ifeq ($(FULL_TARGET),i386-emx) -override TARGET_UNITS+=system exec strings dos crt objects printer objpas macpas matrix heaptrc lineinfo getopts sysutils math typinfo ctypes +override TARGET_UNITS+=$(SYSTEMUNIT) objpas macpas strings dos heaptrc sysutils classes math typinfo varutils charset ucomplex getopts matrix variants types rtlconsts sysconst dateutil endif ifeq ($(FULL_TARGET),i386-watcom) -override TARGET_UNITS+=system exec strings dos crt objects printer objpas macpas matrix heaptrc lineinfo getopts sysutils math typinfo ctypes +override TARGET_UNITS+=$(SYSTEMUNIT) objpas macpas strings dos heaptrc sysutils classes math typinfo varutils charset ucomplex getopts matrix variants types rtlconsts sysconst dateutil endif ifeq ($(FULL_TARGET),i386-netwlibc) -override TARGET_UNITS+=system exec strings dos crt objects printer objpas macpas matrix heaptrc lineinfo getopts sysutils math typinfo ctypes +override TARGET_UNITS+=$(SYSTEMUNIT) objpas macpas strings dos heaptrc sysutils classes math typinfo varutils charset ucomplex getopts matrix variants types rtlconsts sysconst dateutil endif ifeq ($(FULL_TARGET),i386-wince) -override TARGET_UNITS+=system exec strings dos crt objects printer objpas macpas matrix heaptrc lineinfo getopts sysutils math typinfo ctypes +override TARGET_UNITS+=$(SYSTEMUNIT) objpas macpas strings dos heaptrc sysutils classes math typinfo varutils charset ucomplex getopts matrix variants types rtlconsts sysconst dateutil endif ifeq ($(FULL_TARGET),m68k-linux) -override TARGET_UNITS+=system exec strings dos crt objects printer objpas macpas matrix heaptrc lineinfo getopts sysutils math typinfo ctypes +override TARGET_UNITS+=$(SYSTEMUNIT) objpas macpas strings dos heaptrc sysutils classes math typinfo varutils charset ucomplex getopts matrix variants types rtlconsts sysconst dateutil endif ifeq ($(FULL_TARGET),m68k-freebsd) -override TARGET_UNITS+=system exec strings dos crt objects printer objpas macpas matrix heaptrc lineinfo getopts sysutils math typinfo ctypes +override TARGET_UNITS+=$(SYSTEMUNIT) objpas macpas strings dos heaptrc sysutils classes math typinfo varutils charset ucomplex getopts matrix variants types rtlconsts sysconst dateutil endif ifeq ($(FULL_TARGET),m68k-netbsd) -override TARGET_UNITS+=system exec strings dos crt objects printer objpas macpas matrix heaptrc lineinfo getopts sysutils math typinfo ctypes +override TARGET_UNITS+=$(SYSTEMUNIT) objpas macpas strings dos heaptrc sysutils classes math typinfo varutils charset ucomplex getopts matrix variants types rtlconsts sysconst dateutil endif ifeq ($(FULL_TARGET),m68k-amiga) -override TARGET_UNITS+=system exec strings dos crt objects printer objpas macpas matrix heaptrc lineinfo getopts sysutils math typinfo ctypes +override TARGET_UNITS+=$(SYSTEMUNIT) objpas macpas strings dos heaptrc sysutils classes math typinfo varutils charset ucomplex getopts matrix variants types rtlconsts sysconst dateutil endif ifeq ($(FULL_TARGET),m68k-atari) -override TARGET_UNITS+=system exec strings dos crt objects printer objpas macpas matrix heaptrc lineinfo getopts sysutils math typinfo ctypes +override TARGET_UNITS+=$(SYSTEMUNIT) objpas macpas strings dos heaptrc sysutils classes math typinfo varutils charset ucomplex getopts matrix variants types rtlconsts sysconst dateutil endif ifeq ($(FULL_TARGET),m68k-openbsd) -override TARGET_UNITS+=system exec strings dos crt objects printer objpas macpas matrix heaptrc lineinfo getopts sysutils math typinfo ctypes +override TARGET_UNITS+=$(SYSTEMUNIT) objpas macpas strings dos heaptrc sysutils classes math typinfo varutils charset ucomplex getopts matrix variants types rtlconsts sysconst dateutil endif ifeq ($(FULL_TARGET),m68k-palmos) -override TARGET_UNITS+=system exec strings dos crt objects printer objpas macpas matrix heaptrc lineinfo getopts sysutils math typinfo ctypes +override TARGET_UNITS+=$(SYSTEMUNIT) objpas macpas strings dos heaptrc sysutils classes math typinfo varutils charset ucomplex getopts matrix variants types rtlconsts sysconst dateutil endif ifeq ($(FULL_TARGET),powerpc-linux) -override TARGET_UNITS+=system exec strings dos crt objects printer objpas macpas matrix heaptrc lineinfo getopts sysutils math typinfo ctypes +override TARGET_UNITS+=$(SYSTEMUNIT) objpas macpas strings dos heaptrc sysutils classes math typinfo varutils charset ucomplex getopts matrix variants types rtlconsts sysconst dateutil endif ifeq ($(FULL_TARGET),powerpc-netbsd) -override TARGET_UNITS+=system exec strings dos crt objects printer objpas macpas matrix heaptrc lineinfo getopts sysutils math typinfo ctypes +override TARGET_UNITS+=$(SYSTEMUNIT) objpas macpas strings dos heaptrc sysutils classes math typinfo varutils charset ucomplex getopts matrix variants types rtlconsts sysconst dateutil endif ifeq ($(FULL_TARGET),powerpc-amiga) -override TARGET_UNITS+=system exec strings dos crt objects printer objpas macpas matrix heaptrc lineinfo getopts sysutils math typinfo ctypes +override TARGET_UNITS+=$(SYSTEMUNIT) objpas macpas strings dos heaptrc sysutils classes math typinfo varutils charset ucomplex getopts matrix variants types rtlconsts sysconst dateutil endif ifeq ($(FULL_TARGET),powerpc-macos) -override TARGET_UNITS+=system exec strings dos crt objects printer objpas macpas matrix heaptrc lineinfo getopts sysutils math typinfo ctypes +override TARGET_UNITS+=$(SYSTEMUNIT) objpas macpas strings dos heaptrc sysutils classes math typinfo varutils charset ucomplex getopts matrix variants types rtlconsts sysconst dateutil endif ifeq ($(FULL_TARGET),powerpc-darwin) -override TARGET_UNITS+=system exec strings dos crt objects printer objpas macpas matrix heaptrc lineinfo getopts sysutils math typinfo ctypes +override TARGET_UNITS+=$(SYSTEMUNIT) objpas macpas strings dos heaptrc sysutils classes math typinfo varutils charset ucomplex getopts matrix variants types rtlconsts sysconst dateutil endif ifeq ($(FULL_TARGET),powerpc-morphos) -override TARGET_UNITS+=system exec strings dos crt objects printer objpas macpas matrix heaptrc lineinfo getopts sysutils math typinfo ctypes +override TARGET_UNITS+=$(SYSTEMUNIT) objpas macpas strings dos heaptrc sysutils classes math typinfo varutils charset ucomplex getopts matrix variants types rtlconsts sysconst dateutil endif ifeq ($(FULL_TARGET),sparc-linux) -override TARGET_UNITS+=system exec strings dos crt objects printer objpas macpas matrix heaptrc lineinfo getopts sysutils math typinfo ctypes +override TARGET_UNITS+=$(SYSTEMUNIT) objpas macpas strings dos heaptrc sysutils classes math typinfo varutils charset ucomplex getopts matrix variants types rtlconsts sysconst dateutil endif ifeq ($(FULL_TARGET),sparc-netbsd) -override TARGET_UNITS+=system exec strings dos crt objects printer objpas macpas matrix heaptrc lineinfo getopts sysutils math typinfo ctypes +override TARGET_UNITS+=$(SYSTEMUNIT) objpas macpas strings dos heaptrc sysutils classes math typinfo varutils charset ucomplex getopts matrix variants types rtlconsts sysconst dateutil endif ifeq ($(FULL_TARGET),sparc-solaris) -override TARGET_UNITS+=system exec strings dos crt objects printer objpas macpas matrix heaptrc lineinfo getopts sysutils math typinfo ctypes +override TARGET_UNITS+=$(SYSTEMUNIT) objpas macpas strings dos heaptrc sysutils classes math typinfo varutils charset ucomplex getopts matrix variants types rtlconsts sysconst dateutil endif ifeq ($(FULL_TARGET),x86_64-linux) -override TARGET_UNITS+=system exec strings dos crt objects printer objpas macpas matrix heaptrc lineinfo getopts sysutils math typinfo ctypes +override TARGET_UNITS+=$(SYSTEMUNIT) objpas macpas strings dos heaptrc sysutils classes math typinfo varutils charset ucomplex getopts matrix variants types rtlconsts sysconst dateutil endif ifeq ($(FULL_TARGET),x86_64-freebsd) -override TARGET_UNITS+=system exec strings dos crt objects printer objpas macpas matrix heaptrc lineinfo getopts sysutils math typinfo ctypes +override TARGET_UNITS+=$(SYSTEMUNIT) objpas macpas strings dos heaptrc sysutils classes math typinfo varutils charset ucomplex getopts matrix variants types rtlconsts sysconst dateutil endif ifeq ($(FULL_TARGET),x86_64-win64) -override TARGET_UNITS+=system exec strings dos crt objects printer objpas macpas matrix heaptrc lineinfo getopts sysutils math typinfo ctypes +override TARGET_UNITS+=$(SYSTEMUNIT) objpas macpas strings dos heaptrc sysutils classes math typinfo varutils charset ucomplex getopts matrix variants types rtlconsts sysconst dateutil endif ifeq ($(FULL_TARGET),arm-linux) -override TARGET_UNITS+=system exec strings dos crt objects printer objpas macpas matrix heaptrc lineinfo getopts sysutils math typinfo ctypes +override TARGET_UNITS+=$(SYSTEMUNIT) objpas macpas strings dos heaptrc sysutils classes math typinfo varutils charset ucomplex getopts matrix variants types rtlconsts sysconst dateutil endif ifeq ($(FULL_TARGET),arm-palmos) -override TARGET_UNITS+=system exec strings dos crt objects printer objpas macpas matrix heaptrc lineinfo getopts sysutils math typinfo ctypes +override TARGET_UNITS+=$(SYSTEMUNIT) objpas macpas strings dos heaptrc sysutils classes math typinfo varutils charset ucomplex getopts matrix variants types rtlconsts sysconst dateutil endif ifeq ($(FULL_TARGET),arm-wince) -override TARGET_UNITS+=system exec strings dos crt objects printer objpas macpas matrix heaptrc lineinfo getopts sysutils math typinfo ctypes +override TARGET_UNITS+=$(SYSTEMUNIT) objpas macpas strings dos heaptrc sysutils classes math typinfo varutils charset ucomplex getopts matrix variants types rtlconsts sysconst dateutil endif ifeq ($(FULL_TARGET),arm-gba) -override TARGET_UNITS+=system exec strings dos crt objects printer objpas macpas matrix heaptrc lineinfo getopts sysutils math typinfo ctypes +override TARGET_UNITS+=$(SYSTEMUNIT) objpas macpas strings dos heaptrc sysutils classes math typinfo varutils charset ucomplex getopts matrix variants types rtlconsts sysconst dateutil endif ifeq ($(FULL_TARGET),powerpc64-linux) -override TARGET_UNITS+=system exec strings dos crt objects printer objpas macpas matrix heaptrc lineinfo getopts sysutils math typinfo ctypes +override TARGET_UNITS+=$(SYSTEMUNIT) objpas macpas strings dos heaptrc sysutils classes math typinfo varutils charset ucomplex getopts matrix variants types rtlconsts sysconst dateutil endif ifeq ($(FULL_TARGET),i386-linux) override TARGET_LOADERS+=prt0 @@ -499,374 +492,374 @@ ifeq ($(FULL_TARGET),powerpc64-linux) override TARGET_LOADERS+=prt0 endif ifeq ($(FULL_TARGET),i386-linux) -override TARGET_RSTS+=math +override TARGET_RSTS+=math rtlconsts varutils typinfo variants classes sysconst dateutil fpmkunit endif ifeq ($(FULL_TARGET),i386-go32v2) -override TARGET_RSTS+=math +override TARGET_RSTS+=math rtlconsts varutils typinfo variants classes sysconst dateutil fpmkunit endif ifeq ($(FULL_TARGET),i386-win32) -override TARGET_RSTS+=math +override TARGET_RSTS+=math rtlconsts varutils typinfo variants classes sysconst dateutil fpmkunit endif ifeq ($(FULL_TARGET),i386-os2) -override TARGET_RSTS+=math +override TARGET_RSTS+=math rtlconsts varutils typinfo variants classes sysconst dateutil fpmkunit endif ifeq ($(FULL_TARGET),i386-freebsd) -override TARGET_RSTS+=math +override TARGET_RSTS+=math rtlconsts varutils typinfo variants classes sysconst dateutil fpmkunit endif ifeq ($(FULL_TARGET),i386-beos) -override TARGET_RSTS+=math +override TARGET_RSTS+=math rtlconsts varutils typinfo variants classes sysconst dateutil fpmkunit endif ifeq ($(FULL_TARGET),i386-netbsd) -override TARGET_RSTS+=math +override TARGET_RSTS+=math rtlconsts varutils typinfo variants classes sysconst dateutil fpmkunit endif ifeq ($(FULL_TARGET),i386-solaris) -override TARGET_RSTS+=math +override TARGET_RSTS+=math rtlconsts varutils typinfo variants classes sysconst dateutil fpmkunit endif ifeq ($(FULL_TARGET),i386-qnx) -override TARGET_RSTS+=math +override TARGET_RSTS+=math rtlconsts varutils typinfo variants classes sysconst dateutil fpmkunit endif ifeq ($(FULL_TARGET),i386-netware) -override TARGET_RSTS+=math +override TARGET_RSTS+=math rtlconsts varutils typinfo variants classes sysconst dateutil fpmkunit endif ifeq ($(FULL_TARGET),i386-openbsd) -override TARGET_RSTS+=math +override TARGET_RSTS+=math rtlconsts varutils typinfo variants classes sysconst dateutil fpmkunit endif ifeq ($(FULL_TARGET),i386-wdosx) -override TARGET_RSTS+=math +override TARGET_RSTS+=math rtlconsts varutils typinfo variants classes sysconst dateutil fpmkunit endif ifeq ($(FULL_TARGET),i386-darwin) -override TARGET_RSTS+=math +override TARGET_RSTS+=math rtlconsts varutils typinfo variants classes sysconst dateutil fpmkunit endif ifeq ($(FULL_TARGET),i386-emx) -override TARGET_RSTS+=math +override TARGET_RSTS+=math rtlconsts varutils typinfo variants classes sysconst dateutil fpmkunit endif ifeq ($(FULL_TARGET),i386-watcom) -override TARGET_RSTS+=math +override TARGET_RSTS+=math rtlconsts varutils typinfo variants classes sysconst dateutil fpmkunit endif ifeq ($(FULL_TARGET),i386-netwlibc) -override TARGET_RSTS+=math +override TARGET_RSTS+=math rtlconsts varutils typinfo variants classes sysconst dateutil fpmkunit endif ifeq ($(FULL_TARGET),i386-wince) -override TARGET_RSTS+=math +override TARGET_RSTS+=math rtlconsts varutils typinfo variants classes sysconst dateutil fpmkunit endif ifeq ($(FULL_TARGET),m68k-linux) -override TARGET_RSTS+=math +override TARGET_RSTS+=math rtlconsts varutils typinfo variants classes sysconst dateutil fpmkunit endif ifeq ($(FULL_TARGET),m68k-freebsd) -override TARGET_RSTS+=math +override TARGET_RSTS+=math rtlconsts varutils typinfo variants classes sysconst dateutil fpmkunit endif ifeq ($(FULL_TARGET),m68k-netbsd) -override TARGET_RSTS+=math +override TARGET_RSTS+=math rtlconsts varutils typinfo variants classes sysconst dateutil fpmkunit endif ifeq ($(FULL_TARGET),m68k-amiga) -override TARGET_RSTS+=math +override TARGET_RSTS+=math rtlconsts varutils typinfo variants classes sysconst dateutil fpmkunit endif ifeq ($(FULL_TARGET),m68k-atari) -override TARGET_RSTS+=math +override TARGET_RSTS+=math rtlconsts varutils typinfo variants classes sysconst dateutil fpmkunit endif ifeq ($(FULL_TARGET),m68k-openbsd) -override TARGET_RSTS+=math +override TARGET_RSTS+=math rtlconsts varutils typinfo variants classes sysconst dateutil fpmkunit endif ifeq ($(FULL_TARGET),m68k-palmos) -override TARGET_RSTS+=math +override TARGET_RSTS+=math rtlconsts varutils typinfo variants classes sysconst dateutil fpmkunit endif ifeq ($(FULL_TARGET),powerpc-linux) -override TARGET_RSTS+=math +override TARGET_RSTS+=math rtlconsts varutils typinfo variants classes sysconst dateutil fpmkunit endif ifeq ($(FULL_TARGET),powerpc-netbsd) -override TARGET_RSTS+=math +override TARGET_RSTS+=math rtlconsts varutils typinfo variants classes sysconst dateutil fpmkunit endif ifeq ($(FULL_TARGET),powerpc-amiga) -override TARGET_RSTS+=math +override TARGET_RSTS+=math rtlconsts varutils typinfo variants classes sysconst dateutil fpmkunit endif ifeq ($(FULL_TARGET),powerpc-macos) -override TARGET_RSTS+=math +override TARGET_RSTS+=math rtlconsts varutils typinfo variants classes sysconst dateutil fpmkunit endif ifeq ($(FULL_TARGET),powerpc-darwin) -override TARGET_RSTS+=math +override TARGET_RSTS+=math rtlconsts varutils typinfo variants classes sysconst dateutil fpmkunit endif ifeq ($(FULL_TARGET),powerpc-morphos) -override TARGET_RSTS+=math +override TARGET_RSTS+=math rtlconsts varutils typinfo variants classes sysconst dateutil fpmkunit endif ifeq ($(FULL_TARGET),sparc-linux) -override TARGET_RSTS+=math +override TARGET_RSTS+=math rtlconsts varutils typinfo variants classes sysconst dateutil fpmkunit endif ifeq ($(FULL_TARGET),sparc-netbsd) -override TARGET_RSTS+=math +override TARGET_RSTS+=math rtlconsts varutils typinfo variants classes sysconst dateutil fpmkunit endif ifeq ($(FULL_TARGET),sparc-solaris) -override TARGET_RSTS+=math +override TARGET_RSTS+=math rtlconsts varutils typinfo variants classes sysconst dateutil fpmkunit endif ifeq ($(FULL_TARGET),x86_64-linux) -override TARGET_RSTS+=math +override TARGET_RSTS+=math rtlconsts varutils typinfo variants classes sysconst dateutil fpmkunit endif ifeq ($(FULL_TARGET),x86_64-freebsd) -override TARGET_RSTS+=math +override TARGET_RSTS+=math rtlconsts varutils typinfo variants classes sysconst dateutil fpmkunit endif ifeq ($(FULL_TARGET),x86_64-win64) -override TARGET_RSTS+=math +override TARGET_RSTS+=math rtlconsts varutils typinfo variants classes sysconst dateutil fpmkunit endif ifeq ($(FULL_TARGET),arm-linux) -override TARGET_RSTS+=math +override TARGET_RSTS+=math rtlconsts varutils typinfo variants classes sysconst dateutil fpmkunit endif ifeq ($(FULL_TARGET),arm-palmos) -override TARGET_RSTS+=math +override TARGET_RSTS+=math rtlconsts varutils typinfo variants classes sysconst dateutil fpmkunit endif ifeq ($(FULL_TARGET),arm-wince) -override TARGET_RSTS+=math +override TARGET_RSTS+=math rtlconsts varutils typinfo variants classes sysconst dateutil fpmkunit endif ifeq ($(FULL_TARGET),arm-gba) -override TARGET_RSTS+=math +override TARGET_RSTS+=math rtlconsts varutils typinfo variants classes sysconst dateutil fpmkunit endif ifeq ($(FULL_TARGET),powerpc64-linux) -override TARGET_RSTS+=math +override TARGET_RSTS+=math rtlconsts varutils typinfo variants classes sysconst dateutil fpmkunit endif override INSTALL_FPCPACKAGE=y ifeq ($(FULL_TARGET),i386-linux) -override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) +override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) endif ifeq ($(FULL_TARGET),i386-go32v2) -override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) +override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) endif ifeq ($(FULL_TARGET),i386-win32) -override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) +override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) endif ifeq ($(FULL_TARGET),i386-os2) -override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) +override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) endif ifeq ($(FULL_TARGET),i386-freebsd) -override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) +override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) endif ifeq ($(FULL_TARGET),i386-beos) -override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) +override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) endif ifeq ($(FULL_TARGET),i386-netbsd) -override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) +override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) endif ifeq ($(FULL_TARGET),i386-solaris) -override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) +override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) endif ifeq ($(FULL_TARGET),i386-qnx) -override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) +override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) endif ifeq ($(FULL_TARGET),i386-netware) -override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) +override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) endif ifeq ($(FULL_TARGET),i386-openbsd) -override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) +override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) endif ifeq ($(FULL_TARGET),i386-wdosx) -override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) +override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) endif ifeq ($(FULL_TARGET),i386-darwin) -override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) +override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) endif ifeq ($(FULL_TARGET),i386-emx) -override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) +override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) endif ifeq ($(FULL_TARGET),i386-watcom) -override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) +override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) endif ifeq ($(FULL_TARGET),i386-netwlibc) -override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) +override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) endif ifeq ($(FULL_TARGET),i386-wince) -override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) +override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) endif ifeq ($(FULL_TARGET),m68k-linux) -override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) +override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) endif ifeq ($(FULL_TARGET),m68k-freebsd) -override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) +override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) endif ifeq ($(FULL_TARGET),m68k-netbsd) -override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) +override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) endif ifeq ($(FULL_TARGET),m68k-amiga) -override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) +override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) endif ifeq ($(FULL_TARGET),m68k-atari) -override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) +override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) endif ifeq ($(FULL_TARGET),m68k-openbsd) -override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) +override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) endif ifeq ($(FULL_TARGET),m68k-palmos) -override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) +override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) endif ifeq ($(FULL_TARGET),powerpc-linux) -override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) +override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) endif ifeq ($(FULL_TARGET),powerpc-netbsd) -override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) +override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) endif ifeq ($(FULL_TARGET),powerpc-amiga) -override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) +override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) endif ifeq ($(FULL_TARGET),powerpc-macos) -override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) +override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) endif ifeq ($(FULL_TARGET),powerpc-darwin) -override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) +override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) endif ifeq ($(FULL_TARGET),powerpc-morphos) -override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) +override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) endif ifeq ($(FULL_TARGET),sparc-linux) -override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) +override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) endif ifeq ($(FULL_TARGET),sparc-netbsd) -override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) +override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) endif ifeq ($(FULL_TARGET),sparc-solaris) -override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) +override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) endif ifeq ($(FULL_TARGET),x86_64-linux) -override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) +override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) endif ifeq ($(FULL_TARGET),x86_64-freebsd) -override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) +override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) endif ifeq ($(FULL_TARGET),x86_64-win64) -override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) +override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) endif ifeq ($(FULL_TARGET),arm-linux) -override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) +override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) endif ifeq ($(FULL_TARGET),arm-palmos) -override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) +override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) endif ifeq ($(FULL_TARGET),arm-wince) -override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) +override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) endif ifeq ($(FULL_TARGET),arm-gba) -override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) +override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) endif ifeq ($(FULL_TARGET),powerpc64-linux) -override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) +override COMPILER_INCLUDEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) endif ifeq ($(FULL_TARGET),i386-linux) -override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) +override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) $(COMMON) endif ifeq ($(FULL_TARGET),i386-go32v2) -override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) +override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) $(COMMON) endif ifeq ($(FULL_TARGET),i386-win32) -override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) +override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) $(COMMON) endif ifeq ($(FULL_TARGET),i386-os2) -override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) +override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) $(COMMON) endif ifeq ($(FULL_TARGET),i386-freebsd) -override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) +override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) $(COMMON) endif ifeq ($(FULL_TARGET),i386-beos) -override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) +override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) $(COMMON) endif ifeq ($(FULL_TARGET),i386-netbsd) -override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) +override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) $(COMMON) endif ifeq ($(FULL_TARGET),i386-solaris) -override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) +override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) $(COMMON) endif ifeq ($(FULL_TARGET),i386-qnx) -override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) +override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) $(COMMON) endif ifeq ($(FULL_TARGET),i386-netware) -override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) +override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) $(COMMON) endif ifeq ($(FULL_TARGET),i386-openbsd) -override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) +override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) $(COMMON) endif ifeq ($(FULL_TARGET),i386-wdosx) -override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) +override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) $(COMMON) endif ifeq ($(FULL_TARGET),i386-darwin) -override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) +override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) $(COMMON) endif ifeq ($(FULL_TARGET),i386-emx) -override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) +override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) $(COMMON) endif ifeq ($(FULL_TARGET),i386-watcom) -override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) +override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) $(COMMON) endif ifeq ($(FULL_TARGET),i386-netwlibc) -override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) +override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) $(COMMON) endif ifeq ($(FULL_TARGET),i386-wince) -override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) +override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) $(COMMON) endif ifeq ($(FULL_TARGET),m68k-linux) -override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) +override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) $(COMMON) endif ifeq ($(FULL_TARGET),m68k-freebsd) -override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) +override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) $(COMMON) endif ifeq ($(FULL_TARGET),m68k-netbsd) -override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) +override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) $(COMMON) endif ifeq ($(FULL_TARGET),m68k-amiga) -override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) +override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) $(COMMON) endif ifeq ($(FULL_TARGET),m68k-atari) -override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) +override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) $(COMMON) endif ifeq ($(FULL_TARGET),m68k-openbsd) -override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) +override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) $(COMMON) endif ifeq ($(FULL_TARGET),m68k-palmos) -override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) +override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) $(COMMON) endif ifeq ($(FULL_TARGET),powerpc-linux) -override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) +override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) $(COMMON) endif ifeq ($(FULL_TARGET),powerpc-netbsd) -override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) +override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) $(COMMON) endif ifeq ($(FULL_TARGET),powerpc-amiga) -override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) +override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) $(COMMON) endif ifeq ($(FULL_TARGET),powerpc-macos) -override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) +override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) $(COMMON) endif ifeq ($(FULL_TARGET),powerpc-darwin) -override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) +override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) $(COMMON) endif ifeq ($(FULL_TARGET),powerpc-morphos) -override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) +override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) $(COMMON) endif ifeq ($(FULL_TARGET),sparc-linux) -override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) +override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) $(COMMON) endif ifeq ($(FULL_TARGET),sparc-netbsd) -override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) +override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) $(COMMON) endif ifeq ($(FULL_TARGET),sparc-solaris) -override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) +override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) $(COMMON) endif ifeq ($(FULL_TARGET),x86_64-linux) -override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) +override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) $(COMMON) endif ifeq ($(FULL_TARGET),x86_64-freebsd) -override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) +override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) $(COMMON) endif ifeq ($(FULL_TARGET),x86_64-win64) -override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) +override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) $(COMMON) endif ifeq ($(FULL_TARGET),arm-linux) -override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) +override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) $(COMMON) endif ifeq ($(FULL_TARGET),arm-palmos) -override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) +override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) $(COMMON) endif ifeq ($(FULL_TARGET),arm-wince) -override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) +override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) $(COMMON) endif ifeq ($(FULL_TARGET),arm-gba) -override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) +override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) $(COMMON) endif ifeq ($(FULL_TARGET),powerpc64-linux) -override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) +override COMPILER_SOURCEDIR+=$(INC) $(PROCINC) $(CPU_TARGET) $(COMMON) endif ifdef REQUIRE_UNITSDIR override UNITSDIR+=$(REQUIRE_UNITSDIR) @@ -2138,34 +2131,44 @@ SYSINCDEPS=$(addprefix $(INC)/,$(SYSINCNAMES)) include $(PROCINC)/makefile.cpu SYSCPUDEPS=$(addprefix $(PROCINC)/,$(CPUINCNAMES)) SYSDEPS=$(SYSINCDEPS) $(SYSCPUDEPS) -prt0$(OEXT) : prt0$(LOADEREXT) - -$(AS) prt0$(LOADEREXT) -o prt0$(OEXT) -$(SYSTEMUNIT)$(PPUEXT) : $(SYSTEMUNIT).pp $(SYSLINUXDEPS) $(SYSDEPS) - $(COMPILER) -ui386 -dm68k -Us -Sg $(SYSTEMUNIT).pp $(REDIR) -strings$(PPUEXT) : ../template/strings.pp system$(PPUEXT) - $(COMPILER) ../template/strings.pp $(REDIR) -exec$(PPUEXT) : exec.pp exec.inc system$(PPUEXT) - $(COMPILER) exec $(REDIR) -objpas$(PPUEXT) : $(OBJPASDIR)/objpas.pp system$(PPUEXT) - $(COPY) $(OBJPASDIR)/objpas.pp . - $(COMPILER) objpas $(REDIR) - $(DEL) objpas.pp -sysutils$(PPUEXT) : $(OBJPASDIR)/sysutils.pp objpas$(PPUEXT) system$(PPUEXT) - $(COPY) $(OBJPASDIR)/sysutils.pp . - $(COMPILER) sysutils $(REDIR) +prt0$(OEXT) : $(CPU_TARGET)/prt0.as + $(AS) -o $(UNITTARGETDIRPREFIX)prt0$(OEXT) $(CPU_TARGET)/prt0.as +$(SYSTEMUNIT)$(PPUEXT) : $(SYSTEMUNIT).pp $(SYSDEPS) + $(COMPILER) -Us -Sg $(SYSTEMUNIT).pp $(REDIR) +objpas$(PPUEXT): $(OBJPASDIR)/objpas.pp $(INC)/except.inc $(SYSTEMUNIT)$(PPUEXT) + $(COMPILER) -I$(OBJPASDIR) $(OBJPASDIR)/objpas.pp $(REDIR) +strings$(PPUEXT) : $(INC)/strings.pp $(INC)/stringsi.inc \ + $(PROCINC)/strings.inc $(PROCINC)/stringss.inc \ + $(SYSTEMUNIT)$(PPUEXT) +dos$(PPUEXT) : dos.pp $(INC)/filerec.inc $(INC)/textrec.inc strings$(PPUEXT) \ + $(SYSTEMUNIT)$(PPUEXT) +objects$(PPUEXT) : $(INC)/objects.pp dos$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT) +sysutils$(PPUEXT) : sysutils.pp $(wildcard $(OBJPASDIR)/sysutils/*.inc) \ + objpas$(PPUEXT) dos$(PPUEXT) sysconst$(PPUEXT) + $(COMPILER) -Fi$(OBJPASDIR)/sysutils sysutils.pp +classes$(PPUEXT) : classes.pp $(wildcard $(OBJPASDIR)/classes/*.inc) \ + sysutils$(PPUEXT) typinfo$(PPUEXT) rtlconsts$(PPUEXT) types$(PPUEXT) + $(COMPILER) -Fi$(OBJPASDIR)/classes classes.pp +typinfo$(PPUEXT): $(OBJPASDIR)/typinfo.pp objpas$(PPUEXT) + $(COMPILER) -Sg $(OBJPASDIR)/typinfo.pp $(REDIR) +math$(PPUEXT): $(OBJPASDIR)/math.pp objpas$(PPUEXT) sysutils$(PPUEXT) + $(COMPILER) $(OBJPASDIR)/math.pp $(REDIR) +varutils$(PPUEXT) : $(OBJPASDIR)/cvarutil.inc $(OBJPASDIR)/varutils.inc \ + $(OBJPASDIR)/varutilh.inc varutils.pp + $(COMPILER) -I$(OBJPASDIR) varutils.pp $(REDIR) +types$(PPUEXT) : $(OBJPASDIR/types.pp objpas$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT) + $(COMPILER) $(OBJPASDIR)/types.pp +rtlconsts$(PPUEXT) : $(OBJPASDIR)/rtlconsts.pp + $(COMPILER) $(OBJPASDIR)/rtlconsts.pp +sysconst$(PPUEXT) : $(OBJPASDIR)/sysconst.pp objpas$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT) + $(COMPILER) $(OBJPASDIR)/sysconst.pp +dateutil$(PPUEXT) : $(OBJPASDIR)/dateutil.pp + $(COMPILER) -I$(OBJPASDIR) $(OBJPASDIR)/dateutil.pp macpas$(PPUEXT) : $(INC)/macpas.pp system$(PPUEXT) $(COMPILER) $(INC)/macpas.pp $(REDIR) -dos$(PPUEXT) : $(DOSDEPS) system$(PPUEXT) - $(COMPILER) dos $(REDIR) -crt$(PPUEXT) : crt.pp $(INC)/textrec.inc system$(PPUEXT) - $(COMPILER) crt $(REDIR) -printer$(PPUEXT) : printer.pp system$(PPUEXT) - $(COMPILER) printer $(REDIR) -objects$(PPUEXT) : $(INC)/objects.pp system$(PPUEXT) - $(COMPILER) $(INC)/objects.pp $(REDIR) -getopts$(PPUEXT) : $(INC)/getopts.pp strings$(PPUEXT) system$(PPUEXT) - $(COMPILER) $(INC)/getopts.pp $(REDIR) -heaptrc$(PPUEXT) : $(INC)/heaptrc.pp system$(PPUEXT) - $(COMPILER) $(INC)/heaptrc.pp $(REDIR) -ctypes$(PPUEXT) : $(INC)/ctypes.pp system$(PPUEXT) - $(COMPILER) $(INC)/ctypes.pp $(REDIR) +ucomplex$(PPUEXT): $(INC)/ucomplex.pp math$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT) +getopts$(PPUEXT) : $(INC)/getopts.pp $(SYSTEMUNIT)$(PPUEXT) +heaptrc$(PPUEXT) : $(INC)/heaptrc.pp $(SYSTEMUNIT)$(PPUEXT) + $(COMPILER) -Sg $(INC)/heaptrc.pp $(REDIR) +charset$(PPUEXT) : $(INC)/charset.pp $(SYSTEMUNIT)$(PPUEXT) +fpmkunit$(PPUEXT) : $(COMMON)/fpmkunit.pp classes$(PPUEXT) diff --git a/rtl/amiga/Makefile.fpc b/rtl/amiga/Makefile.fpc index e6b7c992c4..42d3ce59b5 100644 --- a/rtl/amiga/Makefile.fpc +++ b/rtl/amiga/Makefile.fpc @@ -1,5 +1,5 @@ # -# Makefile.fpc for Amiga RTL +# Makefile.fpc for Free Pascal Amiga RTL # [package] @@ -7,12 +7,18 @@ main=rtl [target] loaders=prt0 -units=system exec strings \ - dos crt objects printer \ - objpas macpas matrix \ - heaptrc lineinfo getopts \ - sysutils math typinfo ctypes -rsts=math +units=$(SYSTEMUNIT) objpas macpas strings \ + dos heaptrc \ + sysutils classes math typinfo varutils \ + charset ucomplex getopts matrix \ + variants types rtlconsts sysconst dateutil +# \ +# exec timer doslib utility hardware inputevent graphics layers \ +# intuition aboxlib mui \ +# these can be moved to packages later +# clipboard datatypes asl ahi tinygl get9 muihelper \ +# fpmkunit +rsts=math rtlconsts varutils typinfo variants classes sysconst dateutil fpmkunit [require] nortl=y @@ -23,41 +29,31 @@ fpcpackage=y [default] fpcdir=../.. target=amiga +cpu=powerpc [compiler] -includedir=$(INC) $(PROCINC) -sourcedir=$(INC) $(PROCINC) +includedir=$(INC) $(PROCINC) $(CPU_TARGET) +sourcedir=$(INC) $(PROCINC) $(CPU_TARGET) $(COMMON) [prerules] RTL=.. -INC=../inc -PROCINC=../$(CPU_TARGET) -PPUEXT=ppa -ASMEXT=.s - +INC=$(RTL)/inc +COMMON=$(RTL)/common +PROCINC=$(RTL)/$(CPU_TARGET) UNITPREFIX=rtl +SYSTEMUNIT=system # Use new feature from 1.0.5 version # that generates release PPU files # which will not be recompiled ifdef RELEASE -ifeq ($(findstring 1.0.2,$(FPC_VERSION)),) -ifeq ($(findstring 1.0.4,$(FPC_VERSION)),) override FPCOPT+=-Ur endif -endif -endif - -ifeq ($(findstring 1.0.,$(FPC_VERSION)),) -SYSTEMUNIT=system -else -SYSTEMUNIT=syslinux -endif - # Paths OBJPASDIR=$(RTL)/objpas +GRAPHDIR=$(INC)/graph [rules] # Get the system independent include file names. @@ -80,38 +76,79 @@ SYSDEPS=$(SYSINCDEPS) $(SYSCPUDEPS) # Loaders # -prt0$(OEXT) : prt0$(LOADEREXT) - -$(AS) prt0$(LOADEREXT) -o prt0$(OEXT) - -#gprt0$(OEXT) : $(GLOADERAS) -# -$(AS) $(GLOADERAS) -o gprt0$(OEXT) +prt0$(OEXT) : $(CPU_TARGET)/prt0.as + $(AS) -o $(UNITTARGETDIRPREFIX)prt0$(OEXT) $(CPU_TARGET)/prt0.as # # Base Units (System, strings, os-dependent-base-unit) # -$(SYSTEMUNIT)$(PPUEXT) : $(SYSTEMUNIT).pp $(SYSLINUXDEPS) $(SYSDEPS) - $(COMPILER) -ui386 -dm68k -Us -Sg $(SYSTEMUNIT).pp $(REDIR) +$(SYSTEMUNIT)$(PPUEXT) : $(SYSTEMUNIT).pp $(SYSDEPS) + $(COMPILER) -Us -Sg $(SYSTEMUNIT).pp $(REDIR) -strings$(PPUEXT) : ../template/strings.pp system$(PPUEXT) - $(COMPILER) ../template/strings.pp $(REDIR) +objpas$(PPUEXT): $(OBJPASDIR)/objpas.pp $(INC)/except.inc $(SYSTEMUNIT)$(PPUEXT) + $(COMPILER) -I$(OBJPASDIR) $(OBJPASDIR)/objpas.pp $(REDIR) -exec$(PPUEXT) : exec.pp exec.inc system$(PPUEXT) - $(COMPILER) exec $(REDIR) +strings$(PPUEXT) : $(INC)/strings.pp $(INC)/stringsi.inc \ + $(PROCINC)/strings.inc $(PROCINC)/stringss.inc \ + $(SYSTEMUNIT)$(PPUEXT) # -# Delphi Object Model +# System Dependent Units # -objpas$(PPUEXT) : $(OBJPASDIR)/objpas.pp system$(PPUEXT) - $(COPY) $(OBJPASDIR)/objpas.pp . - $(COMPILER) objpas $(REDIR) - $(DEL) objpas.pp +#ports$(PPUEXT) : ports.pas objpas$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT) -sysutils$(PPUEXT) : $(OBJPASDIR)/sysutils.pp objpas$(PPUEXT) system$(PPUEXT) - $(COPY) $(OBJPASDIR)/sysutils.pp . - $(COMPILER) sysutils $(REDIR) -#$(DEL) sysutils.pp +#doscalls$(PPUEXT) : doscalls.pas strings$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT) + +# +# TP7 Compatible RTL Units +# + +dos$(PPUEXT) : dos.pp $(INC)/filerec.inc $(INC)/textrec.inc strings$(PPUEXT) \ + $(SYSTEMUNIT)$(PPUEXT) + +#crt$(PPUEXT) : crt.pas $(INC)/textrec.inc $(SYSTEMUNIT)$(PPUEXT) + +objects$(PPUEXT) : $(INC)/objects.pp dos$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT) + +#printer$(PPUEXT) : printer.pas $(INC)/textrec.inc $(SYSTEMUNIT)$(PPUEXT) + +#graph$(PPUEXT) : graph.pp + +# +# Delphi Compatible Units +# + +sysutils$(PPUEXT) : sysutils.pp $(wildcard $(OBJPASDIR)/sysutils/*.inc) \ + objpas$(PPUEXT) dos$(PPUEXT) sysconst$(PPUEXT) + $(COMPILER) -Fi$(OBJPASDIR)/sysutils sysutils.pp + +classes$(PPUEXT) : classes.pp $(wildcard $(OBJPASDIR)/classes/*.inc) \ + sysutils$(PPUEXT) typinfo$(PPUEXT) rtlconsts$(PPUEXT) types$(PPUEXT) + $(COMPILER) -Fi$(OBJPASDIR)/classes classes.pp + +typinfo$(PPUEXT): $(OBJPASDIR)/typinfo.pp objpas$(PPUEXT) + $(COMPILER) -Sg $(OBJPASDIR)/typinfo.pp $(REDIR) + +math$(PPUEXT): $(OBJPASDIR)/math.pp objpas$(PPUEXT) sysutils$(PPUEXT) + $(COMPILER) $(OBJPASDIR)/math.pp $(REDIR) + +varutils$(PPUEXT) : $(OBJPASDIR)/cvarutil.inc $(OBJPASDIR)/varutils.inc \ + $(OBJPASDIR)/varutilh.inc varutils.pp + $(COMPILER) -I$(OBJPASDIR) varutils.pp $(REDIR) + +types$(PPUEXT) : $(OBJPASDIR/types.pp objpas$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT) + $(COMPILER) $(OBJPASDIR)/types.pp + +rtlconsts$(PPUEXT) : $(OBJPASDIR)/rtlconsts.pp + $(COMPILER) $(OBJPASDIR)/rtlconsts.pp + +sysconst$(PPUEXT) : $(OBJPASDIR)/sysconst.pp objpas$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT) + $(COMPILER) $(OBJPASDIR)/sysconst.pp + +dateutil$(PPUEXT) : $(OBJPASDIR)/dateutil.pp + $(COMPILER) -I$(OBJPASDIR) $(OBJPASDIR)/dateutil.pp # # Mac Pascal Model @@ -121,34 +158,60 @@ macpas$(PPUEXT) : $(INC)/macpas.pp system$(PPUEXT) $(COMPILER) $(INC)/macpas.pp $(REDIR) # -# System Dependent Units +# Other system-independent RTL Units # -# -# TP7 Compatible RTL Units -# +ucomplex$(PPUEXT): $(INC)/ucomplex.pp math$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT) -dos$(PPUEXT) : $(DOSDEPS) system$(PPUEXT) - $(COMPILER) dos $(REDIR) +getopts$(PPUEXT) : $(INC)/getopts.pp $(SYSTEMUNIT)$(PPUEXT) -crt$(PPUEXT) : crt.pp $(INC)/textrec.inc system$(PPUEXT) - $(COMPILER) crt $(REDIR) +heaptrc$(PPUEXT) : $(INC)/heaptrc.pp $(SYSTEMUNIT)$(PPUEXT) + $(COMPILER) -Sg $(INC)/heaptrc.pp $(REDIR) -printer$(PPUEXT) : printer.pp system$(PPUEXT) - $(COMPILER) printer $(REDIR) +#lineinfo$(PPUEXT) : $(INC)/lineinfo.pp $(SYSTEMUNIT)$(PPUEXT) -objects$(PPUEXT) : $(INC)/objects.pp system$(PPUEXT) - $(COMPILER) $(INC)/objects.pp $(REDIR) +charset$(PPUEXT) : $(INC)/charset.pp $(SYSTEMUNIT)$(PPUEXT) + +fpmkunit$(PPUEXT) : $(COMMON)/fpmkunit.pp classes$(PPUEXT) # -# Other RTL Units +# Other system-dependent RTL Units # -getopts$(PPUEXT) : $(INC)/getopts.pp strings$(PPUEXT) system$(PPUEXT) - $(COMPILER) $(INC)/getopts.pp $(REDIR) +#exec$(PPUEXT) : exec.pp execf.inc execd.inc -heaptrc$(PPUEXT) : $(INC)/heaptrc.pp system$(PPUEXT) - $(COMPILER) $(INC)/heaptrc.pp $(REDIR) +#timer$(PPUEXT) : timer.pp timerd.inc timerf.inc -ctypes$(PPUEXT) : $(INC)/ctypes.pp system$(PPUEXT) - $(COMPILER) $(INC)/ctypes.pp $(REDIR) +#utility$(PPUEXT) : utility.pp exec$(PPUEXT) utilf.inc utild1.inc utild2.inc + +#doslib$(PPUEXT) : doslib.pp exec$(PPUEXT) timer$(PPUEXT) doslibd.inc doslibf.inc + +#hardware$(PPUEXT): hardware.pas exec$(PPUEXT) + +#inputevent$(PPUEXT): inputevent.pas exec$(PPUEXT) timer$(PPUEXT) utility$(PPUEXT) + +#graphics$(PPUEXT): graphics.pas exec$(PPUEXT) utility$(PPUEXT) hardware$(PPUEXT) + +#layers$(PPUEXT) : layers.pas exec$(PPUEXT) graphics$(PPUEXT) utility$(PPUEXT) + +#intuition$(PPUEXT): intuition.pas exec$(PPUEXT) graphics$(PPUEXT) utility$(PPUEXT) \ +# inputevent$(PPUEXT) timer$(PPUEXT) layers$(PPUEXT) + +#aboxlib$(PPUEXT): aboxlib.pas + +#clipboard$(PPUEXT): clipboard.pas exec$(PPUEXT) + +#datatype$(PPUEXT): datatypes.pas exec$(PPUEXT) doslib$(PPUEXT) intuition$(PPUEXT) \ +# utility$(PPUEXT) graphics$(PPUEXT) + +#asl$(PPUEXT): asl.pas exec$(PPUEXT) graphics$(PPUEXT) utility$(PPUEXT) + +#ahi$(PPUEXT): ahi.pas exec$(PPUEXT) utility$(PPUEXT) + +#mui$(PPUEXT): mui.pas exec$(PPUEXT) utility$(PPUEXT) intuition$(PPUEXT) graphics$(PPUEXT) + +#tinygl$(PPUEXT): tinygl.pp exec$(PPUEXT) + +#get9$(PPUEXT): get9.pas exec$(PPUEXT) + +#muihelper$(PPUEXT): muihelper.pas intuition$(PPUEXT) mui$(PPUEXT) doslib$(PPUEXT) utility$(PPUEXT) diff --git a/rtl/amiga/classes.pp b/rtl/amiga/classes.pp new file mode 100644 index 0000000000..f682dda0b2 --- /dev/null +++ b/rtl/amiga/classes.pp @@ -0,0 +1,47 @@ +{ + This file is part of the Free Component Library (FCL) + Copyright (c) 1999-2002 by the Free Pascal development team + + Classes unit for AmigaOS + + See the file COPYING.FPC, included in this distribution, + for details about the copyright. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + + **********************************************************************} + +{$mode objfpc} + +{ determine the type of the resource/form file } +{$define Win16Res} + +unit Classes; + +interface + +uses + sysutils, + rtlconsts, + types, + typinfo; + +{$i classesh.inc} + + +implementation + + +{ OS - independent class implementations are in /inc directory. } +{$i classes.inc} + + +initialization + CommonInit; + +finalization + CommonCleanup; + +end. diff --git a/rtl/amiga/tthread.inc b/rtl/amiga/tthread.inc new file mode 100644 index 0000000000..7adf61a51c --- /dev/null +++ b/rtl/amiga/tthread.inc @@ -0,0 +1,158 @@ +{ + This file is part of the Free Component Library (FCL) + Copyright (c) 1999-2002 by the Free Pascal development team + + See the file COPYING.FPC, included in this distribution, + for details about the copyright. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + + **********************************************************************} + +{****************************************************************************} +{* TThread *} +{****************************************************************************} + +{$WARNING This file is only a stub, and will not work!} + +const + ThreadCount: longint = 0; + +(* Implementation of exported functions *) + +procedure AddThread (T: TThread); +begin + Inc (ThreadCount); +end; + + +procedure RemoveThread (T: TThread); +begin + Dec (ThreadCount); +end; + + +procedure TThread.CallOnTerminate; +begin + FOnTerminate (Self); +end; + + +function TThread.GetPriority: TThreadPriority; +var +{ PTIB: PThreadInfoBlock; + PPIB: PProcessInfoBlock;} + I: TThreadPriority; +begin +{ + DosGetInfoBlocks (@PTIB, @PPIB); + with PTIB^.TIB2^ do + if Priority >= $300 then GetPriority := tpTimeCritical else + if Priority < $200 then GetPriority := tpIdle else + begin + I := Succ (Low (TThreadPriority)); + while (I < High (TThreadPriority)) and + (Priority - Priorities [I] <= Priorities [Succ (I)] - Priority) do Inc (I); + GetPriority := I; + end; +} +end; + + +procedure TThread.SetPriority(Value: TThreadPriority); +{var + PTIB: PThreadInfoBlock; + PPIB: PProcessInfoBlock;} +begin +{ DosGetInfoBlocks (@PTIB, @PPIB);} +(* + PTIB^.TIB2^.Priority := Priorities [Value]; +*) +{ + DosSetPriority (2, High (Priorities [Value]), + Low (Priorities [Value]) - PTIB^.TIB2^.Priority, FHandle);} +end; + + +procedure TThread.SetSuspended(Value: Boolean); +begin + if Value <> FSuspended then + begin + if Value then Suspend else Resume; + end; +end; + + +procedure TThread.DoTerminate; +begin + if Assigned (FOnTerminate) then Synchronize (@CallOnTerminate); +end; + + +constructor TThread.Create(CreateSuspended: Boolean; + const StackSize: SizeUInt = DefaultStackSize); +var + Flags: cardinal; +begin + inherited Create; + AddThread (Self); +{ + FSuspended := CreateSuspended; + Flags := dtStack_Commited; + if FSuspended then Flags := Flags or dtSuspended; + if DosCreateThread (cardinal (FThreadID), @ThreadProc, pointer (Self), + Flags, 16384) <> 0 then + begin + FFinished := true; + Destroy; + end else FHandle := FThreadID; + IsMultiThread := true; + FFatalException := nil; +} +end; + + +destructor TThread.Destroy; +begin + if not FFinished and not Suspended then + begin + Terminate; + WaitFor; + end; +{ + if FHandle <> -1 then DosKillThread (cardinal (FHandle)); + FFatalException.Free; + FFatalException := nil; + inherited Destroy; + RemoveThread (Self); +} +end; + +procedure TThread.Resume; +begin +{ FSuspended := not (DosResumeThread (cardinal (FHandle)) = 0);} +end; + + +procedure TThread.Suspend; +begin +{ FSuspended := DosSuspendThread (cardinal (FHandle)) = 0;} +end; + + +procedure TThread.Terminate; +begin + FTerminated := true; +end; + + +function TThread.WaitFor: Integer; +var + FH: cardinal; +begin +{ WaitFor := DosWaitThread (FH, dtWait);} +end; + + diff --git a/rtl/amiga/varutils.pp b/rtl/amiga/varutils.pp new file mode 100644 index 0000000000..ab445f891f --- /dev/null +++ b/rtl/amiga/varutils.pp @@ -0,0 +1,38 @@ +{ + This file is part of the Free Pascal run time library. + Copyright (c) 1999-2000 by the Free Pascal development team + + Interface and OS-dependent part of variant support + + See the file COPYING.FPC, included in this distribution, + for details about the copyright. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + + **********************************************************************} + +{$MODE ObjFPC} + +Unit varutils; + +Interface + +Uses sysutils; + +// Read definitions. + +{$i varutilh.inc} + +Implementation + +// Code common to all platforms. + +{$i cvarutil.inc} + +// Code common to non-win32 platforms. + +{$i varutils.inc} + +end.