|
@@ -12,10 +12,17 @@ type
|
|
|
|
|
|
procedure fpc_lib_exit; compilerproc;
|
|
procedure fpc_lib_exit; compilerproc;
|
|
|
|
|
|
|
|
+function test_rtl_function(a, b: integer): integer;
|
|
|
|
+
|
|
implementation
|
|
implementation
|
|
|
|
|
|
procedure fpc_lib_exit; compilerproc;
|
|
procedure fpc_lib_exit; compilerproc;
|
|
begin
|
|
begin
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
+function test_rtl_function(a, b: integer): integer;
|
|
|
|
+begin
|
|
|
|
+ test_rtl_function := 0;
|
|
|
|
+end;
|
|
|
|
+
|
|
end.
|
|
end.
|