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

* adapted to new compiler check for externals

Browse Source
This commit is contained in:
armin 2004-11-25 12:38:17 +00:00
parent af7a983b6a
commit 8cfa7d1c01
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/netwlibc/Makefile
View File

@ -2,7 +2,7 @@
# Don't edit, this file is generated by FPCMake Version 1.1 [2004/11/04] # Don't edit, this file is generated by FPCMake Version 1.1 [2004/11/04]
# #
default: all default: all
MAKEFILETARGETS=netwlibc MAKEFILETARGETS=linux go32v2 win32 os2 freebsd beos netbsd amiga atari sunos qnx netware openbsd wdosx palmos macos darwin emx watcom morphos netwlibc
BSDs = freebsd netbsd openbsd darwin BSDs = freebsd netbsd openbsd darwin
UNIXs = linux $(BSDs) sunos qnx UNIXs = linux $(BSDs) sunos qnx
LIMIT83fs = go32v2 os2 LIMIT83fs = go32v2 os2

10
rtl/netwlibc/system.pp
View File

@ -103,7 +103,7 @@ procedure ConsolePrintf (FormatStr : PCHAR; Param : pchar);
procedure ConsolePrintf (FormatStr : PCHAR; P1,P2 : LONGINT); procedure ConsolePrintf (FormatStr : PCHAR; P1,P2 : LONGINT);
procedure ConsolePrintf (FormatStr : PCHAR; P1,P2,P3 : LONGINT); procedure ConsolePrintf (FormatStr : PCHAR; P1,P2,P3 : LONGINT);
procedure ConsolePrintf (FormatStr : PCHAR); procedure ConsolePrintf (FormatStr : PCHAR);
procedure __EnterDebugger; cdecl; procedure __EnterDebugger;cdecl;external '!netware' name 'EnterDebugger';
function NWGetCodeStart : pointer; // needed for Lineinfo function NWGetCodeStart : pointer; // needed for Lineinfo
function NWGetCodeLength : dword; function NWGetCodeLength : dword;
@ -929,9 +929,6 @@ begin
screenprintf (NWLoggerScreen,FormatStr,P1,P2,P3); screenprintf (NWLoggerScreen,FormatStr,P1,P2,P3);
end; end;
procedure __EnterDebugger;cdecl;external '!netware' name 'EnterDebugger';
var NWUts : Tutsname; var NWUts : Tutsname;
procedure getCodeAddresses; procedure getCodeAddresses;
@ -1187,7 +1184,10 @@ Begin
End. End.
{ {
$Log$ $Log$
Revision 1.7 2004-11-04 09:32:31 peter Revision 1.8 2004-11-25 12:38:17 armin
* adapted to new compiler check for externals
Revision 1.7 2004/11/04 09:32:31 peter
ErrOutput added ErrOutput added
Revision 1.6 2004/10/25 18:11:49 armin Revision 1.6 2004/10/25 18:11:49 armin