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

* packenum 1 fixes (merged)

Browse Source
This commit is contained in:
peter 2000-08-05 13:25:06 +00:00
parent 5efdcfc3a5
commit e955ac6135
5 changed files with 55 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/aasm.pas
View File

@ -22,6 +22,12 @@
}
unit aasm;
{$ifdef FPC}
{$ifdef PACKENUMFIXED}
{$PACKENUM 1}
{$endif}
{$endif}
interface
uses
@ -1108,7 +1114,10 @@ uses
end.
{
$Log$
Revision 1.4 2000-07-21 15:14:01 jonas
Revision 1.5 2000-08-05 13:25:06 peter
* packenum 1 fixes (merged)
Revision 1.4 2000/07/21 15:14:01 jonas
+ added is_addr field for labels, if they are only used for getting the address
(e.g. for io checks) and corresponding getaddrlabel() procedure

11
compiler/cpubase.pas
View File

@ -32,6 +32,12 @@ interface
{$L-,Y-}
{$endif}
{$ifdef FPC}
{$ifdef PACKENUMFIXED}
{$PACKENUM 1}
{$endif}
{$endif}
uses
globals,strings,cobjects,aasm;
@ -896,7 +902,10 @@ end;
end.
{
$Log$
Revision 1.3 2000-07-14 05:11:48 michael
Revision 1.4 2000-08-05 13:25:06 peter
* packenum 1 fixes (merged)
Revision 1.3 2000/07/14 05:11:48 michael
+ Patch to 1.1
Revision 1.2 2000/07/13 11:32:39 michael

11
compiler/globtype.pas
View File

@ -22,6 +22,12 @@
unit globtype;
interface
{$ifdef FPC}
{$ifdef PACKENUMFIXED}
{$PACKENUM 1}
{$endif}
{$endif}
const
maxidlen = 64;
@ -201,7 +207,10 @@ begin
end.
{
$Log$
Revision 1.4 2000-08-02 19:49:59 peter
Revision 1.5 2000-08-05 13:25:06 peter
* packenum 1 fixes (merged)
Revision 1.4 2000/08/02 19:49:59 peter
* first things for default parameters
Revision 1.3 2000/07/13 12:08:25 michael

13
compiler/ptconst.pas
View File

@ -404,7 +404,13 @@ unit ptconst;
if p^.treetype=ordconstn then
begin
if is_equal(p^.resulttype,def) then
curconstsegment^.concat(new(pai_const,init_32bit(p^.value)))
begin
case p^.resulttype^.size of
1 : curconstsegment^.concat(new(pai_const,init_8bit(p^.value)));
2 : curconstsegment^.concat(new(pai_const,init_16bit(p^.value)));
4 : curconstsegment^.concat(new(pai_const,init_32bit(p^.value)));
end;
end
else
Message(cg_e_illegal_expression);
end
@ -794,7 +800,10 @@ unit ptconst;
end.
{
$Log$
Revision 1.2 2000-07-13 11:32:47 michael
Revision 1.3 2000-08-05 13:25:06 peter
* packenum 1 fixes (merged)
Revision 1.2 2000/07/13 11:32:47 michael
+ removed logs
}

11
compiler/symconst.pas
View File

@ -22,6 +22,12 @@
unit symconst;
interface
{$ifdef FPC}
{$ifdef PACKENUMFIXED}
{$PACKENUM 1}
{$endif}
{$endif}
const
def_alignment = 4;
@ -215,7 +221,10 @@ implementation
end.
{
$Log$
Revision 1.3 2000-07-13 12:08:27 michael
Revision 1.4 2000-08-05 13:25:06 peter
* packenum 1 fixes (merged)
Revision 1.3 2000/07/13 12:08:27 michael
+ patched to 1.1.0 with former 1.09patch from peter
Revision 1.2 2000/07/13 11:32:49 michael