paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 20:39:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed wrong typed constant procvars in preparation of my fix which will

Browse Source 
disallow them in FPC mode (plus some other unmerged changes since
    LAST_MERGE)
This commit is contained in:
Jonas Maebe 2001-06-06 17:20:21 +00:00
parent 9cafd81707
commit cbc6756190
7 changed files with 91 additions and 42 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
compiler/comphook.pas
View File

@ -122,18 +122,18 @@ type
tgetnamedfiletimefunc = function(const filename: string): longint;
const
do_stop : tstopprocedure = def_stop;
do_halt : thaltprocedure = def_halt;
do_status : tstatusfunction = def_status;
do_comment : tcommentfunction = def_comment;
do_internalerror : tinternalerrorfunction = def_internalerror;
do_stop : tstopprocedure = {$ifndef tp}@{$endif}def_stop;
do_halt : thaltprocedure = {$ifndef tp}@{$endif}def_halt;
do_status : tstatusfunction = {$ifndef tp}@{$endif}def_status;
do_comment : tcommentfunction = {$ifndef tp}@{$endif}def_comment;
do_internalerror : tinternalerrorfunction = {$ifndef tp}@{$endif}def_internalerror;
do_initsymbolinfo : tinitsymbolinfoproc = def_initsymbolinfo;
do_donesymbolinfo : tdonesymbolinfoproc = def_donesymbolinfo;
do_extractsymbolinfo : textractsymbolinfoproc = def_extractsymbolinfo;
do_initsymbolinfo : tinitsymbolinfoproc = {$ifndef tp}@{$endif}def_initsymbolinfo;
do_donesymbolinfo : tdonesymbolinfoproc = {$ifndef tp}@{$endif}def_donesymbolinfo;
do_extractsymbolinfo : textractsymbolinfoproc = {$ifndef tp}@{$endif}def_extractsymbolinfo;
do_openinputfile : topeninputfilefunc = def_openinputfile;
do_getnamedfiletime : tgetnamedfiletimefunc = def_getnamedfiletime;
do_openinputfile : topeninputfilefunc = {$ifndef tp}@{$endif}def_openinputfile;
do_getnamedfiletime : tgetnamedfiletimefunc = {$ifndef tp}@{$endif}def_getnamedfiletime;
implementation
@ -351,7 +351,12 @@ end;
end.
{
$Log$
Revision 1.13 2001-02-05 20:47:00 peter
Revision 1.14 2001-06-06 17:20:21 jonas
* fixed wrong typed constant procvars in preparation of my fix which will
disallow them in FPC mode (plus some other unmerged changes since
LAST_MERGE)
Revision 1.13 2001/02/05 20:47:00 peter
* support linux unit for ver1_0 compilers
Revision 1.12 2001/01/21 20:32:45 marco

21
rtl/go32v2/go32.pp
View File

@ -207,11 +207,11 @@ var
{ this procedures are assigned to the procedure which are needed }
{ for the current mode to access DOS memory }
{ It's strongly recommended to use this procedures! }
dosmemput : procedure(seg : word;ofs : word;var data;count : longint)=dpmi_dosmemput;
dosmemget : procedure(seg : word;ofs : word;var data;count : longint)=dpmi_dosmemget;
dosmemmove : procedure(sseg,sofs,dseg,dofs : word;count : longint)=dpmi_dosmemmove;
dosmemfillchar : procedure(seg,ofs : word;count : longint;c : char)=dpmi_dosmemfillchar;
dosmemfillword : procedure(seg,ofs : word;count : longint;w : word)=dpmi_dosmemfillword;
dosmemput : procedure(seg : word;ofs : word;var data;count : longint)=@dpmi_dosmemput;
dosmemget : procedure(seg : word;ofs : word;var data;count : longint)=@dpmi_dosmemget;
dosmemmove : procedure(sseg,sofs,dseg,dofs : word;count : longint)=@dpmi_dosmemmove;
dosmemfillchar : procedure(seg,ofs : word;count : longint;c : char)=@dpmi_dosmemfillchar;
dosmemfillword : procedure(seg,ofs : word;count : longint;w : word)=@dpmi_dosmemfillword;
implementation
@ -307,12 +307,16 @@ var
regs.realsp:=0;
regs.realss:=0;
asm
{ save all used registers to avoid crash under NTVDM }
{ when spawning a 32-bit DPMI application }
pushw %fs
movw intnr,%bx
xorl %ecx,%ecx
movl regs,%edi
{ es is always equal ds }
movl $0x300,%eax
int $0x31
popw %fs
setnc %al
movb %al,__RESULT
end;
@ -1171,7 +1175,12 @@ end.
{
$Log$
Revision 1.3 2000-12-30 22:42:30 peter
Revision 1.4 2001-06-06 17:20:21 jonas
* fixed wrong typed constant procvars in preparation of my fix which will
disallow them in FPC mode (plus some other unmerged changes since
LAST_MERGE)
Revision 1.3 2000/12/30 22:42:30 peter
* fixed map_device_in_memory (from bug report)
Revision 1.2 2000/07/13 11:33:40 michael

11
rtl/go32v2/graph.pp
View File

@ -2117,6 +2117,10 @@ const CrtAddress: word = 0;
{ check if VESA adapter supPorted... }
{$ifndef noSupPortVESA}
hasVesa := getVesaInfo(VESAInfo);
{ VBE Version v1.00 is unstable, therefore }
{ only VBE v1.1 and later are supported. }
if (hasVESA=TRUE) and (VESAInfo.Version <= $0100) then
hasVESA := False;
{$else noSupPortVESA}
hasVESA := false;
{$endif noSupPortVESA}
@ -2653,7 +2657,12 @@ begin
end.
{
$Log$
Revision 1.6 2001-04-14 14:05:42 peter
Revision 1.7 2001-06-06 17:20:22 jonas
* fixed wrong typed constant procvars in preparation of my fix which will
disallow them in FPC mode (plus some other unmerged changes since
LAST_MERGE)
Revision 1.6 2001/04/14 14:05:42 peter
* fixed for stricter checking
Revision 1.5 2000/12/16 15:57:17 jonas

25
rtl/inc/heap.inc
View File

@ -62,15 +62,15 @@ const
{ Memory manager }
const
MemoryManager: TMemoryManager = (
GetMem: SysGetMem;
FreeMem: SysFreeMem;
FreeMemSize: SysFreeMemSize;
AllocMem: SysAllocMem;
ReAllocMem: SysReAllocMem;
MemSize: SysMemSize;
MemAvail: SysMemAvail;
MaxAvail: SysMaxAvail;
HeapSize: SysHeapSize;
GetMem: @SysGetMem;
FreeMem: @SysFreeMem;
FreeMemSize: @SysFreeMemSize;
AllocMem: @SysAllocMem;
ReAllocMem: @SysReAllocMem;
MemSize: @SysMemSize;
MemAvail: @SysMemAvail;
MaxAvail: @SysMaxAvail;
HeapSize: @SysHeapSize;
);
type
@ -1125,7 +1125,12 @@ end;
{
$Log$
Revision 1.5 2001-01-24 21:47:18 florian
Revision 1.6 2001-06-06 17:20:22 jonas
* fixed wrong typed constant procvars in preparation of my fix which will
disallow them in FPC mode (plus some other unmerged changes since
LAST_MERGE)
Revision 1.5 2001/01/24 21:47:18 florian
+ more MT stuff added
Revision 1.4 2000/08/08 19:22:46 peter

27
rtl/inc/heaptrc.pp
View File

@ -719,7 +719,7 @@ var
data_end : cardinal;external name '__data_end__';
{$endif}
procedure CheckPointer(p : pointer);[saveregisters, public, alias : 'FPC_CHECKPOINTER'];
procedure CheckPointer(p : pointer);[saveregisters,public, alias : 'FPC_CHECKPOINTER'];
var
i : longint;
pp : pheap_mem_info;
@ -982,15 +982,15 @@ end;
const
TraceManager:TMemoryManager=(
Getmem : TraceGetMem;
Freemem : TraceFreeMem;
FreememSize : TraceFreeMemSize;
AllocMem : TraceAllocMem;
ReAllocMem : TraceReAllocMem;
MemSize : TraceMemSize;
MemAvail : TraceMemAvail;
MaxAvail : TraceMaxAvail;
HeapSize : TraceHeapsize;
Getmem : @TraceGetMem;
Freemem : @TraceFreeMem;
FreememSize : @TraceFreeMemSize;
AllocMem : @TraceAllocMem;
ReAllocMem : @TraceReAllocMem;
MemSize : @TraceMemSize;
MemAvail : @TraceMemAvail;
MaxAvail : @TraceMaxAvail;
HeapSize : @TraceHeapsize;
);
@ -1146,7 +1146,12 @@ finalization
end.
{
$Log$
Revision 1.13 2001-04-23 18:25:44 peter
Revision 1.14 2001-06-06 17:20:22 jonas
* fixed wrong typed constant procvars in preparation of my fix which will
disallow them in FPC mode (plus some other unmerged changes since
LAST_MERGE)
Revision 1.13 2001/04/23 18:25:44 peter
* m68k updates
Revision 1.12 2001/04/21 12:18:09 peter

9
rtl/inc/videoh.inc
View File

@ -148,11 +148,16 @@ const
errOk = 0;
ErrorCode: Longint = ErrOK;
ErrorInfo: Pointer = nil;
ErrorHandler: TErrorHandler = DefaultErrorHandler;
ErrorHandler: TErrorHandler = @DefaultErrorHandler;
{
$Log$
Revision 1.1 2001-01-13 11:13:12 peter
Revision 1.2 2001-06-06 17:20:22 jonas
* fixed wrong typed constant procvars in preparation of my fix which will
disallow them in FPC mode (plus some other unmerged changes since
LAST_MERGE)
Revision 1.1 2001/01/13 11:13:12 peter
* API 2 RTL
}

13
rtl/win32/graph.pp
View File

@ -2222,7 +2222,12 @@ begin
end.
{
$Log$
Revision 1.6 2001-04-16 10:57:05 peter
Revision 1.7 2001-06-06 17:20:22 jonas
* fixed wrong typed constant procvars in preparation of my fix which will
disallow them in FPC mode (plus some other unmerged changes since
LAST_MERGE)
Revision 1.6 2001/04/16 10:57:05 peter
* stricter compiler fixes
Revision 1.5 2000/12/19 11:59:12 michael
@ -2240,4 +2245,10 @@ end.
Revision 1.2 2000/07/13 11:33:57 michael
+ removed logs
<<<<<<< graph.pp
}
=======
Revision 1.1 1999/11/03 20:23:02 florian
+ first release of win32 gui support
}
>>>>>>> 1.1.2.1