| Zeile 45: | Zeile 45: | ||
Das war der einfache Teil. Als nächstes brauchen wir eine eigene system-Unit, die allerdings für den Anfang nur zwei Stubs bereitstellen muss. '''system.pas''': | Das war der einfache Teil. Als nächstes brauchen wir eine eigene system-Unit, die allerdings für den Anfang nur zwei Stubs bereitstellen muss. '''system.pas''': | ||
<pascal>unit system; | <pascal>unit system; | ||
| − | + | ||
interface | interface | ||
| − | + | ||
| + | type hresult = longint; | ||
procedure FPC_INITIALIZEUNITS; compilerproc; | procedure FPC_INITIALIZEUNITS; compilerproc; | ||
procedure FPC_DO_EXIT; compilerproc; | procedure FPC_DO_EXIT; compilerproc; | ||
| − | + | ||
implementation | implementation | ||
| − | + | ||
procedure FPC_INITIALIZEUNITS; alias: 'FPC_INITIALIZEUNITS'; compilerproc; | procedure FPC_INITIALIZEUNITS; alias: 'FPC_INITIALIZEUNITS'; compilerproc; | ||
begin | begin | ||
end; | end; | ||
| − | + | ||
procedure FPC_DO_EXIT; alias: 'FPC_DO_EXIT'; compilerproc; | procedure FPC_DO_EXIT; alias: 'FPC_DO_EXIT'; compilerproc; | ||
begin | begin | ||
end; | end; | ||
| − | + | ||
end.</pascal> | end.</pascal> | ||