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

* newcnv -> not oldcnv

Browse Source
This commit is contained in:
peter 1998-11-29 12:40:19 +00:00
parent 526c0e0d49
commit d02a24bc75
4 changed files with 26 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/cg386cnv.pas
View File

@ -49,7 +49,7 @@ implementation
type
tsecondconvproc = procedure(pto,pfrom : ptree;convtyp : tconverttype);
{$ifdef NEWCNV}
{$ifndef OLDCNV}
procedure second_int_to_int(pto,pfrom : ptree;convtyp : tconverttype);
var
@ -478,7 +478,7 @@ implementation
maybe_rangechecking(pto,pfrom^.resulttype,pto^.resulttype);
end;
{$endif NEWCNV}
{$endif}
procedure second_string_to_string(pto,pfrom : ptree;convtyp : tconverttype);
var
@ -1267,7 +1267,7 @@ implementation
procedure secondtypeconv(var p : ptree);
const
secondconvert : array[tconverttype] of tsecondconvproc = (
{$ifdef NEWCNV}
{$ifndef OLDCNV}
second_nothing, {equal}
second_nothing, {not_possible}
second_string_to_string,
@ -1449,7 +1449,10 @@ implementation
end.
{
$Log$
Revision 1.37 1998-11-26 21:33:06 peter
Revision 1.38 1998-11-29 12:40:19 peter
* newcnv -> not oldcnv
Revision 1.37 1998/11/26 21:33:06 peter
* rangecheck updates
Revision 1.36 1998/11/26 14:39:11 peter

11
compiler/htypechk.pas
View File

@ -64,7 +64,7 @@ implementation
function isconvertable(def_from,def_to : pdef;
var doconv : tconverttype;fromtreetype : ttreetyp;
explicit : boolean) : boolean;
{$ifdef NEWCNV}
{$ifndef OLDCNV}
{ Tbasetype: uauto,uvoid,uchar,
u8bit,u16bit,u32bit,
s8bit,s16bit,s32,
@ -167,7 +167,7 @@ implementation
case def_from^.deftype of
orddef :
begin
{$ifdef NEWCNV}
{$ifndef OLDCNV}
doconv:=basedefconverts[basedeftbl[porddef(def_from)^.typ],basedeftbl[porddef(def_to)^.typ]];
b:=true;
if (doconv=tc_not_possible) or
@ -185,7 +185,7 @@ implementation
b:=false;
{$endif}
end;
{$ifdef NEWCNV}
{$ifndef OLDCNV}
enumdef :
begin
doconv:=tc_int_2_int;
@ -710,7 +710,10 @@ implementation
end.
{
$Log$
Revision 1.9 1998-11-26 13:10:42 peter
Revision 1.10 1998-11-29 12:40:23 peter
* newcnv -> not oldcnv
Revision 1.9 1998/11/26 13:10:42 peter
* new int - int conversion -dNEWCNV
* some function renamings

11
compiler/tccnv.pas
View File

@ -234,7 +234,7 @@ implementation
type
tfirstconvproc = procedure(var p : ptree);
{$ifdef NEWCNV}
{$ifndef OLDCNV}
procedure first_int_to_int(var p : ptree);
begin
@ -449,7 +449,7 @@ implementation
end;
{$ifndef NEWCNV}
{$ifdef OLDCNV}
procedure first_locmem(var p : ptree);
begin
p^.location.loc:=LOC_MEM;
@ -546,7 +546,7 @@ implementation
proctype : tdeftype;
const
firstconvert : array[tconverttype] of tfirstconvproc = (
{$ifdef NEWCNV}
{$ifndef OLDCNV}
first_nothing, {equal}
first_nothing, {not_possible}
first_string_to_string,
@ -955,7 +955,10 @@ implementation
end.
{
$Log$
Revision 1.9 1998-11-26 13:10:43 peter
Revision 1.10 1998-11-29 12:40:24 peter
* newcnv -> not oldcnv
Revision 1.9 1998/11/26 13:10:43 peter
* new int - int conversion -dNEWCNV
* some function renamings

7
compiler/tree.pas
View File

@ -129,7 +129,7 @@ unit tree;
loadvmtn
);
{$ifdef NEWCNV}
{$ifndef OLDCNV}
tconverttype = (
tc_equal,
tc_not_possible,
@ -1652,7 +1652,10 @@ unit tree;
end.
{
$Log$
Revision 1.54 1998-11-26 13:10:44 peter
Revision 1.55 1998-11-29 12:40:20 peter
* newcnv -> not oldcnv
Revision 1.54 1998/11/26 13:10:44 peter
* new int - int conversion -dNEWCNV
* some function renamings