summaryrefslogtreecommitdiff
path: root/t/extern.pas
diff options
context:
space:
mode:
Diffstat (limited to 't/extern.pas')
-rw-r--r--t/extern.pas16
1 files changed, 8 insertions, 8 deletions
diff --git a/t/extern.pas b/t/extern.pas
index a23c371..89a3c78 100644
--- a/t/extern.pas
+++ b/t/extern.pas
@@ -1,22 +1,22 @@
program hello_world;
-extern puts(s:string):integer;
-extern printf(s:string, ...):integer;
-extern __isoc99_scanf(s:string, ...):integer;
+extern Pascal_puts(s:string):integer;
+extern Pascal_printf(s:string, ...):integer;
+extern Pascal_scanf(s:string, ...):integer;
function main():integer;
var
buf:array[0..1023] of char;
i:integer;
begin
- puts('Hello, World!');
- printf('Variadic Function Test: %d, %s, %x\n', 1, 'yes', 0x12345678);
+ Pascal_puts('Hello, World!');
+ Pascal_printf('Variadic Function Test: %d, %s, %x\n', 1, 'yes', 0x12345678);
for i:=0 to 10 do
begin
if i=3 then continue;
if i=5 then break;
- printf('say something: ');
- __isoc99_scanf('%s', @buf[0]);
- printf('round %d you said: %s\n', i, @buf[0])
+ Pascal_printf('say something: ');
+ Pascal_scanf('%s', @buf[0]);
+ Pascal_printf('round %d you said: %s\n', i, @buf[0])
end;
end;