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

* fixed compilation problems

Browse Source
This commit is contained in:
Jonas Maebe 2003-06-12 18:12:49 +00:00
parent a0b9306652
commit 2b312f6e8c
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/i386/cpupi.pas
View File

@ -33,7 +33,7 @@ unit cpupi;
type type
ti386procinfo = class(tcgprocinfo) ti386procinfo = class(tcgprocinfo)
procedure allocate_interrupt_stackframe;override; procedure allocate_interrupt_parameter;override;
procedure allocate_framepointer;override; procedure allocate_framepointer;override;
end; end;
@ -41,9 +41,9 @@ unit cpupi;
implementation implementation
uses uses
cgbase; cgbase, cpubase, rgobj;
procedure ti386procinfo.allocate_interrupt_stackframe; procedure ti386procinfo.allocate_interrupt_parameter;
begin begin
{ we push Flags and CS as long { we push Flags and CS as long
to cope with the IRETD to cope with the IRETD
@ -69,7 +69,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.6 2003-06-12 16:43:07 peter Revision 1.7 2003-06-12 18:12:49 jonas
* fixed compilation problems
Revision 1.6 2003/06/12 16:43:07 peter
* newra compiles for sparc * newra compiles for sparc
Revision 1.5 2003/05/25 10:26:15 peter Revision 1.5 2003/05/25 10:26:15 peter