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

* H+ fixes

Browse Source
This commit is contained in:
peter 1998-11-17 10:40:15 +00:00
parent ef9ef167a1
commit dabc19f0ff
2 changed files with 26 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/pdecl.pas
View File

@ -154,7 +154,15 @@ unit pdecl;
{ value_str is disposed with p so I need a copy }
getmem(sp,p^.length+1);
move(p^.value_str^,sp^[1],p^.length);
sp^[0]:=chr(p^.length);
{$ifndef TP}
{$ifopt H+}
setlength(sp^,p^.length);
{$else}
sp^[0]:=chr(p^.length);
{$endif}
{$else}
sp^[0]:=chr(p^.length);
{$endif}
symtablestack^.insert(new(pconstsym,init(name,conststring,longint(sp),nil)));
end;
realconstn :
@ -2089,7 +2097,10 @@ unit pdecl;
end.
{
$Log$
Revision 1.83 1998-11-16 11:28:59 pierre
Revision 1.84 1998-11-17 10:40:15 peter
* H+ fixes
Revision 1.83 1998/11/16 11:28:59 pierre
* stackcheck removed for i386_win32
* exportlist does not crash at least !!
(was need for tests dir !)z

15
compiler/ptconst.pas
View File

@ -431,7 +431,15 @@ unit ptconst;
len:=255
else
len:=p^.length;
s[0]:=chr(len);
{$ifndef TP}
{$ifopt H+}
setlength(s,len);
{$else}
s[0]:=chr(len);
{$endif}
{$else}
s[0]:=chr(len);
{$endif}
move(p^.value_str^,s[1],len);
end
else
@ -623,7 +631,10 @@ unit ptconst;
end.
{
$Log$
Revision 1.27 1998-11-16 12:12:23 peter
Revision 1.28 1998-11-17 10:40:16 peter
* H+ fixes
Revision 1.27 1998/11/16 12:12:23 peter
- generate_pascii which is obsolete
Revision 1.26 1998/11/10 17:53:06 peter