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

quote all low ascii chars in stabs

Browse Source
This commit is contained in:
peter 2004-05-22 23:32:52 +00:00
parent 7bfe6e60a7
commit b151676e8a
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/symsym.pas
View File

@ -621,8 +621,8 @@ implementation
end;
end;
{Makes implicit externals (procedures declared in the interface
section which do not have a counterpart in the implementation)
{Makes implicit externals (procedures declared in the interface
section which do not have a counterpart in the implementation)
to be an imported procedure. For mode macpas.}
procedure import_implict_external(pd:tabstractprocdef);
@ -1917,10 +1917,7 @@ implementation
{even GDB v4.16 only now 'i' 'r' and 'e' !!!}
case consttyp of
conststring:
if target_info.system in [system_powerpc_macos,system_powerpc_darwin] then
st:='s'''+backspace_quote(octal_quote(strpas(pchar(value.valueptr)),['''']),['"','\',#10,#13])+''''
else
st:='s'''+backspace_quote(strpas(pchar(value.valueptr)),['''','"','\',#10,#13])+'''';
st:='s'''+backspace_quote(octal_quote(strpas(pchar(value.valueptr)),[#0..#9,#11,#12,#14..#31,'''']),['"','\',#10,#13])+'''';
constord:
st:='i'+int64tostr(value.valueord);
constpointer:
@ -2217,7 +2214,10 @@ implementation
end.
{
$Log$
Revision 1.171 2004-05-11 22:52:48 olle
Revision 1.172 2004-05-22 23:32:52 peter
quote all low ascii chars in stabs
Revision 1.171 2004/05/11 22:52:48 olle
* Moved import_implicit_external to symsym
Revision 1.170 2004/05/11 18:29:41 olle