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

* two fixes to get ansi strings work

Browse Source
This commit is contained in:
florian 1998-09-28 16:18:16 +00:00
parent 7b7582c54b
commit 70920974de
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/pexpr.pas
View File

@ -47,7 +47,7 @@ unit pexpr;
uses uses
cobjects,globals,scanner,aasm,pass_1,systems, cobjects,globals,scanner,aasm,pass_1,systems,
hcodegen,types,verbose hcodegen,types,verbose,strings
{ parser specific stuff } { parser specific stuff }
,pbase,pdecl ,pbase,pdecl
{ processor specific stuff } { processor specific stuff }
@ -1754,14 +1754,21 @@ unit pexpr;
Message(cg_e_illegal_expression); Message(cg_e_illegal_expression);
end end
else else
{$ifdef UseAnsiString}
get_stringconst:=strpas(p^.value_str);
{$else UseAnsiString}
get_stringconst:=p^.value_str^; get_stringconst:=p^.value_str^;
{$endif UseAnsiString}
disposetree(p); disposetree(p);
end; end;
end. end.
{ {
$Log$ $Log$
Revision 1.56 1998-09-26 17:45:36 peter Revision 1.57 1998-09-28 16:18:16 florian
* two fixes to get ansi strings work
Revision 1.56 1998/09/26 17:45:36 peter
+ idtoken and only one token table + idtoken and only one token table
Revision 1.55 1998/09/24 23:49:10 peter Revision 1.55 1998/09/24 23:49:10 peter