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

* dxeload range check problem solved

Browse Source
This commit is contained in:
pierre 1998-10-21 16:51:07 +00:00
parent 49c698a41b
commit 84b9f22e04
2 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/dos/go32v2/Makefile
View File

@ -185,7 +185,7 @@ dpmiexcp$(PPUEXT) : dpmiexcp.pp exceptn$(OEXT) $(SYSTEMPPU)
profile$(PPUEXT) : profile.pp dpmiexcp$(PPUEXT) go32$(PPUEXT) $(SYSTEMPPU)
$(COMPILER) profile.pp $(REDIR)
dxeload$(PPUEXT) : $(SYSTEMPPU)
dxeload$(PPUEXT) : dxeload.pp $(SYSTEMPPU)
$(COMPILER) dxeload.pp $(REDIR)
emu387$(PPUEXT) : emu387.pp fpu$(OEXT) strings$(PPUEXT) dxeload$(PPUEXT) \
@ -286,7 +286,10 @@ include $(CFG)/makefile.def
#
# $Log$
# Revision 1.9 1998-10-14 07:56:02 pierre
# Revision 1.10 1998-10-21 16:51:07 pierre
# * dxeload range check problem solved
#
# Revision 1.9 1998/10/14 07:56:02 pierre
# * -Sv now necessary for dpmiexcp unit
#
# Revision 1.8 1998/10/12 08:36:31 pierre

10
rtl/dos/go32v2/dxeload.pp
View File

@ -15,6 +15,8 @@
**********************************************************************
}
Unit dxeload;
interface
@ -38,7 +40,8 @@ function dxe_load(filename : string) : pointer;
translated to Free Pascal by Pierre Muller
}
type
pointer_array = array[0..0] of pointer;
{ to avoid range check problems }
pointer_array = array[0..maxlongint] of pointer;
tpa = ^pointer_array;
plongint = ^longint;
ppointer = ^pointer;
@ -87,7 +90,10 @@ end;
end.
{
$Log$
Revision 1.2 1998-05-31 14:18:24 peter
Revision 1.3 1998-10-21 16:51:08 pierre
* dxeload range check problem solved
Revision 1.2 1998/05/31 14:18:24 peter
* force att or direct assembling
* cleanup of some files