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

+ use FPC_CHECKPOINTER once again

Browse Source
This commit is contained in:
carl 2002-12-03 22:14:12 +00:00
parent 6e46f3424c
commit fa27bba8c2
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/i386/n386mem.pas
View File

@ -80,10 +80,7 @@ implementation
var var
oldglobalswitches : tglobalswitches; oldglobalswitches : tglobalswitches;
begin begin
oldglobalswitches:=aktglobalswitches;
exclude(aktglobalswitches,cs_checkpointer);
inherited pass_2; inherited pass_2;
aktglobalswitches:=oldglobalswitches;
if tpointerdef(left.resulttype.def).is_far then if tpointerdef(left.resulttype.def).is_far then
location.reference.segment:=R_FS; location.reference.segment:=R_FS;
end; end;
@ -149,7 +146,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.46 2002-11-25 17:43:27 peter Revision 1.47 2002-12-03 22:14:12 carl
+ use FPC_CHECKPOINTER once again
Revision 1.46 2002/11/25 17:43:27 peter
* splitted defbase in defutil,symutil,defcmp * splitted defbase in defutil,symutil,defcmp
* merged isconvertable and is_equal into compare_defs(_ext) * merged isconvertable and is_equal into compare_defs(_ext)
* made operator search faster by walking the list only once * made operator search faster by walking the list only once