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

* emu387 doesn't uses dos anymore (getenv copied local)

Browse Source 
* makefile compilation order changed
This commit is contained in:
peter 1998-03-26 12:23:17 +00:00
parent 15d85c7e3b
commit aaa3da644b
2 changed files with 57 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
rtl/dos/go32v2/emu387.pp
View File

@ -29,7 +29,7 @@ unit emu387;
implementation
uses dos, dxeload, dpmiexcp;
uses dxeload, dpmiexcp, strings;
type
emu_entry_type = function(exc : pexception_state) : longint;
@ -116,13 +116,38 @@ unit emu387;
{$L fpu.o }
function getenv(const envvar:string):string;
{ Copied here, preserves uses Dos (PFV) }
var
hp : ppchar;
hs,
_envvar : string;
eqpos,i : longint;
begin
_envvar:=upcase(envvar);
hp:=environ;
getenv:='';
while assigned(hp^) do
begin
hs:=strpas(hp^);
eqpos:=pos('=',hs);
if copy(hs,1,eqpos-1)=_envvar then
begin
getenv:=copy(hs,eqpos+1,255);
exit;
end;
hp:=hp+4;
end;
end;
procedure npxsetup(prog_name : string);
var
cp : string;
i : byte;
have_80387 : boolean;
emu_p : pointer;
emu_p : pointer;
const
veryfirst : boolean = True;
@ -192,8 +217,12 @@ end.
{
$Log$
Revision 1.1 1998-03-25 11:18:42 root
Initial revision
Revision 1.2 1998-03-26 12:23:17 peter
* emu387 doesn't uses dos anymore (getenv copied local)
* makefile compilation order changed
Revision 1.1.1.1 1998/03/25 11:18:42 root
* Restored version
Revision 1.6 1998/03/18 15:34:46 pierre
+ fpu state is restaured in excep_exit
@ -222,8 +251,12 @@ end.
{
$Log$
Revision 1.1 1998-03-25 11:18:42 root
Initial revision
Revision 1.2 1998-03-26 12:23:17 peter
* emu387 doesn't uses dos anymore (getenv copied local)
* makefile compilation order changed
Revision 1.1.1.1 1998/03/25 11:18:42 root
* Restored version
Revision 1.6 1998/03/18 15:34:46 pierre
+ fpu state is restaured in excep_exit
@ -240,7 +273,7 @@ end.
+ Added log at the end
Working file: rtl/dos/go32v2/emu387.pp
description:
----------------------------

39
rtl/dos/go32v2/makefile
View File

@ -114,7 +114,7 @@ endif
# to be sure to be able to compile with an older
# compiler version
OPT:=$(OPT) -dFPC
OPT:=$(OPT) -dFPC
# diff program
ifndef REFPATH
@ -131,7 +131,7 @@ endif
SYSTEMDEPS=$(INC)/system.inc $(INC)/systemh.inc $(INC)/mathh.inc $(INC)/real2str.inc \
$(INC)/heaph.inc $(INC)/innr.inc $(INC)/sstrings.inc $(INC)/file.inc \
$(INC)/text.inc $(INC)/typefile.inc $(INC)/version.inc $(INC)/filerec.inc \
$(INC)/textrec.inc \
$(INC)/textrec.inc $(INC)/objpas.inc $(INC)/objpash.inc \
$(PROCINC)/math.inc $(PROCINC)/set.inc $(PROCINC)/heap.inc $(PROCINC)/$(CPU).inc
PPUEXT=.ppu
@ -144,17 +144,18 @@ OEXT=.o
.PHONY: all clean install diffs diffclean
all : system$(PPUEXT) prt0$(OEXT) crt$(PPUEXT) go32$(PPUEXT) strings$(PPUEXT) \
dos$(PPUEXT) printer$(PPUEXT) objects$(PPUEXT) \
mouse$(PPUEXT) fmouse$(PPUEXT) getopts$(PPUEXT) graph$(PPUEXT) \
dpmiexcp$(PPUEXT) exceptn$(OEXT) profile$(PPUEXT) \
dxeload$(PPUEXT) fpu$(OEXT) emu387$(PPUEXT) mmx$(PPUEXT) cpu$(PPUEXT) \
objpas$(PPUEXT)
all : system$(PPUEXT) prt0$(OEXT) go32$(PPUEXT) strings$(PPUEXT) \
objpas$(PPUEXT) dpmiexcp$(PPUEXT) exceptn$(OEXT) profile$(PPUEXT) \
dxeload$(PPUEXT) fpu$(OEXT) emu387$(PPUEXT) \
dos$(PPUEXT) crt$(PPUEXT) printer$(PPUEXT) objects$(PPUEXT) \
mmx$(PPUEXT) cpu$(PPUEXT) \
mouse$(PPUEXT) getopts$(PPUEXT) graph$(PPUEXT) \
dxeload$(PPUEXT) : system$(PPUEXT)
$(PP) $(OPT) dxeload $(REDIR)
emu387$(PPUEXT) : system$(PPUEXT) fpu$(OEXT) dxeload$(PPUEXT) dpmiexcp$(PPUEXT)
emu387$(PPUEXT) : system$(PPUEXT) fpu$(OEXT) strings$(PPUEXT) dxeload$(PPUEXT) dpmiexcp$(PPUEXT)
$(PP) $(OPT) emu387 $(REDIR)
fpu$(OEXT) : fpu.as
@ -206,8 +207,8 @@ system$(PPUEXT) : system.pp $(SYSTEMDEPS)
$(COPY) $(INC)/*.inc $(PROCINC)/*.inc .
$(PP) $(OPT) -dI386 -Us -Sg system $(REDIR)
$(DEL) systemh.inc system.inc real2str.inc version.inc $(CPU).inc sstrings.inc
$(DEL) mathh.inc math.inc set.inc innr.inc heap.inc heaph.inc
$(DEL) filerec.inc textrec.inc file.inc typefile.inc text.inc
$(DEL) mathh.inc math.inc set.inc innr.inc heap.inc heaph.inc objpash.inc
$(DEL) filerec.inc textrec.inc file.inc typefile.inc text.inc objpas.inc
prt0$(OEXT) : v2prt0.as
as -o prt0$(OEXT) v2prt0.as
@ -234,6 +235,11 @@ cpu$(PPUEXT) : ../../i386/cpu.pp system$(PPUEXT)
$(PP) $(OPT) cpu $(REDIR)
$(DEL) cpu.pp
objpas$(PPUEXT) : ../../objpas/objpas.pp system$(PPUEXT)
$(COPY) ../../objpas/objpas.pp .
$(PP) $(OPT) objpas $(REDIR)
$(DEL) objpas.pp
objects$(PPUEXT) : ../objects.pp system$(PPUEXT)
$(COPY) ../objects.pp .
$(PP) $(OPT) objects $(REDIR)
@ -244,17 +250,6 @@ mouse$(PPUEXT) : ../mouse.pp system$(PPUEXT)
$(PP) $(OPT) mouse $(REDIR)
$(DEL) mouse.pp
objpas$(PPUEXT) : ../../objpas/objpas.pp system$(PPUEXT)
$(COPY) ../../objpas/objpas.pp .
$(PP) $(OPT) objpas $(REDIR)
$(DEL) objpas.pp
fmouse$(PPUEXT) : ../fmouse.pp system$(PPUEXT)
$(COPY) ../fmouse.pp .
$(PP) $(OPT) fmouse $(REDIR)
$(DEL) fmouse.pp
libs: libfpc$(LIBEXT)
libfpc.a: all