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

* last para changed to long for easier pushing with 4 byte aligns

Browse Source
This commit is contained in:
peter 1999-03-26 00:24:15 +00:00
parent 6a802e85d7
commit c5db6f3dfe
2 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/cg386inl.pas
View File

@ -731,9 +731,9 @@ implementation
of the result to allow proper range checking} of the result to allow proper range checking}
If (dest_para^.resulttype^.deftype = orddef) Then If (dest_para^.resulttype^.deftype = orddef) Then
Case PordDef(dest_para^.resulttype)^.typ of Case PordDef(dest_para^.resulttype)^.typ of
s8bit: exprasmlist^.concat(new(pai386,op_const(A_PUSH,S_W,1))); s8bit: exprasmlist^.concat(new(pai386,op_const(A_PUSH,S_L,1)));
s16bit: exprasmlist^.concat(new(pai386,op_const(A_PUSH,S_W,2))); s16bit: exprasmlist^.concat(new(pai386,op_const(A_PUSH,S_L,2)));
s32bit: exprasmlist^.concat(new(pai386,op_const(A_PUSH,S_W,4))); s32bit: exprasmlist^.concat(new(pai386,op_const(A_PUSH,S_L,4)));
End; End;
case pstringdef(node^.resulttype)^.string_typ of case pstringdef(node^.resulttype)^.string_typ of
@ -1270,7 +1270,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.32 1999-03-26 00:05:26 peter Revision 1.33 1999-03-26 00:24:15 peter
* last para changed to long for easier pushing with 4 byte aligns
Revision 1.32 1999/03/26 00:05:26 peter
* released valintern * released valintern
+ deffile is now removed when compiling is finished + deffile is now removed when compiling is finished
* ^( compiles now correct * ^( compiles now correct

7
rtl/inc/sstrings.inc
View File

@ -394,7 +394,7 @@ end;
{$IfDef ValInternCompiled} {$IfDef ValInternCompiled}
Function ValSignedInt(DestSize: Byte; Const S: ShortString; var Code: TMaxSInt): TMaxSInt; [public, alias:'FPC_VAL_SINT_SSTRING']; Function ValSignedInt(DestSize: longint; Const S: ShortString; var Code: TMaxSInt): TMaxSInt; [public, alias:'FPC_VAL_SINT_SSTRING'];
var var
u: TMaxSInt; u: TMaxSInt;
base : byte; base : byte;
@ -1208,7 +1208,10 @@ end;
{ {
$Log$ $Log$
Revision 1.22 1999-03-16 17:49:36 jonas Revision 1.23 1999-03-26 00:24:16 peter
* last para changed to long for easier pushing with 4 byte aligns
Revision 1.22 1999/03/16 17:49:36 jonas
* changes for internal Val code (do a "make cycle OPT=-dvalintern" to test) * changes for internal Val code (do a "make cycle OPT=-dvalintern" to test)
* in text.inc: changed RTE 106 when read integer values are out of bounds to RTE 201 * in text.inc: changed RTE 106 when read integer values are out of bounds to RTE 201
* in systemh.inc: disabled "support_fixed" for the i386 because it gave internal errors, * in systemh.inc: disabled "support_fixed" for the i386 because it gave internal errors,