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

* more conversion work done

Browse Source
This commit is contained in:
florian 2000-09-24 20:17:44 +00:00
parent 668b638ac5
commit b880cd3002
3 changed files with 1353 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/n386set.pas
View File

@ -21,6 +21,9 @@
****************************************************************************
}
unit n386set;
{$i defines.inc}
interface
uses
@ -1063,7 +1066,10 @@ begin
end.
{
$Log$
Revision 1.1 2000-09-24 19:38:39 florian
Revision 1.2 2000-09-24 20:17:44 florian
* more conversion work done
Revision 1.1 2000/09/24 19:38:39 florian
* initial implementation
}

1347
compiler/ncal.pas
View File

File diff suppressed because it is too large Load Diff

16
compiler/nset.pas
View File

@ -21,6 +21,9 @@
****************************************************************************
}
unit nset;
{$i defines.inc}
interface
uses
@ -228,7 +231,7 @@ implementation
pst:=createsetconst(psetdef(right.typenodetype));
t:=gensetconstnode(pst,psetdef(right.typenodetype));
dispose(pst);
putnode(right);
right.free;
right:=t;
end;
@ -241,9 +244,8 @@ implementation
if not assigned(psetdef(right.resulttype)^.elementtype.def) then
begin
t:=genordinalconstnode(0,booldef);
disposetree(p);
firstpass(t);
p:=t;
pass_1:=t;
exit;
end;
@ -257,9 +259,8 @@ implementation
if (left.treetype=ordconstn) and (right.treetype=setconstn) then
begin
t:=genordinalconstnode(byte(left.value in byteset(right.value_set^)),booldef);
disposetree(p);
firstpass(t);
p:=t;
pass_1:=t;
exit;
end;
@ -514,7 +515,10 @@ begin
end.
{
$Log$
Revision 1.1 2000-09-24 19:38:39 florian
Revision 1.2 2000-09-24 20:17:44 florian
* more conversion work done
Revision 1.1 2000/09/24 19:38:39 florian
* initial implementation
}