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

* small compiling problems fixed

Browse Source
This commit is contained in:
florian 1998-09-20 18:00:19 +00:00
parent 41efdfd57d
commit 16367b50f0
3 changed files with 17 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/cg386ld.pas
View File

@ -354,9 +354,12 @@ implementation
if is_shortstring(p^.left^.resulttype) and
not (p^.concat_string) then
begin
{$ifdef UseAnsiString}
if is_ansistring(p^.right^.resulttype) then
loadansi2short(p^.right,p^.left)
else
{$endif UseAnsiString}
begin
{ we do not need destination anymore }
del_reference(p^.left^.location.reference);
@ -559,7 +562,10 @@ implementation
end.
{
$Log$
Revision 1.16 1998-09-20 17:46:48 florian
Revision 1.17 1998-09-20 18:00:19 florian
* small compiling problems fixed
Revision 1.16 1998/09/20 17:46:48 florian
* some things regarding ansistrings fixed
Revision 1.15 1998/09/17 09:42:16 peter

7
compiler/daopt386.pas
View File

@ -197,7 +197,7 @@ Implementation
Uses globals, systems, strings, verbose, hcodegen,
{$ifdef i386}
cgi386;
pass_2;
{$endif i386}
Const AsmInstr: Array[tasmop] Of TAsmInstrucProp = (
@ -1614,7 +1614,10 @@ End.
{
$Log$
Revision 1.14 1998-09-20 17:12:36 jonas
Revision 1.15 1998-09-20 18:00:20 florian
* small compiling problems fixed
Revision 1.14 1998/09/20 17:12:36 jonas
* small fix for uncertain optimizations & more cleaning up
Revision 1.12 1998/09/16 18:00:01 jonas

8
compiler/pass_1.pas
View File

@ -500,8 +500,8 @@ unit pass_1;
doconv:=tc_equal;
b:=true;
end
else
}
{ ansi- and wide strings can be assigned to void pointers }
{ no, (FK)
if (def_from^.deftype=stringdef) and
@ -513,7 +513,6 @@ unit pass_1;
doconv:=tc_equal;
b:=true;
end
else
}
{ ansistrings can be assigned to pchar
@ -5515,7 +5514,10 @@ unit pass_1;
end.
{
$Log$
Revision 1.86 1998-09-20 17:46:50 florian
Revision 1.87 1998-09-20 18:00:21 florian
* small compiling problems fixed
Revision 1.86 1998/09/20 17:46:50 florian
* some things regarding ansistrings fixed
Revision 1.85 1998/09/17 09:42:38 peter