paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-30 01:39:28 +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; unit aasm;
{$ifdef FPC}
{$ifdef PACKENUMFIXED}
{$PACKENUM 1}
{$endif}
{$endif}
interface interface
uses uses
@ -1108,7 +1114,10 @@ uses
end. end.
{ {
$Log$ $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 + added is_addr field for labels, if they are only used for getting the address
(e.g. for io checks) and corresponding getaddrlabel() procedure (e.g. for io checks) and corresponding getaddrlabel() procedure

11
compiler/cpubase.pas
View File

@ -32,6 +32,12 @@ interface
{$L-,Y-} {$L-,Y-}
{$endif} {$endif}
{$ifdef FPC}
{$ifdef PACKENUMFIXED}
{$PACKENUM 1}
{$endif}
{$endif}
uses uses
globals,strings,cobjects,aasm; globals,strings,cobjects,aasm;
@ -896,7 +902,10 @@ end;
end. end.
{ {
$Log$ $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 + Patch to 1.1
Revision 1.2 2000/07/13 11:32:39 michael Revision 1.2 2000/07/13 11:32:39 michael

11
compiler/globtype.pas
View File

@ -22,6 +22,12 @@
unit globtype; unit globtype;
interface interface
{$ifdef FPC}
{$ifdef PACKENUMFIXED}
{$PACKENUM 1}
{$endif}
{$endif}
const const
maxidlen = 64; maxidlen = 64;
@ -201,7 +207,10 @@ begin
end. end.
{ {
$Log$ $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 * first things for default parameters
Revision 1.3 2000/07/13 12:08:25 michael 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 if p^.treetype=ordconstn then
begin begin
if is_equal(p^.resulttype,def) then 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 else
Message(cg_e_illegal_expression); Message(cg_e_illegal_expression);
end end
@ -794,7 +800,10 @@ unit ptconst;
end. end.
{ {
$Log$ $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 + removed logs
} }

11
compiler/symconst.pas
View File

@ -22,6 +22,12 @@
unit symconst; unit symconst;
interface interface
{$ifdef FPC}
{$ifdef PACKENUMFIXED}
{$PACKENUM 1}
{$endif}
{$endif}
const const
def_alignment = 4; def_alignment = 4;
@ -215,7 +221,10 @@ implementation
end. end.
{ {
$Log$ $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 + patched to 1.1.0 with former 1.09patch from peter
Revision 1.2 2000/07/13 11:32:49 michael Revision 1.2 2000/07/13 11:32:49 michael