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

* booltype => pasbool8type

Browse Source 
git-svn-id: trunk@19129 -
This commit is contained in:
florian 2011-09-17 15:33:49 +00:00
parent 631c545423
commit 3e7ee21230
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/ncnv.pas
View File

@ -929,7 +929,7 @@ implementation
ccallparanode.create(
cordconstnode.create(
ord(tarraydef(left.resultdef).lowrange=0),
booltype,
pasbool8type,
false
),
ccallparanode.create(
@ -1154,7 +1154,7 @@ implementation
begin
result:=ccallnode.createinternres(
'fpc_ansistr_to_ansistr',
ccallparanode.create(
ccallparanode.create(
cordconstnode.create(
tstringdef(resultdef).encoding,
u16inttype,
@ -1166,7 +1166,7 @@ implementation
);
left:=nil;
end;
end;
end;
function ttypeconvnode.typecheck_char_to_chararray : tnode;
begin
@ -2989,7 +2989,7 @@ implementation
((tstringdef(left.resultdef).stringtype in [st_widestring,st_unicodestring,st_shortstring]) or
{ ansistring to ansistring and no RawByteString envolved? }
(//(tstringdef(resultdef).encoding<>65535) and
(tstringdef(left.resultdef).stringtype=st_ansistring)
(tstringdef(left.resultdef).stringtype=st_ansistring)
//(tstringdef(left.resultdef).encoding<>65535)
)
) then